Novità

A volte basta uno script facile per tutti.

Oggi Nono Ambo a Ruota Bari 40 e 64 un'ottima serie numerica...

SUD..........BA.NA.PA............10.40.63.64.81.89
CENTRO....CA.FI.RO.NZ.......09.49.64.67.82.89
NORD.......GE.MI.TO.VE.......08.21.37.40.81.85
Continuate il gioco sempre per Ambo, se ci sono aggiornamenti li posto.
Canbiare SUD con questi numeri:
SUD
..........BA.NA.PA............10.32.63.55.81.89
 
Ultima modifica:
Ho un ottimo script di Mike58 che da anche la statistica sulla posizione, dimmi se Ti può andar bene:
Sub Main()
Dim num(10),numero(10),ruota(1),sorte

est = InputBox("Quante estrazioni analizzi",,5000)
sorte = CInt(InputBox("Quale sorte verificare ",,1))

ScegliNumeri(num)
nStart = Timer ' partenza tempo di elaborazione
Ini = EstrazioneFin - est
fin = EstrazioneFin
diff = fin - Ini + 1
Scrivi"Statistica Veloce su combinazione di Numeri scelti" & " ",True,False,6,0,3
Scrivi" " & StringaNumeri(num) & " ",True,False,2,4,3
Scrivi" Per sorte..." & " " & NomeSorte(sorte) & " ",True,True,3,0,3
Scrivi String(130,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " - Estrazioni Totali " & DIFF,1
Scrivi String(130,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(15)
atitoli(1) = " Ruota "
'atitoli(2) = " Combinazione "
atitoli(3) = " RD1 "
atitoli(4) = " RD2 "
atitoli(5) = " RD3 "
atitoli(6) = " RD4 "
atitoli(7) = " RD5 "
atitoli(8) = " Ritardo attuale "
atitoli(9) = " Ritardo Storico "
atitoli(10) = " incr. storico "
atitoli(11) = " Frequenza "
atitoli(12) = " - esito - "
atitoli(13) = " - stringa Esito - "
atitoli(14) = " data estraz.uscita "
atitoli(15) = " Indice Convenienza "
' inizializzo la tabella
Call InitTabella(atitoli,1,,3,5)
For r = 1 To 12
'If r = 11 Then r = 12
ruota(1) = r
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(num,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(num,ruota,fin - rit,sorte,1,,retesito,retcolpi,retestratti,retidestr)
ic = Round((freq/diff*rit),2)
'----- calcolo valori in tabella --------------
ReDim avalori(15)
avalori(1) = NomeRuota(r)
avalori(3) = RitDiPos(num,1,ruota)
avalori(4) = RitDiPos(num,2,ruota)
avalori(5) = RitDiPos(num,3,ruota)
avalori(6) = RitDiPos(num,4,ruota)
avalori(7) = RitDiPos(num,5,ruota)
avalori(8) = rit
avalori(9) = ritmax
avalori(10) = incrRitMax
avalori(11) = freq
avalori(12) = retesito
avalori(13) = retestratti
If retesito <> "" Then avalori(14) = DataEstrazione(retidestr)
If retesito = "" Then avalori(14) = " -- "
avalori(15) = ic
Call AddRigaTabella(avalori,,,3,,"cambria")
If r = 11 Then Call SetColoreCella(11,3,1)
If retidestr = fin Then Call SetColoreCella(14,3,1)
If ic > 1 Then Call SetColoreCella(15,4,2)
Next
Call SetTableWidth("100%")
Call CreaTabella()
Scrivi " Script By Mike58 ",1,- 1,6
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function RitDiPos(num,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,num,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
 
Ho un ottimo script di Mike58 che da anche la statistica sulla posizione, dimmi se Ti può andar bene:
Sub Main()
Dim num(10),numero(10),ruota(1),sorte

est = InputBox("Quante estrazioni analizzi",,5000)
sorte = CInt(InputBox("Quale sorte verificare ",,1))

ScegliNumeri(num)
nStart = Timer ' partenza tempo di elaborazione
Ini = EstrazioneFin - est
fin = EstrazioneFin
diff = fin - Ini + 1
Scrivi"Statistica Veloce su combinazione di Numeri scelti" & " ",True,False,6,0,3
Scrivi" " & StringaNumeri(num) & " ",True,False,2,4,3
Scrivi" Per sorte..." & " " & NomeSorte(sorte) & " ",True,True,3,0,3
Scrivi String(130,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " - Estrazioni Totali " & DIFF,1
Scrivi String(130,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(15)
atitoli(1) = " Ruota "
'atitoli(2) = " Combinazione "
atitoli(3) = " RD1 "
atitoli(4) = " RD2 "
atitoli(5) = " RD3 "
atitoli(6) = " RD4 "
atitoli(7) = " RD5 "
atitoli(8) = " Ritardo attuale "
atitoli(9) = " Ritardo Storico "
atitoli(10) = " incr. storico "
atitoli(11) = " Frequenza "
atitoli(12) = " - esito - "
atitoli(13) = " - stringa Esito - "
atitoli(14) = " data estraz.uscita "
atitoli(15) = " Indice Convenienza "
' inizializzo la tabella
Call InitTabella(atitoli,1,,3,5)
For r = 1 To 12
'If r = 11 Then r = 12
ruota(1) = r
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(num,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(num,ruota,fin - rit,sorte,1,,retesito,retcolpi,retestratti,retidestr)
ic = Round((freq/diff*rit),2)
'----- calcolo valori in tabella --------------
ReDim avalori(15)
avalori(1) = NomeRuota(r)
avalori(3) = RitDiPos(num,1,ruota)
avalori(4) = RitDiPos(num,2,ruota)
avalori(5) = RitDiPos(num,3,ruota)
avalori(6) = RitDiPos(num,4,ruota)
avalori(7) = RitDiPos(num,5,ruota)
avalori(8) = rit
avalori(9) = ritmax
avalori(10) = incrRitMax
avalori(11) = freq
avalori(12) = retesito
avalori(13) = retestratti
If retesito <> "" Then avalori(14) = DataEstrazione(retidestr)
If retesito = "" Then avalori(14) = " -- "
avalori(15) = ic
Call AddRigaTabella(avalori,,,3,,"cambria")
If r = 11 Then Call SetColoreCella(11,3,1)
If retidestr = fin Then Call SetColoreCella(14,3,1)
If ic > 1 Then Call SetColoreCella(15,4,2)
Next
Call SetTableWidth("100%")
Call CreaTabella()
Scrivi " Script By Mike58 ",1,- 1,6
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function RitDiPos(num,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,num,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
Ok potrebbe andare bene ma manca l indice mensile a piacere.
 
Non Ti serve l'indice mensile, la statistica generalizza Rit. e Fre. essendo più precisa sulle posizioni,
anche se ci fosse l'indice mensile i dati non cambierebbero statisticamente...
Per chi non ha visto il post degli ambi: 🤔
Canbiare SUD con questi numeri:
SUD..........BA.NA.PA............10.32.63.55.81.89
 
Ultima modifica:
Buon pomeriggio a tutti gli abitanti del 3D .

Una "proposta" sulla SUD :

BA NA PA 86 per Estratto con 53.76.6 per A/T
BA NA PA 28 per estratto con 33.43.25 per A/T

Solo a NA 5.51 secco (ottimo anche a CA)

Gioco a K6 per le ambate per le quartine fino a fine mese(K9)

AVoi la scelta ... SUERTE a TUTTI !!!!!!
Cià.
 
Oggi un Terno o 3 Ambi a Cagliari 09 89 e 64 quindi in totale fino ad ora 12 ambi a ruota...
SUD..........BA.NA.PA............10.32.63.55.81.89
CENTRO....CA.FI.RO.NZ.......09.49.64.67.82.89
NORD.......GE.MI.TO.VE.......08.21.37.40.81.85
Continuate il gioco sempre per Ambo, se ci sono aggiornamenti li posto.
 
Ultima modifica:
Colpo 7 Estraz. del 14/09 RM 20 estratto.....
colpo 8 Estraz. del 17/09 Estratti CA 76 MI 5 VE 6 PA 21.90 Ambo sulla quartina delle ambate...

A oggi abbiamo 20 ambate 2 ambi sulle quartine per ambata e due ambi sulle lunghette in 8 colpi il tuuto a ruota singola...non male ma si può fare meglio...il post lo trovate alla pagina 133 N° 2653.
Mentre a pag. 134 post 2663 troverete in verde tutto quello che è successo aggiornato ad oggi...18/09.
Cià a tutti.
 
Buon pomeriggio a tutti gli abitanti del 3D .

Una "proposta" sulla SUD :

BA NA PA 86 per Estratto con 53.76.6 per A/T
BA NA PA 28 per estratto con 33.43.25 per A/T

Solo a NA 5.51 secco (ottimo anche a CA)

Gioco a K6 per le ambate per le quartine fino a fine mese(K9)

AVoi la scelta ... SUERTE a TUTTI !!!!!!
Cià.
Colpo 1° NA 86 Estraz. del 17/09
Colpo 2° NEGATIVO Estraz. del 18/09
Colpo 3° BA 28 Estraz. del 20/09
Colpo 4° BA 28 Estraz. del 21/09
Colpo 5° PA 86 Estraz. del 24/09
Colpo 6° NA 28 Estraz. del 26/09
 
Ultima modifica:
Oggi un Terno o 3 Ambi a Cagliari 09 89 e 64 quindi in totale fino ad ora 12 ambi a ruota...
SUD..........BA.NA.PA............10.32.63.55.81.89
CENTRO....CA.FI.RO.NZ.......09.49.64.67.82.89
NORD.......GE.MI.TO.VE.......08.21.37.40.81.85
Continuate il gioco sempre per Ambo, se ci sono aggiornamenti li posto.
KILLERRRRRR !!!!!!!!!!ottimo ! Bravissimo !:cool:(y)
 
colpo 8 Estraz. del 17/09 Estratti CA 76 MI 5 VE 6 PA 21.90 Ambo sulla quartina delle ambate...

A oggi abbiamo 20 ambate 2 ambi sulle quartine per ambata e due ambi sulle lunghette in 8 colpi il tuuto a ruota singola...non male ma si può fare meglio...il post lo trovate alla pagina 133 N° 2653.
Mentre a pag. 134 post 2663 troverete in verde tutto quello che è successo aggiornato ad oggi...18/09.
Cià a tutti.
Colpo 9 Estraz.del del 19/09 Estratti CA71 FI14 GE3 MI 84.3 ambo in lunghetta. Altre 5 ambate e ancora in lunghetta...il bottino si allunga. 25 ambate ,2 ambi in quartina e 3 ambi in lunghetta.il tutto in 9 colpi ,tutto rigorosamente a ruota indicata.(situazione aggiornata al post 2663 pag 134)
Cià a tutti !
 
Colpo 9 Estraz.del del 19/09 Estratti CA71 FI14 GE3 MI 84.3 ambo in lunghetta. Altre 5 ambate e ancora in lunghetta...il bottino si allunga. 25 ambate ,2 ambi in quartina e 3 ambi in lunghetta.il tutto in 9 colpi ,tutto rigorosamente a ruota indicata.(situazione aggiornata al post 2663 pag 134)
Cià a tutti !
Fantastico! Non ne ho giocato nemmanco uno! Però ho giocato tutti quegli non usciti 😭
 
Buonasera a tutti gli abitanti del 3D.
Queste sono le migliori ambate ( a mio parere) dalla ciclica residue a K5.
Fate il Vostro gioco e buona fortuna a tutti....SUERTE !!!

BA 21.63
CA 69
FI 61.72.78
GE 51
MI 20.56.79
NA 80
PA 9.60
RM 78.85.86
TO 63
VE 7.11
NZ 4


Il gioco finisce a fine mese.Scegliete e abbinate alle Vostre convergenze.
Cià a tutti.
 
Ultima modifica:
Buonasera a tutti gli abitanti del 3D.
Queste sono le migliori ambate ( a mio parere) dalla ciclica residue a K5.
Fate il Vostro gioco e buona fortuna a tutti....SUERTE !!!

BA 21.63
CA 69
FI 61.72.78
GE 51
MI 20.56.79
NA 80
PA 9.60
RM 78.85.86
TO 63
VE 7.11
NZ 4


Il gioco finisce a fine mese.Scegliete e abbinate alle Vostre convergenze.
Cià a tutti.
1° colpo MI 79 estraz. 21/09
 
Colpo 9 Estraz.del del 19/09 Estratti CA71 FI14 GE3 MI 84.3 ambo in lunghetta. Altre 5 ambate e ancora in lunghetta...il bottino si allunga. 25 ambate ,2 ambi in quartina e 3 ambi in lunghetta.il tutto in 9 colpi ,tutto rigorosamente a ruota indicata.(situazione aggiornata al post 2663 pag 134)
Cià a tutti !
colpo 10 Estraz. del 20/09 MI 51
colpo 11 Estraz. del 21/09 BA 7 CA 76 VE 33

ad oggi 22/09 abbiamo 29 ambate , 2 ambi in quartina e 3 ambi in lunghetta.Il tutto in 11 colpi,tutto rigorosamente a ruota.come sempre a pag134 al post 2663 troverete la situazione aggiornata.

Cià a tutti !
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 25 luglio 2025
    Bari
    53
    75
    06
    08
    43
    Cagliari
    62
    52
    59
    55
    72
    Firenze
    54
    13
    56
    14
    62
    Genova
    07
    84
    21
    58
    20
    Milano
    27
    28
    62
    61
    04
    Napoli
    16
    43
    31
    68
    50
    Palermo
    72
    34
    60
    40
    66
    Roma
    46
    72
    66
    36
    11
    Torino
    77
    29
    23
    11
    48
    Venezia
    24
    77
    41
    48
    21
    Nazionale
    70
    83
    17
    40
    71
    Estrazione Simbolotto
    Nazionale
    09
    13
    05
    38
    03
Indietro
Alto