Help Me per script!

[Sakti]

Non riesco a farlo funzionare aiuto per favore...

Anticipazione (Spoiler)

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

 

[Zetrix]

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)

 

[i legend]

Ciao Toon
Se si indenta è più facile leggere e correggere gli script.
Cosa deve fare lo script?

 

[Sakti]

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.. ;-)

 

[i legend]

Ciao Toon quanti ambi spia devi inserire?

Sono molti?

 

[Sakti]

Se volete modificare , migliorare , arricchire o altro ecco il listato :

Anticipazione (Spoiler)

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]

 

[salvo50]

Ciao Toon
Si può migliorare, appena possibile inizio

 

[Zetrix]

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..

 

[joe]

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.

 

[salvo50]

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

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

 

[salvo50]

Ciao Joe non avevo visto il tuo intervento.

 

[i legend]

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

 

[i legend]

If a = 90 And b = 01 Then
n1(1) = 90
n1(2) = 89
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1

If a = 1 And b = 90 Then
n1(1) = 13
n1(2) = 12
n1(3) = Fuori90 (Vert(n1(1)))
ruota(1) = r1

In ogni caso si fa a× fisso
Corretto .
Ciao a tutti
Salvo bel lavoro come sempre.

 

[i legend]

Se ci fossero numeri ripetuti nella terzina?
Sono stati considerati o non se ne formano?

 

[joe]

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.

 

[Sakti]

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.

 

[Zetrix]

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..

 

[Sakti]

Mi da solo in basso a sinistra Allegati e in basso a destra Invia Risposta...
Null'altro :-(

 

[joe]

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.

 

[Sakti]

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