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
    sabato 24 ottobre 2026
    Bari
    35
    47
    84
    09
    72
    Cagliari
    77
    70
    12
    34
    25
    Firenze
    36
    64
    15
    34
    23
    Genova
    83
    69
    12
    85
    78
    Milano
    13
    29
    19
    62
    66
    Napoli
    03
    28
    22
    43
    80
    Palermo
    17
    40
    14
    29
    72
    Roma
    35
    70
    03
    33
    90
    Torino
    57
    52
    75
    62
    42
    Venezia
    82
    43
    14
    01
    45
    Nazionale
    63
    89
    32
    41
    67
    Estrazione Simbolotto
    11
    37
    13
    40
    39
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto