Novità

Help Me per script!

Non riesco a farlo funzionare aiuto per favore...
Sub Main()
Dim poste(2)
Dim ruota(10)
Dim n1(2),r1(12),p1(5),p2(5)
poste(1) = 1
poste(2) = 1
clp = 13
ini = EstrazioneFin - 100
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
For r1 = 1 To 12
For p1 = 1 To 5
For p2 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
ok = 0
If a = 1 And b = 18 Then
n1(1) = 78
n1(2) = 89
ruota(1) = r1
ok = 1
End If
If a = 11 And b = 90 Then
n1(1) = 13
n1(2) = 16
ruota(1) = r1
ok = 1
End If
If OK = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(80,"-") & " Caso n°" & co,1
Scrivi String(80,"°"),1
ColoreTesto 0
ImpostaGiocata 1,n1,ruota,poste,clp,2
Gioca es,1
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
 
Ultima modifica:
Codice:
Sub Main()
   Dim poste(2)
   Dim ruota(10)
   Dim n1(2),r1,p1,p2
   poste(1) = 1
   poste(2) = 1
   clp = 13
   ini = EstrazioneFin - 100
   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 5
            For p2 = 1 To 5
               a = Estratto(es,r1,p1)
               b = Estratto(es,r1,p2)
               ok = 0
               If a = 1 And b = 18 Then
                  n1(1) = 78
                  n1(2) = 89
                  ruota(1) = r1
                  ok = 1
               End If
               If a = 11 And b = 90 Then
                  n1(1) = 13
                  n1(2) = 16
                  ruota(1) = r1
                  ok = 1
               End If
               If ok = 1 Then
                  co = co + 1
                  ColoreTesto 1
                  Scrivi String(80,"-") & " Caso n°" & co,1
                  Scrivi String(80,"°"),1
                  ColoreTesto 0
                  ImpostaGiocata 1,n1,ruota,poste,clp,2
                  Gioca es,1
               End If
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub


toon ai dimensionato la r1(12) e la p1(5) e p(5) ..(errore)
 
Intanto Grazie, lo script deve trovare per esempio su una qualsiasi ruota l'1 e il 18 mettendo in gioco per ambata 78 e 89 oppure l'11 ed il 90 e mettere in gioco il 13 e 16 per ambata sulle ruote dove si sono trovati gli ambi di ricerca.. Grazie i Legend.
Grazie Zetrix errore corretto, grazie per la dritta..Appena ho finito lo script ve lo passo, ma è veramente lungo, sto sviluppando le tavole settenarie..
Ovviamente poi saranno molto migliorabili i risultati.. ;-)
 
Ultima modifica:
Se volete modificare , migliorare , arricchire o altro ecco il listato :
Sub Main()
Dim poste(5)
Dim ruota(10)
Dim n1(3),r1,p1,p2
poste(1) = 1
poste(2) = 0.50
poste(3) = 0.50
clp = 14
ini = EstrazioneFin - 50
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
For r1 = 1 To 12
For p1 = 1 To 5
For p2 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
ok = 0
If a = 1 And b = 90 Then
n1(1) = 13
n1(2) = 12
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 2 And b = 89 Then
n1(1) = 26
n1(2) = 25
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 3 And b = 88 Then
n1(1) = 39
n1(2) = 38
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 4 And b = 87 Then
n1(1) = 52
n1(2) = 51
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 5 And b = 86 Then
n1(1) = 65
n1(2) = 64
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 6 And b = 85 Then
n1(1) = 78
n1(2) = 77
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 7 And b = 84 Then
n1(1) = 01
n1(2) = 90
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 8 And b = 83 Then
n1(1) = 14
n1(2) = 13
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 9 And b = 82 Then
n1(1) = 26
n1(2) = 27
ruota(1) = r1
ok = 1
End If
If a = 10 And b = 81 Then
n1(1) = 39
n1(2) = 40
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 11 And b = 80 Then
n1(1) = 52
n1(2) = 53
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 12 And b = 79 Then
n1(1) = 66
n1(2) = 65
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 13 And b = 78 Then
n1(1) = 79
n1(2) = 78
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 14 And b = 77 Then
n1(1) = 02
n1(2) = 01
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 15 And b = 76 Then
n1(1) = 14
n1(2) = 15
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 16 And b = 75 Then
n1(1) = 28
n1(2) = 27
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 17 And b = 74 Then
n1(1) = 41
n1(2) = 40
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 18 And b = 73 Then
n1(1) = 54
n1(2) = 53
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 19 And b = 72 Then
n1(1) = 67
n1(2) = 66
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 20 And b = 71 Then
n1(1) = 80
n1(2) = 79
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 21 And b = 70 Then
n1(1) = 03
n1(2) = 02
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 22 And b = 69 Then
n1(1) = 16
n1(2) = 15
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 23 And b = 68 Then
n1(1) = 29
n1(2) = 28
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 24 And b = 67 Then
n1(1) = 42
n1(2) = 41
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 25 And b = 66 Then
n1(1) = 55
n1(2) = 54
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 26 And b = 65 Then
n1(1) = 68
n1(2) = 67
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 27 And b = 64 Then
n1(1) = 81
n1(2) = 80
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 28 And b = 63 Then
n1(1) = 04
n1(2) = 03
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 29 And b = 62 Then
n1(1) = 17
n1(2) = 16
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 30 And b = 61 Then
n1(1) = 30
n1(2) = 29
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 31 And b = 60 Then
n1(1) = 43
n1(2) = 42
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 32 And b = 59 Then
n1(1) = 56
n1(2) = 55
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 33 And b = 58 Then
n1(1) = 69
n1(2) = 68
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 34 And b = 57 Then
n1(1) = 82
n1(2) = 81
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 35 And b = 56 Then
n1(1) = 05
n1(2) = 04
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 36 And b = 55 Then
n1(1) = 18
n1(2) = 17
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 37 And b = 54 Then
n1(1) = 31
n1(2) = 30
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 38 And b = 53 Then
n1(1) = 44
n1(2) = 43
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 39 And b = 52 Then
n1(1) = 57
n1(2) = 56
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 40 And b = 51 Then
n1(1) = 70
n1(2) = 69
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 41 And b = 50 Then
n1(1) = 83
n1(2) = 82
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 42 And b = 49 Then
n1(1) = 06
n1(2) = 05
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 43 And b = 48 Then
n1(1) = 19
n1(2) = 18
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 44 And b = 47 Then
n1(1) = 32
n1(2) = 31
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 45 And b = 46 Then
n1(1) = 45
n1(2) = 44
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 46 And b = 45 Then
n1(1) = 58
n1(2) = 57
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 47 And b = 44 Then
n1(1) = 71
n1(2) = 70
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 48 And b = 43 Then
n1(1) = 84
n1(2) = 83
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 49 And b = 42 Then
n1(1) = 07
n1(2) = 06
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 50 And b = 41 Then
n1(1) = 20
n1(2) = 19
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 51 And b = 40 Then
n1(1) = 33
n1(2) = 32
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 52 And b = 39 Then
n1(1) = 46
n1(2) = 45
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 53 And b = 38 Then
n1(1) = 59
n1(2) = 58
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 54 And b = 37 Then
n1(1) = 72
n1(2) = 71
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 55 And b = 36 Then
n1(1) = 85
n1(2) = 84
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 56 And b = 35 Then
n1(1) = 08
n1(2) = 07
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 57 And b = 34 Then
n1(1) = 21
n1(2) = 20
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 58 And b = 33 Then
n1(1) = 34
n1(2) = 33
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 59 And b = 32 Then
n1(1) = 47
n1(2) = 46
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 60 And b = 31 Then
n1(1) = 60
n1(2) = 59
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 61 And b = 30 Then
n1(1) = 73
n1(2) = 72
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 62 And b = 29 Then
n1(1) = 86
n1(2) = 85
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 63 And b = 28 Then
n1(1) = 09
n1(2) = 08
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 64 And b = 27 Then
n1(1) = 22
n1(2) = 21
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 65 And b = 26 Then
n1(1) = 35
n1(2) = 34
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 66 And b = 25 Then
n1(1) = 48
n1(2) = 47
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 67 And b = 24 Then
n1(1) = 61
n1(2) = 60
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 68 And b = 23 Then
n1(1) = 74
n1(2) = 73
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 69 And b = 22 Then
n1(1) = 87
n1(2) = 86
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 70 And b = 21 Then
n1(1) = 10
n1(2) = 09
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 71 And b = 20 Then
n1(1) = 23
n1(2) = 22
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 72 And b = 19 Then
n1(1) = 36
n1(2) = 35
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 73 And b = 18 Then
n1(1) = 49
n1(2) = 48
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 74 And b = 17 Then
n1(1) = 62
n1(2) = 61
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 75 And b = 16 Then
n1(1) = 75
n1(2) = 74
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 76 And b = 15 Then
n1(1) = 88
n1(2) = 87
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 77 And b = 14 Then
n1(1) = 11
n1(2) = 10
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 78 And b = 13 Then
n1(1) = 24
n1(2) = 23
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 79 And b = 12 Then
n1(1) = 37
n1(2) = 36
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 80 And b = 11 Then
n1(1) = 50
n1(2) = 49
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 81 And b = 10 Then
n1(1) = 63
n1(2) = 62
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 82 And b = 09 Then
n1(1) = 76
n1(2) = 75
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 83 And b = 08 Then
n1(1) = 89
n1(2) = 88
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 84 And b = 07 Then
n1(1) = 12
n1(2) = 11
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 85 And b = 06 Then
n1(1) = 25
n1(2) = 24
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 86 And b = 05 Then
n1(1) = 38
n1(2) = 37
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 87 And b = 04 Then
n1(1) = 51
n1(2) = 50
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 88 And b = 03 Then
n1(1) = 64
n1(2) = 63
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 89 And b = 02 Then
n1(1) = 77
n1(2) = 76
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 90 And b = 01 Then
n1(1) = 90
n1(2) = 89
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If ok = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(80,"-") & " Caso n°" & co,1
Scrivi String(80,"-"),1
ColoreTesto 0
ImpostaGiocata 1,n1,ruota,poste,clp
Gioca es,1
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
[/ spoiler]
 
Ultima modifica:
Codice:
Sub Main()
Dim poste(5)
Dim ruota(10)
Dim n1(3),r1,p1,p2
poste(1) = 1
poste(2) = 0.50
poste(3) = 0.50
clp = 14
ini = EstrazioneFin - 50
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
For r1 = 1 To 12
For p1 = 1 To 5
For p2 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
ok = 0
If a = 1 And b = 90 Then
n1(1) = 13
n1(2) = 12
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 2 And b = 89 Then
n1(1) = 26
n1(2) = 25
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 3 And b = 88 Then
n1(1) = 39
n1(2) = 38
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 4 And b = 87 Then
n1(1) = 52
n1(2) = 51
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 5 And b = 86 Then
n1(1) = 65
n1(2) = 64
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 6 And b = 85 Then
n1(1) = 78
n1(2) = 77
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 7 And b = 84 Then
n1(1) = 01
n1(2) = 90
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 8 And b = 83 Then
n1(1) = 14
n1(2) = 13
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 9 And b = 82 Then
n1(1) = 26
n1(2) = 27
ruota(1) = r1
ok = 1
End If
If a = 10 And b = 81 Then
n1(1) = 39
n1(2) = 40
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 11 And b = 80 Then
n1(1) = 52
n1(2) = 53
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 12 And b = 79 Then
n1(1) = 66
n1(2) = 65
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 13 And b = 78 Then
n1(1) = 79
n1(2) = 78
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 14 And b = 77 Then
n1(1) = 02
n1(2) = 01
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 15 And b = 76 Then
n1(1) = 14
n1(2) = 15
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 16 And b = 75 Then
n1(1) = 28
n1(2) = 27
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 17 And b = 74 Then
n1(1) = 41
n1(2) = 40
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 18 And b = 73 Then
n1(1) = 54
n1(2) = 53
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 19 And b = 72 Then
n1(1) = 67
n1(2) = 66
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 20 And b = 71 Then
n1(1) = 80
n1(2) = 79
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 21 And b = 70 Then
n1(1) = 03
n1(2) = 02
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 22 And b = 69 Then
n1(1) = 16
n1(2) = 15
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 23 And b = 68 Then
n1(1) = 29
n1(2) = 28
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 24 And b = 67 Then
n1(1) = 42
n1(2) = 41
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 25 And b = 66 Then
n1(1) = 55
n1(2) = 54
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 26 And b = 65 Then
n1(1) = 68
n1(2) = 67
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 27 And b = 64 Then
n1(1) = 81
n1(2) = 80
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 28 And b = 63 Then
n1(1) = 04
n1(2) = 03
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 29 And b = 62 Then
n1(1) = 17
n1(2) = 16
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 30 And b = 61 Then
n1(1) = 30
n1(2) = 29
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 31 And b = 60 Then
n1(1) = 43
n1(2) = 42
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 32 And b = 59 Then
n1(1) = 56
n1(2) = 55
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 33 And b = 58 Then
n1(1) = 69
n1(2) = 68
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 34 And b = 57 Then
n1(1) = 82
n1(2) = 81
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 35 And b = 56 Then
n1(1) = 05
n1(2) = 04
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 36 And b = 55 Then
n1(1) = 18
n1(2) = 17
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 37 And b = 54 Then
n1(1) = 31
n1(2) = 30
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 38 And b = 53 Then
n1(1) = 44
n1(2) = 43
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 39 And b = 52 Then
n1(1) = 57
n1(2) = 56
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 40 And b = 51 Then
n1(1) = 70
n1(2) = 69
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 41 And b = 50 Then
n1(1) = 83
n1(2) = 82
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 42 And b = 49 Then
n1(1) = 06
n1(2) = 05
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 43 And b = 48 Then
n1(1) = 19
n1(2) = 18
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 44 And b = 47 Then
n1(1) = 32
n1(2) = 31
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 45 And b = 46 Then
n1(1) = 45
n1(2) = 44
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 46 And b = 45 Then
n1(1) = 58
n1(2) = 57
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 47 And b = 44 Then
n1(1) = 71
n1(2) = 70
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 48 And b = 43 Then
n1(1) = 84
n1(2) = 83
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 49 And b = 42 Then
n1(1) = 07
n1(2) = 06
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 50 And b = 41 Then
n1(1) = 20
n1(2) = 19
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 51 And b = 40 Then
n1(1) = 33
n1(2) = 32
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 52 And b = 39 Then
n1(1) = 46
n1(2) = 45
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 53 And b = 38 Then
n1(1) = 59
n1(2) = 58
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 54 And b = 37 Then
n1(1) = 72
n1(2) = 71
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 55 And b = 36 Then
n1(1) = 85
n1(2) = 84
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 56 And b = 35 Then
n1(1) = 08
n1(2) = 07
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 57 And b = 34 Then
n1(1) = 21
n1(2) = 20
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 58 And b = 33 Then
n1(1) = 34
n1(2) = 33
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 59 And b = 32 Then
n1(1) = 47
n1(2) = 46
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 60 And b = 31 Then
n1(1) = 60
n1(2) = 59
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 61 And b = 30 Then
n1(1) = 73
n1(2) = 72
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 62 And b = 29 Then
n1(1) = 86
n1(2) = 85
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 63 And b = 28 Then
n1(1) = 09
n1(2) = 08
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 64 And b = 27 Then
n1(1) = 22
n1(2) = 21
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 65 And b = 26 Then
n1(1) = 35
n1(2) = 34
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 66 And b = 25 Then
n1(1) = 48
n1(2) = 47
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 67 And b = 24 Then
n1(1) = 61
n1(2) = 60
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 68 And b = 23 Then
n1(1) = 74
n1(2) = 73
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 69 And b = 22 Then
n1(1) = 87
n1(2) = 86
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 70 And b = 21 Then
n1(1) = 10
n1(2) = 09
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 71 And b = 20 Then
n1(1) = 23
n1(2) = 22
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 72 And b = 19 Then
n1(1) = 36
n1(2) = 35
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 73 And b = 18 Then
n1(1) = 49
n1(2) = 48
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 74 And b = 17 Then
n1(1) = 62
n1(2) = 61
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 75 And b = 16 Then
n1(1) = 75
n1(2) = 74
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 76 And b = 15 Then
n1(1) = 88
n1(2) = 87
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 77 And b = 14 Then
n1(1) = 11
n1(2) = 10
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 78 And b = 13 Then
n1(1) = 24
n1(2) = 23
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 79 And b = 12 Then
n1(1) = 37
n1(2) = 36
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 80 And b = 11 Then
n1(1) = 50
n1(2) = 49
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 81 And b = 10 Then
n1(1) = 63
n1(2) = 62
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 82 And b = 09 Then
n1(1) = 76
n1(2) = 75
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 83 And b = 08 Then
n1(1) = 89
n1(2) = 88
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 84 And b = 07 Then
n1(1) = 12
n1(2) = 11
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 85 And b = 06 Then
n1(1) = 25
n1(2) = 24
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 86 And b = 05 Then
n1(1) = 38
n1(2) = 37
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 87 And b = 04 Then
n1(1) = 51
n1(2) = 50
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 88 And b = 03 Then
n1(1) = 64
n1(2) = 63
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 89 And b = 02 Then
n1(1) = 77
n1(2) = 76
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If a = 90 And b = 01 Then
n1(1) = 90
n1(2) = 89
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1
ok = 1
End If
If ok = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(80,"-") & " Caso n°" & co,1
Scrivi String(80,"-"),1
ColoreTesto 0
ImpostaGiocata 1,n1,ruota,poste,clp
Gioca es,1
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

toon il listato mettilo nel codice script </> che si legge meglio..
 
La Tavola Settenaria contiene delle semplici regole matematiche,

esattamente come il metodo che hai applicato ad essa.

Dunque se riassumi le due direttive concentrandole in una sola,

tutto il metodo si riduce a poche linee di script.

:)
 
1° Dichiara sempre tutte le variabili, il fatto di alcune variabili vengono dichiarate ed altre no, lascialo fare agli esperti, comunque gli espertissimi le dichiarono tutte, (naturalmente l'amico e maestro Mike58 è escluso) ancora non ho visto uno script di LuigiB dove non ha dichiarato alcune variabili

2° Dato che i numeri assegnati alla variabile N1 non sono messi alla sambasè ma hanno una sequenza logica, non c'è bisogno di mettere 90 IF-THEN ne basta uno solo

3° In n1(3) hai messo il fuori90, ma a che serve, la funzione Vert non va oltre 90, al meno ché volevi che ad esempio il vertibile di 39 fosse 93 e quindi serve il fuori 90, se è così dimmelo che modifico N1(3), però
sappi che i gemelli non hanno vertibili

4° Impostagiocata io ne metterei 2, uno per l'ambata e l'altro per ambo e terno

5° Inserisci nella visualizzazione l'estrazione dove hai ricavato la somma 91 tra A e B, io facendo così mi sono accorto che nel tuo script i calcoli li fa anche con la variabile B, se controlli nel tuo script le le visualizzazioni dei casi pari vedrai che i calcoli li fa con l'estratto B

Ecco lo script modificato salvo errori o dimenticanze
Codice:
Sub Main()
   Dim Poste(5)
   Dim Ruota(1)
   Dim N1(3)
   Dim R1,P1,P2,P7,E1,Clp,Ini,Fin,Co,Es,A,B,Ok,k
   Poste(1) = 1
   Poste(2) = 0.50
   Poste(3) = 0.50
   Clp = 14
   Ini = EstrazioneFin - 50
   Fin = EstrazioneFin
   Co = 0
   For Es = Ini To Fin
      Messaggio Es
      Call AvanzamentoElab(Ini,Fin,Es)
      For R1 = 1 To 12
If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               Ok = 0
               Ruota(1) = R1
               For k = 1 To 90
                  If A = k And A + B = 91 Then
                     N1(1) = Fuori90(A * 13)
                     N1(2) = Fuori90((A * 13) - 1)
                    N1(3) = Vert(N1(1))
                     Ok = 1
                  End If
               Next
               If Ok = 1 Then
                  Co = Co + 1
                  ColoreTesto 1
                  Scrivi String(80,"-") & " Caso n°" & Co,1
                  Scrivi String(80,"-"),1
                  ColoreTesto 0
                  Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi " " & SiglaRuota(R1) & " ",1,0
                  For P7 = 1 To 5
                     E1 = Estratto(Es,R1,P7)
                     If E1 = A Or E1 = B Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E1) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi " <-- Evidenziati Somma 91 ",1,,,1
                  ImpostaGiocata 1,N1,Ruota,Poste,Clp
                  Gioca Es,1
               End If
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:
Ciao a tutti:)
If a+b= x then ' 1 condizione
' seconda condizione
C= fuori90(a* fisso)
An= array( 0, c, fuori90(c-1), vert(c)
Imposto la giocata
End if
 
Ultima modifica:
Ciao Salvo,

buon giorno a tutte/i.

Nessun problema.

Hai realizzato quanto ho consigliato.

Trovare la coppia di "Somma 91" e formare la giocata.

Una sola condizione invece di 90.

:)
 
Siete degli inguaribili grandi scripter, i miglioramenti sono notevoli ma sopratutto spiegate molto bene come si possono apportarli .
Grazie mille, l'utilità di queste dritte certamente saranno preziose per tutti.
Zetrix, mi mancano tutti quei comodissimi gadget in alto a sinistra, non so il perchè,
altrimenti, come ho fatto altre volte ,il listato l'avrei messo nel codice script </> che si legge meglio.
Grazie ancora a questo Grandissimo forum, con tante persone gentili, disponibili e capaci.
 
toon devi cliccare sui tre puntini a destra e ai il codice codice script </>
a meno che a te non da questa opzione ma mi sembra strano perchè
la tool bar e uguale a tutti..
 
Puoi sempre scriverli con la tastiera:

[ Code ]
Testo dello script
[ / Code ]

Togliendo gli spazi cioè scrivendo senza spazi Code tra tra le "parentesi quadre" e con lo slash, per terminare,

si attivano i tag che determinano comportamenti differenti nel contenuto del testo.

:)
 
Ultima modifica:
Grazie Joe, almeno non si deve far scorrere il post per mezzora.
Subito utilizzato con il mio chilimetrico script.. ;-)
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 09 settembre 2025
    Bari
    80
    40
    25
    05
    49
    Cagliari
    88
    51
    28
    38
    67
    Firenze
    83
    86
    78
    03
    77
    Genova
    29
    67
    66
    25
    63
    Milano
    85
    66
    63
    75
    60
    Napoli
    78
    60
    75
    41
    69
    Palermo
    49
    50
    88
    34
    19
    Roma
    40
    47
    61
    57
    09
    Torino
    20
    86
    42
    53
    28
    Venezia
    33
    60
    83
    75
    14
    Nazionale
    87
    81
    08
    22
    78
    Estrazione Simbolotto
    Palermo
    42
    33
    44
    16
    36

Ultimi Messaggi

Indietro
Alto