formidabile metodo ambata su ruota e probabile ambo
- Creatore Discussione charls
- Data di inizio
Su tutte
Ce ne sono un infinita...io di solito guardo estrazioni indietro e gioco quelle ancora non uscite
Coccobello
Advanced Member >PLATINUM<
Buon giorno, volevo sapere se ho capito bene ora a Cagliari viene 61 16 e Genova 68 86, giusto? Prima di giocare qualche cosa aspetto risposta, grazie! Buon sabato!
Buongiorno,
Si è corretto,ma se vai qualche estrazione indietro ci sono quelli ancora non usciti,io proverei prima con quelli,il problema è solo che c'è l imbarazzo della scelta 😉
Dalle mie parti si dice
Batti Lu feru finché è callu
Batti il ferro finché è caldo😉
Coccobello
Advanced Member >PLATINUM<
Grazie mille terrò conto dei tuoi consigli, grazie x la risposta! Buon sabato
lotto_tom75
Advanced Premium Member
ciao charls innanzi tutto complimenti per le belle vincite e per il metodo relativo con cui le hai ottenute poi incuriosito dallo stesso visto che non avevo sonno ho provato a realizzarti uno script per rilevare i casi in automatico e gli eventuali sfaldamenti. Credo ti (vi) (ci) possa tornare utile in tal senso salvo errori. Ovviamente i casi con % massime positive, indipendentemente dalla ruota analizzata, si ottengono solo con colpi di verifica elevati es. 45 impostati di default e con colpi rimanenti minimi teorici relativamente alti (es. min 16) ma ciò non toglie che visto l'esiguita' della media dei casi attuali in corso con 45 colpi di verifica (da 1 a 2) questi possano sfaldarsi anche entro il ciclo medio di attesa per ambata di max 9 estrazioni e non necessariamente entro i 45 ipotizzati dall'output. Buone analisi e Good Luck.
Codice:
'Option Explicit
Sub Main
'metodo rilevamento condizione di ambo in cadenza e montaggio ambate con relativi elementi in decina e vertibile del risultato by charls
'script by tom
ruota = ScegliRuota
Dim colpidiverifica
colpidiverifica = CInt(InputBox("colpi di verifica",,45))
Dim sortediverifica
sortediverifica = CInt(InputBox("sorte di verifica",,1))
For es = EstrazioneFin - 1080 To EstrazioneFin
Scrivi StringaEstratti(es,ruota,".")
For p = 1 To 5
a1 = Estratto(es,ruota,p)
If p <= 4 Then
a2 = Estratto(es,ruota,p + 1)
End If
'If StringaNumeri(a1) <> Null And StringaNumeri(a2) <> Null Then
'If Len(StringaNumeri(a1)) = 2 And Len(StringaNumeri(a2)=2) Then
If a1 <> a2 Then
If Cadenza(a1) = Cadenza(a2) Then
Scrivi "trovata condizione! con " & a1 & " - " & a2
'trovata la condizione provo a comporre l'ambata secondo metodo... ovvero slittando i due elementi e unendo solo le parti delle decine... e ottenendo il secondo elemento con il vertibile del risultato...
Decina1 = Left(a1,1)
Decina2 = Left(a2,1)
Scrivi Decina1,,,,vbBlue
Scrivi Decina2,,,,vbRed
ambata1 = Decina1 & Decina2
Scrivi Int(ambata1)
ambata2 = Vert(ambata1)
Scrivi Int(ambata2)
ReDim vettoreambata(2)
vettoreambata(1) = Int(ambata1)
vettoreambata(2) = Int(ambata2)
ReDim vettoreruota(1)
vettoreruota(1) = ruota
ReDim posta(1)
posta(1) = 1
Scrivi StringaNumeri(vettoreambata)
Call ImpostaGiocata(1,vettoreambata,vettoreruota,posta,colpidiverifica,sortediverifica)
Gioca es
'----------------
End If ' x cadenza
End If ' x evita valori cloni
If ScriptInterrotto Then Exit For
Next ' x p
Messaggio es
Call AvanzamentoElab(a,EstrazioneFin,es)
If ScriptInterrotto Then Exit For
Next ' x es
ScriviResoconto
Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16")
Scrivi
Scrivi "Nessuna Certezza Solo Poca Probabilità"
Scrivi
Scrivi "Tempo trascorso " & TempoTrascorso
Scrivi
End SubCiao, Charls e partecipanti.
Interessante metodo.
Anch'io ho provato a far lo script e vorrei chiedere a Tom di guardarlo perché i casi sono molto meno.
Interessante metodo.
Anch'io ho provato a far lo script e vorrei chiedere a Tom di guardarlo perché i casi sono molto meno.
Codice:
'Prova script
Sub main()
Dim n(2)
Dim ruota(1)
Dim posta(1)
posta(1)=1
fin=EstrazioneFin
ini=fin-1080
For es=ini To fin
AvanzamentoElab ini,fin,es
r=1
'For r=1 To 1
'If r=11 Then r=12
ruota(1)=r
For p=1 To 4
For p1=p+1 To 5
a=Estratto(es,r,p)
b=Estratto(es,r,p1)
If Cadenza(a)=0 Then
If Cadenza(b)=0 Then
n(1)=Decina(a)&Decina(b)
n(2)=Vert(n(1))
Scrivi a
Scrivi b
Scrivi StringaNumeri(n)
ImpostaGiocata 1,n,ruota,posta,45,1
Gioca es
End If
End If
Next
Next
Next
Scrivi
ColoreTesto 2
ColoreTesto 0
ScriviResoconto
End Sublotto_tom75
Advanced Premium Member
Buongiorno e buona domenica cinzia, sto guardando velocemente il tuo code da mobile e non lo sto quindi eseguendo ma credo che il minor numero di casi che riscontri dipenda solo dal fatto che nel tuo script stai rilevando solo i casi di cadenza 0 e non tutti gli altri... 👋
buongiorno e grazie dell'interessamento.
si metodo interessante , purtroppo di ambi non ne escono molti, ma per le ambate è formidbile ma io non le gioco😂
ieri ne sono uscite ben sette di ambate (evidenziate in verde ) per i casi rimasti in gioco dal 23 gennaio al 2 febbraio.
avevo un 68.86 a Genova fortissimo per una doppia condizione , ma uscito a roma ( io non gioco su tutte😂 )
si metodo interessante , purtroppo di ambi non ne escono molti, ma per le ambate è formidbile ma io non le gioco😂
ieri ne sono uscite ben sette di ambate (evidenziate in verde ) per i casi rimasti in gioco dal 23 gennaio al 2 febbraio.
avevo un 68.86 a Genova fortissimo per una doppia condizione , ma uscito a roma ( io non gioco su tutte😂 )
Hia ragione, Tom.
Mi son fermata alla prima condizione.
Ma l'ambo dev'essere in posizioni consecutive ?
omaggio : è SOLO LA STRUTTURA
Sub main()
Dim N1(6),N2(6)
Dim ruota(10),ruote(10)
Dim posta(5),poste(5)
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'TUTTE LE RUOTE
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
posta(1)=5.0
posta(2)=6.0
'--------------------
poste(2)=2.0
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ini=8117
fin=EstrazioneFin
Messaggio DataEstrazione(es)
For es=ini To Fin
If IndiceMensile(es)=2 Then
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
For R1=4 To 4
'ruota(1)=11'R1
'ruota(1)=r1
'ruota(2)=2
ruota(3)=3
'ruota(4)=4
'ruota(5)=5
'ruota(6)=6
'ruota(7)=7
'ruota(8)=8
'ruota(9)=9
ruota(10)=10
'--------------
ruote(1)=11
'ruote(2)=2
'ruote(3)=3
'ruote(4)=4
'ruote(5)=5
'ruote(6)=6
'ruote(7)=7
'ruote(8)=8
'ruote(9)=9
'ruote(10)=10
'---------------
X=4
Y=4
'----------------
For K1=3 To 3
If Estratto(es,R1,K1)>0 And Cadenza(Estratto(es,R1,K1))=0 Then
For K2=5 To 5
If Estratto(es,R1,K2)>0 And Cadenza(Estratto(es,R1,K2))=0 Then
M1=Decina(Estratto(es,R1,K1))
M2=Decina(Estratto(es,R1,K2))
M3=Fuori90(m1&m2)
M4=Vert(M3)
M5=
M6=
'-------------------------------
N1(1)=M1
N1(2)=M2
N1(3)=M3
N1(4)=M4
N1(5)=M5
N1(6)=M6
'------------------------
N2(1)=M1
N2(2)=M2
N2(3)=M3
N2(4)=M4
N2(5)=M5
N2(6)=M6
SCRIVI""
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
co=co+1 : Scrivi String(70,"=")&" Caso n°"& Format2(co)&" indice mensile ES "& Format2(IndiceMensile(es)),1
Scrivi("ESTRATTO ANALIZZATO---> ")&" "& Format2(Estratto(es,R1,K1))&" in pos. "& Format2(K1)&"° ",1
Scrivi("ESTRATTO ANALIZZATO---> ")&" "& Format2(Estratto(es,R1,K2))&" in pos. "& Format2(K2)&"° ",1
'scrivi""
ColoreTesto 0
Scrivi String(50,"=")
Scrivi DataEstrazione(es) &" ES "& Format2(ES) & " "& StringaEstratti(es,R1)&" "& Left(NomeRuota(R1),9),1
Scrivi("Estrazione del ---> ")&" "&DataEstrazione(es) &" dalla ES "& Format2(IndiceMensile(es)+1) &" alla ES "& Format2(IndiceMensile(es)+1+4),1
'-----------------------------------------
ImpostaGiocata 1,N1,ruota,posta,X,Y
ImpostaGiocata 2,N2,ruote,poste,X+7,Y+7
'TabellaGiocate
Gioca es
End If
Next
End If
Next
Next
End If
Next
ScriviResoconto 1
ScriviResoconto 2
End Sub
Sub main()
Dim N1(6),N2(6)
Dim ruota(10),ruote(10)
Dim posta(5),poste(5)
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'TUTTE LE RUOTE
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
posta(1)=5.0
posta(2)=6.0
'--------------------
poste(2)=2.0
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ini=8117
fin=EstrazioneFin
Messaggio DataEstrazione(es)
For es=ini To Fin
If IndiceMensile(es)=2 Then
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
For R1=4 To 4
'ruota(1)=11'R1
'ruota(1)=r1
'ruota(2)=2
ruota(3)=3
'ruota(4)=4
'ruota(5)=5
'ruota(6)=6
'ruota(7)=7
'ruota(8)=8
'ruota(9)=9
ruota(10)=10
'--------------
ruote(1)=11
'ruote(2)=2
'ruote(3)=3
'ruote(4)=4
'ruote(5)=5
'ruote(6)=6
'ruote(7)=7
'ruote(8)=8
'ruote(9)=9
'ruote(10)=10
'---------------
X=4
Y=4
'----------------
For K1=3 To 3
If Estratto(es,R1,K1)>0 And Cadenza(Estratto(es,R1,K1))=0 Then
For K2=5 To 5
If Estratto(es,R1,K2)>0 And Cadenza(Estratto(es,R1,K2))=0 Then
M1=Decina(Estratto(es,R1,K1))
M2=Decina(Estratto(es,R1,K2))
M3=Fuori90(m1&m2)
M4=Vert(M3)
M5=
M6=
'-------------------------------
N1(1)=M1
N1(2)=M2
N1(3)=M3
N1(4)=M4
N1(5)=M5
N1(6)=M6
'------------------------
N2(1)=M1
N2(2)=M2
N2(3)=M3
N2(4)=M4
N2(5)=M5
N2(6)=M6
SCRIVI""
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
co=co+1 : Scrivi String(70,"=")&" Caso n°"& Format2(co)&" indice mensile ES "& Format2(IndiceMensile(es)),1
Scrivi("ESTRATTO ANALIZZATO---> ")&" "& Format2(Estratto(es,R1,K1))&" in pos. "& Format2(K1)&"° ",1
Scrivi("ESTRATTO ANALIZZATO---> ")&" "& Format2(Estratto(es,R1,K2))&" in pos. "& Format2(K2)&"° ",1
'scrivi""
ColoreTesto 0
Scrivi String(50,"=")
Scrivi DataEstrazione(es) &" ES "& Format2(ES) & " "& StringaEstratti(es,R1)&" "& Left(NomeRuota(R1),9),1
Scrivi("Estrazione del ---> ")&" "&DataEstrazione(es) &" dalla ES "& Format2(IndiceMensile(es)+1) &" alla ES "& Format2(IndiceMensile(es)+1+4),1
'-----------------------------------------
ImpostaGiocata 1,N1,ruota,posta,X,Y
ImpostaGiocata 2,N2,ruote,poste,X+7,Y+7
'TabellaGiocate
Gioca es
End If
Next
End If
Next
Next
End If
Next
ScriviResoconto 1
ScriviResoconto 2
End Sub
Ultima modifica:
Ultima estrazione Lotto
-
Estrazione del lotto
venerdì 26 aprile 2024Bari6567842277Cagliari3809831820Firenze7624783040Genova5056619057Milano8721151279Napoli1366862549Palermo7260687409Roma2315430775Torino8279314164Venezia6689188041Nazionale0424106973Estrazione Simbolotto
Genova
3303163532
