Sub Main()
Dim idEstr
Dim Inizio
Dim Fine
Dim ruote(10)
Dim poste(10)
Dim r
Dim di
Dim nAnalisi
Dim nColpiDiGioco
Dim n(4)
poste(1) = 1
poste(2) = 1
ruote(1) = r1
r = CInt(InputBox(" Scegli la ruota ",,"1"))
di = CInt(InputBox(" Inserire la Differenza voluta ",,"50"))
nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
Inizio = EstrazioneFin - nAnalisi
Fine = EstrazioneFin
co = 0
For idEstr = Inizio To Fine
Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
Call AvanzamentoElab(Inizio,Fine,idEstr)
For r1 = 1 To 11
If r1 = 11 Then
r1 = 12
End If
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(idEstr,r,p1)
b = Estratto(idEstr,r,p2)
If Differenza(a,b) = di Then
c = DiametraleD(a)
d = DiametraleD(b)
e = ComplAdX(c)
f = ComplAdX(d)
n(1) = c
n(2) = d
n(3) = e
n(4) = f
ruote(1) = r1
co = co + 1
ColoreTesto 0
Scrivi String(100,"°") & " Caso n°" & co,1
ColoreTesto 1
Scrivi DataEstrazione(idEstr) & " - " & "Ambo ricerca : " & a & " - " & b & " - " & "Differenza : " & di & " Trovato a " & SiglaRuota(r) & " *** " & " Numeri : " & c & " - " & d & " - " & e & " - " & f,1
ColoreTesto 0
Scrivi String(100,"°"),1
ImpostaGiocata 1,n,ruote,poste,nColpiDiGioco
Gioca idEstr,1
End If
If ScriptInterrotto Then Exit For
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" IDEA BY mari66 <> LISTATO BY B A F F O B L U "),1,3,0
ScriviResoconto
End Sub
