Marco-elle
Banned
Codice:
Sub Main()
ColoreTesto 2
Scrivi "AMBO GEMELLO SORTITO SU TT "
Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
Scrivi "METODO E LIST BY Marco"
ColoreTesto 0
Dim poste(2)
Dim ruota(2)
Dim a1(4)
poste(2) = 1
clp = 12
ini = EstrazioneFin - 350
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 4
For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
ok = 0
If a = 11 And b = 22 Or a = 22 And b = 11 Then
a1(1) = 8
a1(2) = 14
a1(3) = 50
a1(4) = 54
ruota(1) = 1
ruota(2) = 5
ok = 1
End If
If a = 11 And b = 33 Or a = 33 And b = 11 Then
a1(1) = 1
a1(2) = 4
a1(3) = 11
a1(4) = 24
ruota(1) = 1
ruota(2) = 5
ok = 1
End If
If a = 11 And b = 44 Or a = 44 And b = 11 Then
a1(1) = 5
a1(2) = 13
a1(3) = 58
a1(4) = 71
ruota(1) = 1
ruota(2) = 2
End If
If a = 11 And b = 55 Or a = 55 And b = 11 Then
a1(1) = 2
a1(2) = 31
a1(3) = 51
a1(4) = 62
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
If a = 11 And b = 66 Or a = 66 And b = 11 Then
a1(1) = 31
a1(2) = 38
a1(3) = 47
a1(4) = 58
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If a = 11 And b = 77 Or a = 77 And b = 11 Then
a1(1) = 23
a1(2) = 36
a1(3) = 50
a1(4) = 56
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
If a = 11 And b = 88 Or a = 88 And b = 11 Then
a1(1) = 4
a1(2) = 26
a1(3) = 76
a1(4) = 81
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
If a = 22 And b = 33 Or a = 33 And b = 22 Then
a1(1) = 5
a1(2) = 6
a1(3) = 30
'a1(4) = 67
ruota(1) = 3
ruota(2) = 9
ok = 1
End If
If a = 22 And b = 44 Or a = 44 And b = 22 Then
a1(1) = 1
a1(2) = 16
a1(3) = 22
a1(4) = 51
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If a = 22 And b = 55 Or a = 55 And b = 22 Then
a1(1) = 1
a1(2) = 12
a1(3) = 48
a1(4) = 70
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If a = 22 And b = 66 Or a = 66 And b = 22 Then
a1(1) = 6
a1(2) = 27
a1(3) = 40
a1(4) = 47
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If a = 22 And b = 77 Or a = 77 And b = 22 Then
a1(1) = 38
a1(2) = 39
a1(3) = 48
'a1(4) = 84
ruota(1) = 5
ruota(2) = 8
ok = 1
End If
If a = 22 And b = 88 Or a = 88 And b = 22 Then
a1(1) = 6
a1(2) = 60
a1(3) = 63
a1(4) = 80
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If a = 33 And b = 44 Or a = 44 And b = 33 Then
a1(1) = 11
a1(2) = 66
a1(3) = 69
ruota(1) = 1
ruota(2) = 9
ok = 1
End If
If a = 33 And b = 55 Or a = 55 And b = 33 Then
a1(1) = 24
a1(2) = 26
a1(3) = 49
a1(4) = 83
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If a = 33 And b = 66 Or a = 66 And b = 33 Then
a1(1) = 1
a1(2) = 8
a1(3) = 14
a1(4) = 70
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If a = 33 And b = 77 Or a = 77 And b = 33 Then
a1(1) = 5
a1(2) = 48
a1(3) = 50
a1(4) = 56
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If a = 33 And b = 88 Or a = 88 And b = 33 Then
a1(1) = 9
a1(2) = 36
a1(3) = 60
a1(4) = 86
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If a = 44 And b = 55 Or a = 55 And b = 44 Then
a1(1) = 5
a1(2) = 26
a1(3) = 40
a1(4) = 71
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If a = 44 And b = 66 Or a = 66 And b = 44 Then
a1(1) = 3
a1(2) = 9
a1(3) = 20
a1(4) = 26
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If a = 44 And b = 77 Or a = 77 And b = 44 Then
a1(1) = 5
a1(2) = 50
a1(3) = 53
'a1(4) = 26
ruota(1) = 8
ruota(2) = 9
ok = 1
End If
If a = 44 And b = 88 Or a = 88 And b = 44 Then
a1(1) = 1
a1(2) = 9
a1(3) = 10
a1(4) = 51
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If a = 55 And b = 66 Or a = 66 And b = 55 Then
a1(1) = 8
a1(2) = 9
a1(3) = 36
a1(4) = 67
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
If a = 55 And b = 77 Or a = 77 And b = 55 Then
a1(1) = 3
a1(2) = 21
a1(3) = 30
a1(4) = 84
ruota(1) = 1
ruota(2) = 8
ok = 1
End If
If a = 55 And b = 88 Or a = 88 And b = 55 Then
a1(1) = 11
a1(2) = 20
a1(3) = 49
a1(4) = 51
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If a = 66 And b = 77 Or a = 77 And b = 66 Then
a1(1) = 9
a1(2) = 20
a1(3) = 42
a1(4) = 51
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
If a = 66 And b = 88 Or a = 88 And b = 88 Then
a1(1) = 7
a1(2) = 14
a1(3) = 15
a1(4) = 65
ruota(1) = 2
ruota(2) = 10
ok = 1
End If
If a = 77 And b = 88 Or a = 88 And b = 77 Then
a1(1) = 6
a1(2) = 80
a1(3) = 89
'a1(4) = 63
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If ok = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(80,"^") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " ambo spia sortito su TT " & a & " - " & b,1
Scrivi String(80,"^"),1
ColoreTesto 0
ImpostaGiocata 1,a1,ruota,poste,clp
Gioca es,1
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
