Script per metodo lotto Marco Elle

[vinci]

Quando in una qualsiasi ruota esce l'ambo vertibile 37-73 si mette in gioco una cinquina su FI-GE

Calcolo della cinquina

1 di Ba + 1 di Pa + 01
4 di Ge + 5 di Ve + 22
4 di Ca - 3 di Na + 21
5 di Ca + 1 di Na + 41
2 di Mi - 3 di Ve + 01


Colpi di gioco 12
x ambo,terno,quaterna

Si richiede gentilmente questo script da un metodo di Marco Elle
Grazie

 

[Pomito]

ecco lo script

Sub Main()
ColoreTesto 2
Scrivi "* QUANDO ESCE L'AMBO VERTIBILE 37 73 GIOCHIAMO 5 NUMERI SU FI GE *",1
Scrivi " Metodo di Marco- Elle"
ColoreTesto 2
Scrivi "--------------------------------------------------------------",1
Scrivi
ColoreTesto 0
Dim ruota(10),amb(5),nu3(5),nu1(1),pt1(5),ruote(2)
pt1(2) = 1
pt1(3) = 0.80
pt1(4) = 0.10
pt1(5) = 0.10
clp = 12
ini = EstrazioneFin - 1500
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
ruote(1) = FI_
ruote(2) = GE_
For p = 1 To 4
For p1 = p + 1 To 5
a = Estratto(es,2,p)
b = Estratto(es,2,p1)
ok = 0
If a = 37 And b = 73 Or a = 73 And b = 37 Then
amb(1) = Fuori90(Estratto(es,BA_,1) + Estratto(es,PA_,1) + 1)
amb(2) = Fuori90(Estratto(es,GE_,4) + Estratto(es,VE_,5) + 22)
amb(3) = Fuori90((90 +(Estratto(es,CA_,4) - Estratto(es,NA_,3)) + 21))
amb(4) = Fuori90(Estratto(es,CA_,5) + Estratto(es,NA_,1) + 41)
amb(5) = Fuori90((90 +(Estratto(es,MI_,2) - Estratto(es,VE_,3)) + 1))
ok = 1
End If
If ok = 1 Then
co = co + 1
Scrivi String(70,"*") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(2) & " " & StringaEstratti(es,2) & " " & a & " - " & b,1
Scrivi String(70,"*"),1
ruota(1) = 2
cg = 0
nu3(1) = amb(1)
nu3(2) = amb(2)
nu3(3) = amb(3)
nu3(4) = amb(4)
nu3(5) = amb(5)
cg = cg + 1
ImpostaGiocata cg,nu3,ruote,pt1,clp,2
Gioca es,1
End If
Next
Next
Next
ScriviResoconto
End Sub

 

[edesimone]

Buongiorno Pomito
il tuo script rivela ambo vertibile 37-73 solo sulla ruota di cagliari.
Mentre sopra vinci richiede quando in una qualsiasi ruota esce l'ambo vertibile 37-73, evidenzia in qualsiasi ruota non solo cagliari.
Grazie ugualmente per il tuo listato.

 

[Pomito]

corretto
Sub Main()
ColoreTesto 2
Scrivi "* QUANDO ESCE L'AMBO VERTIBILE 37 73 GIOCHIAMO 5 NUMERI SU FI GE *",1
Scrivi " Metodo di Marco- Elle"
ColoreTesto 2
Scrivi "--------------------------------------------------------------",1
Scrivi
ColoreTesto 0
Dim ruota(10),amb(5),nu3(5),nu1(1),pt1(5),ruote(2)
pt1(2) = 1
pt1(3) = 0.80
pt1(4) = 0.10
pt1(5) = 0.10
clp = 12
ini = EstrazioneFin - 1500
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
For r1 = 1 To 10
ruote(1) = FI_
ruote(2) = GE_
For p = 1 To 4
For p1 = p + 1 To 5
a = Estratto(es,r1,p)
b = Estratto(es,r1,p1)
ok = 0
If a = 37 And b = 73 Or a = 73 And b = 37 Then
amb(1) = Fuori90(Estratto(es,BA_,1) + Estratto(es,PA_,1) + 1)
amb(2) = Fuori90(Estratto(es,GE_,4) + Estratto(es,VE_,5) + 22)
amb(3) = Fuori90((90 +(Estratto(es,CA_,4) - Estratto(es,NA_,3)) + 21))
amb(4) = Fuori90(Estratto(es,CA_,5) + Estratto(es,NA_,1) + 41)
amb(5) = Fuori90((90 +(Estratto(es,MI_,2) - Estratto(es,VE_,3)) + 1))
ok = 1
End If
If ok = 1 Then
co = co + 1
Scrivi String(70,"*") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " " & a & " - " & b,1
Scrivi String(70,"*"),1
ruota(1) = 2
cg = 0
nu3(1) = amb(1)
nu3(2) = amb(2)
nu3(3) = amb(3)
nu3(4) = amb(4)
nu3(5) = amb(5)
cg = cg + 1
ImpostaGiocata cg,nu3,ruote,pt1,clp,2
Gioca es,1
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

 

[vinci]

Grazie mille per la gentilezza

 

[domycalabria]

Ciao cerco script per il programma spaziometria.naturalmente ki può gratuitamente.senza impegno.(grazie).

 

[domycalabria]

Ciao cerco script per il programma spaziometria.naturalmente ki può gratuitamente.senza impegno.(grazie).

 

[claudio8]

Un tantino ottimizzato, controllare sempre la correttezza dell'output:

Sub Main()
     ColoreTesto 2
     Scrivi "* QUANDO ESCE L'AMBO VERTIBILE 37 73 GIOCHIAMO 5 NUMERI SU FI GE *",1
     Scrivi " Metodo di Marco- Elle"
     ColoreTesto 2
     Scrivi "--------------------------------------------------------------",1
     Scrivi
     ColoreTesto 0
     Dim ruota(10),amb(5),nu3(5),nu1(1),pt1(5),ruote(2)
     pt1(2) = 1
     pt1(3) = 0.80
     pt1(4) = 0.10
     pt1(5) = 0.10
     Dim clp,a,b,es,co,cg,ini,fin,r1
     clp = 12
     a = 37
     b = 73
     ini = EstrazioneFin - 1500
     fin = EstrazioneFin
     co = 0
     For es = ini To fin
          Messaggio es
          For r1 = 1 To 10
               ' ruote(1) = FI_
               'ruote(2) = GE_
               '               For p = 1 To 4
               '                    For p1 = p + 1 To 5
               '                         a = Estratto(es,r1,p)
               '                         b = Estratto(es,r1,p1)
               '                         ok = 0
               If Posizione(es,r1,a) > 0 And Posizione(es,r1,b) > 0 Then
                    ruote(1) = FI_
                    ruote(2) = GE_
                    'If a = 37 And b = 73 Or a = 73 And b = 37 Then
                    amb(1) = Fuori90(Estratto(es,BA_,1) + Estratto(es,PA_,1) + 1)
                    amb(2) = Fuori90(Estratto(es,GE_,4) + Estratto(es,VE_,5) + 22)
                    amb(3) = Fuori90((90 +(Estratto(es,CA_,4) - Estratto(es,NA_,3)) + 21))
                    amb(4) = Fuori90(Estratto(es,CA_,5) + Estratto(es,NA_,1) + 41)
                    amb(5) = Fuori90((90 +(Estratto(es,MI_,2) - Estratto(es,VE_,3)) + 1))
                    'ok = 1
                    'End If
                    ' If ok = 1 Then
                    co = co + 1
                    Scrivi String(70,"*") & " Caso n°" & co,1
                    Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " " & a & " - " & b,1
                    Scrivi String(70,"*"),1
                    ruota(1) = 2
                    cg = 0
                    nu3(1) = amb(1)
                    nu3(2) = amb(2)
                    nu3(3) = amb(3)
                    nu3(4) = amb(4)
                    nu3(5) = amb(5)
                    cg = cg + 1
                    ImpostaGiocata cg,nu3,ruote,pt1,clp,2
                    Gioca es,True,,1 
               End If
               'Next
               'Next
          Next
     Next
     ScriviResoconto False,False
End Sub