Marco-elle
Advanced Member >PLATINUM PLUS<
Queste ricerche sono i miei cavalli di battaglia.Il listato è datato e aggiornato ultimamente,
La penultima previsione è proprio quella che ho seguito e purtroppo ha fallito,demoralizzato non l'ho più guardato e proprio ora l'ho fatto girare e mi sono accorto
che l'ultima condizione ha fatto centro.Se vi fa piacere farlo girare ogni tanto e magari
usarlo per le vostre convergenze lo iserisco qui sotto
La penultima previsione è proprio quella che ho seguito e purtroppo ha fallito,demoralizzato non l'ho più guardato e proprio ora l'ho fatto girare e mi sono accorto
che l'ultima condizione ha fatto centro.Se vi fa piacere farlo girare ogni tanto e magari
usarlo per le vostre convergenze lo iserisco qui sotto
Codice:
Sub Main()
ColoreTesto 2
Scrivi "AMBO ZERATO SORTITO SU BA "
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 - 3500
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
For r1 = 1 To 1
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 = 10 And b = 20 Or a = 2 And b = 10 Then
a1(1) = 3
a1(2) = 14
a1(3) = 47
a1(4) = 85
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
If a = 10 And b = 30 Or a = 30 And b = 10 Then
a1(1) = 5
a1(2) = 11
a1(3) = 68
a1(4) = 82
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If a = 10 And b = 40 Or a = 40 And b = 10 Then
a1(1) = 6
a1(2) = 8
a1(3) = 42
a1(4) = 54
ruota(1) = 1
ruota(2) = 8
End If
If a = 10 And b = 50 Or a = 50 And b = 10 Then
a1(1) = 12
a1(2) = 22
a1(3) = 28
a1(4) = 55
ruota(1) = 1
ruota(2) = 10
ok = 1
End If
If a = 10 And b = 60 Or a = 60 And b = 10 Then
a1(1) = 6
a1(2) = 12
a1(3) = 23
a1(4) = 39
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If a = 10 And b = 70 Or a = 70 And b = 10 Then
a1(1) = 9
a1(2) = 32
a1(3) = 56
a1(4) = 77
ruota(1) = 1
ruota(2) = 10
ok = 1
End If
If a = 10 And b = 80 Or a = 80 And b = 10 Then
a1(1) = 2
a1(2) = 9
a1(3) = 16
a1(4) = 40
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If a = 10 And b = 90 Or a = 90 And b = 10 Then
a1(1) = 11
a1(2) = 12
a1(3) = 50
a1(4) = 87
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
If a = 20 And b = 30 Or a = 30 And b = 20 Then
a1(1) = 1
a1(2) = 4
a1(3) = 12
a1(4) = 34
ruota(1) = 1
ruota(2) = 8
ok = 1
End If
If a = 20 And b = 40 Or a = 40 And b = 20 Then
a1(1) = 2
a1(2) = 6
a1(3) = 20
'a1(4) = 77
ruota(1) = 3
ruota(2) = 7
ok = 1
End If
If a = 20 And b = 50 Or a = 50 And b = 20 Then
a1(1) = 4
a1(2) = 26
a1(3) = 35
a1(4) = 42
ruota(1) = 1
ruota(2) = 7
ok = 1
End If
If a = 20 And b = 60 Or a = 60 And b = 20 Then
a1(1) = 6
a1(2) = 17
a1(3) = 30
'a1(4) = 52
ruota(1) = 1
ruota(2) = 7
ok = 1
End If
If a = 20 And b = 70 Or a = 70 And b = 20 Then
a1(1) = 14
a1(2) = 54
a1(3) = 79
a1(4) = 90
ruota(1) = 2
ruota(2) = 4
ok = 1
End If
If a = 20 And b = 80 Or a = 80 And b = 20 Then
a1(1) = 5
a1(2) = 20
a1(3) = 47
a1(4) = 63
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If a = 20 And b = 90 Or a = 20 And b = 90 Then
a1(1) = 4
a1(2) = 14
a1(3) = 33
a1(4) = 46
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If a = 30 And b = 40 Or a = 40 And b = 30 Then
a1(1) = 1
a1(2) = 8
a1(3) = 27
a1(4) = 70
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If a = 30 And b = 50 Or a = 50 And b = 30 Then
a1(1) = 1
a1(2) = 19
a1(3) = 37
a1(4) = 39
ruota(1) = 1
ruota(2) = 9
ok = 1
End If
If a = 30 And b = 60 Or a = 60 And b = 30 Then
a1(1) = 10
a1(2) = 38
a1(3) = 72
a1(4) = 90
ruota(1) = 2
ruota(2) = 3
ok = 1
End If
If a = 30 And b = 70 Or a = 70 And b = 30 Then
a1(1) = 4
a1(2) = 19
a1(3) = 30
a1(4) = 62
ruota(1) = 1
ruota(2) = 5
ok = 1
End If
If a = 30 And b = 80 Or a = 80 And b = 30 Then
a1(1) = 1
a1(2) = 10
a1(3) = 46
a1(4) = 58
ruota(1) = 1
ruota(2) = 4
ok = 1
If a = 30 And b = 90 Or a = 30 And b = 90 Then
a1(1) = 8
a1(2) = 5
a1(3) = 58
a1(4) = 62
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
End If
If a = 40 And b = 50 Or a = 50 And b = 40 Then
a1(1) = 12
a1(2) = 13
a1(3) = 34
a1(4) = 37
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
If a = 40 And b = 60 Or a = 60 And b = 40 Then
a1(1) = 2
a1(2) = 7
a1(3) = 32
a1(4) = 49
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
If a = 40 And b = 70 Or a = 70 And b = 40 Then
a1(1) = 1
a1(2) = 4
a1(3) = 61
a1(4) = 70
ruota(1) = 1
ruota(2) = 7
ok = 1
End If
If a = 40 And b = 80 Or a = 80 And b = 40 Then
a1(1) = 7
a1(2) = 13
a1(3) = 24
a1(4) = 81
ruota(1) = 1
ruota(2) = 8
ok = 1
End If
If a = 40 And b = 90 Or a = 90 And b = 40 Then
a1(1) = 30
a1(2) = 35
a1(3) = 57
a1(4) = 61
ruota(1) = 1
ruota(2) = 7
ok = 1
End If
If a = 50 And b = 60 Or a = 60 And b = 50 Then
a1(1) = 2
a1(2) = 10
a1(3) = 14
a1(4) = 15
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If a = 50 And b = 70 Or a = 70 And b = 50 Then
a1(1) = 1
a1(2) = 10
a1(3) = 24
a1(4) = 61
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
If a = 50 And b = 80 Or a = 80 And b = 50 Then
a1(1) = 20
a1(2) = 22
a1(3) = 26
a1(4) = 40
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If a = 50 And b = 90 Or a = 90 And b = 50 Then
a1(1) = 18
a1(2) = 24
a1(3) = 53
a1(4) = 59
ruota(1) = 2
ruota(2) = 6
ok = 1
End If
If a = 60 And b = 70 Or a = 70 And b = 60 Then
a1(1) = 3
a1(2) = 12
a1(3) = 34
a1(4) = 90
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
If a = 60 And b = 80 Or a = 80 And b = 60 Then
a1(1) = 34
a1(2) = 39
a1(3) = 40
'a1(4) = 47
ruota(1) = 9
ruota(2) = 10
ok = 1
End If
If a = 60 And b = 90 Or a = 90 And b = 60 Then
a1(1) = 5
a1(2) = 31
a1(3) = 43
a1(4) = 84
ruota(1) = 1
ruota(2) = 5
ok = 1
End If
If a = 70 And b = 80 Or a = 80 And b = 70 Then
a1(1) = 1
a1(2) = 2
a1(3) = 24
a1(4) = 27
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If a = 70 And b = 90 Or a = 90 And b = 70 Then
a1(1) = 1
a1(2) = 14
a1(3) = 53
a1(4) = 66
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If a = 90 And b = 80 Or a = 80 And b = 90 Then
a1(1) = 1
a1(2) = 30
a1(3) = 61
a1(4) = 81
ruota(1) = 1
ruota(2) = 7
ok = 1
End If
If ok = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(80,"^") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " ambo zerato spia sortito su BARI " & 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
