B
Blackmore
Guest
Ciao Luigi, ho trovato un metodo sommativo che
dopo l'uscita del numero spia 3 su Bari in 1°posizione
Mi calcola una terzina su Cagliari, ma
nel 1°caso non mi appaiono i numeri, il listato mi sembra ok
dov'è lo sbaglio?
E' la prima volta che mi capita una cosa simile
http://img692.imageshack.us/img692/8632/56733082.jpg
dopo l'uscita del numero spia 3 su Bari in 1°posizione
Mi calcola una terzina su Cagliari, ma
nel 1°caso non mi appaiono i numeri, il listato mi sembra ok
dov'è lo sbaglio?
E' la prima volta che mi capita una cosa simile
http://img692.imageshack.us/img692/8632/56733082.jpg
Codice:
Sub Main()
Scrivi String(50," ") & "METODO BY BLACKMORE",1
Scrivi
Dim aruo(1)
Dim anum(10)
Dim aposte(10)
aposte(2) = 2
'aposte(3) = 1
co = 0
r = CInt(InputBox("RUOTA DI RICERCA?",,1))
rr = CInt(InputBox("RUOTA DI GIOCO?",,2))
ee = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO?",,240))
k = CInt(InputBox("QUANTI COLPI?",,7))
fin = EstrazioneFin
ini = EstrazioneFin - ee
For es = ini To fin
a = Estratto(es,r,1)
If a = 3 Then
co = co + 1
ColoreTesto 1
Scrivi String(25,"*") & " Caso n°: " & CInt(co) & " *************************",1
ColoreTesto 2
Scrivi " NUMERO SPIA " & a & " In 1°Posizione su " & NomeRuota(r) & " - Uscito il: " & DataEstrazione(es),1
ColoreTesto 1
Scrivi String(62,"*"),1
ColoreTesto 0
anum(1) = Fuori90(Estratto(es,BA_,3) + 13)
anum(2) = Fuori90(Estratto(es,BA_,3) + 19)
anum(3) = Fuori90(Estratto(es,BA_,3) + 32)
ImpostaGiocata 1,anum,aruo,aposte,k,2
aruo(1) = rr
Gioca es
End If
Next
ScriviResoconto
End Sub
.. a parte gli scherzi difficile aiutarti solo tu puoi farlo ripercorrendo mentalmente il codice e cercando l'errore , io posso solo darti consigli in linea di massima come ad esempio il fatto che sapendo qual'è l'errore gia dovresti capire da quale punto del codice che hai scritto potrebbe dipendere e rianalizzarlo.
