R
Roby
Guest
CIAO SE NON CI PUOI POSTARE IL TUO METODO DELLE CINQUINE AD OGNI ESTRAZIONE, CI PUOI DARE LA CINQUINA CHE NE SCATURISCE?
GRAZIE
GRAZIE
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Sub main()
Dim nu(5)
Dim ru(2)
Dim po(3)
po(1)=1
po(2)=1
'po(3)=0.1
'<---------------Ruote di gioco e ci metti quelle che vuoi
ru(1)=1
'ru(2)=6
'<---------------Ruote di rilevamento e ci metti quelle che vuoi
r1 = 1
r2 = 3
fin=EstrazioneFin
ini=fin - 20
For es = ini To fin
'<-------'Uso il "Format2" per rendere a due cifre anche i numeretti
a =Format2(Estratto(es, r1, 4))
b =Format2(Estratto(es, r2, 2))'Idem come sopra
nu(1)= Fuori90(Figura(a)&(Figura(b)))
nu(2)= Fuori90((a)+((b))+38)
nu(3)= Abs(42-(Diametrale(nu(1)+(nu(2)))))
nu(4)= Abs(55-(Diametrale(nu(1)+(nu(2)))))
nu(5)= Abs(66-(Diametrale(nu(1)+(nu(2)))))
Scrivi DataEstrazione(es) &" "& SiglaRuota(r1) &" "& a &" "&_
SiglaRuota(r2) &" "& b ,1
ImpostaGiocata 1,nu,ru,po,5',1
Gioca es
Scrivi
Next
ScriviResoconto
End Sub