Il gioco del lotto su NonSoloLotto.com

Il gioco del lotto su NonSoloLotto.com
Home | Profilo | Registrazione | Discussioni attive | Utenti | Cerca | FAQ | Entra in Chat!
Nome utente:
Password:
Salva la password
Hai dimenticato la password?

 Tutti i forum
 Lotto e altri giochi a pronostico
 Script da metodi
 X Dj Nomade script metodo Marco Elle
 Nuova discussione  Partecipa alla discussione
 Versione stampabile

Autore  Discussione Discussione successiva

vinci
Utente Sfegatato

Italy
1351 invii

Spedito - 24 marzo 2024 :  21:45:50  Mostra profilo  Rispondi con citazione
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

Roberto Vinci

DjNomade
Utente Appassionato

247 invii

Spedito - 25 marzo 2024 :  23:05:47  Mostra profilo  Rispondi con citazione
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
Vai ad inizio pagina

vinci
Utente Sfegatato

Italy
1351 invii

Spedito - 26 marzo 2024 :  08:31:52  Mostra profilo  Rispondi con citazione
Grazie ugualmente, alla prossima volta
Stesso mare stessa spiaggia!

Roberto Vinci
Vai ad inizio pagina

vinci
Utente Sfegatato

Italy
1351 invii

Spedito - 26 marzo 2024 :  11:55:02  Mostra profilo  Rispondi con citazione
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

Roberto Vinci
Vai ad inizio pagina

DjNomade
Utente Appassionato

247 invii

Spedito - 26 marzo 2024 :  21:13:55  Mostra profilo  Rispondi con citazione

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
Vai ad inizio pagina

vinci
Utente Sfegatato

Italy
1351 invii

Spedito - 26 marzo 2024 :  23:24:20  Mostra profilo  Rispondi con citazione
Grazie adesso va molto meglio

Roberto Vinci
Vai ad inizio pagina
   Discussione Discussione successiva
 Nuova discussione  Partecipa alla discussione
 Versione stampabile
Vai a:
Il gioco del lotto su NonSoloLotto.com © NonSoloLotto.com Vai ad inizio pagina
 Image Forums 2001 Snitz Forums 2000