Sub Main()
'Rif 0901_36 Genios - ....
Dim n1(4),n2(4),n3(4),ru1(1),ru2(1),ru3(1),posta(2)
posta(2) = 1
colpi = 250
Dim matrice(8,4)
matrice(1,1) = 1: matrice(1,2) = 10: matrice(1,3) = 11: matrice(1,4) = 19
matrice(2,1) = 2: matrice(2,2) = 20: matrice(2,3) = 22: matrice(2,4) = 29
matrice(3,1) = 3: matrice(3,2) = 30: matrice(3,3) = 33: matrice(3,4) = 39
matrice(4,1) = 4: matrice(4,2) = 40: matrice(4,3) = 44: matrice(4,4) = 49
matrice(5,1) = 5: matrice(5,2) = 50: matrice(5,3) = 55: matrice(5,4) = 59
matrice(6,1) = 6: matrice(6,2) = 60: matrice(6,3) = 66: matrice(6,4) = 69
matrice(7,1) = 7: matrice(7,2) = 70: matrice(7,3) = 77: matrice(7,4) = 79
matrice(8,1) = 8: matrice(8,2) = 80: matrice(8,3) = 88: matrice(8,4) = 89
fin = EstrazioneFin
'ini=3582 '<============ imposta ini o
ini = 3862 '<==== imposta intervallo
For es = ini To fin
Messaggio es
For s1 = 1 To 6
For i = 1 To 4
n1(i) = matrice(s1,i)
Next
For s2 = s1 + 1 To 7
For i = 1 To 4
n2(i) = matrice(s2,i)
Next
For s3 = s2 + 1 To 8
For i = 1 To 4
n3(i) = matrice(s3,i)
Next
For r1 = 1 To 10
ru1(1) = r1
If SerieFreq(es,es,n1,ru1,2) > 0 Then
For r2 = 1 To 10
If r2 <> r1 Then
ru2(1) = r2
If SerieFreq(es,es,n2,ru2,2) > 0 Then
For r3 = 1 To 10
If r3 <> r2 And r3 <> r1 Then
ru3(1) = r3
If SerieFreq(es,es,n3,ru3,2) > 0 Then
co = co + 1
Scrivi
Scrivi " caso " & co,1
Scrivi " " & DataEstrazione(es) & " Rilevato ambo su " & SiglaRuota(r1) & " " & StringaEstratti(es,r1)
Scrivi " " & DataEstrazione(es) & " Rilevato ambo su " & SiglaRuota(r2) & " " & StringaEstratti(es,r2)
Scrivi " " & DataEstrazione(es) & " Rilevato ambo su " & SiglaRuota(r3) & " " & StringaEstratti(es,r3)
Scrivi
ImpostaGiocata 1,n1,ru1,posta,colpi,2
ImpostaGiocata 2,n2,ru2,posta,colpi,2
ImpostaGiocata 3,n3,ru3,posta,colpi,2
For j = 1 To 3
For i = 1 To 3
ImpostaInterruzioni i,j,2
Next
Next
Gioca es
End If
End If 'chiude controllo ruote uguali
Next 'chiude r3
End If
End If
Next 'chiude r2
End If
Next 'chiude r1
Next : Next : Next : Next
ScriviResoconto
End Sub
