Ciao claudio ho modificato lo script del 79 che hai fatto ieri sera, con il 44 di bari ma gli ultimi due numeri non vengono calcolati correttamente infatti il pronostico che da è 24.22.34.90.90 invece di 22.24.34.56.64
Dov'è l'errore essendo scritto fuori 90 il calcolo non viene eseguito e come se gli mancasse un'indicazione....Qual'è? ti allego lo script
Grazie
saluti
Dov'è l'errore essendo scritto fuori 90 il calcolo non viene eseguito e come se gli mancasse un'indicazione....Qual'è? ti allego lo script
Codice:
Sub Main()Dim aruo(2)
Dim aposte(3)
aposte(1) = 10 'x ambata
aposte(2) = 1 'x ambo
aposte(3) = 1 'x terno
Dim anum(10)
r = CInt(InputBox("SU CHE RUOTA DI RICERCA?",,1))
spia = CInt(InputBox("QUALE NUMERO SPIA?",,44))
ee = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO?",,160))
clp = CInt(InputBox("QUANTI COLPI?",,9))
co = 0' contatore
fin = EstrazioneFin
ini = EstrazioneFin - ee
For es = ini To fin
If Posizione(es,r,spia) > 0 Then
anum(1) = Fuori90(Estratto(es,CA_,1) + 53)
anum(2) = Fuori90(Estratto(es,BA_,2) + 43)
anum(3) = Fuori90(Estratto(es,FI_,2) * 23)
anum(4) = Fuori90 (Estratto(es,FI_,4) - 33)
anum(5) = Fuori90(Estratto(es,TO_,2) - Estratto(es,CA_,3))
aruo(1) = BA_
aruo(2) = CA_
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
Grazie
saluti