Novità

SCRIPT MetodoCavallo migliorabile

fillotto

Advanced Member >PLATINUM<
Questo script prende in esame l' uscita di due numeri uguali (a cavallo tra una ruota e un altra consecutive quindi ad esempio il 5° di BA e il 1° di CA ecc..)
Così come impostato prendo in esame 200 estrazioni (in questo modo è positivo se si aumentano le estrazioni va in negativo)
Si mette in gioco un ambo su tutte con una terzina quindi si potrebbe
"resistere" x 8 estraz senza remissione
Di buono ha che non è un sommativo .
I tre numeri sono i due uguali + i due sottostanti bisognerebbe provarlo nelle 2 ruote di base.....
Ecco lo script :
Sub Main()
Dim rt(11),pta(2),nr(4)

ex = InputBox("Quante estrazioni controllo?",,200)

ini = EstrazioneFin - ex
fin = EstrazioneFin
For es = ini To fin
For pri = 1 To 9

nr(1) = Estratto(es,pri,5)
nr(2) = Estratto(es,pri+1,1)
nr(3) = Estratto(es+1,pri,5)
nr(4) = Estratto(es+1,pri+1,1)

If nr(1) = nr(2) Then
Messaggio es

rt(11) = 11
pta(2) = 1
k = 8
EliminaRipetuti(nr)
ImpostaGiocata 1,nr,rt,pta,k,2


casi = casi + 1
Scrivi String(70,"=") & " Caso n° " & casi,1
Scrivi

Gioca es+1
End If
Next
Next
Scrivi
Scrivi "Casi totali (" & casi & ")",1
ScriviResoconto
End Sub
 
quote:Originally posted by keeper

c'è un errore
dove? lo riposto con insert code, a me va bene :

Codice:
Sub Main()
Dim rt(11),pta(2),nr(4)

ex = InputBox("Quante estrazioni controllo?",,200)

ini = EstrazioneFin - ex
fin = EstrazioneFin
For es = ini To fin
For pri = 1 To 9

nr(1) = Estratto(es,pri,5)
nr(2) = Estratto(es,pri + 1,1)
nr(3) = Estratto(es + 1,pri,5)
nr(4) = Estratto(es + 1,pri + 1,1)

If nr(1) = nr(2) Then
Messaggio es

rt(11) = 11
pta(2) = 1
k = 8
EliminaRipetuti(nr)
ImpostaGiocata 1,nr,rt,pta,k,2


casi = casi + 1
Scrivi String(70,"=") & " Caso n° " & casi,1
Scrivi

Gioca es + 1
End If
Next
Next
Scrivi
Scrivi "Casi totali (" & casi & ")",1
ScriviResoconto
End Sub
 
Sub Main
Dim rt(11),pta(2),nr(4),es
Dim Ini,fin,k,casi,pri

es = InputBox("Quante estrazioni controllo?","Estrazioni",200)

Ini = EstrazioneFin - es
fin = EstrazioneFin
For es = Ini To fin
For pri = 1 To 9

nr(1) = Estratto(es,pri,5)
nr(2) = Estratto(es,pri + 1,1)
nr(3) = Estratto(es + 1,pri,5)
nr(4) = Estratto(es + 1,pri + 1,1)

If nr(1) = nr(2) Then
Messaggio es

rt(11) = 11
pta(2) = 1
k = 8
EliminaRipetuti(nr)
ImpostaGiocata 1,nr,rt,pta,k,2


casi = casi + 1
Scrivi String(70,"=") & " Caso n° " & casi,1
Scrivi

Gioca es + 1
End If
Next
Next
Scrivi
Scrivi "Casi totali (" & casi & ")",1
ScriviResoconto

End Sub

cosi funziona. Ciao.:)


jluke
 
Ciao luigi se mi leggi mi puoi spiegare perchè succede questo?
Sia Keeper che jluke007 affermano che c'è un errore in questo mio script mentre a me funziona .
Questa mattina l'ho riprovato e non funzionava neanche a me mi dava l'errore qui: "Gioca es+1"
A naso ho capito che dipendeva dall'aggiornamento dell'archivio del lotto.
Aggiornato l'archivio è tornato a funzionare ma il perchè non l'ho capito [?] è come se sapesse che esistono altre estrazioni!!
(sono collegato ad internet quando faccio le prove)
Ci puoi illuminare??
 
Ciao , si keeper ha ragione c'è un errore di logica.
Tu fai un ciclo da inizio a fine controllato dalla variabile es ,
solo che all'interno del ciclo ad un certo punto usi es +1
ora ad un certo punto es diventera uguale a fine pertanto
es+1 va fuori dai limiti.
Piu teoria e meno smanettamenti !
Ciao !
 
...con il permesso di LuigiB, provo a dare una spiegazione:
secondo me quando bisogna cercare le condizioni su due estrazioni
consecutive, è meglio trovarli nell'estrazione di base (es) e la
successiva nella precedente (es-1), così facendo abbiamo sempre
le previsioni disponibili in riferimento all'archivio esistente,
mentre facendo (es+1) con l'estrazione base ultima(es), es+1 non
esiste nell'archivio perchè deve ancora avvenire.

In riferimento a quando detto, allego lo script esistente modificato.

Ciao, Enplein.

Codice:
Sub Main
Dim rt(11),pta(2),nr(4),es
Dim Ini,fin,k,casi,pri
rs = InputBox("Quante estrazioni controllo?","Estrazioni",200)
Ini = EstrazioneFin - rs
fin = EstrazioneFin
For es = Ini To fin
Messaggio es
	For pri = 1 To 10
	nr(1) = Estratto(es,pri,5) : nr(2) = Estratto(es,pri + 1,1)
	nr(3) = Estratto(es -1,pri,5) : nr(4) = Estratto(es -1,pri + 1,1)
		If nr(3) = nr(4) Then
		rt(11) = 11 : pta(2) = 1 : k = 8
		casi = casi + 1
Scrivi String(70,"=") & " Caso n° " & casi,1
Scrivi DataEstrazione (es-1)&" "& SiglaRuota (pri)&" 5a Pos. "& Format2 (nr(3))&" "& SiglaRuota (pri+1)&" 1a Pos. "& Format2 (nr(4))
Scrivi DataEstrazione (es)&" "& SiglaRuota (pri)&" 5a Pos. "& Format2 (nr(1))&" "& SiglaRuota (pri+1)&" 1a Pos. "& Format2 (nr(2))
EliminaRipetuti(nr)
ImpostaGiocata 1,nr,rt,pta,k,2
Gioca es 
		End If
	Next
Next
Scrivi
Scrivi "Casi totali (" & casi & ")",1
ScriviResoconto
End Sub
 
Ringrazio Enplein e luigi per gli ulteriori tasselli di conoscenza scriptologica,tuttavia quello che ancora non ho capito è perchè
pur essendo sbagliato il concetto del +1 perchè quando aggiorno le estrazioni funziona lo stesso ottenendo lo stesso output di emplein?
 
perche come limiti usi EstrazioneIni ed EstrazioneFin che sono niente
altro che i limiti del range impostati nel programam con la barretta rosa.
Percio magari le estrazioni totali sono 8000 , pero il range impostato
è impostato da EstrazioneIni = 1 e EstrazioneFin = 7999 eccolo li che col +1 in effetti puoi leggere l'estrazioen 8000 ovvero 7999+1
ciao
 
quote:Originally posted by LuigiB

perche come limiti usi EstrazioneIni ed EstrazioneFin che sono niente
altro che i limiti del range impostati nel programam con la barretta rosa.
Percio magari le estrazioni totali sono 8000 , pero il range impostato
è impostato da EstrazioneIni = 1 e EstrazioneFin = 7999 eccolo li che col +1 in effetti puoi leggere l'estrazioen 8000 ovvero 7999+1
ciao
Grazie Luigi,sto scoprendo molte cose .
Il problema è sempre il tempo che uno gli dedica, è vero che per imparare l'ideale sarebbe fare ex novo un lavoro, ma la tentazione
di usufruire di aiuti tipo cambiare pezzi già fatti è troppo grande
nella speranza di fare prima.
Detto questo ti chiedo un piccolissimo aiuto (mi basta un si o un no se è fattibile), ho letto della funzione "Verifica esito"
Io ho questo codice

nr(1) = Fuori90(Estratto(es,7,3)* 2 + Estratto(es,7,5))
nr(2) = Fuori90(Estratto(es,7,1)* 6 + Estratto(es,7,2))
nr(3) = Fuori90(Estratto(es,7,2)* 15 + Estratto(es,7,4))
che mi ricava i numeri che moltiplicati che so x2 o altro , potrei mettere una variabile e un ciclo For e verificare con "verifica esito " quale sia la combinazione migliore ?
Quel pezzo di codice si riferisce a tre numeri ricavabili su PA fatti con prove unpo come si fa con metodi sommativi dove si ricavano gli adattatori quindi cose già belle e fatte ma vuoi mettere la soddisfazione di capire tuttol'ingranaggio??:D:D
Ecco vorrei sapere se sono sulla strada giusta solo SI o NO
 
certo verificaesito prende in input dei numeri e appunto ne verifica
l'esito sulle ruote e per le sorti previste.
Ovviamente la difficolta di un simile script non risiede nell'uso di questa funzione ma nella gestione di tuttto il codice intorno.
In definitiva VerificaEsito è un po' come la funzione Gioca ma mentre
la funzione Gioca fa tutto da sola verificaesito e il codice che gli sta introno devono eseere gestiti dal programmatore.
E' utile perche ci consente di agire piu a basso livello senza
seguire lo schema imposto dalla funzione Gioca
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 25 luglio 2025
    Bari
    53
    75
    06
    08
    43
    Cagliari
    62
    52
    59
    55
    72
    Firenze
    54
    13
    56
    14
    62
    Genova
    07
    84
    21
    58
    20
    Milano
    27
    28
    62
    61
    04
    Napoli
    16
    43
    31
    68
    50
    Palermo
    72
    34
    60
    40
    66
    Roma
    46
    72
    66
    36
    11
    Torino
    77
    29
    23
    11
    48
    Venezia
    24
    77
    41
    48
    21
    Nazionale
    70
    83
    17
    40
    71
    Estrazione Simbolotto
    Nazionale
    09
    13
    05
    38
    03

Ultimi Messaggi

Indietro
Alto