Novità

Questo Mese è per.....

Cinzia27

Premium Member
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
 

Cinzia27

Premium Member
Bellissimo veder allungare la lista.
Buona serata a tutti ....vecchi e nuovi ;)(y)

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

Advanced Premium Member
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

Complimenti a:
Roberto, 80Sete, Oracolotto.
Grazie Cinzia mi aspettavo di più stasera :(
 

Cinzia27

Premium Member
Grazie Cinzia mi aspettavo di più stasera :(

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
 

80Sete

Advanced Member >PLATINUM PLUS<
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)
 

Roberto57

Advanced Premium Member
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
Ciao Cinzia grazie ma io non ho alcun programma dove poter inserire gli script
 

Roberto57

Advanced Premium Member
Anche se è uscito il 30 insisto con le stesse previsioni

MI = 10 - 30 - 69
MI = 18 - 81 - 90
Un saluto a tutti
 

80Sete

Advanced Member >PLATINUM PLUS<
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
 

Cinzia27

Premium Member
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
 

80Sete

Advanced Member >PLATINUM PLUS<
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)
 

Cinzia27

Premium Member
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.
 

Cinzia27

Premium Member
Nello script ho già sostituito il 15 con il 59 di Oracolotto.
Appena finisce di girare sull' altro programma, lo posto.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 14 maggio 2024
    Bari
    34
    50
    65
    35
    31
    Cagliari
    62
    83
    20
    56
    85
    Firenze
    09
    90
    41
    32
    33
    Genova
    66
    72
    88
    81
    40
    Milano
    89
    64
    72
    12
    39
    Napoli
    12
    57
    42
    18
    33
    Palermo
    63
    18
    24
    60
    88
    Roma
    84
    74
    64
    49
    01
    Torino
    64
    50
    56
    12
    89
    Venezia
    54
    58
    55
    89
    53
    Nazionale
    12
    79
    46
    54
    38
    Estrazione Simbolotto
    Milano
    15
    32
    02
    33
    04
Alto