AMBETTO NON SO COME SIFA!!!!!!!!!
--------------------------------------------------------------
Sub Main
Call Scrivi(" METODO TESTACODA ******** DONATELLA************")
Dim ruote(10)
Dim r(10)
Dim am(10)
Dim am1(10)
Dim am2(10)
Dim aa(2)
Dim ambata(10)
Dim posta(10)
Dim poste(10)
poste(1) = 1
posta(2) = 1.00
posta(3) = 0.50
ruote(1) = 9
ruote(2) = 10
'ruote(3) = 1
r(1) = 9
r(2) = 10
r(3) = 1
'r(4) = 11
k = 15
y = 1
For n = 9460 To EstrazioneFin
If IndiceMensile
= 5 Then
casi = casi + 1
a = Differenza(Estratto(n,1,1),Estratto(n,1,3))
b = Differenza(Estratto(n,2,1),Estratto(n,2,3))
c = Fuori90(a + b)
Scrivi String(90," - ") & " Caso n° " & casi,1
ra1 = SerieRitardo(ini,e,ambata,ruote,1)
ColoreTesto 2:Scrivi "Ritardo x Ambata sulla Ruota = " & Format2(ra1):ColoreTesto 0
ambata(1) = c
ImpostaGiocata 1,ambata,ruote,poste,k,1
am(1) = a
am(3) = c
'ImpostaGiocata 2,am,r,posta,k
am1(2) = b
am1(3) = c
'ImpostaGiocata 3,am1,r,posta,k
am2(1) = a
am2(2) = b
am2(3) = c
ImpostaGiocata 4,am2,r,posta,k
Gioca n
End If
Next
Call Scrivi("BARI e CAGLIARIx TO VE")
ColoreTesto 2
Scrivi String(70,"=") & "lottofortune ",1
ColoreTesto 0
ScriviResoconto
End Sub
----------------------------------------------------------------
GLI SCRIPT NON LI SO FARE LI MODIFICO
CIAO