Marco-elle
Banned
Sono a metà del lavoro ma....sono attualmente fuso e aggiornerò dopo la sbornia
Codice:
Sub Main()
ColoreTesto 2
Scrivi "TERNO GEMELLARE SORTITO SU TT "
Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
Scrivi "METODO E LIST BY Marco"
ColoreTesto 0
Dim poste(4)
Dim ruota(10)
Dim n1(4)
poste(2) = 1
poste(3) = 1
poste(4) = 1
clp = 10
ini = EstrazioneFin - 9900
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
For r1 = 1 To 10
For p1 = 1 To 3
For p2 = p1 + 1 To 4
For p3 = p2 + 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
c = Estratto(es,r1,p3)
ok = 0
If(a = 11 Or a = 22 Or a = 33)_
And(b = 11 Or b = 22 Or b = 33)_
And(c = 11 Or c = 22 Or c = 33)Then
n1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,9,4) + 1)
n1(2) = Fuori90(90 +(Estratto(es,5,2)) - Estratto(es,2,3) + 29)
n1(3) = Fuori90(Estratto(es,8,1) + Estratto(es,10,1) + 87)
n1(4) = Fuori90(Estratto(es,5,1) + Estratto(es,10,1) + 5)
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
If(a = 11 Or a = 22 Or a = 44)_
And(b = 11 Or b = 22 Or b = 44)_
And(c = 11 Or c = 22 Or c = 44)Then
n1(1) = Fuori90(Estratto(es,2,4) + 1)
n1(2) = Fuori90(Estratto(es,12,1) + 85)
n1(3) = Fuori90(90 +(Estratto(es,4,3)) + 89)
n1(4) = Fuori90(Estratto(es,1,3) + 15)
ruota(1) = 1
ruota(2) = 7
ok = 1
End If
If(a = 11 Or a = 22 Or a = 55)_
And(b = 11 Or b = 22 Or b = 55)_
And(c = 11 Or c = 22 Or c = 55)Then
n1(1) = Fuori90(Estratto(es,1,2) + Estratto(es,1,3) + 1)
n1(2) = Fuori90(90 +(Estratto(es,3,4)) - Estratto(es,2,3) + 38)
n1(3) = Fuori90(Estratto(es,8,1) + Estratto(es,10,2) + 4)
n1(4) = Fuori90(Estratto(es,5,5) + Estratto(es,8,5) + 5)
ruota(1) = 1
ruota(2) = 10
ok = 1
End If
If(a = 11 Or a = 22 Or a = 66)_
And(b = 11 Or b = 22 Or b = 66)_
And(c = 11 Or c = 22 Or c = 66) Then
n1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,9,2) + 1)
n1(2) = Fuori90(90 +(Estratto(es,2,3)) + Estratto(es,2,5) + 63)
n1(3) = Fuori90(Estratto(es,4,5) + Estratto(es,9,2) + 30)
n1(4) = Fuori90(Estratto(es,2,1) + Estratto(es,8,3) + 17)
ruota(1) = 5
ruota(2) = 9
ok = 1
End If
If(a = 11 Or a = 22 Or a = 77)_
And(b = 11 Or b = 22 Or b = 77)_
And(c = 11 Or c = 22 Or c = 77) Then
n1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,6,4) + 1)
n1(2) = Fuori90(90 +(Estratto(es,5,4)) - Estratto(es,6,5) + 46)
n1(3) = Fuori90(Estratto(es,1,4) + Estratto(es,9,5) + 3)
n1(4) = Fuori90(90 +(Estratto(es,8,1)) - Estratto(es,5,2) + 20)
ruota(1) = 1
ruota(2) = 5
ok = 1
End If
If(a = 11 Or a = 22 Or a = 88)_
And(b = 11 Or b = 22 Or b = 88)_
And(c = 11 Or c = 22 Or c = 88) Then
n1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,7,2) + 1)
n1(2) = Fuori90(90 +(Estratto(es,5,1)) + Estratto(es,5,2) + 45)
n1(3) = Fuori90(90 +(Estratto(es,2,4)) - Estratto(es,10,5) + 19)
n1(4) = Fuori90(Estratto(es,3,5) + Estratto(es,4,2) + 27)
ruota(1) = 3
ruota(2) = 9
ok = 1
End If
If(a = 22 Or a = 33 Or a = 44)_
And(b = 22 Or b = 33 Or b = 44)_
And(c = 22 Or c = 33 Or c = 44) Then
n1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,2,1) + 1)
n1(2) = Fuori90(90 +(Estratto(es,3,1)) + Estratto(es,5,3) + 17)
n1(3) = Fuori90(90 +(Estratto(es,12,1)) - Estratto(es,4,5) + 71)
n1(4) = Fuori90(Estratto(es,1,1) + Estratto(es,3,2) + 1)
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
If(a = 22 Or a = 33 Or a = 55)_
And(b = 22 Or b = 33 Or b = 55)_
And(c = 22 Or c = 33 Or c = 55) Then
n1(1) = Fuori90(Estratto(es,2,1) + Estratto(es,3,1) + 1)
n1(2) = Fuori90(90 +(Estratto(es,1,4)) + Estratto(es,6,5) + 49)
n1(3) = Fuori90(90 +(Estratto(es,4,3)) + Estratto(es,9,5) + 9)
n1(4) = Fuori90(Estratto(es,3,3) + Estratto(es,7,5) + 1)
ruota(1) = 2
ruota(2) = 7
ok = 1
End If
If(a = 22 Or a = 33 Or a = 66)_
And(b = 22 Or b = 33 Or b = 66)_
And(c = 22 Or c = 33 Or c = 66) Then
n1(1) = Fuori90(Estratto(es,1,2) + Estratto(es,10,1) + 1)
n1(2) = Fuori90(90 +(Estratto(es,2,4))*Estratto(es,12,5) + 7)
n1(3) = Fuori90(90 +(Estratto(es,7,3)) + Estratto(es,10,2) + 7)
n1(4) = Fuori90(Estratto(es,4,2) + Estratto(es,8,1) + 29)
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
If(a = 22 Or a = 33 Or a = 77)_
And(b = 22 Or b = 33 Or b = 77)_
And(c = 22 Or c = 33 Or c = 77) Then
n1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,3,1) + 1)
n1(2) = Fuori90(90 +(Estratto(es,4,3)) + Estratto(es,7,3) + 53)
n1(3) = Fuori90(90 +(Estratto(es,1,2)) + Estratto(es,2,5) + 27)
n1(4) = Fuori90(Estratto(es,6,3) + Estratto(es,9,3) + 1)
ruota(1) = 5
ruota(2) = 6
ok = 1
End If
If(a = 22 Or a = 33 Or a = 88)_
And(b = 22 Or b = 33 Or b = 88)_
And(c = 22 Or c = 33 Or c = 88) Then
n1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,3) + 1)
n1(2) = Fuori90(90 +(Estratto(es,2,2)) - Estratto(es,5,1) + 21)
n1(3) = Fuori90(90 +(Estratto(es,7,1)) + Estratto(es,7,5) + 2)
n1(4) = Fuori90(Estratto(es,1,1) + Estratto(es,3,1) + 1)
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If(a = 22 Or a = 44 Or a = 55)_
And(b = 22 Or b = 44 Or b = 55)_
And(c = 22 Or c = 44 Or c = 55) Then
n1(1) = Fuori90(Estratto(es,1,3) + 1)
n1(2) = Fuori90(90 +(Estratto(es,12,2)) + 58)
n1(3) = Fuori90(90 +(Estratto(es,5,3)) + 4)
n1(4) = Fuori90(Estratto(es,2,4) + 1)
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If(a = 22 Or a = 44 Or a = 66)_
And(b = 22 Or b = 44 Or b = 66)_
And(c = 22 Or c = 44 Or c = 66) Then
n1(1) = Fuori90(Estratto(es,1,4) + Estratto(es,7,5) + 1)
n1(2) = Fuori90(90 +(Estratto(es,1,3)) + Estratto(es,4,5) + 72)
n1(3) = Fuori90(90 +(Estratto(es,1,5)) + Estratto(es,7,3) + 1)
n1(4) = Fuori90(Estratto(es,5,5) + Estratto(es,10,4) + 13)
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
If(a = 22 Or a = 44 Or a = 77)_
And(b = 22 Or b = 44 Or b = 77)_
And(c = 22 Or c = 44 Or c = 77) Then
n1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,8,2) + 1)
n1(2) = Fuori90(90 +(Estratto(es,7,2)) + Estratto(es,12,4) + 40)
n1(3) = Fuori90(90 +(Estratto(es,10,4)) - Estratto(es,5,3) + 49)
n1(4) = Fuori90(Estratto(es,6,1) + Estratto(es,12,4) + 25)
ruota(1) = 5
ruota(2) = 6
ok = 1
End If
If(a = 22 Or a = 44 Or a = 88)_
And(b = 22 Or b = 44 Or b = 88)_
And(c = 22 Or c = 44 Or c = 88) Then
n1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,7,2) + 1)
n1(2) = Fuori90(90 +(Estratto(es,7,1)) + Estratto(es,8,2) + 65)
n1(3) = Fuori90(90 +(Estratto(es,3,3)) - Estratto(es,2,5) + 6)
n1(4) = Fuori90(Estratto(es,2,1) + Estratto(es,10,2) + 1)
ruota(1) = 1
ruota(2) = 7
ok = 1
End If
If(a = 22 Or a = 55 Or a = 66)_
And(b = 22 Or b = 55 Or b = 66)_
And(c = 22 Or c = 55 Or c = 66) Then
n1(1) = Fuori90(Estratto(es,1,2) + Estratto(es,8,1) + 1)
n1(2) = Fuori90(90 +(Estratto(es,7,3)) + Estratto(es,10,5) + 13)
n1(3) = Fuori90(90 +(Estratto(es,7,5)) + Estratto(es,9,5) + 6)
n1(4) = Fuori90(Estratto(es,3,3) + Estratto(es,10,2) + 11)
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
If(a = 22 Or a = 55 Or a = 77)_
And(b = 22 Or b = 55 Or b = 77)_
And(c = 22 Or c = 55 Or c = 77) Then
n1(1) = Fuori90(Estratto(es,1,2) + Estratto(es,2,1) + 1)
n1(2) = Fuori90(90 +(Estratto(es,1,2)) + Estratto(es,4,2) + 51)
n1(3) = Fuori90(90 +(Estratto(es,1,1)) + Estratto(es,5,3) + 28)
n1(4) = Fuori90(90 +(Estratto(es,12,3)) - Estratto(es,3,1) + 85)
ruota(1) = 3
ruota(2) = 4
ok = 1
End If
If(a = 22 Or a = 55 Or a = 88)_
And(b = 22 Or b = 55 Or b = 88)_
And(c = 22 Or c = 55 Or c = 88) Then
n1(1) = Fuori90(Estratto(es,1,4) + 1)
n1(2) = Fuori90(90 +(Estratto(es,10,2)) + 14)
n1(3) = Fuori90(90 +(Estratto(es,6,5)) + 4)
n1(4) = Fuori90(90 +(Estratto(es,3,3)) + 16)
ruota(1) = 1
ruota(2) = 8
ok = 1
End If
If(a = 33 Or a = 44 Or a = 55)_
And(b = 33 Or b = 44 Or b = 55)_
And(c = 33 Or c = 44 Or c = 55) Then
n1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,2) + 1)
n1(2) = Fuori90(90 +(Estratto(es,6,5)) - Estratto(es,8,3) + 3)
n1(3) = Fuori90(90 +(Estratto(es,1,2)) *Estratto(es,8,2) + 64)
n1(4) = Fuori90(90 +(Estratto(es,1,1)) + Estratto(es,9,5) + 1)
ruota(1) = 1
ruota(2) = 9
ok = 1
End If
If(a = 33 Or a = 44 Or a = 66)_
And(b = 33 Or b = 44 Or b = 66)_
And(c = 33 Or c = 44 Or c = 66) Then
n1(1) = Fuori90(Estratto(es,1,3) + Estratto(es,6,4) + 1)
n1(2) = Fuori90(90 +(Estratto(es,4,4)) - Estratto(es,3,5) + 46)
n1(3) = Fuori90(90 +(Estratto(es,5,5)) + Estratto(es,8,1) + 11)
n1(4) = Fuori90(90 +(Estratto(es,1,1)) + Estratto(es,9,1) + 1)
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If(a = 33 Or a = 44 Or a = 88)_
And(b = 33 Or b = 44 Or b = 88)_
And(c = 33 Or c = 44 Or c = 88) Then
n1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,5,3) + 1)
n1(2) = Fuori90(90 +(Estratto(es,3,5))*Estratto(es,7,3) + 26)
n1(3) = Fuori90(90 +(Estratto(es,3,4)) + Estratto(es,5,3) + 3)
n1(4) = Fuori90(90 +(Estratto(es,1,4)) + Estratto(es,8,1) + 1)
ruota(1) = 1
ruota(2) = 5
ok = 1
End If
If(a = 44 Or a = 55 Or a = 66)_
And(b = 33 Or b = 55 Or b = 66)_
And(c = 33 Or c = 55 Or c = 66) Then
n1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,2) + 1)
n1(2) = Fuori90(90 +(Estratto(es,2,2)) - Estratto(es,2,3) + 31)
n1(3) = Fuori90(90 +(Estratto(es,4,2)) + Estratto(es,9,2) + 10)
n1(4) = Fuori90(90 +(Estratto(es,2,5)) + Estratto(es,7,4) + 2)
ruota(1) = 1
ruota(2) = 8
ok = 1
End If
If(a = 44 Or a = 55 Or a = 77)_
And(b = 33 Or b = 55 Or b = 77)_
And(c = 33 Or c = 55 Or c = 77) Then
n1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,9,4) + 1)
n1(2) = Fuori90(90 +(Estratto(es,5,1))*Estratto(es,8,3) + 49)
n1(3) = Fuori90(90 +(Estratto(es,12,1)) - Estratto(es,9,3) + 31)
n1(4) = Fuori90(90 +(Estratto(es,2,2)) + Estratto(es,6,2) + 19)
ruota(1) = 5
ruota(2) = 10
ok = 1
End If
If(a = 44 Or a = 55 Or a = 88)_
And(b = 33 Or b = 55 Or b = 88)_
And(c = 33 Or c = 55 Or c = 88) Then
n1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,2) + 1)
n1(2) = Fuori90(90 +(Estratto(es,6,1)) + Estratto(es,9,5) + 7)
n1(3) = Fuori90(90 +(Estratto(es,1,4)) + Estratto(es,7,3) + 84)
n1(4) = Fuori90(90 +(Estratto(es,1,1)) + Estratto(es,1,3) + 1)
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If(a = 55 Or a = 66 Or a = 77)_
And(b = 55 Or b = 66 Or b = 77)_
And(c = 55 Or c = 66 Or c = 77) Then
n1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,4,5) + 1)
n1(2) = Fuori90(90 +(Estratto(es,2,2)) - Estratto(es,7,2) + 19)
n1(3) = Fuori90(90 +(Estratto(es,5,4)) - Estratto(es,2,5) + 8)
n1(4) = Fuori90(90 +(Estratto(es,2,2)) + Estratto(es,4,2) + 14)
ruota(1) = 3
ruota(2) = 4
ok = 1
End If
If(a = 55 Or a = 66 Or a = 88)_
And(b = 55 Or b = 66 Or b = 88)_
And(c = 55 Or c = 66 Or c = 88) Then
n1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,2,1) + 1)
n1(2) = Fuori90(90 +(Estratto(es,12,2)) - Estratto(es,6,1) + 59)
n1(3) = Fuori90(90 +(Estratto(es,2,3)) - Estratto(es,7,3) + 5)
n1(4) = Fuori90(90 +(Estratto(es,4,2)) + Estratto(es,6,2) + 15)
ruota(1) = 1
ruota(2) = 10
ok = 1
End If
If(a = 66 Or a = 77 Or a = 88)_
And(b = 66 Or b = 77 Or b = 88)_
And(c = 66 Or c = 77 Or c = 88) Then
n1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,2,1) + 1)
n1(2) = Fuori90(90 +(Estratto(es,5,3)) - Estratto(es,10,4) + 5)
n1(3) = Fuori90(90 +(Estratto(es,6,4)) + Estratto(es,7,5) + 17)
n1(4) = Fuori90(90 +(Estratto(es,1,5)) + Estratto(es,12,1) + 1)
ruota(1) = 8
ruota(2) = 10
ok = 1
End If
If OK = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(80,"^") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " terno gemellare sortito su TT " & a & " - " & b & " - " & c,1
Scrivi String(80,"^"),1
ColoreTesto 0
ImpostaGiocata 1,n1,ruota,poste,clp
Gioca es,1
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub