Novità

Questo Mese è per.....

Eccolo con la sostituzione del 15 col 59.

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(59,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)
EliminaRipetuti(nn)     

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

If st<250 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
 
Scusa, 80Sete, avevo dimenticato di cambiare anche il 78 con il 09 .
Fatto.

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(09,50)
num5 = Array(29,70)
num6 = Array(47,66,88)
num7 = Array(01,06,90)
num8 = Array(6,49,44)
num9 = Array(59,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)
EliminaRipetuti(nn)    

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

If st<250 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
 
Brava Cinzia, ma non devi scusarti di nulla, anzi .....
ho problemi di tempo, e spesso non posso "venire" qui a salutarvi.
 
Vediamo cosa è successo stasera.

MILANO
Cinzia 68 - 90
Roberto 30 - 10 - 69
Roberto 18 - 81 - 90
80Sete 09 - 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

3 numeri di nuovo.
Complimenti a Madri90, Psycopompos, Gin

Se vogliamo cambiare qualche numero, facciamo come già abbiamo fatto in tempi brevi,
in modo che possiamo giocarli.
Grazie a tutti
 
Aggiorniamo.
Finora abbiamo solo il cambiamento di Psycopompos.
Attendiamo altri eventuali cambiamenti nella giornata.

MILANO
Cinzia 68 - 90
Roberto 30 - 10 - 69
Roberto 18 - 81 - 90
80Sete 09 - 50
Mary 29 - 70
Bogotà 47 - 66 - 88
Marion 01.06.90
Madri90 6 49 44
Oracolotto 59 - 82 - 90
Psycopompos 62.16.29
Gin 1.36.38
 
Ciao, amici.
Per qualche giorno sarò senza pc.
Se per martedì non potrò aggiornare, per cortesia fatelo voi.
Vi lascio lo script coi numeri aggiornati per chi volesse consultarlo.

A prestissimo.:)

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(09,50)
num5 = Array(29,70)
num6 = Array(47,66,88)
num7 = Array(01,06,90)
num8 = Array(6,49,44)
num9 = Array(59,82,90)
num10 = Array(62,16,29)
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)
EliminaRipetuti(nn)   

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

If st<250 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
 
Buona settimana a tutti, giovedì scorso tra tutti i numeri uniti
c'è stato un terno .... 15 oracolotto . 30 Roberto . 78 80Sete
sabato altro terno ... 38 Gin . 27 psycopompos . 44 Madri90
ho pensato di riunire in 12 Cinquine tutti i nostri numeri in formato Cruciverba.
alcuni sono terni nella stessa colonna (es.10.30.69) altri terni in gioco, sono 2 Ambi distinti,
Naturalmente, ognuno potrà girare lo schema a piacimento cambiando la posizione dei numeri,
Per i meno esperti...sono 5 colonne verticali, 5 colonne orizzontali, e le 2 oblique in giallo.
è solo una proposta per vedere cosa succederà.
Buona settimana a tutti 🐞
Gioco.jpg
 
Eccomi prima del previsto.
Non è uscito nulla. A volte è un bene.
Ripropongo i nostri ( ma i miei sembrano di coccio!)


MILANO
Cinzia 68 - 90
Roberto 30 - 10 - 69
Roberto 18 - 81 - 90
80Sete 09 - 50
Mary 29 - 70
Bogotà 47 - 66 - 88
Marion 01.06.90
Madri90 6 49 44
Oracolotto 59 - 82 - 90
Psycopompos 62.16.29
Gin 1.36.38
 
Ci
Eccomi prima del previsto.
Non è uscito nulla. A volte è un bene.
Ripropongo i nostri ( ma i miei sembrano di coccio!)


MILANO
Cinzia 68 - 90
Roberto 30 - 10 - 69
Roberto 18 - 81 - 90
80Sete 09 - 50
Mary 29 - 70
Bogotà 47 - 66 - 88
Marion 01.06.90
Madri90 6 49 44
Oracolotto 59 - 82 - 90
Psycopompos 62.16.29
Gin 1.36.38
Buongiorno.. Cinzia anche i miei si riconfermano ad ogni estrazione ma poi si nascondono... Se possibile vorrei aggiungere 34 e 90 che oramai dovrebbe avere le estrazioni contate!!
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 13 maggio 2025
    Bari
    57
    08
    71
    83
    65
    Cagliari
    06
    43
    60
    53
    65
    Firenze
    04
    76
    30
    20
    73
    Genova
    11
    50
    61
    23
    49
    Milano
    54
    50
    03
    34
    37
    Napoli
    63
    17
    76
    85
    07
    Palermo
    06
    68
    35
    31
    13
    Roma
    63
    15
    57
    82
    03
    Torino
    60
    30
    87
    63
    03
    Venezia
    52
    43
    17
    14
    25
    Nazionale
    59
    51
    84
    75
    06
    Estrazione Simbolotto
    Milano
    37
    08
    43
    03
    19
Indietro
Alto