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