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
    venerdì 22 agosto 2025
    Bari
    77
    43
    54
    27
    51
    Cagliari
    22
    61
    76
    27
    13
    Firenze
    75
    82
    78
    15
    80
    Genova
    18
    28
    60
    37
    50
    Milano
    84
    06
    90
    36
    40
    Napoli
    47
    09
    53
    65
    14
    Palermo
    74
    29
    40
    50
    30
    Roma
    79
    05
    15
    08
    26
    Torino
    03
    02
    60
    27
    26
    Venezia
    59
    14
    32
    70
    36
    Nazionale
    48
    09
    04
    88
    52
    Estrazione Simbolotto
    Nazionale
    07
    24
    42
    16
    03
Indietro
Alto