pronta cassa ambi

[ghio]

Sub Main()
Dim nu(8)
Dim ruote(2)
Dim poste(2)
'poste(1)=1
poste(2)=1
fin=EstrazioneFin
ini=fin-50
For es=ini To fin
Messaggio es
ruote(1)=r
r=12
For r1=1 To 10
ruote(2)=r1
a1=Abs(SommaEstratti(es-3,r))
a2=Abs(SommaEstratti(es-3,r1))
If a1>a2 Then a3=Abs (Fuori90 (a1-a2))
If a2>a1 Then a3=Abs (Fuori90 (a2-a1))
a4=Vert (a3)
b1=Abs(SommaEstratti(es-2,r))
b2=Abs(SommaEstratti(es-2,r1))
If b1>b2 Then b3=Abs (Fuori90 (b1-b2))
If b2>b1 Then b3=Abs (Fuori90 (b2-b1))
b4=Vert (b3)
c1=Abs(SommaEstratti(es-1,r))
c2=Abs(SommaEstratti(es-1,r1))
If c1>c2 Then c3=Abs (Fuori90 (c1-c2))
If c2>c1 Then c3=Abs (Fuori90 (c2-c1))
c4=Vert (c3)
d1=Abs(SommaEstratti(es,r))
d2=Abs(SommaEstratti(es,r1))
If d1>d2 Then d3=Abs (Fuori90 (d1-d2))
If d2>d1 Then d3=Abs (Fuori90 (d2-d1))
d4=Vert (d3)
nu(1)=a3
'nu(2)=a4
'nu(3)=b3
nu(4)=b4
nu(5)=c3
nu(6)=c4
nu(7)=d3
nu(8)=d4

Scrivi StringaNumeri (nu)
ImpostaGiocata 1,nu,ruote,poste,80,2

Gioca es
Next
Next
ScriviResoconto
End Sub

 

[rosce14]

buona domenica ghio,
non so leggere gli scripit, mi puoi dire quali sono gli ambi pronta cassa?
Grazie.

 

[LuigiB]

gli script non vanno letti ma eseguiti o dentro Lottodesk o dentro spaziometria ...

 

[pazzolotto]

Ciao Ghio continua a darmi errore sulla variabile FIN=eSTRAZIONEfINAL
c'è QUALCOSA CHE HO sbagliato??

 

[keeper]

lo script funziona correttamente questa è quella corretta fin=EstrazioneFin

 

[ghio]

Non vedevo problemi nello script,,
provato in entrambi i programmi non da errore