Marco-elle
Banned
Analisi statistica sull'andamento dei numeretti sulla NZ
Gioca previsione su ruote congeniali
Gioca previsione su ruote congeniali
Codice:
Sub Main()
ColoreTesto 2
Scrivi "I NUMERETTI DELLA NZ"
Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
Scrivi "METODO E LIST BY Marco"
ColoreTesto 0
Dim poste(2)
Dim posta(1)
Dim ruota(2)
Dim am(1)
Dim a1(2)
Dim a2(2)
Dim a3(2)
Dim a4(4)
posta(1) = 1
poste(2) = 1
clp = 12
ini = EstrazioneFin - 1800
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
For r = 12 To 12
For p = 1 To 5
a = Estratto(es,r,p)
ok = 0
If a = 1 And p = 1 Then
am(1) = 35
a1(1) = 35
a1(2) = 16
a2(1) = 35
a2(2) = 27
a3(1) = 35
a3(2) = 41
a4(1) = 4
a4(2) = 16
a4(3) = 35
a4(4) = 41
ruota(1) = 3
ruota(2) = 5
ok = 1
End If
If a = 1 And p = 2 Then
am(1) = 73
a1(1) = 73
a1(2) = 24
a2(1) = 73
a2(2) = 59
a3(1) = 73
a3(2) = 90
a4(1) = 5
a4(2) = 59
a4(3) = 73
a4(4) = 90
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If a = 1 And p = 3 Then
am(1) = 85
a1(1) = 85
a1(2) = 35
a2(1) = 85
a2(2) = 63
a3(1) = 85
a3(2) = 74
a4(1) = 35
a4(2) = 44
a4(3) = 63
a4(4) = 85
ruota(1) = 2
ruota(2) = 8
ok = 1
End If
If a = 1 And p = 4 Then
am(1) = 25
a1(1) = 25
a1(2) = 32
a2(1) = 25
a2(2) = 33
a3(1) = 25
a3(2) = 49
a4(1) = 25
a4(2) = 32
a4(3) = 46
a4(4) = 61
ruota(1) = 2
ruota(2) = 4
ok = 1
End If
If a = 1 And p = 5 Then
am(1) = 83
a1(1) = 83
a1(2) = 14
a2(1) = 83
a2(2) = 26
a3(1) = 83
a3(2) = 44
a4(1) = 4
a4(2) = 14
a4(3) = 26
a4(4) = 83
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If a = 2 And p = 1 Then
am(1) = 70
a1(1) = 70
a1(2) = 52
a2(1) = 70
a2(2) = 78
a3(1) = 70
a3(2) = 85
a4(1) = 1
a4(2) = 35
a4(3) = 70
a4(4) = 78
ruota(1) = 1
ruota(2) = 10
ok = 1
End If
If a = 2 And p = 2 Then
am(1) = 39
a1(1) = 39
a1(2) = 4
a2(1) = 39
a2(2) = 9
a3(1) = 39
a3(2) = 17
a4(1) = 3
a4(2) = 4
a4(3) = 9
a4(4) = 39
ruota(1) = 5
ruota(2) = 10
ok = 1
End If
If a = 2 And p = 3 Then
am(1) = 80
a1(1) = 80
a1(2) = 34
a2(1) = 80
a2(2) = 39
a3(1) = 80
a3(2) = 45
a4(1) = 2
a4(2) = 39
a4(3) = 45
a4(4) = 80
ruota(1) = 3
ruota(2) = 5
ok = 1
End If
If a = 2 And p = 4 Then
am(1) = 9
a1(1) = 9
a1(2) = 5
a2(1) = 9
a2(2) = 12
a3(1) = 9
a3(2) = 33
a4(1) = 4
a4(2) = 5
a4(3) = 9
a4(4) = 33
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If a = 2 And p = 5 Then
am(1) = 69
a1(1) = 69
a1(2) = 27
a2(1) = 69
a2(2) = 59
a3(1) = 69
a3(2) = 68
a4(1) = 12
a4(2) = 27
a4(3) = 59
a4(4) = 69
ruota(1) = 2
ruota(2) = 5
ok = 1
End If
If a = 3 And p = 1 Then
am(1) = 19
a1(1) = 19
a1(2) = 9
a2(1) = 19
a2(2) = 35
a3(1) = 19
a3(2) = 49
a4(1) = 19
a4(2) = 35
a4(3) = 49
a4(4) = 56
ruota(1) = 4
ruota(2) = 8
ok = 1
End If
If a = 3 And p = 2 Then
am(1) = 10
a1(1) = 10
a1(2) = 11
a2(1) = 10
a2(2) = 35
a3(1) = 10
a3(2) = 50
a4(1) = 10
a4(2) = 19
a4(3) = 35
a4(4) = 50
ruota(1) = 3
ruota(2) = 5
ok = 1
End If
If a = 3 And p = 3 Then
am(1) = 47
a1(1) = 47
a1(2) = 2
a2(1) = 47
a2(2) = 32
a3(1) = 47
a3(2) = 40
a4(1) = 2
a4(2) = 4
a4(3) = 40
a4(4) = 47
ruota(1) = 7
ruota(2) = 10
ok = 1
End If
If a = 3 And p = 4 Then
am(1) = 8
a1(1) = 8
a1(2) = 19
a2(1) = 8
a2(2) = 40
a3(1) = 8
a3(2) = 84
a4(1) = 2
a4(2) = 8
a4(3) = 19
a4(4) = 38
ruota(1) = 3
ruota(2) = 5
ok = 1
End If
If a = 3 And p = 5 Then
am(1) = 14
a1(1) = 14
a1(2) = 54
a2(1) = 14
a2(2) = 57
a3(1) = 14
a3(2) = 69
a4(1) = 14
a4(2) = 54
a4(3) = 57
a4(4) = 69
ruota(1) = 2
ruota(2) = 10
ok = 1
End If
If a = 4 And p = 1 Then
am(1) = 11
a1(1) = 11
a1(2) = 19
a2(1) = 11
a2(2) = 82
a3(1) = 1
a3(2) = 86
a4(1) = 11
a4(2) = 47
a4(3) = 48
a4(4) = 86
ruota(1) = 5
ruota(2) = 8
ok = 1
End If
If a = 4 And p = 2 Then
am(1) = 21
a1(1) = 21
a1(2) = 14
a2(1) = 21
a2(2) = 26
a3(1) = 21
a3(2) = 44
a4(1) = 1
a4(2) = 5
a4(3) = 21
a4(4) = 25
ruota(1) = 4
ruota(2) = 7
ok = 1
End If
If a = 4 And p = 3 Then
am(1) = 19
a1(1) = 19
a1(2) = 13
a2(1) = 19
a2(2) = 18
a3(1) = 19
a3(2) = 80
a4(1) = 13
a4(2) = 18
a4(3) = 19
a4(4) = 80
ruota(1) = 2
ruota(2) = 6
ok = 1
End If
If a = 4 And p = 4 Then
am(1) = 40
a1(1) = 40
a1(2) = 9
a2(1) = 40
a2(2) = 47
a3(1) = 40
a3(2) = 89
a4(1) = 4
a4(2) = 9
a4(3) = 32
a4(4) = 40
ruota(1) = 1
ruota(2) = 8
ok = 1
End If
If a = 5 And p = 1 Then
am(1) = 12
a1(1) = 12
a1(2) = 27
a2(1) = 12
a2(2) = 62
a3(1) = 12
a3(2) = 90
a4(1) = 12
a4(2) = 15
a4(3) = 27
a4(4) = 62
ruota(1) = 1
ruota(2) = 5
ok = 1
End If
If a = 5 And p = 2 Then
am(1) = 13
a1(1) = 13
a1(2) = 27
a2(1) = 13
a2(2) = 51
a3(1) = 13
a3(2) = 83
a4(1) = 13
a4(2) = 27
a4(3) = 41
a4(4) = 51
ruota(1) = 2
ruota(2) = 7
ok = 1
End If
If a = 5 And p = 3 Then
am(1) = 39
a1(1) = 39
a1(2) = 12
a2(1) = 39
a2(2) = 54
a3(1) = 39
a3(2) = 63
a4(1) = 12
a4(2) = 29
a4(3) = 39
a4(4) = 54
ruota(1) = 5
ruota(2) = 6
ok = 1
End If
If a = 5 And p = 4 Then
am(1) = 76
a1(1) = 76
a1(2) = 21
a2(1) = 76
a2(2) = 33
a3(1) = 76
a3(2) = 36
a4(1) = 21
a4(2) = 36
a4(3) = 76
a4(4) = 79
ruota(1) = 9
ruota(2) = 10
ok = 1
End If
If a = 5 And p = 5 Then
am(1) = 9
a1(1) = 9
a1(2) = 20
a2(1) = 9
a2(2) = 47
a3(1) = 9
a3(2) = 74
a4(1) = 1
a4(2) = 9
a4(3) = 47
a4(4) = 74
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If a = 6 And p = 1 Then
am(1) = 3
a1(1) = 3
a1(2) = 8
a2(1) = 3
a2(2) = 20
a3(1) = 3
a3(2) = 25
a4(1) = 3
a4(2) = 20
a4(3) = 25
a4(4) = 31
ruota(1) = 1
ruota(2) = 8
ok = 1
End If
If a = 6 And p = 2 Then
am(1) = 2
a1(1) = 2
a1(2) = 4
a2(1) = 2
a2(2) = 20
a3(1) = 2
a3(2) = 89
a4(1) = 2
a4(2) = 4
a4(3) = 14
a4(4) = 89
ruota(1) = 7
ruota(2) = 10
ok = 1
End If
If a = 6 And p = 3 Then
am(1) = 5
a1(1) = 5
a1(2) = 12
a2(1) = 5
a2(2) = 26
a3(1) = 5
a3(2) = 88
a4(1) = 5
a4(2) = 21
a4(3) = 26
a4(4) = 34
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
If a = 6 And p = 4 Then
am(1) = 56
a1(1) = 56
a1(2) = 8
a2(1) = 56
a2(2) = 16
a3(1) = 56
a3(2) = 69
a4(1) = 8
a4(2) = 16
a4(3) = 54
a4(4) = 56
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If a = 6 And p = 5 Then
am(1) = 10
a1(1) = 10
a1(2) = 6
a2(1) = 10
a2(2) = 69
a3(1) = 10
a3(2) = 83
a4(1) = 10
a4(2) = 13
a4(3) = 43
a4(4) = 69
ruota(1) = 3
ruota(2) = 7
ok = 1
End If
If a = 7 And p = 1 Then
am(1) = 12
a1(1) = 12
a1(2) = 2
a2(1) = 12
a2(2) = 3
a3(1) = 12
a3(2) = 37
a4(1) = 2
a4(2) = 3
a4(3) = 12
a4(4) = 52
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
If a = 7 And p = 2 Then
am(1) = 31
a1(1) = 31
a1(2) = 65
a2(1) = 31
a2(2) = 68
a3(1) = 31
a3(2) = 72
a4(1) = 31
a4(2) = 43
a4(3) = 72
a4(4) = 89
ruota(1) = 4
ruota(2) = 8
ok = 1
End If
If a = 7 And p = 3 Then
am(1) = 37
a1(1) = 37
a1(2) = 38
a2(1) = 37
a2(2) = 42
a3(1) = 37
a3(2) = 69
a4(1) = 37
a4(2) = 9
a4(3) = 42
a4(4) = 69
ruota(1) = 6
ruota(2) = 8
ok = 1
End If
If a = 7 And p = 4 Then
am(1) = 22
a1(1) = 22
a1(2) = 21
a2(1) = 22
a2(2) = 38
a3(1) = 22
a3(2) = 68
a4(1) = 21
a4(2) = 22
a4(3) = 68
a4(4) = 81
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
If a = 7 And p = 5 Then
am(1) = 50
a1(1) = 50
a1(2) = 20
a2(1) = 50
a2(2) = 35
a3(1) = 50
a3(2) = 81
a4(1) = 20
a4(2) = 35
a4(3) = 50
a4(4) = 81
ruota(1) = 2
ruota(2) = 8
ok = 1
End If
If a = 8 And p = 1 Then
am(1) = 9
a1(1) = 9
a1(2) = 23
a2(1) = 9
a2(2) = 65
a3(1) = 9
a3(2) = 72
a4(1) = 9
a4(2) = 23
a4(3) = 54
a4(4) = 79
ruota(1) = 4
ruota(2) = 7
ok = 1
End If
If a = 8 And p = 2 Then
am(1) = 22
a1(1) = 22
a1(2) = 1
a2(1) = 22
a2(2) = 12
a3(1) = 22
a3(2) = 78
a4(1) = 1
a4(2) = 12
a4(3) = 16
a4(4) = 22
ruota(1) = 2
ruota(2) = 10
ok = 1
End If
If a = 8 And p = 3 Then
am(1) = 13
a1(1) = 13
a1(2) = 33
a2(1) = 13
a2(2) = 78
a3(1) = 13
a3(2) = 81
a4(1) = 8
a4(2) = 13
a4(3) = 78
a4(4) = 81
ruota(1) = 1
ruota(2) = 8
ok = 1
End If
If a = 8 And p = 4 Then
am(1) = 83
a1(1) = 83
a1(2) = 10
a2(1) = 83
a2(2) = 11
a3(1) = 83
a3(2) = 52
a4(1) = 10
a4(2) = 28
a4(3) = 52
a4(4) = 83
ruota(1) = 3
ruota(2) = 4
ok = 1
End If
If a = 8 And p = 5 Then
am(1) = 79
a1(1) = 79
a1(2) = 13
a2(1) = 79
a2(2) = 57
a3(1) = 79
a3(2) = 62
a4(1) = 15
a4(2) = 51
a4(3) = 57
a4(4) = 79
ruota(1) = 2
ruota(2) = 5
ok = 1
End If
If a = 9 And p = 1 Then
am(1) = 60
a1(1) = 60
a1(2) = 19
a2(1) = 60
a2(2) = 30
a3(1) = 60
a3(2) = 61
a4(1) = 20
a4(2) = 30
a4(3) = 60
a4(4) = 61
ruota(1) = 1
ruota(2) = 8
ok = 1
End If
If a = 9 And p = 2 Then
am(1) = 1
a1(1) = 1
a1(2) = 66
a2(1) = 1
a2(2) = 72
a3(1) = 1
a3(2) = 75
a4(1) = 1
a4(2) = 11
a4(3) = 66
a4(4) = 72
ruota(1) = 3
ruota(2) = 7
ok = 1
End If
If a = 9 And p = 3 Then
am(1) = 81
a1(1) = 81
a1(2) = 4
a2(1) = 81
a2(2) = 31
a3(1) = 81
a3(2) = 39
a4(1) = 13
a4(2) = 31
a4(3) = 33
a4(4) = 81
ruota(1) = 2
ruota(2) = 6
ok = 1
End If
If a = 9 And p = 4 Then
am(1) = 3
a1(1) = 3
a1(2) = 2
a2(1) = 3
a2(2) = 46
a3(1) = 3
a3(2) = 84
a4(1) = 3
a4(2) = 27
a4(3) = 82
a4(4) = 84
ruota(1) = 1
ruota(2) = 9
ok = 1
End If
If a = 9 And p = 5 Then
am(1) = 31
a1(1) = 31
a1(2) = 10
a2(1) = 31
a2(2) = 34
a3(1) = 31
a3(2) = 51
a4(1) = 21
a4(2) = 31
a4(3) = 49
a4(4) = 59
ruota(1) = 6
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) & " Spia sulla NZ " & a & " in " & p & "° posizione ",1
Scrivi String(80,"*"),1
ColoreTesto 0
ImpostaGiocata 1,am,ruota,posta,clp
ImpostaGiocata 2,a1,ruota,poste,clp,2
ImpostaGiocata 3,a2,ruota,poste,clp,2
ImpostaGiocata 4,a3,ruota,poste,clp,2
ImpostaGiocata 5,a4,ruota,poste,clp
Gioca es,1
End If
Next
Next
Next
ScriviResoconto
End Sub