Novità

Aiuto per lottoscript

andrea21

Member
Buonasera a tutti, io non ci salto fuori chi può darmi una mano?
Grazie al buon samaritano.
Dovrebbe risultare GE-RO: 36-40-42-49-52

Sub main()
Dim rt(11),pt(4),n1(6)

pt(2)=3
pt(3)=2
pt(4)=0

clp=13 'colpi di gioco
'------------------------------le ruote GE-RO

'rt(1)=1 '1a ruota di gioco BARI
'rt(2)=2 '1a ruota di gioco CAGLIARI
'rt(3)=3 '1a ruota di gioco FIRENZE
rt(4)=4 '1a ruota di gioco GENOVA
'rt(5)=5 '1a ruota di gioco MILANO
'rt(6)=6 '1a ruota di gioco NAPOLI
'rt(7)=7 '1a ruota di gioco PALERMO
rt(8)=8 '1a ruota di gioco ROMA
'rt(9)=9 '1a ruota di gioco TORINO
'rt(10)=10 '1a ruota di gioco VENEZIA
'rt(11)=11 '1a ruota di gioco TUTTE

'------------------------------Storia regressa -300 estrazioni
ini=EstrazioneFin -300
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es+1)=1 Then 'Ultima estrazione del mese
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1

a=Estratto (es,1,1)
b=Estratto (es,1,2)
c=Estratto (es,11,2)
d=Estratto (es,5,1)
e=Estratto (es,10,1)
f=Estratto (es,5,5)
g=Estratto (es,10,3)
h=Estratto (es,6,3)

'------------------------------cinquina
n1(1)=Fuori90 (a+58)'-------1 BA + 58 (Ambata principale)
n1(2)=Fuori90 (b+c+57)'-----2 BA + 2 Nazion. + 57
n1(3)=Fuori90 (d+e+4)'------1 MI + 1 VE + 4
n1(4)=Fuori90 (f+g+38)'-----5 MI + 3 VE +38
n1(5)=Fuori90 (d+h+34)'-----1 MI + 3 NA + 34
ImpostaGiocata 1,n1,rt,pt,clp

Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto

End Sub
 
ciao andrea21, la nazionale è la 12a ruota, mentre Tutte è l'11a..

c=Estratto (es,11,2) errata

c=Estratto (es,12,2)giusta

Saluti, Gio.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 12 agosto 2025
    Bari
    24
    68
    73
    16
    76
    Cagliari
    78
    24
    82
    32
    90
    Firenze
    39
    46
    21
    45
    28
    Genova
    50
    03
    21
    64
    09
    Milano
    85
    44
    38
    43
    34
    Napoli
    12
    16
    56
    61
    03
    Palermo
    75
    64
    34
    25
    28
    Roma
    55
    29
    43
    06
    64
    Torino
    38
    60
    90
    53
    82
    Venezia
    12
    75
    34
    67
    77
    Nazionale
    70
    17
    25
    41
    57
    Estrazione Simbolotto
    Nazionale
    25
    28
    19
    34
    36

Ultimi Messaggi

Indietro
Alto