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
    sabato 18 ottobre 2025
    Bari
    23
    03
    54
    34
    30
    Cagliari
    49
    14
    25
    09
    37
    Firenze
    32
    45
    15
    59
    29
    Genova
    03
    66
    68
    90
    85
    Milano
    88
    15
    21
    41
    27
    Napoli
    79
    72
    84
    27
    01
    Palermo
    23
    03
    73
    25
    04
    Roma
    11
    67
    24
    13
    59
    Torino
    72
    59
    84
    75
    26
    Venezia
    81
    08
    18
    76
    25
    Nazionale
    58
    69
    62
    17
    70
    Estrazione Simbolotto
    08
    26
    28
    22
    40
Indietro
Alto