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
    sabato 21 giugno 2025
    Bari
    07
    03
    45
    25
    05
    Cagliari
    20
    73
    88
    50
    15
    Firenze
    04
    19
    09
    52
    55
    Genova
    21
    47
    65
    53
    24
    Milano
    11
    64
    70
    67
    51
    Napoli
    59
    66
    83
    33
    03
    Palermo
    61
    74
    28
    62
    04
    Roma
    25
    29
    15
    54
    44
    Torino
    34
    22
    30
    59
    28
    Venezia
    42
    75
    06
    83
    84
    Nazionale
    36
    67
    41
    54
    56
    Estrazione Simbolotto
    Napoli
    02
    40
    06
    26
    29

Ultimi Messaggi

Indietro
Alto