uffa..........ma dove sbaglio!!!!!!!

[giandy]

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

[/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è?

 

[claudio8]

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(90 + 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


Prova così .
Spero di aver azzeccato le parentesi tra i vari operatori che hai utilizzato.

Ricordati che il 90+ e non - lo puoi mettere sempre, con il fuori90. esso serve ad evitare, quando all'interno del calcolo vi è una sottrazione, ripeto ad evitare che venga un risultrato con segno negativo.
Imposta bene le parntesi che separano le operazioni che intendi fare, altrimenti il bravo matematico che sta nel tuo pc fa prima le moltiplicazioni e divisioni e poi le addizioni e sottrazioni.

 

[giandy]

Grazie claudio ora va meglio , nel senso che nell' ultima estrazione gli ultimi tre numeri sono corretti ed i primi due risultano non calcolati

esempio fatto a mano risultato 66.9.46.78.56 (corretto)

con lo script risultato 90.90.46.78.56 (primi due numeri non calcolati correttamente)

Credo che sia una questione di parentesi come dici tu un po quando in algebra si usavano le graffe quadre e tonde ma non riesco a trovare quelle corrette

 

[giandy]

Trovato , mancava una doppia parentesi

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)))

appena dopo il fuori 90 ci va una doppia parentesi

Grazie Claudio

 

[giandy]

questo è il listato che mi risulta corretto

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((90 + (Estratto(es,BA_,1)) + Estratto(es,GE_,1))*(Estratto(es,GE_,4)))
anum(4) = Fuori90((90 + (Estratto(es,BA_,1)) - Estratto(es,FI_,1) + 21))
anum(5) = Fuori90((90 + (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

Grazie