Option Explicit
Sub Main
'script by tom x gino
' trova ambo voluto per range temporale desiderati e ruote volute
Dim es
Dim n1
Dim n2
ReDim ar(11)
Dim Inizio
Dim fine
Dim Estratto1
Dim Estratto2
Dim r
Dim ruota
Dim p1,p2
Dim contambi
fine = EstrazioneFin
Inizio = EstrazioneIni
ScegliRuote(ar)
n1 = CInt(InputBox("n1",,37))
n2 = CInt(InputBox("n2",,21))
Scrivi "ruote analizzate " & StringaRuote(ar)
Scrivi "periodo analizzato " & GetInfoEstrazione(Inizio) & ".- " & GetInfoEstrazione(fine)
Scrivi "ambo ricercato " & n1 & "-" & n2
Scrivi
For es = Inizio To fine
For r = 1 To UBound(ar)
ruota = ar(r)
'Scrivi SiglaRuota(ruota) & " " & StringaEstratti(es,ruota,".")
For p1 = 1 To 5
For p2 = 1 To 5
Estratto1 = Estratto(es,ruota,p1)
Estratto2 = Estratto(es,ruota,p2)
'Scrivi Estratto1 & " | " & Estratto2
If Estratto1 = n1 And Estratto2 = n2 Then
contambi = contambi + 1
Scrivi "ambo trovato!"
Call Messaggio("ambo(i) trovato(i) " & contambi)
Scrivi "uscito in data " & GetInfoEstrazione(es) & " sulla ruota di " & NomeRuota(ruota) & " negli estratti " & StringaEstratti(es,ruota,".")
End If
If ScriptInterrotto Then Exit For
Next ' x p2
If ScriptInterrotto Then Exit For
Next ' x p1
If ScriptInterrotto Then Exit For
Next ' xr
Call AvanzamentoElab(Inizio,fine,es)
If ScriptInterrotto Then Exit For
Next ' x es
If contambi = 0 Then
Scrivi "nessun ambo trovato nel range temporale e di ruote specificato"
End If
End Sub
