Help mi.....

[Zagor]

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

 

[Thauk]

Ciao, Mauro, passavo di qui... ho messo anche le ruote gemelle.

Ruote consecutive

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
r1 = r + 1
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
ScriviResoconto
End Sub

Ruote diametrali

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 5
r1 = r + 5
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
ScriviResoconto
End Sub

Ruote gemelle

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 5
r1 = 11 - r
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
ScriviResoconto
End Sub

ciauz


Fortuna non omnibus aeque.

 

[Zagor]

Grazie Thauk , molto gentile.

Un saluto e buona giornata.

Mauro
YES WE CAN