ATTENZIONE SCRIPT INCOMPLETO E NON VERIFICATO NON UTILIZZARE.
Ciao.
Da un metodo del Sig.Vecchione ho elaborato questo script.
Visto che sono un po' imbranato può essere che abbia utilizzato dei metodi "barbari".
Lo script sembra funzionare tuttavia è incompleto in quanto quando si calcolano le previsioni con i sommativi
se si ottengono numeri uguali in terzina questa non va giocata ne per l'ambo ne per il terno quindi va esclusa.
Questa ultima parte non so come implementarla nello script pertanto chiedo a voi se potete aiutarmi.
Il metodo è stato elaborato in data precedente a sabato scorso e da risultati sorprendenti.
È entrato in esecuzione attiva da sabato con risultati per ora negativi.
Grazie.
P.S. Il metodo postato dal Sig. Vecchione lo trovate qui.
http://forum.lottoced.com/showthread.php?4406-**PER-ELBAZ**-LE-MIGLIORI-SETTE-TERZINE
Chiedo scusa se mancano alcuni abili scripter, sono abbastanza nuovo di questo luogo e non conosco gli altri.
Ciao.
Da un metodo del Sig.Vecchione ho elaborato questo script.
Visto che sono un po' imbranato può essere che abbia utilizzato dei metodi "barbari".
Lo script sembra funzionare tuttavia è incompleto in quanto quando si calcolano le previsioni con i sommativi
se si ottengono numeri uguali in terzina questa non va giocata ne per l'ambo ne per il terno quindi va esclusa.
Questa ultima parte non so come implementarla nello script pertanto chiedo a voi se potete aiutarmi.
Il metodo è stato elaborato in data precedente a sabato scorso e da risultati sorprendenti.
È entrato in esecuzione attiva da sabato con risultati per ora negativi.
Grazie.
P.S. Il metodo postato dal Sig. Vecchione lo trovate qui.
http://forum.lottoced.com/showthread.php?4406-**PER-ELBAZ**-LE-MIGLIORI-SETTE-TERZINE
Chiedo scusa se mancano alcuni abili scripter, sono abbastanza nuovo di questo luogo e non conosco gli altri.
Codice:
Sub Main()
ColoreTesto 1
Scrivi "============================== M E T O D O BY VECCHIONE ANTONIO ================================",1
ColoreTesto 0
Scrivi "======================= SETTE TERZINE PER AMBO E TERNO SULLA RUOTA NAZIONALE =======================",1
ColoreTesto 1
Scrivi "======================================= SI GIOCA X 3 COLPI =======================================",1
ColoreTesto 2
Scrivi "=========================== SE NEL CALCOLO CI SONO NUMERI DOPPI NON SI GIOCA LA TERZINA ===============",1
ColoreTesto 0
Scrivi "========================= A POSTA FISSA O IN PROGRESSIONE SCEGLIETE VOI=============================",1
ColoreTesto 1
Scrivi "======================================= LISTATO BY ELBAZ ======================================",1
ColoreTesto 1
Scrivi "==============================================================================================",1
Scrivi
ColoreTesto 0
Dim rt(1),pt(3),n1(3)
pt(2) = 1
pt(3) = 1
clp = 3 'colpi di gioco
rt(1) = 12 '1a ruota di gioco
ini = EstrazioneFin - 140
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 11 Then '11 Estrazione del mese
casi = casi + 1
Scrivi String(60,"=") & " Caso n° " & casi,1
co = co + 1
I = 1
For I = 1 To 7
If I = 1 Then
n1(1) = Fuori90(Estratto(es,3,1) + 32):n1(2) = Fuori90(Estratto(es,3,5) + 02):n1(3) = Fuori90(Estratto(es,3,1) + 66)
End If
If I = 2 Then
n1(1) = Fuori90(Estratto(es,3,1) + 33):n1(2) = Fuori90(Estratto(es,1,3) + 48):n1(3) = Fuori90(Estratto(es,3,1) + 76)
End If
If I = 3 Then
n1(1) = Fuori90(Estratto(es,3,1) + 61) :n1(2) = Fuori90(Estratto(es,10,4) + 39):n1(3) = Fuori90(Estratto(es,1,4) + 2)
End If
If I = 4 Then
n1(1) = Fuori90(Estratto(es,3,1) + 24) :n1(2) = Fuori90(Estratto(es,1,2) + 32):n1(3) = Fuori90(Estratto(es,2,5) + 22)
End If
If I = 5 Then
n1(1) = Fuori90(Estratto(es,3,1) + 39):n1(2) = Fuori90(Estratto(es,5,3) + 72):n1(3) = Fuori90(Estratto(es,3,1) + 09)
End If
If I = 6 Then
n1(1) = Fuori90(Estratto(es,3,1) + 54):n1(2) = Fuori90(Estratto(es,3,3) + 51):n1(3) = Fuori90(Estratto(es,1,1) + 88)
End If
If I = 7 Then
n1(1) = Fuori90(Estratto(es,3,1) + 88):n1(2) = Fuori90(Estratto(es,8,4) + 63):n1(3) = Fuori90(Estratto(es,3,1) + 16)
End If
ImpostaGiocata 2,n1,rt,pt,clp
Gioca es
Next
End If
Next
Scrivi : Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub
Ultima modifica:
