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ì 15 aprile 2025
    Bari
    55
    04
    89
    85
    20
    Cagliari
    28
    29
    83
    74
    11
    Firenze
    33
    61
    17
    13
    59
    Genova
    03
    89
    46
    30
    34
    Milano
    30
    22
    08
    80
    21
    Napoli
    28
    48
    38
    62
    76
    Palermo
    18
    12
    01
    66
    16
    Roma
    29
    79
    26
    16
    44
    Torino
    12
    77
    49
    50
    66
    Venezia
    64
    45
    57
    85
    01
    Nazionale
    60
    39
    72
    49
    26
    Estrazione Simbolotto
    Genova
    13
    12
    14
    33
    24

Ultimi Messaggi

Indietro
Alto