-
moro1984.
User deleted
salve io ho risolto il problema cancellando Sub Main poi basta incollare il listato lasciando solo End Sub infondo alla pagina... spero di essere stato utile. Ciao . -
.
grazie moro,ma non funge uguale con l8+ 6.0,se togli Sub main da' errore..puoi postare il listato che ti funziona???grazie . -
sargantana.
User deleted
Confermo.
Rimuovendo il comando Sub Main il prgm restituisce
Errore nello script
Errore 1024: Prevista istruzione (riga 105)
Purtroppo non riesco a capire quali sono le differenze di sintassi della versione VBScript presente nella 6.1 rispetto alla 6.0.
Saluti. -
.
ciao,finche' non si risolve questo dilemma,al limite usa il Programma " Spaziometria",li' i listati girano perfettamente..lo trovi qui':
https://illottodisean69.forumfree.it/?t=51004332. -
sargantana.
User deleted
Sean e tutti
Ho trovato la soluzione.
Come ho scritto nel mio precedente msg, ero cusioso di capire le possibili differenze tra il VBScript della 6.1 e quello della 6.0.
In particolare mi insospettiva il fatto che la maggioranza degli errori nasceva nell'ambito della ruota.
Ho dato una breve scorsa all'help di VBScript ed ho scoperto che nella rel. 6.0 NON esiste la funzione SiglaRuota bensì NomeRuota.
Ho quindi modificato la sintassi della funzione ed il listato ora gira perfettamente, restituendo tutto quello che deve restituire!
Prova tu stesso.
Morale:
la differenza 6.1/6.0 sta in una diversa sintassi di alune funzioni; resta da capire se questa si limita alle ruote oppure coinvolge altri parametri.
Indago.
Ciao. -
.
mi posti gentilmente il listato che a te gira??ho provato ma non va'..io l'ho corretto cosi',ma non da' la statistica: SPOILER (clicca per visualizzare)Sub main()
Dim n(4),n1(3),ru(3),ps(4)
Dim ps1(3)
Dim am(2)
Dim ps2(1)
Dim ps3(2)
Dim ambo(2)
Dim ambo1(2)
Dim ambo2(2)
Dim ambo3(2)
Dim ambo4(2)
Dim ambo5(2)
Dim ambo6(2)
Dim ambo7(2)
Dim ambo8(2)
Dim ambo9(2)
Dim qa(7)
ps(2)=2
ps(3)=1
ps1(3)=1
ps2(1)=1
ps3(2)=1
r=5
ru(1)=5
'ru(2)=11
am(1)=18
am(2)=78
ambo(1)=18
ambo(2)=7
ambo1(1)=18
ambo1(2)=26
ambo2(1)=18
ambo2(2)=30
ambo3(1)=18
ambo3(2)=57
ambo4(1)=18
ambo4(2)=90
ambo5(1)=78
ambo5(2)=7
ambo6(1)=78
ambo6(2)=26
ambo7(1)=78
ambo7(2)=30
ambo8(1)=78
ambo8(2)=57
ambo9(1)=78
ambo9(2)=90
qa(1)=18
qa(2)=78
qa(3)=7
qa(4)=26
qa(5)=30
qa(6)=57
qa(7)=90
For es=EstrazioneFin-335 To EstrazioneFin
If Posizione(es,r,53)>0 Then
ImpostaGiocata 1,am,ru,ps2,9
ImpostaGiocata 2,am,ru,ps3,9,2
ImpostaGiocata 3,ambo,ru,ps3,9,2
ImpostaGiocata 4,ambo1,ru,ps3,9,2
ImpostaGiocata 5,ambo2,ru,ps3,9,2
ImpostaGiocata 6,ambo3,ru,ps3,9,2
ImpostaGiocata 7,ambo4,ru,ps3,9,2
ImpostaGiocata 8,ambo5,ru,ps3,9,2
ImpostaGiocata 9,ambo6,ru,ps3,9,2
ImpostaGiocata 10,ambo7,ru,ps3,9,2
ImpostaGiocata 11,ambo8,ru,ps3,9,2
ImpostaGiocata 12,ambo9,ru,ps3,9,2
ImpostaGiocata 13,qa,ru,ps,9,2
'ImpostaGiocata 14,qa,ru2,ps,9,2
Scrivi " @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@",1
Scrivi : ColoreTesto 0 : Scrivi " [ Metodo "" SPIA 53 SU MILANO ""] ",1
Scrivi " [ di LaStella -Script Listato da Sean69 ]",1
ColoreTesto 2 : Scrivi "--------------------------------------------------------------------",1
ColoreTesto 2 : Scrivi DataEstrazione((es),1)&" " & " [" & " "& NomeRuota(r) &" "& StringaEstratti(es,r)&" "&"] Milano sortito numero spia !!! = "&""& Format2(53) &" ",1
ColoreTesto 2 : Scrivi "--------------------------------------------------------------------",1
Gioca es
End If
Next
ScriviResoconto
End Sub. -
sargantana.
User deleted
...uhm...spero di capire come si fa! SPOILER (clicca per visualizzare)Scrivi "Spia 53 su Milano"
Sub main()
Dim n(4),n1(3),ru(3),ps(4)
Dim ps1(3)
Dim am(2)
Dim ps2(1)
Dim ps3(2)
Dim ambo(2)
Dim ambo1(2)
Dim ambo2(2)
Dim ambo3(2)
Dim ambo4(2)
Dim ambo5(2)
Dim ambo6(2)
Dim ambo7(2)
Dim ambo8(2)
Dim ambo9(2)
Dim qa(7)
ps(2)=2
ps(3)=1
ps1(3)=1
ps2(1)=1
ps3(2)=1
r=5
ru(1)=5
'ru(2)=11
am(1)=18
am(2)=78
ambo(1)=18
ambo(2)=7
ambo1(1)=18
ambo1(2)=26
ambo2(1)=18
ambo2(2)=30
ambo3(1)=18
ambo3(2)=57
ambo4(1)=18
ambo4(2)=90
ambo5(1)=78
ambo5(2)=7
ambo6(1)=78
ambo6(2)=26
ambo7(1)=78
ambo7(2)=30
ambo8(1)=78
ambo8(2)=57
ambo9(1)=78
ambo9(2)=90
qa(1)=18
qa(2)=78
qa(3)=7
qa(4)=26
qa(5)=30
qa(6)=57
qa(7)=90
For es=EstrazioneFin-335 To EstrazioneFin
If Posizione(es,r,53)>0 Then
ImpostaGiocata 1,am,ru,ps2,9
ImpostaGiocata 2,am,ru,ps3,9,2
ImpostaGiocata 3,ambo,ru,ps3,9,2
ImpostaGiocata 4,ambo1,ru,ps3,9,2
ImpostaGiocata 5,ambo2,ru,ps3,9,2
ImpostaGiocata 6,ambo3,ru,ps3,9,2
ImpostaGiocata 7,ambo4,ru,ps3,9,2
ImpostaGiocata 8,ambo5,ru,ps3,9,2
ImpostaGiocata 9,ambo6,ru,ps3,9,2
ImpostaGiocata 10,ambo7,ru,ps3,9,2
ImpostaGiocata 11,ambo8,ru,ps3,9,2
ImpostaGiocata 12,ambo9,ru,ps3,9,2
ImpostaGiocata 13,qa,ru,ps,9,2
'ImpostaGiocata 14,qa,ru2,ps,9,2
Scrivi " @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@",1
Scrivi : ColoreTesto 0 : Scrivi " [ Metodo "" SPIA 53 SU MILANO ""] ",1
Scrivi " [ di LaStella -Script Listato da Sean69 ]",1
ColoreTesto 2 : Scrivi "--------------------------------------------------------------------",1
ColoreTesto 2 : Scrivi DataEstrazione((es),1)&" " & " [" & " "& NomeRuota (r) &" "& StringaEstratti(es,r)&" "&"] Milano sortito numero spia !!! = "&""& Format2(53) &" ",1
ColoreTesto 2 : Scrivi "--------------------------------------------------------------------",1
Gioca es
End If
Next
ScriviResoconto
End Sub
L'unico listato di quelli che ho provato a caricare dal forum e che non funziona, nonostante la "modifica", è quello relativo allo spia 88 a NA; non da un errore di ruota ma
Errore nello script
Errore 9: Indice non incluso nell'intervallo '[number: 8]' (riga 42)
Ciao
Dimenticavo:
all'inizio dell'esecuzione mi appare un riquadro "Resoconto totale giocate" con 4 sotto-sezioni "Risultati...", "Dettaglio...", "Resoconto..." e "Dettaglio..."
E' questo che intendi per "statistica"?. -
.
a me non gira,mi da' questo:
non capisco... -
sargantana.
User deleted
Infatti!
Anche a me lo da, come ti dicevo, ma mi sono accorto dopo che era vuoto.
Mistero!
Evidentemente ci sono altre differenze: nel frattempo stavo provando altri listati e mi accorgo che pur girando correttamente presentano alcune differenze di risultato tra quanto pubblichi tu e quanto ottengo io.
P.es. il listato spia calcolo 3 su ruota, gira ma non entra nel dettaglio. In pratica fornisce il risultato generale senza però splittare l'estrazione, come invece appare nella tua immagine.
Saluti. -
.
dopo ne posto uno che gira,ma che gioca tutti gli ambi anche per ambata..vediamo se riusciamo tramite quello..tempo di modificarlo.. . -
.
Ecco il Listato che dicevo sopra,pero' giochi tutti gli ambi anche per ambata: SPOILER (clicca per visualizzare)Sub main()
Dim ruote(1)
Dim poste(5) : Dim posta(5)
Dim n1(2),n2(2),n3(2),n4(2),n5(2),n6(2),n7(2),n8(2),n9(2),n10(2),n11(2)
posta(1)=1
poste(2)=1
'poste(3)=1
ruote(1)=5
sp=53
n1(1)=18
n1(2)=78
n2(1)=18
n2(2)=7
n3(1)=18
n3(2)=26
n4(1)=18
n4(2)=30
n5(1)=18
n5(2)=57
n6(1)=18
n6(2)=90
n7(1)=78
n7(2)=7
n8(1)=78
n8(2)=26
n9(1)=78
n9(2)=30
n10(1)=78
n10(2)=57
n11(1)=78
n11(2)=90
k=12
y=2
casi=0
ini=8200
fin=EstrazioneFin
For es=ini To fin
AvanzamentoElab ini,fin,es
If Posizione(es,5,53)>0 Then
casi=casi+1
ImpostaGiocata 1,n1,ruote,posta,k,1
ImpostaGiocata 2,n2,ruote,poste,k,y
ImpostaGiocata 3,n3,ruote,poste,k,y
ImpostaGiocata 4,n4,ruote,poste,k,y
ImpostaGiocata 5,n5,ruote,poste,k,y
ImpostaGiocata 6,n6,ruote,poste,k,y
ImpostaGiocata 7,n7,ruote,poste,k,y
ImpostaGiocata 8,n8,ruote,poste,k,y
ImpostaGiocata 9,n9,ruote,poste,k,y
ImpostaGiocata 10,n10,ruote,poste,k,y
ImpostaGiocata 11,n11,ruote,poste,k,y
For a=2 To 11
For b=2 To 11
ImpostaInterruzioni a,b,2
ImpostaInterruzioni a,1,1
ImpostaInterruzioni 1,a,2
Next
Next
End If
Gioca es
Next
Scrivi " Casi = " & casi
ScriviResoconto
End Sub
infatti:CODICEsab 12.03.2011 [8350]
G 1: M 18.78 Mi 1/12
M 18.78 su Mi 1° colpo [8351/15.03.2011]
A 18.78 su Mi 1° colpo [8351/15.03.2011]
D1 18 su Mi 1° colpo [8351/15.03.2011]
I1
G 2: A 18.07 Mi 1/12
M 18 su Mi 1° colpo [8351/15.03.2011]
negativo I1 negativo
G 3: A 18.26 Mi 1/12
M 18 su Mi 1° colpo [8351/15.03.2011]
negativo I1 negativo
G 4: A 18.30 Mi 1/12
M 18 su Mi 1° colpo [8351/15.03.2011]
negativo I1 negativo
G 5: A 18.57 Mi 1/12
M 18 su Mi 1° colpo [8351/15.03.2011]
negativo I1 negativo
G 6: A 18.90 Mi 1/12
M 18 su Mi 1° colpo [8351/15.03.2011]
negativo I1 negativo
non so' chi sia l'autore,spero qualcuno riesca a cambiare almeno la giocata degli ambi... -
sargantana.
User deleted
ciao,finche' non si risolve questo dilemma,al limite usa il Programma " Spaziometria",li' i listati girano perfettamente..lo trovi qui':
https://illottodisean69.forumfree.it/?t=51004332
Infatti, lì girano ottimamente.
Peccato non riuscire a fare tutto con un unico prgm...
Saluti. -
.
l'ultimo listato che ho messo sopra funziona con l8+ 6.0..prova e fammi sapere.. . -
sargantana.
User deleted
CITAZIONE (sean69 @ 2/9/2011, 14:22)l'ultimo listato che ho messo sopra funziona con l8+ 6.0..prova e fammi sapere..
Confermo.
Tra domani e domenica (visto che ci sarà brutto tempo) provo a dare un'occhiata ad un listato bloccato e a capire il perchè si pianta.
Evidentemente il VBScript di Spaziometria è identico a quello della 6.1.
Saluti.