Novità

Estrazione del Lotto

Su LottoCED puoi seguire le estrazioni del lotto in diretta tra

Dato un gruppo numerico qualsiasi... c'è già uno script che lo scomponga...

lotto_tom75

Advanced Premium Member
Dato un gruppo numerico qualsiasi... c'è già uno script che lo possa scomporre... in tutte le "famiglie" e tipologie numeriche finora conosciute? 🤯 Es. figure, cadenze, cinquine simmetriche ecc.. E se non c'è... qualcuno/a dei top scripters in ascolto... (vedi ilegend, mike58, joe ecc...) che abbia voglia di realizzarlo? 🙃
 

Cinzia27

Super Member >PLATINUM<
Ciao, Lotto_tom75.
Potrebbe andare ?

Sub Main()
Dim n(10)
w=4
n(1)=10
n(2)=15
n(3)=44
n(4)=48
n(5)=58
n(6)=67
n(7)=74
n(8)=75
n(9)=85
n(10)=86
Scrivi "Figura "&w
For i=1 To 10
If Figura(n(i))=4 Then Scrivi n(i)&" ",0,0
Next
Scrivi
Scrivi
Scrivi "Cadenza "&w
For i=1 To 10
If Cadenza(n(i))=4 Then Scrivi n(i)&" ",0,0
Next
Scrivi
Scrivi
Scrivi "Decina "&w
For i=1 To 10
If Decina(n(i))=4 Then Scrivi n(i)&" ",0,0
Next
Scrivi
Scrivi
End Sub
 

lotto_tom75

Advanced Premium Member
Ciao, Lotto_tom75.
Potrebbe andare ?

Sub Main()
Dim n(10)
w=4
n(1)=10
n(2)=15
n(3)=44
n(4)=48
n(5)=58
n(6)=67
n(7)=74
n(8)=75
n(9)=85
n(10)=86
Scrivi "Figura "&w
For i=1 To 10
If Figura(n(i))=4 Then Scrivi n(i)&" ",0,0
Next
Scrivi
Scrivi
Scrivi "Cadenza "&w
For i=1 To 10
If Cadenza(n(i))=4 Then Scrivi n(i)&" ",0,0
Next
Scrivi
Scrivi
Scrivi "Decina "&w
For i=1 To 10
If Decina(n(i))=4 Then Scrivi n(i)&" ",0,0
Next
Scrivi
Scrivi
End Sub

Eccezionale Cinzia! Grazie 1000 e Buon 8 Marzo che prima mi ero dimenticato di scriverti (y)😄 ps: se metti il codice tra i tag parentesi quadra aperta code parentesi quadra chiusa e il tag parentesi quadra aperta barra code parentesi quadra chiusa il codice stesso diventa molto più leggibile ;)
 
Ultima modifica:

Cinzia27

Super Member >PLATINUM<
Codice:
Sub main()
Dim n(10)
w=4
n(1)=10
n(2)=15
n(3)=44
n(4)=48
n(5)=58
n(6)=67
n(7)=74
n(8)=75
n(9)=85
n(10)=86
Scrivi "Figura "&w
For i=1 To 10
If Figura(n(i))=4 Then Scrivi n(i)&" ",0,0
Next
Scrivi
Scrivi "Cadenza "&w
For i=1 To 10
If Cadenza(n(i))=4 Then Scrivi n(i)&" ",0,0
Next
Scrivi
Scrivi "Decina  "&w
For i=1 To 10
If Decina(n(i))=4 Then Scrivi n(i)&" ",0,0
Next
Scrivi

End Sub
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 17 aprile 2021
    Bari
    59
    61
    41
    04
    32
    Cagliari
    10
    68
    19
    11
    85
    Firenze
    41
    01
    13
    73
    47
    Genova
    44
    30
    39
    88
    90
    Milano
    67
    88
    33
    13
    32
    Napoli
    44
    41
    79
    80
    66
    Palermo
    15
    59
    04
    31
    21
    Roma
    46
    68
    56
    78
    58
    Torino
    09
    15
    84
    17
    32
    Venezia
    81
    04
    84
    42
    35
    Nazionale
    52
    16
    63
    62
    46
    Estrazione Simbolotto
    Genova
    38
    36
    41
    17
    13

Ultimi Messaggi

Alto