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
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07

Ultimi Messaggi

Indietro
Alto