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
    martedì 04 novembre 2025
    Bari
    21
    09
    35
    82
    53
    Cagliari
    49
    11
    85
    61
    83
    Firenze
    72
    21
    56
    70
    67
    Genova
    37
    47
    59
    23
    26
    Milano
    30
    84
    74
    47
    21
    Napoli
    66
    55
    43
    79
    15
    Palermo
    90
    88
    73
    45
    62
    Roma
    65
    23
    67
    05
    72
    Torino
    90
    15
    28
    59
    50
    Venezia
    52
    82
    10
    17
    80
    Nazionale
    14
    74
    44
    68
    62
    Estrazione Simbolotto
    Torino
    11
    07
    25
    17
    13
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto