Sub Main()
Dim num(3)
Dim ruote(10)
Dim poste(3)
poste(2) = 1
'poste(3)=1
tmp = InputBox("Quante estrazioni controllo?","Zagor dist. 30 isotopa",100)
fin = EstrazioneFin
ini = fin - tmp
For es = ini To fin
Messaggio CStr(EstrazioneFin - es)
For r = 1 To 10
For r1 = r + 1 To 11
If r1 = 11 Then r1 = 12
For p = 1 To 5
a = Estratto(es,r,p)
b = Estratto(es,r1,p)
If Distanza(a,b) = 30 Then
Scrivi DataEstrazione(es),True
Scrivi Left(NomeRuota(r),3) & " " & StringaEstratti(es,r) & " --> " & Format2(a)
Scrivi Left(NomeRuota(r1),3) & " " & StringaEstratti(es,r1) & " --> " & Format2(b)
a1 = Fuori90(a + b)
ruote(1) = r
ruote(2) = r1
num(1) = a1
num(2) = a
num(3) = b
ImpostaGiocata 1,num,ruote,poste,10,2
Gioca es
Scrivi"***************************************"
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
Salve amici , ho questo script elaboratomi dal buon Metus , siccome la quantità di previsioni che estrapola sono tantissime , vorrei che qualcuno me lo modifichi cercando solo distanze verticali su ruote continue e diametrali.
Grazie anticipate.
Un saluto e buona giornata.
Mauro
YES WE CAN
Dim num(3)
Dim ruote(10)
Dim poste(3)
poste(2) = 1
'poste(3)=1
tmp = InputBox("Quante estrazioni controllo?","Zagor dist. 30 isotopa",100)
fin = EstrazioneFin
ini = fin - tmp
For es = ini To fin
Messaggio CStr(EstrazioneFin - es)
For r = 1 To 10
For r1 = r + 1 To 11
If r1 = 11 Then r1 = 12
For p = 1 To 5
a = Estratto(es,r,p)
b = Estratto(es,r1,p)
If Distanza(a,b) = 30 Then
Scrivi DataEstrazione(es),True
Scrivi Left(NomeRuota(r),3) & " " & StringaEstratti(es,r) & " --> " & Format2(a)
Scrivi Left(NomeRuota(r1),3) & " " & StringaEstratti(es,r1) & " --> " & Format2(b)
a1 = Fuori90(a + b)
ruote(1) = r
ruote(2) = r1
num(1) = a1
num(2) = a
num(3) = b
ImpostaGiocata 1,num,ruote,poste,10,2
Gioca es
Scrivi"***************************************"
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
Salve amici , ho questo script elaboratomi dal buon Metus , siccome la quantità di previsioni che estrapola sono tantissime , vorrei che qualcuno me lo modifichi cercando solo distanze verticali su ruote continue e diametrali.
Grazie anticipate.
Un saluto e buona giornata.
Mauro
YES WE CAN