Ma perchè non riesco mai a far fare i conti allo script
ambata 1° BA - 4°RO x 3° FI
abb. ambo
1° BA - 1° FI x 1° TO
1° BA +1° GEx 4° GE
abb. Terno
1° BA - 1° FI + 21
1° BA + 2° CA + 31
Perchè?
ambata 1° BA - 4°RO x 3° FI
abb. ambo
1° BA - 1° FI x 1° TO
1° BA +1° GEx 4° GE
abb. Terno
1° BA - 1° FI + 21
1° BA + 2° CA + 31
Codice:
[/COLOR]Sub Main()Dim aruo(2)
Dim aposte(3)
aposte(2) = 1 'x ambo
aposte(3) = 1 'x terno
Dim anum(10)
r = CInt(InputBox("SU CHE RUOTA DI RICERCA?",,10))
spia = CInt(InputBox("QUALE NUMERO SPIA?",,90))
ee = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO?",,160))
clp = CInt(InputBox("QUANTI COLPI?",,10))
co = 0' contatore
fin = EstrazioneFin
ini = EstrazioneFin - ee
For es = ini To fin
If Posizione(es,r,spia) > 0 Then
anum(1) = Fuori90(90-Estratto(es,BA_,1) - Estratto(es,RO_,4)*(Estratto(es,FI_,3)))
anum(2) = Fuori90(90-Estratto(es,BA_,1) - Estratto(es,FI_,1)*(Estratto(es,TO_,1)))
anum(3) = Fuori90(Estratto(es,BA_,1) + Estratto(es,GE_,1)*(Estratto (es,GE_,4)))
anum(4) = Fuori90(Estratto(es,BA_,1) - Estratto(es,FI_,1)+ 21)
anum(5) = Fuori90(Estratto(es,BA_,1) + Estratto(es,CA_,2)+ 31)
aruo(1) = VE_
co = co + 1
Scrivi
Scrivi "Caso n°: " & CInt(co),1
Scrivi "NUMERO SPIA " & CInt(spia) & " su " & NomeRuota(r) & " in data " & DataEstrazione(es),1
ImpostaGiocata 1,anum,aruo,aposte,clp
Gioca es
End If
Next
ScriviResoconto
End Sub
[COLOR=#333333]
Perchè?