Novità

metodi per ambate

Pandit ha scritto:
Ad ogni estrazione no, ma ad ogni quarta del mese .
Clicca per espandere...
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
 
Esav ha scritto:
Buongiorno tizi, posso sapere il metodo? Grazie per la cortesia
Clicca per espandere...
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 !!!;)
 
Tizi ha scritto:
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 !!!;)
Clicca per espandere...
Grazie mille
 
Settimo colpo Terza volta oggi uscito su Nazionale.
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
Per abbinamenti offre statistica, trovato in rete...
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
Ricordate che di certo non c'è nulla...
 
Ultima modifica:
Tizi ha scritto:
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 !!!;)
Clicca per espandere...
grazie interessanti, ma sarebbe meglio specificare su quali ruote vanno giocate.
 
Pandit ha scritto:
Settimo colpo Terza volta oggi uscito su Nazionale.
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
Per abbinamenti offre statistica, trovato in rete...
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
Ricordate che di certo non c'è nulla...
Clicca per espandere...
non so leggere i spoiler
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 27 ottobre 2026
    Bari
    65
    57
    90
    11
    73
    Cagliari
    33
    23
    74
    87
    08
    Firenze
    42
    04
    13
    18
    20
    Genova
    32
    42
    69
    22
    50
    Milano
    57
    41
    39
    10
    03
    Napoli
    58
    22
    28
    45
    39
    Palermo
    21
    03
    66
    26
    06
    Roma
    51
    31
    64
    89
    37
    Torino
    70
    08
    90
    78
    26
    Venezia
    65
    53
    03
    36
    56
    Nazionale
    44
    28
    46
    23
    02
    Estrazione Simbolotto
    32
    06
    12
    44
    43
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto