Rosanna
Super Member >PLATINUM<
Devi riprendere il listato... dove ci sono + modifiche in tutto compreso quella riga...
controlla bene...
controlla bene...
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 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
Else
Exit Do 'se la primissima estrazione è in corso a fine archivio esci
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
Ultima modifica:
Buona Giornata a Tutti.
per questo preferisco controllare... e così facendo imparo sempre qualcosa... tantè...
