Ciao a tutti e complimenti per quello che fate.
Premetto che sono autodidatta in materia di script e che ho ancora molta strada da fare.... ma mi accontento.
Ho un piccolo problema che non riesco a risolvere pur avendo cercato nei vari post.
Ho "rivisitato" uno script di Adelino in questo post di Coconut http://forum.lottoced.com/f7/mamma-mia-che-fatica-90394/
Il listato mi funziona benissimo su L8+, ma quando lo faccio girare su Spaziometria (ultimissima versione installata
dopo aver disistallato la precedente - cosa che di solito non faccio)
mi da errore "9-Subscript out of range", pur eseguendo i calcoli.
Credo sia legato alla 5a posizione dell'estratto, perche se invece di
"For p1 = 1 To 5" scrivo "To 4" funziona tutto bene.
Chi mi aiuta a capire dove sbaglio?
Riporto anche qui il listato per comodità
Grazie!
Premetto che sono autodidatta in materia di script e che ho ancora molta strada da fare.... ma mi accontento.
Ho un piccolo problema che non riesco a risolvere pur avendo cercato nei vari post.
Ho "rivisitato" uno script di Adelino in questo post di Coconut http://forum.lottoced.com/f7/mamma-mia-che-fatica-90394/
Il listato mi funziona benissimo su L8+, ma quando lo faccio girare su Spaziometria (ultimissima versione installata
dopo aver disistallato la precedente - cosa che di solito non faccio)
mi da errore "9-Subscript out of range", pur eseguendo i calcoli.
Credo sia legato alla 5a posizione dell'estratto, perche se invece di
"For p1 = 1 To 5" scrivo "To 4" funziona tutto bene.
Chi mi aiuta a capire dove sbaglio?
Riporto anche qui il listato per comodità
Codice:
Sub Main()
Dim ruota(1),ruote(10),num1(2),posta(10),poste(2)
posta(1) = 1
posta(6) = 1
posta(10) = 1
poste(2) = 2
ce = InputBox(" quante estrazione vuoi controllare? ","estrazione",100)
k = InputBox("per quanti colpi?","colpi di gioco",13)
ini = EstrazioneFin - ce
fin = EstrazioneFin
For es = ini To EstrazioneFin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
For p1 = 1 To 5
ruota(1) = 1 '<------- ruota di calcolo
'ruote(1) = 1
ruote(2) = 11
r1 = ruota(1)
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p1 + 1)
If p1 = 5 Then
a = Estratto(es,r1,5)
b = Estratto(es,r1,1)
End If
If(a) = 1 Or(a) = 2 Or(a) = 3 Or(a) = 4 Or(a) = 5 Or(a) = 6 Or(a) = 7 Or(a) = 8 Or(a) = 9 Then
casi = casi + 1
Scrivi String(80,"=") & " by Coconut",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] [ " & Format2(a) & " ] in " & Format2(Posizione(es,r1,a)) & "^ pos."
Scrivi " " & _
"[ " & Format2(b) & " ] In " & Format2(Posizione(es,r1,b)) & "^ pos."
Scrivi String(80,"-") & " caso n°" & casi
n1 = Fuori90(b + 90 - a)
n2 = Vert(n1)
num1(1) = n1
num1(2) = n2
ra1 = SerieRitardo(ini,es,num1,ruota,1)
ColoreTesto 2
Scrivi "Ritardo x Ambata sulla Ruota di " & SiglaRuota(r1) & " = " & Format2(ra1)
ColoreTesto 0
ImpostaGiocata 1,num1,ruota,posta,k,1
ImpostaGiocata 2,num1,ruote,poste,k
Gioca es
End If
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi String(20,32) & "Giochino su bari by Coconut",1
Scrivi String(45,32) & "Listato by Adelino",1
ColoreTesto 0
End SubGrazie!
