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
    giovedì 04 settembre 2025
    Bari
    42
    63
    35
    10
    87
    Cagliari
    54
    70
    14
    21
    23
    Firenze
    37
    40
    58
    64
    28
    Genova
    09
    69
    63
    36
    64
    Milano
    79
    57
    10
    85
    88
    Napoli
    53
    54
    50
    13
    62
    Palermo
    73
    36
    86
    31
    32
    Roma
    57
    24
    13
    85
    78
    Torino
    24
    02
    77
    81
    13
    Venezia
    72
    86
    51
    50
    25
    Nazionale
    72
    62
    29
    09
    81
    Estrazione Simbolotto
    Palermo
    17
    10
    01
    28
    05
Indietro
Alto