Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Sub Main
'Gioca ogni estrazione l'ambata principale (1^ giocata)
'gioca un'ambata secondaria in base all'esito della 1^
' se la prima è negativa ricalcola l'ambata all'ultimo colpo (negativo)
' se la prima è positiva ricalcola l'ambata al colpo positivo
'http://forum.lottoced.com/f12/script-per-ricalcolare-lambata-dopo-la-sortita-oppure-dopo-10-colpi-chi-mi-aiuta-108191/
Dim ruote(10)
Dim ambata(1)
Dim posta(1)
Dim progress(1,10)
posta(1) = 5
progress(1,01) = 05
progress(1,02) = 10
progress(1,03) = 15
progress(1,04) = 20
progress(1,05) = 25
progress(1,06) = 30
progress(1,07) = 35
progress(1,08) = 40
progress(1,09) = 45
progress(1,10) = 50
r1 = InputBox("INSERISCI LA RUOTA DEL 1° NUMERO",,1)
pos1 = CInt(InputBox("INSERISCI LA POSIZIONE DEL 1° NUMERO",,3))
r2 = InputBox("INSERISCI LA RUOTA DEL 2° NUMERO",,10)
pos2 = CInt(InputBox("INSERISCI LA POSIZIONE DEL 2° NUMERO",,3))
Ini = InputBox("INIZIO RICERCA ESTRAZIONE N°",,7500)
k = InputBox("COLPI DI GIOCO",,10)
fin = EstrazioneFin
For es = Ini To fin 'Step k+1
Call AvanzamentoElab(Ini,fin,es)
Messaggio "3° BA + 3° VE METODO DI VALE79 - SCRIPT BY BLACKMORE"
a = Estratto(es,r1,pos1) : b = Estratto(es,r2,pos2)
numero = Fuori90(a + b)
ruote(1) = r1
co = co + 1
Scrivi String(50,"=") & " Caso n° " & Format2(co) & " 1^ ambata - principale ",1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " -> " & Format2(a) & " [" & pos1 & "°Posizione ]"
Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " -> " & Format2(b) & " [" & pos2 & "°Posizione ]"
Scrivi
ambata(1) = numero
ImpostaGiocata 1,ambata,ruote,posta,k,1
Call ImpostaProgressione(1,progress)
Gioca es
If VerificaEsitoTurbo(ambata,ruote,es+1,1,k,,RetEsito,,retestratti,retIDEstr,aRetRuote) Then
esf=RetIdEstr
a = Estratto(esf,r1,pos1) : b = Estratto(esf,r2,pos2)
numero = Fuori90(a + b)
ambata(1) = numero
Scrivi String(50,"=") & " Caso n° " & Format2(co) & " 2^ ambata - secondaria per esito positivo della 1^ ",1
Scrivi DataEstrazione(esf) & " " & SiglaRuota(r1) & " " & StringaEstratti(esf,r1) & " -> " & Format2(a) & " [" & pos1 & "°Posizione ]"
Scrivi DataEstrazione(esf) & " " & SiglaRuota(r2) & " " & StringaEstratti(esf,r2) & " -> " & Format2(b) & " [" & pos2 & "°Posizione ]"
Scrivi
ImpostaGiocata 2,ambata,ruote,posta,k,1
Call ImpostaProgressione(1,progress)
Gioca esf
ElseIf es+k<EstrazioneFin Then
esf=es+k
a = Estratto(esf,r1,pos1) : b = Estratto(esf,r2,pos2)
numero = Fuori90(a + b)
ambata(1) = numero
Scrivi String(50,"=") & " Caso n° " & Format2(co) & " 2^ ambata - secondaria per esito negativo della 1^",1
Scrivi DataEstrazione(esf) & " " & SiglaRuota(r1) & " " & StringaEstratti(esf,r1) & " -> " & Format2(a) & " [" & pos1 & "°Posizione ]"
Scrivi DataEstrazione(esf) & " " & SiglaRuota(r2) & " " & StringaEstratti(esf,r2) & " -> " & Format2(b) & " [" & pos2 & "°Posizione ]"
Scrivi
ImpostaGiocata 2,ambata,ruote,posta,k,1
Call ImpostaProgressione(1,progress)
Gioca esf
End If
If ScriptInterrotto Then Exit For
Next
Scrivi : Scrivi : ScriviResoconto
End Sub
Esatto, poi naturalmente posso decidere io da quando far partire l'elaborato modificando il numero dell' estrazione giusto?
Sub Main
'Gioca l'ambata principale (1^ giocata) che inizia dall'estrazione scelta
'gioca le successive ambate in base all'esito della precedente
' se la precedente è negativa ricalcola l'ambata all'ultimo colpo (negativo)
' se la precedente è positiva ricalcola l'ambata al colpo positivo
'http://forum.lottoced.com/f12/script-per-ricalcolare-lambata-dopo-la-sortita-oppure-dopo-10-colpi-chi-mi-aiuta-108191/
Dim ruote(10)
Dim ambata(1)
Dim posta(1)
Dim progress(1,10)
posta(1) = 5
progress(1,01) = 05
progress(1,02) = 10
progress(1,03) = 15
progress(1,04) = 20
progress(1,05) = 25
progress(1,06) = 30
progress(1,07) = 35
progress(1,08) = 40
progress(1,09) = 45
progress(1,10) = 50
r1 = InputBox("INSERISCI LA RUOTA DEL 1° NUMERO",,1)
pos1 = CInt(InputBox("INSERISCI LA POSIZIONE DEL 1° NUMERO",,3))
r2 = InputBox("INSERISCI LA RUOTA DEL 2° NUMERO",,10)
pos2 = CInt(InputBox("INSERISCI LA POSIZIONE DEL 2° NUMERO",,3))
es = InputBox("INIZIO RICERCA ESTRAZIONE N°",,7501)
k = CInt(InputBox("COLPI DI GIOCO",,10))
fin = EstrazioneFin
Scrivi pos1& "°"&SiglaRuota(r1)&" + "& pos2&"°"&SiglaRuota(r2)& " METODO DI VALE79 - SCRIPT BY BLACKMORE/Rosanna ",1 : Scrivi
'-----------------------------------------------analisi archivio e giocate
Do Until es = fin
Messaggio "Estraz. in esame: " & es
a = Estratto(es,r1,pos1) : b = Estratto(es,r2,pos2)
numero = Fuori90(a + b)
ruote(1) = r1
co = co + 1
Scrivi String(80,"=") & " Caso n° " & Format2(co),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " -> " & Format2(a) & " [" & pos1 & "°Posizione ]"
Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " -> " & Format2(b) & " [" & pos2 & "°Posizione ]"
Scrivi
ambata(1) = numero
ImpostaGiocata 1,ambata,ruote,posta,k,1
Call ImpostaProgressione(1,progress)
Gioca es
If VerificaEsitoTurbo(ambata,ruote,es + 1,1,k,,RetEsito,,retestratti,retIDEstr,aRetRuote) Then
co = co + 1
esf = RetIdEstr
a = Estratto(esf,r1,pos1) : b = Estratto(esf,r2,pos2)
numero = Fuori90(a + b)
ambata(1) = numero
Scrivi String(80,"=") & " Caso n° " & Format2(co),1
Scrivi DataEstrazione(esf) & " " & SiglaRuota(r1) & " " & StringaEstratti(esf,r1) & " -> " & Format2(a) & " [" & pos1 & "°Posizione ]"
Scrivi DataEstrazione(esf) & " " & SiglaRuota(r2) & " " & StringaEstratti(esf,r2) & " -> " & Format2(b) & " [" & pos2 & "°Posizione ]"
Scrivi
ImpostaGiocata 1,ambata,ruote,posta,k,1
Call ImpostaProgressione(1,progress)
Gioca esf
ElseIf es + k <= Fin Then
co = co + 1
esf = es + k
a = Estratto(esf,r1,pos1) : b = Estratto(esf,r2,pos2)
numero = Fuori90(a + b)
ambata(1) = numero
Scrivi String(80,"=") & " Caso n° " & Format2(co),1
Scrivi DataEstrazione(esf) & " " & SiglaRuota(r1) & " " & StringaEstratti(esf,r1) & " -> " & Format2(a) & " [" & pos1 & "°Posizione ]"
Scrivi DataEstrazione(esf) & " " & SiglaRuota(r2) & " " & StringaEstratti(esf,r2) & " -> " & Format2(b) & " [" & pos2 & "°Posizione ]"
Scrivi
ImpostaGiocata 1,ambata,ruote,posta,k,1
Call ImpostaProgressione(1,progress)
Gioca esf
End If
If VerificaEsitoTurbo(ambata,ruote,esf + 1,1,k,,RetEsito,,retestratti,retIDEstr,aRetRuote) Then es = RetIdEstr Else es=esf+k
If es> fin Then Exit Do
If ScriptInterrotto Then Exit Do
Loop
Scrivi : Scrivi : Scrivi String(120,"=") : Scrivi: ScriviResoconto
End SubSub Main
'Gioca l'ambata principale (1^ giocata) che inizia dall'estrazione scelta
'gioca le successive ambate in base all'esito della precedente
' se la precedente è negativa ricalcola l'ambata all'ultimo colpo (negativo)
' se la precedente è positiva ricalcola l'ambata al colpo positivo
'http://forum.lottoced.com/f12/script-per-ricalcolare-lambata-dopo-la-sortita-oppure-dopo-10-colpi-chi-mi-aiuta-108191/
Dim ruote(10)
Dim ambata(1)
Dim posta(1)
Dim progress(1,20)
posta(1) = 5
progress(1,01) = 05
progress(1,02) = 10
progress(1,03) = 15
progress(1,04) = 20
progress(1,05) = 25
progress(1,06) = 30
progress(1,07) = 35
progress(1,08) = 40
progress(1,09) = 45
progress(1,10) = 50
progress(1,11) = 55
progress(1,12) = 60
progress(1,13) = 65
progress(1,14) = 70
progress(1,15) = 75
progress(1,16) = 80
progress(1,17) = 85
progress(1,18) = 90
progress(1,19) = 95
progress(1,20) = 100
r1 = InputBox("INSERISCI LA RUOTA DEL 1° NUMERO",,1)
pos1 = CInt(InputBox("INSERISCI LA POSIZIONE DEL 1° NUMERO",,1))
r2 = InputBox("INSERISCI LA RUOTA DEL 2° NUMERO",,6)
pos2 = CInt(InputBox("INSERISCI LA POSIZIONE DEL 2° NUMERO",,1))
es = InputBox("INIZIO RICERCA ESTRAZIONE N°",,8632)
k = CInt(InputBox("COLPI DI GIOCO",,20))
fin = EstrazioneFin
Scrivi pos1 & "°" & SiglaRuota(r1) & " + " & pos2 & "°" & SiglaRuota(r2) & " METODO DI VALE79 - SCRIPT BY BLACKMORE/Rosanna ",1 : Scrivi
'-----------------------------------------------analisi archivio e giocate
Do Until es = fin
Messaggio "Estraz. in esame: " & es
a = Estratto(es,r1,pos1) : b = Estratto(es,r2,pos2)
numero = Fuori90(a + b)
ruote(1) = r1
co = co + 1
Scrivi String(80,"=") & " Caso n° " & Format2(co),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " -> " & Format2(a) & " [" & pos1 & "°Posizione ]"
Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " -> " & Format2(b) & " [" & pos2 & "°Posizione ]"
Scrivi
ambata(1) = numero
ImpostaGiocata 1,ambata,ruote,posta,k,1
Call ImpostaProgressione(1,progress)
Gioca es
If VerificaEsitoTurbo(ambata,ruote,es + 1,1,k,,RetEsito,,retestratti,retIDEstr,aRetRuote) Then
co = co + 1
esf = RetIdEstr
a = Estratto(esf,r1,pos1) : b = Estratto(esf,r2,pos2)
numero = Fuori90(a + b)
ambata(1) = numero
Scrivi String(80,"=") & " Caso n° " & Format2(co),1
Scrivi DataEstrazione(esf) & " " & SiglaRuota(r1) & " " & StringaEstratti(esf,r1) & " -> " & Format2(a) & " [" & pos1 & "°Posizione ]"
Scrivi DataEstrazione(esf) & " " & SiglaRuota(r2) & " " & StringaEstratti(esf,r2) & " -> " & Format2(b) & " [" & pos2 & "°Posizione ]"
Scrivi
ImpostaGiocata 2,ambata,ruote,posta,k,1
Call ImpostaProgressione(1,progress)
Gioca esf
ElseIf es + k < Fin Then
co = co + 1
esf = es + k
a = Estratto(esf,r1,pos1) : b = Estratto(esf,r2,pos2)
numero = Fuori90(a + b)
ambata(1) = numero
Scrivi String(80,"=") & " Caso n° " & Format2(co),1
Scrivi DataEstrazione(esf) & " " & SiglaRuota(r1) & " " & StringaEstratti(esf,r1) & " -> " & Format2(a) & " [" & pos1 & "°Posizione ]"
Scrivi DataEstrazione(esf) & " " & SiglaRuota(r2) & " " & StringaEstratti(esf,r2) & " -> " & Format2(b) & " [" & pos2 & "°Posizione ]"
Scrivi
ImpostaGiocata 2,ambata,ruote,posta,k,1
Call ImpostaProgressione(1,progress)
Gioca esf
End If
If VerificaEsitoTurbo(ambata,ruote,esf + 1,1,k,,RetEsito,,retestratti,retIDEstr,aRetRuote) Then es = RetIdEstr Else es = esf + k
If es > fin Then Exit Do
If ScriptInterrotto Then Exit Do
Loop
Scrivi : Scrivi : Scrivi String(120,"=") : Scrivi: ScriviResoconto
End Sub
Anche tu te la cavi abbastanzaE' tra i migliori...
e non sono l'unico a pensarlo
Ciao Rosanna, mille e mille grazie veramente, lo script funziona come volevo io, grazie ancora
Non contento dei risultati ho apportato qualche modifica con esiti più interessanti
Il metodo prevede la somma del 1° di BA + il 1° di NA
Il tutto per 20 colpi
Con progressioni 5, 10, 15, 20, 25, 30, 35, 40, 45, 50, 55, 60, 65, 70, 75, 80, 85, 90, 95, 100.
Facendo conti alla mano carta e penna i valori economici non mi tornano, potresti controllare se le modifiche da me apportate al tuo script sono giuste?
Ecco lo script
Codice:Sub Main 'Gioca l'ambata principale (1^ giocata) che inizia dall'estrazione scelta 'gioca le successive ambate in base all'esito della precedente ' se la precedente è negativa ricalcola l'ambata all'ultimo colpo (negativo) ' se la precedente è positiva ricalcola l'ambata al colpo positivo 'http://forum.lottoced.com/f12/script-per-ricalcolare-lambata-dopo-la-sortita-oppure-dopo-10-colpi-chi-mi-aiuta-108191/ Dim ruote(10) Dim ambata(1) Dim posta(1) Dim progress(1,20) posta(1) = 5 progress(1,01) = 05 progress(1,02) = 10 progress(1,03) = 15 progress(1,04) = 20 progress(1,05) = 25 progress(1,06) = 30 progress(1,07) = 35 progress(1,08) = 40 progress(1,09) = 45 progress(1,10) = 50 progress(1,11) = 55 progress(1,12) = 60 progress(1,13) = 65 progress(1,14) = 70 progress(1,15) = 75 progress(1,16) = 80 progress(1,17) = 85 progress(1,18) = 90 progress(1,19) = 95 progress(1,20) = 100 r1 = InputBox("INSERISCI LA RUOTA DEL 1° NUMERO",,1) pos1 = CInt(InputBox("INSERISCI LA POSIZIONE DEL 1° NUMERO",,1)) r2 = InputBox("INSERISCI LA RUOTA DEL 2° NUMERO",,6) pos2 = CInt(InputBox("INSERISCI LA POSIZIONE DEL 2° NUMERO",,1)) es = InputBox("INIZIO RICERCA ESTRAZIONE N°",,8632) k = CInt(InputBox("COLPI DI GIOCO",,20)) fin = EstrazioneFin Scrivi pos1 & "°" & SiglaRuota(r1) & " + " & pos2 & "°" & SiglaRuota(r2) & " METODO DI VALE79 - SCRIPT BY BLACKMORE/Rosanna ",1 : Scrivi '-----------------------------------------------analisi archivio e giocate Do Until es = fin Messaggio "Estraz. in esame: " & es a = Estratto(es,r1,pos1) : b = Estratto(es,r2,pos2) numero = Fuori90(a + b) ruote(1) = r1 co = co + 1 Scrivi String(80,"=") & " Caso n° " & Format2(co),1 Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " -> " & Format2(a) & " [" & pos1 & "°Posizione ]" Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " -> " & Format2(b) & " [" & pos2 & "°Posizione ]" Scrivi ambata(1) = numero ImpostaGiocata 1,ambata,ruote,posta,k,1 Call ImpostaProgressione(1,progress) Gioca es If VerificaEsitoTurbo(ambata,ruote,es + 1,1,k,,RetEsito,,retestratti,retIDEstr,aRetRuote) Then co = co + 1 esf = RetIdEstr a = Estratto(esf,r1,pos1) : b = Estratto(esf,r2,pos2) numero = Fuori90(a + b) ambata(1) = numero Scrivi String(80,"=") & " Caso n° " & Format2(co),1 Scrivi DataEstrazione(esf) & " " & SiglaRuota(r1) & " " & StringaEstratti(esf,r1) & " -> " & Format2(a) & " [" & pos1 & "°Posizione ]" Scrivi DataEstrazione(esf) & " " & SiglaRuota(r2) & " " & StringaEstratti(esf,r2) & " -> " & Format2(b) & " [" & pos2 & "°Posizione ]" Scrivi ImpostaGiocata 2,ambata,ruote,posta,k,1 Call ImpostaProgressione(1,progress) Gioca esf ElseIf es + k < Fin Then co = co + 1 esf = es + k a = Estratto(esf,r1,pos1) : b = Estratto(esf,r2,pos2) numero = Fuori90(a + b) ambata(1) = numero Scrivi String(80,"=") & " Caso n° " & Format2(co),1 Scrivi DataEstrazione(esf) & " " & SiglaRuota(r1) & " " & StringaEstratti(esf,r1) & " -> " & Format2(a) & " [" & pos1 & "°Posizione ]" Scrivi DataEstrazione(esf) & " " & SiglaRuota(r2) & " " & StringaEstratti(esf,r2) & " -> " & Format2(b) & " [" & pos2 & "°Posizione ]" Scrivi ImpostaGiocata 2,ambata,ruote,posta,k,1 Call ImpostaProgressione(1,progress) Gioca esf End If If VerificaEsitoTurbo(ambata,ruote,esf + 1,1,k,,RetEsito,,retestratti,retIDEstr,aRetRuote) Then es = RetIdEstr Else es = esf + k If es > fin Then Exit Do If ScriptInterrotto Then Exit Do Loop Scrivi : Scrivi : Scrivi String(120,"=") : Scrivi: ScriviResoconto End Sub
La parte economica e di resoconto è quella che conosco meno... però nella precedente versione ho dimenticato di modificare un particolare...
e nel frattempo ho corretto questa riga...
ElseIf es + k <= Fin Then
Siccome Freet è precisino... meglio accontentarlo....
VAle abbi pazienza... prova a mettere le tue modifiche che credo siano solo sui parametri, sul listato ripostato... e controlla se così ti quadra.
Se non ti quadra... gentilmente segnala nuovamente i valori in modo da avere un aiuto...un riferimento su cui porre attenzione....(come hai appena fatto mentre scrivevo questo post) Ora vado a nanna e domani
tempo permettendo controllo meglio anche io, studiandomi un altro pezzettino di SpazioScript.
un salutone a tutti...
ps black poi rispondo al tuo mp...
