Option Explicit
Sub Main
'Ricerca di Gruppi Sincro-Isocroni di N Ambi Consecutivi su Ruota e TUTTE: scritto da Gam il 30.10.2023 facendo tesoro di quanto messo a disposizione da Mike58, modificando in parte il codice
Dim eIni,eFin,Tot,es,r,p1,p2,k,a,b,c,x,kMax
Dim nu(5),rt(1)
Dim numEs,esito,clp,esa,id,riga,nAmbiCons,casi,att,sorte
'16.06.2009 partono le ruote automatizzate VENUS (id = 8078)
'14.09.1946 (id = 3950)
numEs = EstrazioneFin - 8078 ' in base all'indice messo, si modifica l'archivio
nAmbiCons = 4 ' 4 => ricerca solo le estrazioni/casi con 4 ambi consecutivi
sorte = 1 ' 1 => per la sorte su Ruota -> 11 => per la sorte su TUTTE
eIni = EstrazioneFin - numEs
eFin = EstrazioneFin
Tot = eFin - eIni + 1
ReDim cc(numEs),Mat(numEs,2)
For es = eIni To eFin
Call AvanzamentoElab(eIni,eFin,es)
Messaggio(es)
If ScriptInterrotto Then Exit Sub
For r = 1 To 12
If r = 11 Then r = 12
For p1 = 1 To 4
a = Estratto(es,r,p1)
For p2 = p1 + 1 To 5
b = Estratto(es,r,p2)
If Differenza(a,b) = 1 Then
k = k + 1
nu(1) = a
nu(2) = b
If sorte = 1 Then rt(1) = r
If sorte = 11 Then rt(1) = 11
Call VerificaEsito(nu,rt,es + 1,2,Tot,,esito,clp,esa,id)
'
For x = 1 To numEs
If esito <> "" And clp = x Then cc(
= cc(
+ 1
Next
If id <> "0" Then
If k = 1 Then
riga = riga & FormattaStringa(es,"00000") & " " & DataEstrazione(es) & "|" & FormattaStringa(k,"00") & " " & _
SiglaRuota(r) & " " & StringaNumeri(nu,,1) & " STO " & FormattaStringa(clp,"0000") & "|"',,0
Else
riga = riga & FormattaStringa(k,"00") & " " & _
SiglaRuota(r) & " " & StringaNumeri(nu,,1) & " STO " & FormattaStringa(clp,"0000") & "|"',,0
End If
Else
If k = 1 Then
riga = riga & FormattaStringa(es,"00000") & " " & DataEstrazione(es) & "|" & FormattaStringa(k,"00") & " " & _
SiglaRuota(r) & " " & StringaNumeri(nu,,1) & " ATT " & FormattaStringa(clp,"0000") & "|"',,0
att = att + 1
Else
riga = riga & FormattaStringa(k,"00") & " " & _
SiglaRuota(r) & " " & StringaNumeri(nu,,1) & " ATT " & FormattaStringa(clp,"0000") & "|"',,0
att = att + 1
End If
End If
End If
Next
Next
Next
If riga <> "" And k = nAmbiCons And att = k Then Scrivi riga & " ***"
If riga <> "" And k = nAmbiCons And att <> k Then Scrivi riga
If k = nAmbiCons Then casi = casi + 1
If k > kMax Then kMax = k
att = 0
k = 0
riga = ""
Next
Scrivi casi & " casi giocabili"
Scrivi kMax & " è il numero Max di ambi Sincro-Isocroni rilevati nell'archivio considerato"
Scrivi TempoTrascorso
End Sub
