muietto
Advanced Member
buona domenica pandit ti faccio i miei complimenti per il metodo che non sbaglia un colpo.volevo chiederti ma non riesci a fare un metodo che possa dare il seccondo numero da affiancare all'altro
mi sono spiegato? ciao grazie
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
metodi per ambate
- Creatore Discussione steeven
- Data di inizio
mi sono spiegato? ciao grazie
Se vuoi io le ho che si calcolano solo all'ultimo su BA/CA ( sono 25 anni che nn sbagliano ) per ottobre delle 3 ne manca solo 1
Buongiorno tizi, posso sapere il metodo? Grazie per la cortesia
Certo ... ne ho 2 che vengono calcolati all'ultima estrazione del mese
1^ 5^ di bari si gioca il n consecutivo e il n precedente del 5^ esempio settembre 5^ Ba 60 si gioca il 59 e 61 ( ambate )
2^ Si somma il primo di Bari + 5 di Ca= Ambata ottobre 83 ... Usciti già il 61 2volte e 83 ora manca il 59
Escono sempre abbastanza velocemente... a te la verifica del passato !!!
Alien.
Advanced Premium Member
Ciao Pandit se non ero sei pure capace di fare gli script o erro....altrimenti ci vorrebbe....Al secondo colpo 54...
Non sgarra un colpo il mio metodino..
Grazie milleCerto ... ne ho 2 che vengono calcolati all'ultima estrazione del mese
1^ 5^ di bari si gioca il n consecutivo e il n precedente del 5^ esempio settembre 5^ Ba 60 si gioca il 59 e 61 ( ambate )
2^ Si somma il primo di Bari + 5 di Ca= Ambata ottobre 83 ... Usciti già il 61 2volte e 83 ora manca il 59
Escono sempre abbastanza velocemente... a te la verifica del passato !!!
Pandit
Super Member >PLATINUM<
Settimo colpo Terza volta oggi uscito su Nazionale.
Alien.... ecco lo script
Per abbinamenti offre statistica, trovato in rete...
Ricordate che di certo non c'è nulla...
Alien.... ecco lo script
Option Explicit
Sub Main
' Pandit and Toon
Dim es,Ruote(12),Nm(2)
Dim poste(2),caso,a,x,k
Ruote(1) = 2: Ruote(2) = 12'
poste(1) = 1
caso = 0
For es = EstrazioneFin - 104 To EstrazioneFin
If IndiceMensile(es) = 4 Then
x = Estratto(es,2,1)
a = Fuori90(Estratto(es,2,1) + 32)
'***
caso = caso + 1
ColoreTesto 1:Scrivi String(83,152) & " Caso N. " & caso,1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(2) & " - " & StringaEstratti(es,2) & " -> " & CInt(x),1
Scrivi CInt(x) & " + 32 = " & CInt(a),1
ColoreTesto 1:Scrivi String(40,152)
'***
k = 12
Nm(1) = a
ImpostaGiocata 1,Nm,Ruote,poste,k
Gioca es,1
End If
Next
ScriviResoconto
End Sub
Sub Main
' Pandit and Toon
Dim es,Ruote(12),Nm(2)
Dim poste(2),caso,a,x,k
Ruote(1) = 2: Ruote(2) = 12'
poste(1) = 1
caso = 0
For es = EstrazioneFin - 104 To EstrazioneFin
If IndiceMensile(es) = 4 Then
x = Estratto(es,2,1)
a = Fuori90(Estratto(es,2,1) + 32)
'***
caso = caso + 1
ColoreTesto 1:Scrivi String(83,152) & " Caso N. " & caso,1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(2) & " - " & StringaEstratti(es,2) & " -> " & CInt(x),1
Scrivi CInt(x) & " + 32 = " & CInt(a),1
ColoreTesto 1:Scrivi String(40,152)
'***
k = 12
Nm(1) = a
ImpostaGiocata 1,Nm,Ruote,poste,k
Gioca es,1
End If
Next
ScriviResoconto
End Sub
Sub Main
Dim abb,k,Nu(2),Ru(1)
n = InputBox("Numero in Esame",,54)
r = InputBox("Ruota in esame",,12)
Ru(1) = r
Ini = EstrazioneFin -(156*5)
fin = EstrazioneFin
ef = EstrattoFrequenza(r,n,Ini,fin)
Scrivi "Frequenza Numero in esame.... " & ef & " in Estrazioni...Tot : " & fin - Ini + 1
Call Abbinamenti(n,abb,Ini,fin,r)
Scrivi
For k = 1 To 10
Nu(1) = n
Nu(2) = abb(k,1)
perc = Round(Dividi(abb(k,2),ef),2)*100
sr = SerieRitardo(Ini,fin,Nu,Ru,2)
sf = SerieFreq(Ini,fin,Nu,Ru,2)
Call VerificaEsitoTurbo(Nu,Ru,fin - sr,2,,,,,esa,id)
Scrivi n & "-" & Format2(abb(k,1)) & " ( " & abb(k,2) & " )" & vbTab & "Ritardo da.... " & sr & vbTab & fin - sr & _
vbTab & perc & " % " & vbTab & esa & vbTab & GetInfoEstrazione(id)
Next
End Sub
Dim abb,k,Nu(2),Ru(1)
n = InputBox("Numero in Esame",,54)
r = InputBox("Ruota in esame",,12)
Ru(1) = r
Ini = EstrazioneFin -(156*5)
fin = EstrazioneFin
ef = EstrattoFrequenza(r,n,Ini,fin)
Scrivi "Frequenza Numero in esame.... " & ef & " in Estrazioni...Tot : " & fin - Ini + 1
Call Abbinamenti(n,abb,Ini,fin,r)
Scrivi
For k = 1 To 10
Nu(1) = n
Nu(2) = abb(k,1)
perc = Round(Dividi(abb(k,2),ef),2)*100
sr = SerieRitardo(Ini,fin,Nu,Ru,2)
sf = SerieFreq(Ini,fin,Nu,Ru,2)
Call VerificaEsitoTurbo(Nu,Ru,fin - sr,2,,,,,esa,id)
Scrivi n & "-" & Format2(abb(k,1)) & " ( " & abb(k,2) & " )" & vbTab & "Ritardo da.... " & sr & vbTab & fin - sr & _
vbTab & perc & " % " & vbTab & esa & vbTab & GetInfoEstrazione(id)
Next
End Sub
Ultima modifica:
mau
Advanced Member >PLATINUM<
grazie interessanti, ma sarebbe meglio specificare su quali ruote vanno giocate.Certo ... ne ho 2 che vengono calcolati all'ultima estrazione del mese
1^ 5^ di bari si gioca il n consecutivo e il n precedente del 5^ esempio settembre 5^ Ba 60 si gioca il 59 e 61 ( ambate )
2^ Si somma il primo di Bari + 5 di Ca= Ambata ottobre 83 ... Usciti già il 61 2volte e 83 ora manca il 59
Escono sempre abbastanza velocemente... a te la verifica del passato !!!
gorbam3
Advanced Member >PLATINUM<
controllando gli esiti con i metodi calcolati sulle ruote indicate, è facile dedurre quali sono le ruote...
sorry.. esclusivamete BA/CA
muietto
Advanced Member
non so leggere i spoiler
muietto
Advanced Member
scusa ma non ci capisco una pera anche apertoCi clicchi sopra e si apre...
Dentro ci sono gli script per Spaziometria, se li Vuoi utilizzare fai copia e incolla.
Buon lavoro (o divertimento).
Ultima estrazione Lotto
-
Estrazione del lotto
martedì 20 ottobre 2026Bari5419906523Cagliari0778442364Firenze8552783721Genova1488681829Milano6916295322Napoli0176642131Palermo1418473751Roma8688642634Torino2164526240Venezia2987644050Nazionale0352852342Estrazione Simbolotto
2516132043
