Novità

Questo Mese è per.....

Riepilogo a seguito della variazione di Roberto
(Quando riesco aggiorno).

MILANO
Cinzia 68 - 90
Roberto 30 - 10 - 69
Roberto 18 - 81 - 90
80Sete 78 - 50
Mary 29 - 70
Bogotà 47 - 66 - 88
Marion 01.06.90
Madri90 6 49 44
Oracolotto 15 - 82 - 90
 
80Sete ha scritto:
Bellissimo veder allungare la lista.
Buona serata a tutti ....vecchi e nuovi ;)(y)
Clicca per espandere...

Ciao, 80Sete. Condivido.
Buona serata a tutti e diamo il benvenuto anche a Gin.


MILANO
Cinzia 68 - 90
Roberto 30 - 10 - 69
Roberto 18 - 81 - 90
80Sete 78 - 50
Mary 29 - 70
Bogotà 47 - 66 - 88
Marion 01.06.90
Madri90 6 49 44
Oracolotto 15 - 82 - 90
Psycopompos 27 - 72
Gin 1.36.38
 
Roberto57 ha scritto:
Grazie Cinzia mi aspettavo di più stasera :(
Clicca per espandere...

Ciao, Roberto. Vediamo se questo script ci può aiutare


Codice: 
'Questo mese è per...(Cinzia)
Sub Main()
Dim nn(11),ru(1)
w=3
r = 5

ru(1) = r

num1 = Array(68,90)
num2 = Array(30,10,69)
num3 = Array(18,81,90)
num4 = Array(78,50)
num5 = Array(29,70)
num6 = Array(47,66,88)
num7 = Array(01,06,90)
num8 = Array(6,49,44)
num9 = Array(15,82,90)
num10 = Array(27,72)
num11 = Array(1,36,38)

ww1 = UBound(num1)
ww2 = UBound(num2)
ww3 = UBound(num3)
ww4 = UBound(num4)
ww5 = UBound(num5)
ww6 = UBound(num6)
ww7 = UBound(num7)
ww8 = UBound(num8)
ww9 = UBound(num9)
ww10 = UBound(num10)
ww11 = UBound(num11)

'-----------------------------------------------
For a = 0 To ww1
nn(1) = num1(a)
For b = 0 To ww2
nn(2) = num2(b)
For c = 0 To ww3
nn(3) = num3(c)
For d = 0 To ww4
nn(4) = num4(d)
For e = 0 To ww5
nn(5) = num5(e)
For f = 0 To ww6
nn(6) = num6(f)
For g = 0 To ww7
nn(7) = num7(g)
For h = 0 To ww8
nn(8) = num8(h)
For i = 0 To ww9
nn(9) = num9(i)
For j = 0 To ww10
nn(10) = num10(j)
For k = 0 To ww11
nn(11) = num11(k)

st = SerieStorico(1,EstrazioneFin - 1,nn,ru,w)

If st<235 Then

cc = cc + 1

Messaggio FormatSpace(cc,3,1) & ") " & SiglaRuota(r) & " " & StringaNumeri(nn) & " at " & FormatSpace(st,3,1)
Scrivi FormatSpace(cc,3,1) & ") " & SiglaRuota(r) & " " & StringaNumeri(nn) & " st " & FormatSpace(st,3,1)  & "  ",0,0
fr = SerieFreq(EstrazioneFin,EstrazioneFin,nn,ru,w)
If fr > 0 Then fre = fre + fr:Scrivi " sortiti " & fr Else Scrivi
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Scrivi fre
End Sub
 
Niente ambi (x me) ho giocato il 30-90 e il 50-90
purtroppo il 30 - 78 (mio) l'ho lasciato.
Cambierò le mie proposte a suo tempo.
Buona compagnia a tutti.
Grazie Cinzia anche per lo script (y)
 
Cinzia27 ha scritto:
Ciao, Roberto. Vediamo se questo script ci può aiutare


Codice: 
'Questo mese è per...(Cinzia)
Sub Main()
Dim nn(11),ru(1)
w=3
r = 5

ru(1) = r

num1 = Array(68,90)
num2 = Array(30,10,69)
num3 = Array(18,81,90)
num4 = Array(78,50)
num5 = Array(29,70)
num6 = Array(47,66,88)
num7 = Array(01,06,90)
num8 = Array(6,49,44)
num9 = Array(15,82,90)
num10 = Array(27,72)
num11 = Array(1,36,38)

ww1 = UBound(num1)
ww2 = UBound(num2)
ww3 = UBound(num3)
ww4 = UBound(num4)
ww5 = UBound(num5)
ww6 = UBound(num6)
ww7 = UBound(num7)
ww8 = UBound(num8)
ww9 = UBound(num9)
ww10 = UBound(num10)
ww11 = UBound(num11)

'-----------------------------------------------
For a = 0 To ww1
nn(1) = num1(a)
For b = 0 To ww2
nn(2) = num2(b)
For c = 0 To ww3
nn(3) = num3(c)
For d = 0 To ww4
nn(4) = num4(d)
For e = 0 To ww5
nn(5) = num5(e)
For f = 0 To ww6
nn(6) = num6(f)
For g = 0 To ww7
nn(7) = num7(g)
For h = 0 To ww8
nn(8) = num8(h)
For i = 0 To ww9
nn(9) = num9(i)
For j = 0 To ww10
nn(10) = num10(j)
For k = 0 To ww11
nn(11) = num11(k)

st = SerieStorico(1,EstrazioneFin - 1,nn,ru,w)

If st<235 Then

cc = cc + 1

Messaggio FormatSpace(cc,3,1) & ") " & SiglaRuota(r) & " " & StringaNumeri(nn) & " at " & FormatSpace(st,3,1)
Scrivi FormatSpace(cc,3,1) & ") " & SiglaRuota(r) & " " & StringaNumeri(nn) & " st " & FormatSpace(st,3,1)  & "  ",0,0
fr = SerieFreq(EstrazioneFin,EstrazioneFin,nn,ru,w)
If fr > 0 Then fre = fre + fr:Scrivi " sortiti " & fr Else Scrivi
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Scrivi fre
End Sub
Clicca per espandere...
Ciao Cinzia grazie ma io non ho alcun programma dove poter inserire gli script
 
Anche se è uscito il 30 insisto con le stesse previsioni

MI = 10 - 30 - 69
MI = 18 - 81 - 90
Un saluto a tutti
 
Ciao Roberto, questo è risultato dello script, magari Cinzia ti dirà di più.
credo siano i più frequenti :unsure:

MI - 68.30.18.50.29.47.6.44.82.27.1 ... st 232

Buona giornata a tutti
 
Grazie, Oracolotto.

MILANO
Cinzia 68 - 90
Roberto 30 - 10 - 69
Roberto 18 - 81 - 90
80Sete 78 - 50
Mary 29 - 70
Bogotà 47 - 66 - 88
Marion 01.06.90
Madri90 6 49 44
Oracolotto 59 - 82 - 90
Psycopompos 27 - 72
Gin 1.36.38
 
Ciao Cinzia, nello script avevo sostituito il 78 (uscito) con il 9 e mi dava solo una stringa la 232
comunque cambio il 78 con il 9, e nello script sarà da sostituire anche il 15 con il 59 di oracolotto.
Ho lasciato tutto in originale ed ecco le tabelle x Roberto e a chi possano interessare :

Cinzia.jpg

Ciao e grazie (y)
 
In pratica, ci sono 11 array, 1 ciascuno ( 2 per Roberto). Le lunghette hanno 1 numero solo per ognuno di noi.
80Sete, hai fatto girare lo script interamente ? Non vedo il mio 90.
 
Nello script ho già sostituito il 15 con il 59 di Oracolotto.
Appena finisce di girare sull' altro programma, lo posto.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 07 maggio 2026
    Bari
    15
    30
    86
    71
    38
    Cagliari
    84
    04
    34
    42
    82
    Firenze
    58
    60
    72
    41
    82
    Genova
    67
    30
    84
    31
    33
    Milano
    01
    24
    46
    12
    52
    Napoli
    73
    07
    63
    64
    72
    Palermo
    81
    18
    50
    75
    03
    Roma
    44
    48
    47
    49
    30
    Torino
    70
    14
    78
    90
    33
    Venezia
    11
    62
    68
    54
    85
    Nazionale
    46
    05
    17
    29
    81
    Estrazione Simbolotto
    Milano
    04
    30
    07
    06
    02
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto