Fino ad ora è andato così....

[fillotto]

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]

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]

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

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

 

[fillotto]

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

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]

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

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]

Questa ormai è andata ben 30 cicli di 4 estrazioniche questi tre num che non hanno dato neanche un estratto !!!!

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]

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

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]

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

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]

ciao
sto seguendo con interesse questo studio sulla ruota di RO

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



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]

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

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

 

[Alien.]

E' PERO'................NON MALE,OTTIMO.