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.
Ma la 3° estrazione a ritroso ho in avanti ?quote:Originally posted by keeper
X rubino Appena puoi potresti realizzarmi questo piccolo script? su 2 estrazioni consecutive mi evidenzi i numeri in comune e mi fai il controllo se sortiti sulla terza estrazione. iniziamo cosi e poi lo si fa crescere.attendo suggerimenti anche da cebino
Sub Main()
ImpostaArchivio10ELotto(2)
'-------------------------------------------------------------------------------------------------------------------------------
Dim num(1)
Dim nm(20)
fin = EstrazioniArchivioDL
storia = InputBox("Estrazioni Iniziale..",,fin)
k = InputBox("verifica n.colpi",,2)
ColoreTesto 2
Scrivi " Ricerca Numeri che si sono ripetuti in 2 concorsi consecutivi nel range dal....al...." & Storia & "/" & DataEstrazioneDL(storia) & " - " & fin & "/" & DataEstrazioneDL(fin)
Scrivi " Metodo verifica quanti si ripetono per la terza volta nei 2 concorsi successivi (script Keep)"
Scrivi "_________________________________________________________________________________________________________________________________"
Scrivi
ColoreTesto 0
Ini = storia - 1
For Ini = Ini + 1 To fin
idestr = Ini
numeri = ""
'''carica schiera con 20 numeri estratti
For h = 1 To 20
numeri = numeri & Format2(EstrattoDL(idestr,h)) & " "
Next
ColoreTesto 1
Scrivi GetInfoEstrazioneDL(idestr) & "...Estratti..." & numeri
Scrivi "____________________________________________________________________________________________________"
ColoreTesto 0
'''carica schiera con 20 numeri estratti
For h = 1 To 20
num(1) = EstrattoDL(idestr,h)
pres = SerieFreqDL(idestr - 1,idestr,num,1)
If pres = 2 Then
nd = 1
ImpostaGiocataDL nd,num,1,k
GiocaDL nd
End If
Next
Next
ScriviResocontoDL
End Sub
Sub Main()
ImpostaArchivio10ELotto(2)
'-------------------------------------------------------------------------------------------------------------------------------
Dim num(2)
Dim nm(20)
fin = EstrazioniArchivioDL
storia = InputBox("Estrazioni Iniziale..",,fin)
k = InputBox("verifica n.colpi",,2)
s1 = InputBox("esamina solo presenze = 2 ",,0)
s2 = InputBox("esamina distanza 4 tra 2 estratti",,0)
ColoreTesto 2
Scrivi " Ricerca Numeri che si sono ripetuti in 2 concorsi consecutivi nel range dal....al...." & Storia & "/" & DataEstrazioneDL(storia) & " - " & fin & "/" & DataEstrazioneDL(fin)
Scrivi " Metodo verifica quanti si ripetono per la terza volta nei 2 concorsi successivi (script Keep)"
Scrivi "_________________________________________________________________________________________________________________________________"
Scrivi
ColoreTesto 0
Ini = storia - 1
For Ini = Ini + 1 To fin
idestr = Ini
numeri = ""
'''carica schiera con 20 numeri estratti
For h = 1 To 20
numeri = numeri & Format2(EstrattoDL(idestr,h)) & " "
Next
ColoreTesto 1
Scrivi GetInfoEstrazioneDL(idestr) & "...Estratti..." & numeri
Scrivi "____________________________________________________________________________________________________"
ColoreTesto 0
'''''una condizione alla volta 0 s1 o s2
If s1 <> 0 Then s2 = 0
If s2 <> 0 Then s1 = 0
''''----------------------------------------------------------------------------------------------------
If s1 = 2 And s2 = 0 Then
''''''vede se presenze = 2 in 2 concorsi
For h = 1 To 20
num(1) = EstrattoDL(idestr,h)
pres = SerieFreqDL(idestr - 1,idestr,num,1)
If pres = 2 Then
nd = 1
ImpostaGiocataDL nd,num,1,k
GiocaDL nd
End If
Next
End If
''''----------------------------------------------------------------------------------------------------
''''esamina distanza (x) tra 2 estratti
If s2 <> 0 And s1 = 0 Then
For h = 1 To 19
h1 = h
For h1 = h1 + 1 To 20
dis = EstrattoDL(idestr,h1) - EstrattoDL(idestr,h)
If Int(s2) = dis Then
num(1) = EstrattoDL(idestr,h)
num(2) = EstrattoDL(idestr,h1)
ColoreTesto 1
Scrivi idestr & " " & DataEstrazioneDL(idestr) & "....Estratti aventi Distanza richiesta..." & dis & " ...... " & Format2(num(1)) & " - " & Format2(num(2))
ColoreTesto 0
nd = 1
ImpostaGiocataDL nd,num,1,k
GiocaDL nd
End If
Next
Next
End If
''''----------------------------------------------------------------------------------------------------
Next
ScriviResocontoDL
End Sub
Sub Main()
ImpostaArchivio10ELotto(2)
'-------------------------------------------------------------------------------------------------------------------------------
Dim num(2)
Dim nm(20)
Dim lun(90)
Dim anm(90)
fin = EstrazioniArchivioDL
storia = InputBox("Estrazioni Iniziale..",,fin)
lis = InputBox("verifica garanzia 2=Ambo 3=Terno 4=Quaterna 5=Cinquina",,4)
s1 = InputBox("esamina solo presenze = 2 ",,2)
s2 = InputBox("esamina distanza (x) tra 2 estratti",,5)
ColoreTesto 2
Scrivi " Ricerca Numeri che si sono ripetuti in 2 concorsi consecutivi nel range dal....al...." & Storia & "/" & DataEstrazioneDL(storia) & " - " & fin & "/" & DataEstrazioneDL(fin)
Scrivi " Metodo verifica quanti si ripetono per la terza volta nei 2 concorsi successivi (script Keep)"
Scrivi "_________________________________________________________________________________________________________________________________"
Scrivi
ColoreTesto 0
Ini = storia - 1
For Ini = Ini + 1 To fin
z = z + 1
idestr = Ini
numeria = ""
numerib = ""
ok = 0
lunghetta = ""
'''azzera schiere
For j = 1 To 90
anm(j) = 0
lun(j) = 0
Next
'''carica schiera con 20 numeri estratti
For h = 1 To 20
numeria = numeria & Format2(EstrattoDL(idestr - 1,h)) & " "
numerib = numerib & Format2(EstrattoDL(idestr,h)) & " "
Next
ColoreTesto 0
Scrivi "____________________________________________________________________________________________________"
Scrivi GetInfoEstrazioneDL(idestr - 1) & "...Estratti..." & numeria
Scrivi GetInfoEstrazioneDL(idestr) & "...Estratti..." & numeriB
ColoreTesto 2
''''----------------------------------------------------------------------------------------------------
num(1) = 0
num(2) = 0
''''''vede se presenze = 2 in 2 concorsi
For h = 1 To 20
num(1) = EstrattoDL(idestr,h)
pres = SerieFreqDL(idestr - 1,idestr,num,1)
If pres = 2 Then
ok = ok + 1
lun(ok) = Format2(num(1))
End If
Next
''''----------------------------------------------------------------------------------------------------
''''esamina distanza (x) tra 2 estratti
For h = 1 To 19
h1 = h
For h1 = h1 + 1 To 20
dis = EstrattoDL(idestr,h1) - EstrattoDL(idestr,h)
If Int(s2) = dis Then
num(1) = EstrattoDL(idestr,h)
num(2) = EstrattoDL(idestr,h1)
anm(num(1)) = Format2(num(1))
anm(num(2)) = Format2(num(2))
ColoreTesto 1
Scrivi "Rilevato...." & idestr & " " & DataEstrazioneDL(idestr) & "....Estratti aventi Distanza richiesta..." & dis & " ...... " & Format2(num(1)) & " - " & Format2(num(2))
End If
Next
Next
For j = 1 To 90
If anm(j) > 0 Then
ok = ok + 1
lun(ok) = anm(j)
End If
Next
''''----------------------------------------------------------------------------------------------------
EliminaRipetuti lun
For j = 1 To 90
If lun(j) > 0 Then lunghetta = lunghetta & Format2(lun(j)) & " "
Next
ColoreTesto 2
Scrivi "...numeri.in gioco.dal.." & idestr + 1 & "..." & lunghetta
ColoreTesto 0
If idestr <= fin - 1 Then
If ok >= 1 Then
If VerificaEsitoDL(lun,idestr + 1,lis,,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
ColoreTesto 2
Call Scrivi(GetInfoEstrazioneDL(RetIdEstr) & " " & RetEsito & " colpi : " & RetColpi & " " & RetEstratti)
combin1 = combin1 + 1
ColoreTesto 0
If RetEsito = "Dieci" Then
Diecitotali = Diecitotali + 1
End If
If RetEsito = "Nove" Then
Novetotali = Novetotali + 1
End If
If RetEsito = "Otto" Then
Ottototali = Ottototali + 1
End If
If RetEsito = "Sette" Then
Settetotali = Settetotali + 1
End If
If RetEsito = "Sestina" Then
seitotali = seitotali + 1
End If
If RetEsito = "Cinquina" Then
Cinquitota
allora per favore applica i fissi e verifica entro tre colpi grazie.quote:Originally posted by rubino
keeper
scusa per aggiungere una decina a scelta non c'è problema, già fatto,
in lunga e non in terzine, perchè altrimenti ottengo più sistemini da controllare e poi diventa un problema per lo sviluppo con i ridotti, che con lo script non è proprio il massimo da impostare,
poichè i sistemi sono variabili di lunghezza numeri, e diventa complesso gestire più sviluppi ridotti in modo automatico.
inoltre
non essendo possibile gestire i comandi
ImpostaGiocataDL
GiocaDL
per il limite posto all'insieme di 10 numeri, mi vede costretto ad usare il VerificaEsitoDL
che verifica gli esiti, ma non è possibile ottenere un riepilogo delle giocate, dei costi, delle perdite o utile etc.....
ma si ottiene solo i punteggi ottenuti nelle varie fasce
ed un elenco al massimo entro quanti colpi.
inoltre vi è un'altro problemino, che le lunghe in sistemini,
arrivano al massimo a 10 numeri (punteggio massimo per il 10eLotto)
ma come controllo è possibile arrivare a circa 15 punti su 20 estratti, ma lo script non mi restituisce le descrizioni esatte dei
punti realmente centrati.
ho fatto segnalazione a Luigi, per avere info al riguardo.
devi pazientare!
-----------------------------
hobby e passatempo, il bello dello studio e della ricerca
Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.
Sub Main()
ImpostaArchivio10ELotto(2)
'-------------------------------------------------------------------------------------------------------------------------------
Dim num(2)
Dim nm(40)
Dim lun(90)
Dim anm(90)
fin = EstrazioniArchivioDL
storia = InputBox("Estrazioni Iniziale..",,fin)
lis = InputBox("verifica garanzia 4=Quaterna 5=Cinquina 6=Sestina 7=Settina 8=Ottina 9=Novina 10=10 punti 11=11 punti 12=12 punti 13=13punti",,6)
s1 = InputBox("esamina solo presenze = 2 ",,2)
s2 = InputBox("esamina distanza (x) tra 2 estratti",,1)
s3 = InputBox("vuoi aggiungere fissi una 1 decina ? ",,27)
s4 = InputBox("Verifica in n.colpi..",,3)
ColoreTesto 2
Scrivi " Ricerca Numeri che si sono ripetuti in 2 concorsi consecutivi nel range dal....al...." & Storia & "/" & DataEstrazioneDL(storia) & " - " & fin & "/" & DataEstrazioneDL(fin)
Scrivi " Metodo verifica quanti si ripetono per la terza volta nei 2 concorsi successivi (script Keep)"
Scrivi "_________________________________________________________________________________________________________________________________"
Scrivi
ColoreTesto 0
Ini = storia - 1
For Ini = Ini + 1 To fin
idestr = Ini
numeria = ""
numerib = ""
ok = 0
lunghetta = ""
z = z + 1
'''azzera schiere
For j = 1 To 90
anm(j) = 0
lun(j) = 0
Next
'''carica schiera con 20 numeri estratti
For h = 1 To 20
numeria = numeria & Format2(EstrattoDL(idestr - 1,h)) & " "
numerib = numerib & Format2(EstrattoDL(idestr,h)) & " "
Next
ColoreTesto 0
Scrivi "____________________________________________________________________________________________________"
Scrivi GetInfoEstrazioneDL(idestr - 1) & "...Estratti..." & numeria
Scrivi GetInfoEstrazioneDL(idestr) & "...Estratti..." & numeriB
ColoreTesto 2
''''----------------------------------------------------------------------------------------------------
num(1) = 0
num(2) = 0
''''''vede se presenze = 2 in 2 concorsi
For h = 1 To 20
num(1) = EstrattoDL(idestr,h)
pres = SerieFreqDL(idestr - 1,idestr,num,1)
If pres = 2 Then
ok = ok + 1
lun(ok) = Format2(num(1))
End If
Next
''''----------------------------------------------------------------------------------------------------
''''esamina distanza (x) tra 2 estratti
For h = 1 To 19
h1 = h
For h1 = h1 + 1 To 20
dis = EstrattoDL(idestr,h1) - EstrattoDL(idestr,h)
If Int(s2) = dis Then
num(1) = EstrattoDL(idestr,h)
num(2) = EstrattoDL(idestr,h1)
anm(num(1)) = Format2(num(1))
anm(num(2)) = Format2(num(2))
ColoreTesto 1
Scrivi "Rilevato...." & idestr & " " & DataEstrazioneDL(idestr) & "....Estratti aventi Distanza richiesta..." & dis & " ...... " & Format2(num(1)) & " - " & Format2(num(2))
End If
Next
Next
For j = 1 To 90
If anm(j) > 0 Then
ok = ok + 1
lun(ok) = anm(j)
End If
Next
''''------facoltativo a scelta--------------------------------------------------------------------------
'''aggiungere una decina come fissi
If s3 > 0 Then
de = s3
For x = 1 To 10
ok = ok + 1
lun(ok) = de
de = de + 1
Next
End If
''''----------------------------------------------------------------------------------------------------
EliminaRipetuti lun
ctr = 0
For j = 1 To 90
If lun(j) > 0 Then
lunghetta = lunghetta & Format2(lun(j)) & " "
ctr = ctr + 1
End If
Next
ColoreTesto 2
Scrivi "...numeri.in gioco..." & ctr & "......dal........" & idestr + 1 & "..." & lunghetta
ColoreTesto 0
If idestr <= fin - 1 Then
If