| R E V I S I O N E D E L L A D I S C U S S I O N E |
| vinci |
Posted - 24 marzo 2024 : 21:45:50
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
(se ci fosse un numero doppio applicare +1)
Colpi di gioco 12
x ambo,terno,quaterna
Si richiede gentilmente questo script da un metodo di Marco Elle
Grazie |
| 5 U L T I M E R E P L I C H E (Newest First) |
| vinci |
Posted - 26 marzo 2024 : 23:24:20
Grazie adesso va molto meglio |
| DjNomade |
Posted - 26 marzo 2024 : 21:13:55
Vedi cosi
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 = 9186'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))
Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb) Then
rip = 1
While NumeriRipetuti(amb)
For x = 1 To 4
For y = x + 1 To 5
If amb(x) = amb(y) Then amb(y) = Fuori90(amb(y) + 1)
Next
Next
Wend
End If
Rem fine formula
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
End If
Next
Next
Next
Next
ScriviResoconto
End Sub |
| vinci |
Posted - 26 marzo 2024 : 11:55:02
Ciao DjNomade visto che ci siamo si potrebbero fare delle modifiche allo script del buon Pomito?
Esempio anzichè partire a ritroso di -1500 estrazioni partire dalla 9196
ed aggiungere la formula del +1 in presenza di numeri doppi.
Inoltre a me gli script piacciono quando si vedono tutte le estrazioni
nell'ambito della previsione di ogni caso anzichè vedere solo quelle che
hanno dato l'esito positivo e basta (non so se mi sono spiegato bene).
Grazie e a presto |
| vinci |
Posted - 26 marzo 2024 : 08:31:52
Grazie ugualmente, alla prossima volta
Stesso mare stessa spiaggia! |
| DjNomade |
Posted - 25 marzo 2024 : 23:05:47
Ciauz vinci, sono arrivato in ritardo, il buon Pomito te l'ha fatto su altro lido
e che riporto ,magari puo servire a qualcun'altro
Ciauz
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
End If
Next
Next
Next
Next
ScriviResoconto
End Sub |
|
|
