Grazie Marco buona serataCiao Tessa,
questa è la previsione in corso:
Vedi l'allegato 2221125
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Grazie Marco buona serataCiao Tessa,
questa è la previsione in corso:
Vedi l'allegato 2221125
Ammoreeeeeeee...... che bello che tu ti preoccupi x meciao Marco, tutto bene?
Sub Main()
ColoreTesto 2
Scrivi "IL CAVALLO (Full Version) "
Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
Scrivi "METODO E LIST BY Marco"
ColoreTesto 0
Dim poste(2)
Dim ruota(10)
Dim n1(4)
poste(2) = 1
clp = 12
ini = EstrazioneFin - 1000
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
For r = 1 To 1
For r1 = 2 To 2
a = Estratto(es,r,1)
b = Estratto(es,r1,3)
ok = 0
If Fuori90(a + b) = 1 Then
n1(1) = 8
n1(2) = 15
n1(3) = 56
n1(4) = 65
ruota(1) = 4
ruota(2) = 5
ok = 1
End If
If Fuori90(a + b) = 2 Then
n1(1) = 12
n1(2) = 15
n1(3) = 38
n1(4) = 75
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If Fuori90(a + b) = 3 Then
n1(1) = 6
n1(2) = 17
n1(3) = 19
n1(4) = 40
ruota(1) = 2
ruota(2) = 4
ok = 1
End If
If Fuori90(a + b) = 4 Then
n1(1) = 1
n1(2) = 9
n1(3) = 35
n1(4) = 46
ruota(1) = 1
ruota(2) = 5
ok = 1
End If
If Fuori90(a + b) = 5 Then
n1(1) = 8
n1(2) = 10
n1(3) = 11
n1(4) = 39
ruota(1) = 1
ruota(2) = 9
ok = 1
End If
If Fuori90(a + b) = 6 Then
n1(1) = 2
n1(2) = 5
n1(3) = 69
n1(4) = 74
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
If Fuori90(a + b) = 7 Then
n1(1) = 24
n1(2) = 71
n1(3) = 75
n1(4) = 89
ruota(1) = 3
ruota(2) = 5
ok = 1
End If
If Fuori90(a + b) = 8 Then
n1(1) = 2
n1(2) = 9
n1(3) = 74
n1(4) = 86
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
If Fuori90(a + b) = 9 Then
n1(1) = 25
n1(2) = 39
n1(3) = 40
n1(4) = 62
ruota(1) = 4
ruota(2) = 9
ok = 1
End If
If Fuori90(a + b) = 10 Then
n1(1) = 4
n1(2) = 6
n1(3) = 8
n1(4) = 38
ruota(1) = 3
ruota(2) = 8
ok = 1
End If
If Fuori90(a + b) = 11 Then
n1(1) = 6
n1(2) = 25
n1(3) = 30
n1(4) = 54
ruota(1) = 5
ruota(2) = 10
ok = 1
End If
If Fuori90(a + b) = 12 Then
n1(1) = 25
n1(2) = 33
n1(3) = 82
n1(4) = 86
ruota(1) = 3
ruota(2) = 7
ok = 1
End If
If Fuori90(a + b) = 13 Then
n1(1) = 2
n1(2) = 32
n1(3) = 61
n1(4) = 79
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If Fuori90(a + b) = 14 Then
n1(1) = 1
n1(2) = 6
n1(3) = 14
n1(4) = 20
ruota(1) = 6
ruota(2) = 10
ok = 1
End If
If Fuori90(a + b) = 15 Then
n1(1) = 13
n1(2) = 20
n1(3) = 23
n1(4) = 69
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If Fuori90(a + b) = 16 Then
n1(1) = 30
n1(2) = 31
n1(3) = 32
n1(4) = 66
ruota(1) = 2
ruota(2) = 10
ok = 1
End If
If Fuori90(a + b) = 17 Then
n1(1) = 19
n1(2) = 28
n1(3) = 34
n1(4) = 53
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
If Fuori90(a + b) = 18 Then
n1(1) = 35
n1(2) = 56
n1(3) = 70
n1(4) = 73
ruota(1) = 2
ruota(2) = 4
ok = 1
End If
If Fuori90(a + b) = 19 Then
n1(1) = 1
n1(2) = 10
n1(3) = 35
n1(4) = 62
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If Fuori90(a + b) = 20 Then
n1(1) = 4
n1(2) = 15
n1(3) = 55
n1(4) = 79
ruota(1) = 1
ruota(2) = 8
ok = 1
End If
If Fuori90(a + b) = 21 Then
n1(1) = 56
n1(2) = 68
n1(3) = 69
n1(4) = 81
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If Fuori90(a + b) = 22 Then
n1(1) = 1
n1(2) = 7
n1(3) = 9
n1(4) = 56
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If Fuori90(a + b) = 23 Then
n1(1) = 1
n1(2) = 16
n1(3) = 22
n1(4) = 89
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If Fuori90(a + b) = 24 Then
n1(1) = 10
n1(2) = 15
n1(3) = 33
n1(4) = 76
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If Fuori90(a + b) = 25 Then
n1(1) = 28
n1(2) = 30
n1(3) = 44
n1(4) = 70
ruota(1) = 1
ruota(2) = 7
ok = 1
End If
If Fuori90(a + b) = 26 Then
n1(1) = 16
n1(2) = 60
n1(3) = 61
n1(4) = 76
ruota(1) = 2
ruota(2) = 9
ok = 1
End If
If Fuori90(a + b) = 27 Then
n1(1) = 1
n1(2) = 2
n1(3) = 19
n1(4) = 34
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If Fuori90(a + b) = 28 Then
n1(1) = 10
n1(2) = 28
n1(3) = 58
n1(4) = 82
ruota(1) = 1
ruota(2) = 9
ok = 1
End If
If Fuori90(a + b) = 29 Then
n1(1) = 10
n1(2) = 22
n1(3) = 35
n1(4) = 36
ruota(1) = 1
ruota(2) = 10
ok = 1
End If
If Fuori90(a + b) = 30 Then
n1(1) = 4
n1(2) = 13
n1(3) = 73
n1(4) = 74
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
If Fuori90(a + b) = 31 Then
n1(1) = 10
n1(2) = 31
n1(3) = 47
n1(4) = 80
ruota(1) = 1
ruota(2) = 10
ok = 1
End If
If Fuori90(a + b) = 32 Then
n1(1) = 6
n1(2) = 34
n1(3) = 61
n1(4) = 78
ruota(1) = 1
ruota(2) = 10
ok = 1
End If
If Fuori90(a + b) = 33 Then
n1(1) = 25
n1(2) = 35
n1(3) = 61
n1(4) = 75
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If Fuori90(a + b) = 34 Then
n1(1) = 16
n1(2) = 34
n1(3) = 39
n1(4) = 79
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
If Fuori90(a + b) = 35 Then
n1(1) = 5
n1(2) = 22
n1(3) = 34
n1(4) = 65
ruota(1) = 1
ruota(2) = 9
ok = 1
End If
If Fuori90(a + b) = 36 Then
n1(1) = 13
n1(2) = 15
n1(3) = 35
n1(4) = 39
ruota(1) = 1
ruota(2) = 8
ok = 1
End If
If Fuori90(a + b) = 37 Then
n1(1) = 7
n1(2) = 22
n1(3) = 29
n1(4) = 51
ruota(1) = 5
ruota(2) = 9
ok = 1
End If
If Fuori90(a + b) = 38 Then
n1(1) = 18
n1(2) = 56
n1(3) = 60
n1(4) = 63
ruota(1) = 2
ruota(2) = 3
ok = 1
End If
If Fuori90(a + b) = 39 Then
n1(1) = 44
n1(2) = 46
n1(3) = 71
n1(4) = 76
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
If Fuori90(a + b) = 40 Then
n1(1) = 24
n1(2) = 31
n1(3) = 32
n1(4) = 54
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If Fuori90(a + b) = 41 Then
n1(1) = 6
n1(2) = 44
n1(3) = 61
n1(4) = 80
ruota(1) = 2
ruota(2) = 7
ok = 1
End If
If Fuori90(a + b) = 42 Then
n1(1) = 59
n1(2) = 64
n1(3) = 73
n1(4) = 77
ruota(1) = 1
ruota(2) = 7
ok = 1
End If
If Fuori90(a + b) = 43 Then
n1(1) = 6
n1(2) = 15
n1(3) = 37
n1(4) = 60
ruota(1) = 1
ruota(2) = 10
ok = 1
End If
If Fuori90(a + b) = 44 Then
n1(1) = 3
n1(2) = 28
n1(3) = 32
n1(4) = 78
ruota(1) = 3
ruota(2) = 4
ok = 1
End If
If Fuori90(a + b) = 45 Then
n1(1) = 4
n1(2) = 7
n1(3) = 31
n1(4) = 35
ruota(1) = 4
ruota(2) = 8
ok = 1
End If
If Fuori90(a + b) = 46 Then
n1(1) = 1
n1(2) = 13
n1(3) = 78
n1(4) = 83
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If Fuori90(a + b) = 47 Then
n1(1) = 11
n1(2) = 71
n1(3) = 76
n1(4) = 90
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If Fuori90(a + b) = 48Then
n1(1) = 31
n1(2) = 33
n1(3) = 38
n1(4) = 73
ruota(1) = 1
ruota(2) = 10
ok = 1
End If
If Fuori90(a + b) = 49 Then
n1(1) = 5
n1(2) = 10
n1(3) = 15
n1(4) = 34
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
If Fuori90(a + b) = 50 Then
n1(1) = 6
n1(2) = 16
n1(3) = 27
n1(4) = 89
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
If Fuori90(a + b) = 51 Then
n1(1) = 10
n1(2) = 57
n1(3) = 67
n1(4) = 81
ruota(1) = 4
ruota(2) = 5
ok = 1
End If
If Fuori90(a + b) = 52 Then
n1(1) = 5
n1(2) = 9
n1(3) = 26
n1(4) = 45
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
If Fuori90(a + b) = 53 Then
n1(1) = 12
n1(2) = 16
n1(3) = 24
n1(4) = 34
ruota(1) = 1
ruota(2) = 7
ok = 1
End If
If Fuori90(a + b) = 54 Then
n1(1) = 3
n1(2) = 42
n1(3) = 56
n1(4) = 74
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If Fuori90(a + b) = 55 Then
n1(1) = 1
n1(2) = 27
n1(3) = 39
n1(4) = 54
ruota(1) = 2
ruota(2) = 9
ok = 1
End If
If Fuori90(a + b) = 56 Then
n1(1) = 2
n1(2) = 30
n1(3) = 50
n1(4) = 54
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
If Fuori90(a + b) = 57 Then
n1(1) = 11
n1(2) = 21
n1(3) = 27
n1(4) = 48
ruota(1) = 2
ruota(2) = 10
ok = 1
End If
If Fuori90(a + b) = 58 Then
n1(1) = 5
n1(2) = 13
n1(3) = 21
n1(4) = 75
ruota(1) = 3
ruota(2) = 4
ok = 1
End If
If Fuori90(a + b) = 59 Then
n1(1) = 13
n1(2) = 49
n1(3) = 52
n1(4) = 54
ruota(1) = 3
ruota(2) = 9
ok = 1
End If
If Fuori90(a + b) = 60 Then
n1(1) = 35
n1(2) = 30
n1(3) = 78
n1(4) = 83
ruota(1) = 1
ruota(2) = 10
ok = 1
End If
If Fuori90(a + b) = 61 Then
n1(1) = 1
n1(2) = 2
n1(3) = 6
n1(4) = 18
ruota(1) = 2
ruota(2) = 10
ok = 1
End If
If Fuori90(a + b) = 62 Then
n1(1) = 5
n1(2) = 44
n1(3) = 68
n1(4) = 74
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If Fuori90(a + b) = 63 Then
n1(1) = 7
n1(2) = 12
n1(3) = 56
n1(4) = 89
ruota(1) = 4
ruota(2) = 8
ok = 1
End If
If Fuori90(a + b) = 64 Then
n1(1) = 1
n1(2) = 4
n1(3) = 5
n1(4) = 51
ruota(1) = 1
ruota(2) = 9
ok = 1
End If
If Fuori90(a + b) = 65 Then
n1(1) = 3
n1(2) = 15
n1(3) = 20
n1(4) = 40
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If Fuori90(a + b) = 66 Then
n1(1) = 5
n1(2) = 21
n1(3) = 31
n1(4) = 49
ruota(1) = 4
ruota(2) = 6
ok = 1
End If
If Fuori90(a + b) = 67 Then
n1(1) = 8
n1(2) = 11
n1(3) = 16
n1(4) = 59
ruota(1) = 2
ruota(2) = 3
ok = 1
End If
If Fuori90(a + b) = 68 Then
n1(1) = 7
n1(2) = 45
n1(3) = 69
n1(4) = 70
ruota(1) = 2
ruota(2) = 5
ok = 1
End If
If Fuori90(a + b) = 69 Then
n1(1) = 5
n1(2) = 13
n1(3) = 35
n1(4) = 73
ruota(1) = 5
ruota(2) = 8
ok = 1
End If
If Fuori90(a + b) = 70 Then
n1(1) = 2
n1(2) = 6
n1(3) = 9
n1(4) = 32
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
If Fuori90(a + b) = 71 Then
n1(1) = 2
n1(2) = 6
n1(3) = 11
n1(4) = 51
ruota(1) = 1
ruota(2) = 7
ok = 1
End If
If Fuori90(a + b) = 72 Then
n1(1) = 1
n1(2) = 5
n1(3) = 52
n1(4) = 61
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
If Fuori90(a + b) = 73 Then
n1(1) = 2
n1(2) = 27
n1(3) = 50
n1(4) = 89
ruota(1) = 2
ruota(2) = 8
ok = 1
End If
If Fuori90(a + b) = 74 Then
n1(1) = 2
n1(2) = 9
n1(3) = 21
n1(4) = 66
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If Fuori90(a + b) = 75 Then
n1(1) = 10
n1(2) = 13
n1(3) = 26
n1(4) = 57
ruota(1) = 1
ruota(2) = 7
ok = 1
End If
If Fuori90(a + b) = 76 Then
n1(1) = 24
n1(2) = 26
n1(3) = 46
n1(4) = 51
ruota(1) = 2
ruota(2) = 10
ok = 1
End If
If Fuori90(a + b) = 77 Then
n1(1) = 1
n1(2) = 2
n1(3) = 25
n1(4) = 35
ruota(1) = 2
ruota(2) = 8
ok = 1
End If
If Fuori90(a + b) = 78 Then
n1(1) = 15
n1(2) = 17
n1(3) = 23
n1(4) = 29
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
If Fuori90(a + b) = 79 Then
n1(1) = 2
n1(2) = 56
n1(3) = 61
n1(4) = 64
ruota(1) = 1
ruota(2) = 5
ok = 1
End If
If Fuori90(a + b) = 80 Then
n1(1) = 1
n1(2) = 20
n1(3) = 24
n1(4) = 39
ruota(1) = 1
ruota(2) = 9
ok = 1
End If
If Fuori90(a + b) = 81 Then
n1(1) = 1
n1(2) = 18
n1(3) = 36
n1(4) = 74
ruota(1) = 1
ruota(2) = 9
ok = 1
End If
If Fuori90(a + b) = 82 Then
n1(1) = 6
n1(2) = 70
n1(3) = 74
n1(4) = 89
ruota(1) = 1
ruota(2) = 8
ok = 1
End If
If Fuori90(a + b) = 83 Then
n1(1) = 3
n1(2) = 20
n1(3) = 22
n1(4) = 77
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
If Fuori90(a + b) = 84 Then
n1(1) = 9
n1(2) = 13
n1(3) = 23
n1(4) = 41
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If Fuori90(a + b) = 85 Then
n1(1) = 33
n1(2) = 48
n1(3) = 54
n1(4) = 88
ruota(1) = 1
ruota(2) = 7
ok = 1
End If
If Fuori90(a + b) = 86 Then
n1(1) = 5
n1(2) = 9
n1(3) = 26
n1(4) = 70
ruota(1) = 1
ruota(2) = 9
ok = 1
End If
If Fuori90(a + b) = 87 Then
n1(1) = 14
n1(2) = 28
n1(3) = 66
n1(4) = 89
ruota(1) = 2
ruota(2) = 5
ok = 1
End If
If Fuori90(a + b) = 88 Then
n1(1) = 3
n1(2) = 9
n1(3) = 11
n1(4) = 32
ruota(1) = 5
ruota(2) = 8
ok = 1
End If
If Fuori90(a + b) = 89 Then
n1(1) = 9
n1(2) = 19
n1(3) = 25
n1(4) = 28
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
If Fuori90(a + b) = 90 Then
n1(1) = 10
n1(2) = 13
n1(3) = 57
n1(4) = 82
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
If OK = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(80,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " Cavallo BA-CA " & a & " - " & b & c,1
Scrivi String(80,"°"),1
ColoreTesto 0
ImpostaGiocata 1,n1,ruota,poste,clp,2
Gioca es,1
End If
Next
Next
Next
ScriviResoconto
End Sub
Sub Main()
ColoreTesto 2
Scrivi "AMBO IN CADENZA SULLA NZ NELLE PRIME 2 POSIZIONI "
Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
Scrivi "METODO E LIST BY Marco"
ColoreTesto 0
Dim poste(4)
Dim ruota(10)
Dim n1(2)
Dim n2(2)
Dim n3(2)
Dim n4(2)
Dim n5(4)
poste(2) = 1
clp = 12
ini = EstrazioneFin - 2400
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
r1 = 12
For p1 = 1 To 1
For p2 = p1 + 1 To 2
a = Estratto(es,12,p1)
b = Estratto(es,r1,p2)
ok = 0
If Cadenza(a) = 0 And Cadenza(b) = 0 Then
n1(1) = 3
n1(2) = 48
n2(1) = 3
n2(2) = 88
n3(1) = 33
n3(2) = 48
n4(1) = 33
n4(2) = 88
n5(1) = 12
n5(2) = 33
n5(3) = 48
n5(4) = 88
ruota(1) = 5
ruota(2) = 7
ok = 1
End If
If Cadenza(a) = 1 And Cadenza(b) = 1 Then
n1(1) = 45
n1(2) = 9
n2(1) = 45
n2(2) = 54
n3(1) = 2
n3(2) = 45
n3(2) = 2
n4(1) = 54
n5(1) = 3
n5(2) = 45
n5(3) = 52
n5(4) = 54
ruota(1) = 1
ruota(2) = 8
ok = 1
End If
If Cadenza(a) = 2 And Cadenza(b) = 2 Then
n1(1) = 14
n1(2) = 44
n2(1) = 14
n2(2) = 51
n3(1) = 1
n3(2) = 44
n3(2) = 1
n4(1) = 51
n4(2) = 33
n5(1) = 14
n5(2) = 30
n5(3) = 47
n5(4) = 58
ruota(1) = 4
ruota(2) = 5
ok = 1
End If
If Cadenza(a) = 3 And Cadenza(b) = 3 Then
n1(1) = 75
n1(2) = 43
n2(1) = 75
n2(2) = 64
n3(1) = 3
n3(2) = 43
n4(1) = 3
n4(2) = 64
n5(1) = 55
n5(2) = 64
n5(3) = 65
n5(4) = 75
ruota(1) = 1
ruota(2) = 7
ok = 1
End If
If Cadenza(a) = 4 And Cadenza(b) = 4 Then
n1(1) = 82
n1(2) = 8
n2(1) = 82
n2(2) = 33
n3(1) = 1
n3(2) = 8
n4(1) = 1
n4(2) = 33
n5(1) = 14
n5(2) = 21
n5(3) = 33
n5(4) = 82
ruota(1) = 2
ruota(2) = 8
ok = 1
End If
If Cadenza(a) = 5 And Cadenza(b) = 5 Then
n1(1) = 14
n1(2) = 42
n2(1) = 14
n2(2) = 87
n3(1) = 1
n3(2) = 42
n4(1) = 1
n4(2) = 87
n5(1) = 14
n5(2) = 27
n5(3) = 28
n5(4) = 36
ruota(1) = 5
ruota(2) = 9
ok = 1
End If
If Cadenza(a) = 6 And Cadenza(b) = 6 Then
n1(1) = 35
n1(2) = 4
n2(1) = 35
n2(2) = 45
n3(1) = 2
n3(2) = 4
n4(1) = 2
n4(2) = 45
n5(1) = 20
n5(2) = 30
n5(3) = 35
n5(4) = 61
ruota(1) = 1
ruota(2) = 8
ok = 1
End If
If Cadenza(a) = 7 And Cadenza(b) = 7 Then
n1(1) = 2
n1(2) = 43
n2(1) = 2
n2(2) = 83
n3(1) = 1
n3(2) = 43
n4(1) = 1
n4(2) = 83
n5(1) = 1
n5(2) = 2
n5(3) = 43
n5(4) = 83
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
If Cadenza(a) = 8 And Cadenza(b) = 8 Then
n1(1) = 45
n1(2) = 63
n2(1) = 45
n2(2) = 76
n3(1) = 1
n3(2) = 63
n4(1) = 1
n4(2) = 76
n5(1) = 1
n5(2) = 45
n5(3) = 63
n5(4) = 76
ruota(1) = 3
ruota(2) = 7
ok = 1
End If
If Cadenza(a) = 9 And Cadenza(b) = 9 Then
n1(1) = 41
n1(2) = 2
n2(1) = 41
n2(2) = 16
n3(1) = 1
n3(2) = 2
n4(1) = 1
n4(2) = 16
n5(1) = 7
n5(2) = 10
n5(3) = 41
n5(4) = 84
ruota(1) = 2
ruota(2) = 6
ok = 1
End If
If ok = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(80,"^") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " AMBO IN CADENZA SULLA NZ " & a & " - " & b & c,1
Scrivi String(80,"^"),1
ColoreTesto 0
ImpostaGiocata 1,n1,ruota,poste,clp
ImpostaGiocata 2,n2,ruota,poste,clp
ImpostaGiocata 3,n3,ruota,poste,clp
ImpostaGiocata 4,n4,ruota,poste,clp
ImpostaGiocata 5,n5,ruota,poste,clp
Gioca es,1
End If
Next
Next
Next
ScriviResoconto
End Sub
Tesoro... mi associo alla richiesta di Kira grazie milleCon la ruota NZ (essendo l'unica nata) si riescono a ottenere delle buone ricerche
con altrettanta resa,detto ciò,vi propongo un altro metodo
AMBI IN CADENZA SULLA NZ NELLE PRIME 2 POSIZIONI
metodo statistico che ricava:
4 ambi
1 quartina
su ruote congeniali
Codice:Sub Main() ColoreTesto 2 Scrivi "AMBO IN CADENZA SULLA NZ NELLE PRIME 2 POSIZIONI " Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI " Scrivi "METODO E LIST BY Marco" ColoreTesto 0 Dim poste(4) Dim ruota(10) Dim n1(2) Dim n2(2) Dim n3(2) Dim n4(2) Dim n5(4) poste(2) = 1 clp = 12 ini = EstrazioneFin - 2400 fin = EstrazioneFin co = 0 For es = ini To fin Messaggio es Call AvanzamentoElab(Ini,Fin,es) r1 = 12 For p1 = 1 To 1 For p2 = p1 + 1 To 2 a = Estratto(es,12,p1) b = Estratto(es,r1,p2) ok = 0 If Cadenza(a) = 0 And Cadenza(b) = 0 Then n1(1) = 3 n1(2) = 48 n2(1) = 3 n2(2) = 88 n3(1) = 33 n3(2) = 48 n4(1) = 33 n4(2) = 88 n5(1) = 12 n5(2) = 33 n5(3) = 48 n5(4) = 88 ruota(1) = 5 ruota(2) = 7 ok = 1 End If If Cadenza(a) = 1 And Cadenza(b) = 1 Then n1(1) = 45 n1(2) = 9 n2(1) = 45 n2(2) = 54 n3(1) = 2 n3(2) = 45 n3(2) = 2 n4(1) = 54 n5(1) = 3 n5(2) = 45 n5(3) = 52 n5(4) = 54 ruota(1) = 1 ruota(2) = 8 ok = 1 End If If Cadenza(a) = 2 And Cadenza(b) = 2 Then n1(1) = 14 n1(2) = 44 n2(1) = 14 n2(2) = 51 n3(1) = 1 n3(2) = 44 n3(2) = 1 n4(1) = 51 n4(2) = 33 n5(1) = 14 n5(2) = 30 n5(3) = 47 n5(4) = 58 ruota(1) = 4 ruota(2) = 5 ok = 1 End If If Cadenza(a) = 3 And Cadenza(b) = 3 Then n1(1) = 75 n1(2) = 43 n2(1) = 75 n2(2) = 64 n3(1) = 3 n3(2) = 43 n4(1) = 3 n4(2) = 64 n5(1) = 55 n5(2) = 64 n5(3) = 65 n5(4) = 75 ruota(1) = 1 ruota(2) = 7 ok = 1 End If If Cadenza(a) = 4 And Cadenza(b) = 4 Then n1(1) = 82 n1(2) = 8 n2(1) = 82 n2(2) = 33 n3(1) = 1 n3(2) = 8 n4(1) = 1 n4(2) = 33 n5(1) = 14 n5(2) = 21 n5(3) = 33 n5(4) = 82 ruota(1) = 2 ruota(2) = 8 ok = 1 End If If Cadenza(a) = 5 And Cadenza(b) = 5 Then n1(1) = 14 n1(2) = 42 n2(1) = 14 n2(2) = 87 n3(1) = 1 n3(2) = 42 n4(1) = 1 n4(2) = 87 n5(1) = 14 n5(2) = 27 n5(3) = 28 n5(4) = 36 ruota(1) = 5 ruota(2) = 9 ok = 1 End If If Cadenza(a) = 6 And Cadenza(b) = 6 Then n1(1) = 35 n1(2) = 4 n2(1) = 35 n2(2) = 45 n3(1) = 2 n3(2) = 4 n4(1) = 2 n4(2) = 45 n5(1) = 20 n5(2) = 30 n5(3) = 35 n5(4) = 61 ruota(1) = 1 ruota(2) = 8 ok = 1 End If If Cadenza(a) = 7 And Cadenza(b) = 7 Then n1(1) = 2 n1(2) = 43 n2(1) = 2 n2(2) = 83 n3(1) = 1 n3(2) = 43 n4(1) = 1 n4(2) = 83 n5(1) = 1 n5(2) = 2 n5(3) = 43 n5(4) = 83 ruota(1) = 1 ruota(2) = 6 ok = 1 End If If Cadenza(a) = 8 And Cadenza(b) = 8 Then n1(1) = 45 n1(2) = 63 n2(1) = 45 n2(2) = 76 n3(1) = 1 n3(2) = 63 n4(1) = 1 n4(2) = 76 n5(1) = 1 n5(2) = 45 n5(3) = 63 n5(4) = 76 ruota(1) = 3 ruota(2) = 7 ok = 1 End If If Cadenza(a) = 9 And Cadenza(b) = 9 Then n1(1) = 41 n1(2) = 2 n2(1) = 41 n2(2) = 16 n3(1) = 1 n3(2) = 2 n4(1) = 1 n4(2) = 16 n5(1) = 7 n5(2) = 10 n5(3) = 41 n5(4) = 84 ruota(1) = 2 ruota(2) = 6 ok = 1 End If If ok = 1 Then co = co + 1 ColoreTesto 1 Scrivi String(80,"^") & " Caso n°" & co,1 Scrivi DataEstrazione(es) & " AMBO IN CADENZA SULLA NZ " & a & " - " & b & c,1 Scrivi String(80,"^"),1 ColoreTesto 0 ImpostaGiocata 1,n1,ruota,poste,clp ImpostaGiocata 2,n2,ruota,poste,clp ImpostaGiocata 3,n3,ruota,poste,clp ImpostaGiocata 4,n4,ruota,poste,clp ImpostaGiocata 5,n5,ruota,poste,clp Gioca es,1 End If Next Next Next ScriviResoconto End Sub
Ciao Kira,e x chi NN capisce niente di script ???????
BravissimoDopo molteplici ambate.....ambetti e ambi su TT
questa sera una vincita degna di nota con il metodo
dei ambi vertibili di BARI
Vedi l'allegato 2221320
Grazie tesoro . Ottima intuizione. Il mio numero di telefono nel 2021 ha dato due terni. L’ultimo a Napoli il 21/07. Secondo te posso giocarlo ancora oppure aspetto il 2022?Dovete fare uno sforzo e impare a usare questo programma che può regalare soddisfazioni,I Listati cominciano ad aumentare e di previsioni ce ne sono da giocare.Difficile e complicato aggiornare di volta in volta,lo scopo di queste mie idee,è quello di aiutare ad avere qualche convergenza ai propri numeri e magari mettere in gioco anche le mie previsioni che sono frutto di ricerche statistiche e che restituiscono numeri reali e non numeri ricavati dalle targhe automobilistiche oppure nell'agenda
Il programma si installa solo su computer,facendo una ricerca su google"guida a spaziometria Silop"dovrebbe comparire tra le prime voci il link al pdf sulla guida, poi qualcosina c'è anche su youtube ma mi pare solo su come usare gli script.Ciao Marco. Sei arrabbiato con me? Ho provato a scaricare Spaziometria, ma sul telefono non si apre
Solo da PC….Ciao Marco. Sei arrabbiato con me? Ho provato a scaricare Spaziometria, ma sul telefono non si apre