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
    venerdì 18 aprile 2025
    Bari
    83
    71
    33
    85
    84
    Cagliari
    47
    19
    44
    36
    31
    Firenze
    88
    61
    90
    14
    67
    Genova
    55
    59
    54
    65
    23
    Milano
    33
    85
    25
    38
    54
    Napoli
    38
    45
    18
    27
    90
    Palermo
    45
    35
    78
    22
    69
    Roma
    16
    02
    13
    44
    25
    Torino
    90
    06
    86
    24
    65
    Venezia
    83
    35
    85
    24
    63
    Nazionale
    01
    27
    28
    13
    25
    Estrazione Simbolotto
    Genova
    27
    30
    08
    20
    04
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto