vincenzo4221
Advanced Member >PLATINUM<
ciao luigi ,ciao Joe91 ,solo dopo aver visto che hai inserito gli script su spaziometria (dei metodi da me postati), mi sono reso
conto che non avevo dato solo fastidio .Spero di continuare sulla scia , e vorrei porti un altro problemino,
si potrebbe modificare questo script che non funziona su spazio, grazie
Sub main()
ESTRAZIONI 7000
x=@ESTR
r=1
a=EST(2,r,x)
b=EST(4,r,x)
n=F90(a+b)
n1=ABS(90-n)
nc=CAD(n1)
SE nc=1
GIOCA
NUMERI 1,41,61,71,81
RUOTE r
AMBATA 1
AMBO 1
PER 2 ESTRAZIONI
INTERROMPI 1
FINE GIOCA
FINE SE
SE nc=2
GIOCA
NUMERI 2,42,62,72,82
RUOTE r
AMBATA 1
AMBO 1
PER 2 ESTRAZIONI
INTERROMPI 1
FINE GIOCA
FINE SE
SE nc=3
GIOCA
NUMERI 3,43,63,73,83
RUOTE r
AMBATA 1
AMBO 1
PER 2 ESTRAZIONI
INTERROMPI 1
FINE GIOCA
FINE SE
SE nc=4
GIOCA
NUMERI 4,44,64,74,84
RUOTE r
AMBATA 1
AMBO 1
PER 2 ESTRAZIONI
INTERROMPI 1
FINE GIOCA
FINE SE
SE nc=5
GIOCA
NUMERI 5,45,65,75,85
RUOTE r
AMBATA 1
AMBO 1
PER 2 ESTRAZIONI
INTERROMPI 1
FINE GIOCA
FINE SE
SE nc=6
GIOCA
NUMERI 6,46,66,76,86
RUOTE r
AMBATA 1
AMBO 1
PER 2 ESTRAZIONI
INTERROMPI 1
FINE GIOCA
FINE SE
SE nc=7
GIOCA
NUMERI 7,47,67,77,87
RUOTE r
AMBATA 1
AMBO 1
PER 2 ESTRAZIONI
INTERROMPI 1
FINE GIOCA
FINE SE
SE nc=8
GIOCA
NUMERI 8,48,68,78,88
RUOTE r
AMBATA 1
AMBO 1
PER 2 ESTRAZIONI
INTERROMPI 1
FINE GIOCA
FINE SE
SE nc=9
GIOCA
NUMERI 9,49,69,79,89
RUOTE r
AMBATA 1
AMBO 1
PER 2 ESTRAZIONI
INTERROMPI 1
FINE GIOCA
FINE SE
SE nc=0
GIOCA
NUMERI 90,40,60,70,80
RUOTE r
AMBATA 1
AMBO 1
PER 2 ESTRAZIONI
INTERROMPI 1
FINE GIOCA
FINE SE
SCRIVI "<------------------------------------------------------------->"
FINE SE
PROSSIMA
RESOCONTO
End Sub
conto che non avevo dato solo fastidio .Spero di continuare sulla scia , e vorrei porti un altro problemino,
si potrebbe modificare questo script che non funziona su spazio, grazie
Sub main()
ESTRAZIONI 7000
x=@ESTR
r=1
a=EST(2,r,x)
b=EST(4,r,x)
n=F90(a+b)
n1=ABS(90-n)
nc=CAD(n1)
SE nc=1
GIOCA
NUMERI 1,41,61,71,81
RUOTE r
AMBATA 1
AMBO 1
PER 2 ESTRAZIONI
INTERROMPI 1
FINE GIOCA
FINE SE
SE nc=2
GIOCA
NUMERI 2,42,62,72,82
RUOTE r
AMBATA 1
AMBO 1
PER 2 ESTRAZIONI
INTERROMPI 1
FINE GIOCA
FINE SE
SE nc=3
GIOCA
NUMERI 3,43,63,73,83
RUOTE r
AMBATA 1
AMBO 1
PER 2 ESTRAZIONI
INTERROMPI 1
FINE GIOCA
FINE SE
SE nc=4
GIOCA
NUMERI 4,44,64,74,84
RUOTE r
AMBATA 1
AMBO 1
PER 2 ESTRAZIONI
INTERROMPI 1
FINE GIOCA
FINE SE
SE nc=5
GIOCA
NUMERI 5,45,65,75,85
RUOTE r
AMBATA 1
AMBO 1
PER 2 ESTRAZIONI
INTERROMPI 1
FINE GIOCA
FINE SE
SE nc=6
GIOCA
NUMERI 6,46,66,76,86
RUOTE r
AMBATA 1
AMBO 1
PER 2 ESTRAZIONI
INTERROMPI 1
FINE GIOCA
FINE SE
SE nc=7
GIOCA
NUMERI 7,47,67,77,87
RUOTE r
AMBATA 1
AMBO 1
PER 2 ESTRAZIONI
INTERROMPI 1
FINE GIOCA
FINE SE
SE nc=8
GIOCA
NUMERI 8,48,68,78,88
RUOTE r
AMBATA 1
AMBO 1
PER 2 ESTRAZIONI
INTERROMPI 1
FINE GIOCA
FINE SE
SE nc=9
GIOCA
NUMERI 9,49,69,79,89
RUOTE r
AMBATA 1
AMBO 1
PER 2 ESTRAZIONI
INTERROMPI 1
FINE GIOCA
FINE SE
SE nc=0
GIOCA
NUMERI 90,40,60,70,80
RUOTE r
AMBATA 1
AMBO 1
PER 2 ESTRAZIONI
INTERROMPI 1
FINE GIOCA
FINE SE
SCRIVI "<------------------------------------------------------------->"
FINE SE
PROSSIMA
RESOCONTO
End Sub