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ì 30 settembre 2025
    Bari
    14
    59
    63
    72
    68
    Cagliari
    05
    42
    65
    20
    30
    Firenze
    64
    61
    33
    56
    31
    Genova
    16
    38
    14
    31
    17
    Milano
    67
    80
    18
    26
    90
    Napoli
    56
    46
    13
    88
    20
    Palermo
    12
    68
    09
    26
    14
    Roma
    81
    80
    31
    84
    01
    Torino
    84
    69
    47
    12
    10
    Venezia
    74
    79
    06
    53
    81
    Nazionale
    83
    81
    47
    13
    66
    Estrazione Simbolotto
    Palermo
    41
    40
    45
    13
    10
Indietro
Alto