Novità

Fino ad ora è andato così....

fillotto

Advanced Member >PLATINUM<
Ciao,filotto se si cambiano gli adattatori cosa succede, certo a metterli a caso,non so cosa viene fuori ,lo script è ricavato da un metodo,giusto.
succede che non hai gli stessi risultati ovvio!!! Ma puoi ottenere anche risultati migliori l'ho detto questo è quello che è successo fino ad ora....
No non è un metodo a parte trovo (con excel) tutti i 4950 adattatori (55 x 90) comuni in tutti i 10 cicli che controllo quindi scelgo i tre migliori ovvero quelli che coprono tutti e 10 i cicli
 

fillotto

Advanced Member >PLATINUM<
Questa sembra essere una soluzione strana invece delle frequenze focus su i ritardi sempre su BA per le prossime 4 estrazioni ho trovato
19.25.28 su BA per Estratto,Ambo
Cosa c'è di strano?
Gli adattatori derivano tutti e 3 dal 5° della NZ rispettivamente con 60, 66, 69 (rad del 6) ebbene per 11 cicli di 4 estrazioni non è mai uscito niente, neanche un estratto!!!!! fate girare senza toccare niente e vedete la singolare situazione
Sub Main()
Dim rt(1) 'la ruota dove voglio giocare è una (1)
Dim nr(10) ' i nr in gioco sono max 10
Dim pta(3) ' max tre tipi di puntate
pta(1) = 1 'la puntata sull'ambata((1) è di 1 euro
pta(2) = 0.50 'la puntata sul ((2) è di 0.5 euro
start = InputBox("inserire il numero di partenza dei cicli ...",,9899)
dal = start
z = InputBox("inserisci la ruota dove vuoi giocare 1=BA 2=CA ecc ...",,1)

rt(1) = z ' la ruota dove SI GIOCA che è una (1) è "Z" !!!)
k = 4 ' i Kolpi in gioco sono 4
a = InputBox("La PRIMA ruota di ricerca ?",,12)
aa = InputBox("Posizione della PRIMA ruota di ricerca ?",,5)
aaa = InputBox("Digita l' adattaore da abbinare alla PRIMA ruota di ricerca","adattatore 1^ RUOTA ",60)
b = InputBox("La SECONDA ruota di ricerca ?",,12)
bb = InputBox("Posizione della SECONDA ruota di ricerca ?",,5)
bbb = InputBox("Digita l' adattaore da abbinare alla SECONDA ruota di ricerca","adattatore 2^ RUOTA ",66)
c = InputBox("La TERZA ruota di ricerca ?",,12)
cc = InputBox("Posizione della TERZA ruota di ricerca ?",,5)
ccc = InputBox("Digita i 2 adattaori da abbinare alla TERZA ruota di ricerca","adattatore 3^ RUOTA ",69)

For n = dal To EstrazioneFin Step 4 'questa riga dice che per fare i calcoli ci avalliamo non degli indici
'mensili ma di un'estrazione ogni 4 a cominciare dalla variabile " dal " ...+ 4.....+ 4 ecc fino alla fine
Scrivi "Ai 3 num MADRE prelevati dall'estr generatrice " & " " & n & " : " & Estratto(n,a,aa) & " " & Estratto(n,b,bb) & " " & Estratto(n,c,cc) & " aggiungeremo gli adattatori sottonotati"
Scrivi " quindi al " & aa & "°" & " di " & SiglaRuota(a) & "( " & Estratto(n,a,aa) & ")" & " aggiungeremo l' adattatore " & " " & aaa & " ottenendo " & Fuori90(Estratto(n,a,aa) + aaa)
Scrivi " al " & bb & "°" & " di " & SiglaRuota(b) & "( " & Estratto(n,b,bb) & ")" & " aggiungeremo l' adattatore " & " " & bbb & " ottenendo " & Fuori90(Estratto(n,b,bb) + bbb)
Scrivi " al " & cc & "°" & " di " & SiglaRuota(c) & "( " & Estratto(n,c,cc) & ")" & " aggiungeremo l' adattatore " & " " & ccc & " ottenendo " & Fuori90(Estratto(n,c,cc) + ccc)

ng = 0
nr(1) = Fuori90(Estratto(n,a,aa) + aaa)
nr(2) = Fuori90(Estratto(n,b,bb) + bbb)
nr(3) = Fuori90(Estratto(n,c,cc) + ccc)



EliminaRipetuti nr
Call ImpostaGiocata(1,nr,rt,pta,k,3) ' imposto la giocata e la stoppo all'uscita del terno = 3
Gioca n,,,1

Next

ScriviResoconto

End Sub
 

lotto_tom75

Advanced Premium Member
Questa sembra essere una soluzione strana invece delle frequenze focus su i ritardi sempre su BA per le prossime 4 estrazioni ho trovato
19.25.28 su BA per Estratto,Ambo
Cosa c'è di strano?
Gli adattatori derivano tutti e 3 dal 5° della NZ rispettivamente con 60, 66, 69 (rad del 6) ebbene per 11 cicli di 4 estrazioni non è mai uscito niente, neanche un estratto!!!!! fate girare senza toccare niente e vedete la singolare situazione
Sub Main()
Dim rt(1) 'la ruota dove voglio giocare è una (1)
Dim nr(10) ' i nr in gioco sono max 10
Dim pta(3) ' max tre tipi di puntate
pta(1) = 1 'la puntata sull'ambata((1) è di 1 euro
pta(2) = 0.50 'la puntata sul ((2) è di 0.5 euro
start = InputBox("inserire il numero di partenza dei cicli ...",,9899)
dal = start
z = InputBox("inserisci la ruota dove vuoi giocare 1=BA 2=CA ecc ...",,1)

rt(1) = z ' la ruota dove SI GIOCA che è una (1) è "Z" !!!)
k = 4 ' i Kolpi in gioco sono 4
a = InputBox("La PRIMA ruota di ricerca ?",,12)
aa = InputBox("Posizione della PRIMA ruota di ricerca ?",,5)
aaa = InputBox("Digita l' adattaore da abbinare alla PRIMA ruota di ricerca","adattatore 1^ RUOTA ",60)
b = InputBox("La SECONDA ruota di ricerca ?",,12)
bb = InputBox("Posizione della SECONDA ruota di ricerca ?",,5)
bbb = InputBox("Digita l' adattaore da abbinare alla SECONDA ruota di ricerca","adattatore 2^ RUOTA ",66)
c = InputBox("La TERZA ruota di ricerca ?",,12)
cc = InputBox("Posizione della TERZA ruota di ricerca ?",,5)
ccc = InputBox("Digita i 2 adattaori da abbinare alla TERZA ruota di ricerca","adattatore 3^ RUOTA ",69)

For n = dal To EstrazioneFin Step 4 'questa riga dice che per fare i calcoli ci avalliamo non degli indici
'mensili ma di un'estrazione ogni 4 a cominciare dalla variabile " dal " ...+ 4.....+ 4 ecc fino alla fine
Scrivi "Ai 3 num MADRE prelevati dall'estr generatrice " & " " & n & " : " & Estratto(n,a,aa) & " " & Estratto(n,b,bb) & " " & Estratto(n,c,cc) & " aggiungeremo gli adattatori sottonotati"
Scrivi " quindi al " & aa & "°" & " di " & SiglaRuota(a) & "( " & Estratto(n,a,aa) & ")" & " aggiungeremo l' adattatore " & " " & aaa & " ottenendo " & Fuori90(Estratto(n,a,aa) + aaa)
Scrivi " al " & bb & "°" & " di " & SiglaRuota(b) & "( " & Estratto(n,b,bb) & ")" & " aggiungeremo l' adattatore " & " " & bbb & " ottenendo " & Fuori90(Estratto(n,b,bb) + bbb)
Scrivi " al " & cc & "°" & " di " & SiglaRuota(c) & "( " & Estratto(n,c,cc) & ")" & " aggiungeremo l' adattatore " & " " & ccc & " ottenendo " & Fuori90(Estratto(n,c,cc) + ccc)

ng = 0
nr(1) = Fuori90(Estratto(n,a,aa) + aaa)
nr(2) = Fuori90(Estratto(n,b,bb) + bbb)
nr(3) = Fuori90(Estratto(n,c,cc) + ccc)



EliminaRipetuti nr
Call ImpostaGiocata(1,nr,rt,pta,k,3) ' imposto la giocata e la stoppo all'uscita del terno = 3
Gioca n,,,1

Next

ScriviResoconto

End Sub

Ciao fillotto incuriosito dal tuo interessante script (se lo metti tra i tag

CODE e /CODE tra parentesi quadre...

si legge meglio) ;)

ho provato a modificarlo velocemente in alcuni suoi punti...

in particolare:

colpi
numero estrazioni da analizzare/verificare
ruote da verificare in automatico
aggiunta funzione scrividistribuzionecasiincorso


e lasciando i tuoi parametri tali e quali (ruota di ricerca 1,2,3 e adattatori 1,2,3) è venuto questo output che sopratutto per GE al momento, se le mie modifiche/aggiunte fossero scevre da errori concettuali e di programmazione, potrebbe essere interessante ;)

Codice:
Sub Main()
   Dim rt(1) 'la ruota dove voglio giocare è una (1)
   Dim nr(10) ' i nr in gioco sono max 10
   Dim pta(3) ' max tre tipi di puntate
   pta(1) = 1 'la puntata sull'ambata((1) è di 1 euro
   pta(2) = 0.50 'la puntata sul ((2) è di 0.5 euro
   start = InputBox("inserire il numero di partenza dei cicli ...",,9799) '144 etrazioni '   9899) '' ultime 44 estrazioni
   dal = start
   'z = InputBox("inserisci la ruota dove vuoi giocare 1=BA 2=CA ecc ...",,1)
   'rt(1) = z ' la ruota dove SI GIOCA che è una (1) è "Z" !!!)
   k = 36 '4 ' i Kolpi in gioco sono 4
   a = InputBox("La PRIMA ruota di ricerca ?",,12)
   aa = InputBox("Posizione della PRIMA ruota di ricerca ?",,5)
   aaa = InputBox("Digita l' adattatore da abbinare alla PRIMA ruota di ricerca","adattatore 1^ RUOTA ",60)
   b = InputBox("La SECONDA ruota di ricerca ?",,12)
   bb = InputBox("Posizione della SECONDA ruota di ricerca ?",,5)
   bbb = InputBox("Digita l' adattatore da abbinare alla SECONDA ruota di ricerca","adattatore 2^ RUOTA ",66)
   c = InputBox("La TERZA ruota di ricerca ?",,12)
   cc = InputBox("Posizione della TERZA ruota di ricerca ?",,5)
   ccc = InputBox("Digita i 2 adattatori da abbinare alla TERZA ruota di ricerca","adattatore 3^ RUOTA ",69)
   For z = 1 To 12
      rt(1) = z ' la ruota dove SI GIOCA che è una (1) è "Z" !!!)
      For n = dal To EstrazioneFin Step 4 'questa riga dice che per fare i calcoli ci avalliamo non degli indici
         'mensili ma di un'estrazione ogni 4 a cominciare dalla variabile " dal " ...+ 4.....+ 4 ecc fino alla fine
         Scrivi "Ai 3 num MADRE prelevati dall'estr generatrice " & " " & n & " : " & Estratto(n,a,aa) & " " & Estratto(n,b,bb) & " " & Estratto(n,c,cc) & " aggiungeremo gli adattatori sottonotati"
         Scrivi " quindi al " & aa & "°" & " di " & SiglaRuota(a) & "( " & Estratto(n,a,aa) & ")" & " aggiungeremo l' adattatore " & " " & aaa & " ottenendo " & Fuori90(Estratto(n,a,aa) + aaa)
         Scrivi " al " & bb & "°" & " di " & SiglaRuota(b) & "( " & Estratto(n,b,bb) & ")" & " aggiungeremo l' adattatore " & " " & bbb & " ottenendo " & Fuori90(Estratto(n,b,bb) + bbb)
         Scrivi " al " & cc & "°" & " di " & SiglaRuota(c) & "( " & Estratto(n,c,cc) & ")" & " aggiungeremo l' adattatore " & " " & ccc & " ottenendo " & Fuori90(Estratto(n,c,cc) + ccc)
         ng = 0
         nr(1) = Fuori90(Estratto(n,a,aa) + aaa)
         nr(2) = Fuori90(Estratto(n,b,bb) + bbb)
         nr(3) = Fuori90(Estratto(n,c,cc) + ccc)
         EliminaRipetuti nr
         Call ImpostaGiocata(1,nr,rt,pta,k,3) ' imposto la giocata e la stoppo all'uscita del terno = 3
         Gioca n,,,1
      Next
      If ScriptInterrotto Then Exit For
   Next
   ScriviResoconto
   Scrivi
   Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9")
End Sub


Riguardo l'output...

N. [25.31.34 ] [GE] [.. .. .. .. ..] C. 32 09943 [ 76 - 26/06/2021] In corso per altre 4 estrazioni


ovviamente Nessuna Certezza Solo Poca Probabilità senza contare gli eventuali errori di programmazione che ci potrei aver involontariamente messo.

Ciao

:)
 
Ultima modifica:

fillotto

Advanced Member >PLATINUM<
Ciao Tom, non riesco a capire in cosa è cambiato il tuo script perchè sono scarso in script riesco ad adattarli con una certa praticaccia.In excel invece lo trovo più abbordabile(relaivamente :rolleyes:) cosi come ho scritto al # 21 "No non è un metodo, a parte trovo (con excel) tutti i 4950 adattatori (55 x 90) comuni in tutti i 10 cicli che controllo quindi scelgo i tre migliori ovvero quelli che coprono tutti e 10 i cicli o nel caso in esame non lo coprono affatto".
Come faccio? trovo il come si comporta il 1° adattatore cioè prendo il 1° estratto di BA dell'estrazione che precede le successive 4 lo addiziono col num. 1 poi col 2 ...... ecc fino al 90 e per i 10 cicli . Controllo come si comporta nei 10 cicli ad esempio il num 60 addizionato al 5° estratto di NZ (81) ottenendo 51
Questo nel primo ciclo nel 2° ciclo sempre il 60 il 5° estratto di NZ non è più 81 ma (46) e otterremo 16
nel terzo ciclo al 5° di NZ( 38) aggiungeremo l' adattatore 60 ottenendo 08 e cosi via il file excel mi controlla se quante volte e dove sono usciti i numeri cosi ottenuti.
Ovviamente tutto questo viene ottenuto con un file excel nemmeno tanto grosso la macro contiene 2 cicli for . Tutto il resto lo metto sullo script (adattando qua e la uno script del grande RUBINO)
L'esempio parzialmento citato si riferisce all'ultimo script # 22
 

fillotto

Advanced Member >PLATINUM<
Questa sembra essere una soluzione strana invece delle frequenze focus su i ritardi sempre su BA per le prossime 4 estrazioni ho trovato
19.25.28 su BA per Estratto,Ambo
Cosa c'è di strano?
Gli adattatori derivano tutti e 3 dal 5° della NZ rispettivamente con 60, 66, 69 (rad del 6) ebbene per 11 cicli di 4 estrazioni non è mai uscito niente, neanche un estratto!!!!! fate girare senza toccare niente e vedete la singolare situazione
Sub Main()
Dim rt(1) 'la ruota dove voglio giocare è una (1)
Dim nr(10) ' i nr in gioco sono max 10
Dim pta(3) ' max tre tipi di puntate
pta(1) = 1 'la puntata sull'ambata((1) è di 1 euro
pta(2) = 0.50 'la puntata sul ((2) è di 0.5 euro
start = InputBox("inserire il numero di partenza dei cicli ...",,9899)
dal = start
z = InputBox("inserisci la ruota dove vuoi giocare 1=BA 2=CA ecc ...",,1)

rt(1) = z ' la ruota dove SI GIOCA che è una (1) è "Z" !!!)
k = 4 ' i Kolpi in gioco sono 4
a = InputBox("La PRIMA ruota di ricerca ?",,12)
aa = InputBox("Posizione della PRIMA ruota di ricerca ?",,5)
aaa = InputBox("Digita l' adattaore da abbinare alla PRIMA ruota di ricerca","adattatore 1^ RUOTA ",60)
b = InputBox("La SECONDA ruota di ricerca ?",,12)
bb = InputBox("Posizione della SECONDA ruota di ricerca ?",,5)
bbb = InputBox("Digita l' adattaore da abbinare alla SECONDA ruota di ricerca","adattatore 2^ RUOTA ",66)
c = InputBox("La TERZA ruota di ricerca ?",,12)
cc = InputBox("Posizione della TERZA ruota di ricerca ?",,5)
ccc = InputBox("Digita i 2 adattaori da abbinare alla TERZA ruota di ricerca","adattatore 3^ RUOTA ",69)

For n = dal To EstrazioneFin Step 4 'questa riga dice che per fare i calcoli ci avalliamo non degli indici
'mensili ma di un'estrazione ogni 4 a cominciare dalla variabile " dal " ...+ 4.....+ 4 ecc fino alla fine
Scrivi "Ai 3 num MADRE prelevati dall'estr generatrice " & " " & n & " : " & Estratto(n,a,aa) & " " & Estratto(n,b,bb) & " " & Estratto(n,c,cc) & " aggiungeremo gli adattatori sottonotati"
Scrivi " quindi al " & aa & "°" & " di " & SiglaRuota(a) & "( " & Estratto(n,a,aa) & ")" & " aggiungeremo l' adattatore " & " " & aaa & " ottenendo " & Fuori90(Estratto(n,a,aa) + aaa)
Scrivi " al " & bb & "°" & " di " & SiglaRuota(b) & "( " & Estratto(n,b,bb) & ")" & " aggiungeremo l' adattatore " & " " & bbb & " ottenendo " & Fuori90(Estratto(n,b,bb) + bbb)
Scrivi " al " & cc & "°" & " di " & SiglaRuota(c) & "( " & Estratto(n,c,cc) & ")" & " aggiungeremo l' adattatore " & " " & ccc & " ottenendo " & Fuori90(Estratto(n,c,cc) + ccc)

ng = 0
nr(1) = Fuori90(Estratto(n,a,aa) + aaa)
nr(2) = Fuori90(Estratto(n,b,bb) + bbb)
nr(3) = Fuori90(Estratto(n,c,cc) + ccc)



EliminaRipetuti nr
Call ImpostaGiocata(1,nr,rt,pta,k,3) ' imposto la giocata e la stoppo all'uscita del terno = 3
Gioca n,,,1

Next

ScriviResoconto

End Sub
Poca roba ....finalmente dopo tre cicli che insisteva nella sua astinenza al 14° ciclo dei tre numeri suggeriti
V N. [01.07.10 ] [BA] [.. .. 07 .. ..] C. 2 Estratto 09953 [ 86 - 20/07/2021] [27.89.07.65.85]

lo so trppo poco, ma tantè😃
 

fillotto

Advanced Member >PLATINUM<
....Prer cui propongo questi
Numeri in gioco : 10.13.82 su BA per Estratto,Ambo
che da ben 17 cicli di 4 estrazioni schiva l'uscita di almeno un estratto (ogni ciclo con numeri diversi ) come potete vedere facendo girare questo script
Codice:
Sub Main()
Dim rt(1) 'la ruota dove voglio giocare è una (1)
Dim nr(10) ' i nr in gioco sono max 10
Dim pta(3) ' max tre tipi di puntate
pta(1) = 1 'la puntata sull'ambata((1) è di 1 euro
pta(2) = 0.50 'la puntata sul ((2) è di 0.5 euro
start = InputBox("inserire il numero di partenza dei cicli ...",,9883)
dal = start
z = InputBox("inserisci la ruota dove vuoi giocare 1=BA 2=CA ecc ...",,1)

rt(1) = z ' la ruota dove SI GIOCA che è una (1) è "Z" !!!)
k = 4 ' i Kolpi in gioco sono 4
a = InputBox("La PRIMA ruota di ricerca ?",,12)
aa = InputBox("Posizione della PRIMA ruota di ricerca ?",,5)
aaa = InputBox("Digita l' adattaore da abbinare alla PRIMA ruota di ricerca","adattatore 1^ RUOTA ",51)
b = InputBox("La SECONDA ruota di ricerca ?",,12)
bb = InputBox("Posizione della SECONDA ruota di ricerca ?",,5)
bbb = InputBox("Digita l' adattaore da abbinare alla SECONDA ruota di ricerca","adattatore 2^ RUOTA ",72)
c = InputBox("La TERZA ruota di ricerca ?",,12)
cc = InputBox("Posizione della TERZA ruota di ricerca ?",,5)
ccc = InputBox("Digita i 2 adattaori da abbinare alla TERZA ruota di ricerca","adattatore 3^ RUOTA ",69)

For n = dal To EstrazioneFin Step 4 'questa riga dice che per fare i calcoli ci avalliamo non degli indici
'mensili ma di un'estrazione ogni 4 a cominciare dalla variabile " dal " ...+ 4.....+ 4 ecc fino alla fine
Scrivi "Ai 3 num MADRE prelevati dall'estr generatrice " & " " & n & " : " & Estratto(n,a,aa) & " " & Estratto(n,b,bb) & " " & Estratto(n,c,cc) & " aggiungeremo gli adattatori sottonotati"
Scrivi " quindi al " & aa & "°" & " di " & SiglaRuota(a) & "( " & Estratto(n,a,aa) & ")" & " aggiungeremo l' adattatore " & " " & aaa & " ottenendo " & Fuori90(Estratto(n,a,aa) + aaa)
Scrivi " al " & bb & "°" & " di " & SiglaRuota(b) & "( " & Estratto(n,b,bb) & ")" & " aggiungeremo l' adattatore " & " " & bbb & " ottenendo " & Fuori90(Estratto(n,b,bb) + bbb)
Scrivi " al " & cc & "°" & " di " & SiglaRuota(c) & "( " & Estratto(n,c,cc) & ")" & " aggiungeremo l' adattatore " & " " & ccc & " ottenendo " & Fuori90(Estratto(n,c,cc) + ccc)

ng = 0
nr(1) = Fuori90(Estratto(n,a,aa) + aaa)
nr(2) = Fuori90(Estratto(n,b,bb) + bbb)
nr(3) = Fuori90(Estratto(n,c,cc) + ccc)



EliminaRipetuti nr
Call ImpostaGiocata(1,nr,rt,pta,k,3) ' imposto la giocata e la stoppo all'uscita del terno = 3
Gioca n,,,1

Next

ScriviResoconto

End Sub
 

fillotto

Advanced Member >PLATINUM<
Questa ormai è andata ben 30 cicli di 4 estrazioniche questi tre num che non hanno dato neanche un estratto !!!!
Codice:
Sub Main()
Dim rt(1) 'la ruota dove voglio giocare è una (1)
Dim nr(20) ' i nr in gioco sono max 10
Dim pta(3) ' max tre tipi di puntate
pta(1) = 1 'la puntata sull'ambata((1) è di 1 euro
pta(2) = 0.50 'la puntata sul ((2) è di 0.5 euro
start = InputBox("inserire il numero di partenza dei cicli ...",,9839)
dal = start
z = InputBox("inserisci la ruota dove vuoi giocare 1=BA 2=CA ecc ...",,1)

rt(1) = z ' la ruota dove SI GIOCA che è una (1) è "Z" !!!)
k = 4 ' i Kolpi in gioco sono 4
a = InputBox("La PRIMA ruota di ricerca ?",,10)
aa = InputBox("Posizione della PRIMA ruota di ricerca ?",,1)
aaa = InputBox("Digita l' adattaore da abbinare alla PRIMA ruota di ricerca","adattatore 1^ RUOTA ",41)
b = InputBox("La SECONDA ruota di ricerca ?",,4)
bb = InputBox("Posizione della SECONDA ruota di ricerca ?",,3)
bbb = InputBox("Digita l' adattaore da abbinare alla SECONDA ruota di ricerca","adattatore 2^ RUOTA ",30)
c = InputBox("La TERZA ruota di ricerca ?",,6)
cc = InputBox("Posizione della TERZA ruota di ricerca ?",,3)
ccc = InputBox("Digita i 2 adattaori da abbinare alla TERZA ruota di ricerca","adattatore 3^ RUOTA ",7)

For n = dal To EstrazioneFin Step 4 'questa riga dice che per fare i calcoli ci avalliamo non degli indici
'mensili ma di un'estrazione ogni 4 a cominciare dalla variabile " dal " ...+ 4.....+ 4 ecc fino alla fine
Scrivi "Ai 3 num MADRE prelevati dall'estr generatrice " & " " & n & " : " & Estratto(n,a,aa) & " " & Estratto(n,b,bb) & " " & Estratto(n,c,cc) & " aggiungeremo gli adattatori sottonotati"
Scrivi " quindi al " & aa & "°" & " di " & SiglaRuota(a) & "( " & Estratto(n,a,aa) & ")" & " aggiungeremo l' adattatore " & " " & aaa & " ottenendo " & Fuori90(Estratto(n,a,aa) + aaa)
Scrivi " al " & bb & "°" & " di " & SiglaRuota(b) & "( " & Estratto(n,b,bb) & ")" & " aggiungeremo l' adattatore " & " " & bbb & " ottenendo " & Fuori90(Estratto(n,b,bb) + bbb)
Scrivi " al " & cc & "°" & " di " & SiglaRuota(c) & "( " & Estratto(n,c,cc) & ")" & " aggiungeremo l' adattatore " & " " & ccc & " ottenendo " & Fuori90(Estratto(n,c,cc) + ccc)

ng = 0
nr(1) = Fuori90(Estratto(n,a,aa) + aaa)
nr(2) = Fuori90(Estratto(n,b,bb) + bbb)
nr(3) = Fuori90(Estratto(n,c,cc) + ccc)



EliminaRipetuti nr
Call ImpostaGiocata(1,nr,rt,pta,k,3) ' imposto la giocata e la stoppo all'uscita del terno = 3
Gioca n,,,1

Next

ScriviResoconto

End Sub
Mettero' un'altra con caratteristiche simili per le prossime tre estrazioni rimanenti.
 

fillotto

Advanced Member >PLATINUM<
Per Roma a cominciare da sobato x 3 estrazioni questa è la terzina più ritardata :
Numeri in gioco : 32.77.87 su RO per Estratto,Ambo
Vi rendete conto facendo girare questo
Codice:
Sub Main()
Dim rt(1) 'la ruota dove voglio giocare è una (1)
Dim nr(20) ' i nr in gioco sono max 10
Dim pta(3) ' max tre tipi di puntate
pta(1) = 1 'la puntata sull'ambata((1) è di 1 euro
pta(2) = 0.50 'la puntata sul ((2) è di 0.5 euro
start = InputBox("inserire il numero di partenza dei cicli ...",,9839)
dal = start
z = InputBox("inserisci la ruota dove vuoi giocare 1=BA 2=CA ecc ...",,8)

rt(1) = z ' la ruota dove SI GIOCA che è una (1) è "Z" !!!)
k = 4 ' i Kolpi in gioco sono 4
a = InputBox("La PRIMA ruota di ricerca ?",,4)
aa = InputBox("Posizione della PRIMA ruota di ricerca ?",,3)
aaa = InputBox("Digita l' adattaore da abbinare alla PRIMA ruota di ricerca","adattatore 1^ RUOTA ",62)
b = InputBox("La SECONDA ruota di ricerca ?",,5)
bb = InputBox("Posizione della SECONDA ruota di ricerca ?",,2)
bbb = InputBox("Digita l' adattaore da abbinare alla SECONDA ruota di ricerca","adattatore 2^ RUOTA ",31)
c = InputBox("La TERZA ruota di ricerca ?",,6)
cc = InputBox("Posizione della TERZA ruota di ricerca ?",,4)
ccc = InputBox("Digita i 2 adattaori da abbinare alla TERZA ruota di ricerca","adattatore 3^ RUOTA ",72)

For n = dal To EstrazioneFin Step 4 'questa riga dice che per fare i calcoli ci avalliamo non degli indici
'mensili ma di un'estrazione ogni 4 a cominciare dalla variabile " dal " ...+ 4.....+ 4 ecc fino alla fine
Scrivi "Ai 3 num MADRE prelevati dall'estr generatrice " & " " & n & " : " & Estratto(n,a,aa) & " " & Estratto(n,b,bb) & " " & Estratto(n,c,cc) & " aggiungeremo gli adattatori sottonotati"
Scrivi " quindi al " & aa & "°" & " di " & SiglaRuota(a) & "( " & Estratto(n,a,aa) & ")" & " aggiungeremo l' adattatore " & " " & aaa & " ottenendo " & Fuori90(Estratto(n,a,aa) + aaa)
Scrivi " al " & bb & "°" & " di " & SiglaRuota(b) & "( " & Estratto(n,b,bb) & ")" & " aggiungeremo l' adattatore " & " " & bbb & " ottenendo " & Fuori90(Estratto(n,b,bb) + bbb)
Scrivi " al " & cc & "°" & " di " & SiglaRuota(c) & "( " & Estratto(n,c,cc) & ")" & " aggiungeremo l' adattatore " & " " & ccc & " ottenendo " & Fuori90(Estratto(n,c,cc) + ccc)

ng = 0
nr(1) = Fuori90(Estratto(n,a,aa) + aaa)
nr(2) = Fuori90(Estratto(n,b,bb) + bbb)
nr(3) = Fuori90(Estratto(n,c,cc) + ccc)



EliminaRipetuti nr
Call ImpostaGiocata(1,nr,rt,pta,k,3) ' imposto la giocata e la stoppo all'uscita del terno = 3
Gioca n,,,1

Next

ScriviResoconto

End Sub
 

fillotto

Advanced Member >PLATINUM<
Se invece dei ritardi prendiamo le frequenze allora abbiamo 30 cicli che uno dei tre numeri suggerito è SEMPRE uscito siamo alla 31^ e restano 2 estrazioni dove si apettano questi 3 numeri
Numeri in gioco : 16.53.74 su RO per Estratto,Ambo
Codice:
Sub Main()
Dim rt(1) 'la ruota dove voglio giocare è una (1)
Dim nr(20) ' i nr in gioco sono max 10
Dim pta(3) ' max tre tipi di puntate
pta(1) = 1 'la puntata sull'ambata((1) è di 1 euro
pta(2) = 0.50 'la puntata sul ((2) è di 0.5 euro
start = InputBox("inserire il numero di partenza dei cicli ...",,9839)
dal = start
z = InputBox("inserisci la ruota dove vuoi giocare 1=BA 2=CA ecc ...",,8)

rt(1) = z ' la ruota dove SI GIOCA che è una (1) è "Z" !!!)
k = 4 ' i Kolpi in gioco sono 4
a = InputBox("La PRIMA ruota di ricerca ?",,4)
aa = InputBox("Posizione della PRIMA ruota di ricerca ?",,5)
aaa = InputBox("Digita l' adattaore da abbinare alla PRIMA ruota di ricerca","adattatore 1^ RUOTA ",33)
b = InputBox("La SECONDA ruota di ricerca ?",,12)
bb = InputBox("Posizione della SECONDA ruota di ricerca ?",,5)
bbb = InputBox("Digita l' adattaore da abbinare alla SECONDA ruota di ricerca","adattatore 2^ RUOTA ",58)
c = InputBox("La TERZA ruota di ricerca ?",,9)
cc = InputBox("Posizione della TERZA ruota di ricerca ?",,3)
ccc = InputBox("Digita i 2 adattaori da abbinare alla TERZA ruota di ricerca","adattatore 3^ RUOTA ",42)

For n = dal To EstrazioneFin Step 4 'questa riga dice che per fare i calcoli ci avalliamo non degli indici
'mensili ma di un'estrazione ogni 4 a cominciare dalla variabile " dal " ...+ 4.....+ 4 ecc fino alla fine
Scrivi "Ai 3 num MADRE prelevati dall'estr generatrice " & " " & n & " : " & Estratto(n,a,aa) & " " & Estratto(n,b,bb) & " " & Estratto(n,c,cc) & " aggiungeremo gli adattatori sottonotati"
Scrivi " quindi al " & aa & "°" & " di " & SiglaRuota(a) & "( " & Estratto(n,a,aa) & ")" & " aggiungeremo l' adattatore " & " " & aaa & " ottenendo " & Fuori90(Estratto(n,a,aa) + aaa)
Scrivi " al " & bb & "°" & " di " & SiglaRuota(b) & "( " & Estratto(n,b,bb) & ")" & " aggiungeremo l' adattatore " & " " & bbb & " ottenendo " & Fuori90(Estratto(n,b,bb) + bbb)
Scrivi " al " & cc & "°" & " di " & SiglaRuota(c) & "( " & Estratto(n,c,cc) & ")" & " aggiungeremo l' adattatore " & " " & ccc & " ottenendo " & Fuori90(Estratto(n,c,cc) + ccc)

ng = 0
nr(1) = Fuori90(Estratto(n,a,aa) + aaa)
nr(2) = Fuori90(Estratto(n,b,bb) + bbb)
nr(3) = Fuori90(Estratto(n,c,cc) + ccc)



EliminaRipetuti nr
Call ImpostaGiocata(1,nr,rt,pta,k,3) ' imposto la giocata e la stoppo all'uscita del terno = 3
Gioca n,,,1

Next

ScriviResoconto

End Sub
questo script mostra come come è andata
 

raimea

Junior Member
ciao
sto seguendo con interesse questo studio sulla ruota di RO

nel resoconto finale vengono riportati interessanti dati
fra i quali l esposizione MAx.

1.jpg

sarebbe interessante avere nel resoconto, anche il MAX ritardo
di cicli da 4 , fra un ambo e l altro.

attualmente x avere questo dato si deve dividere la max esposizione
x la puntata base moltipl. X 4

ES
esposiz max 72e
puntata base su ogni ambo 2e
si deve fare : 72/(4X2)=9
9 e' il num max di cicli fra un ambo e l altro ,in questo intervallo prescelto.
solo che ogni volta ci si deve ricordare la puntata base e fare l operazione.

grazie
ciao
 

Marco-elle

Advanced Member >PLATINUM PLUS<
Approfitto del Thread del buon Fillotto x vedere se le sue teorie
sulla frquesnza in pochi casi può avere attendibilità......
2 ambate in posizione su BA x ambata e ambo


Codice:
Sub Main() ColoreTesto 1
   Scrivi
   Scrivi "AMBATA E AMBO IN 1° E 2° POSIZIONE  ALLA 1° MENSILE",1
   Scrivi
   Scrivi
   Scrivi " METODO E LIST BY  Marco",1
   Scrivi
   ColoreTesto 0
   Dim ruote(2)
   Dim ambata(2):Dim posta(2):Dim postaa(10)
   posta(2) = 1
   postaa(6) = 1
   postaa(7) = 1
   klp = 6
   ini = 9925
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      If IndiceMensile(es) = 1 Then
         ruote(1) = 1
         casi = casi + 1
         co = co + 1
         ColoreTesto 1:Scrivi String(100,"°") & " Caso n° " & casi,1
         ColoreTesto 2:Scrivi DataEstrazione(es) & "---> " & IndiceMensile(es) & "° Estrazione Mensile"
         ColoreTesto 1:Scrivi String(100,"°")
         ColoreTesto 0
         ambata(1) = Fuori90(90 +(Estratto(es,1,2)) + Estratto(es,6,4) + 1)
         ambata(2) = Fuori90(90 +(Estratto(es,4,2)) + Estratto(es,7,2) + 8)
         ImpostaGiocata 1,ambata,ruote,posta,klp
         ambata(1) = Fuori90(90 +(Estratto(es,1,2)) + Estratto(es,6,4) + 1)
         ambata(2) = Fuori90(90 +(Estratto(es,4,2)) + Estratto(es,7,2) + 8)
         ImpostaGiocata 2,ambata,ruote,postaa,klp
         Gioca es,1
      End If
   Next
   Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
   ScriviResoconto
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto