Per Roberto57 e non solo

[mastrogino]

come promesso ti inserisco lo script
questo metodo e buono x chi gioca solo le ambate , funziona quando e vi sono due numeri isotopi
e in qualsiasi ruota , consecutiva e non

ULTIMA VINCITA.......
05.03.2013 CA 60.53.16.08.86 ---> isotopo 60 - Posiz. 1
05.03.2013 VE 60.69.21.67.05 ---> isotopo 60 - Posiz. 1
---------------------------------------------------------------------------------------------------- Caso n° 329
Estrazione generatrice del pronostico 08660 [ 28 - 05/03/2013]
G 0001
Numeri in gioco : 66.12 su CA VE per Estratto,Ambo
V N. [66.12 ] [CA] [66 .. .. .. ..] C. 1 Estratto 08661 [ 29 - 07/03/2013]

In corso per altre 8 estrazioni



Sub Main
Scrivi"Listato per ricerca Numero iso " & " Listed by Mike58",1
Dim k(6)
Dim ruote(2)
Dim posta(5)

posta(1) = 1
posta(2) = 1
tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",100))
clp = CInt(InputBox("Per quanti colpi di gioco ?","COLPI",9))

co = 0
ini = EstrazioneFin - tmp
fin = EstrazioneFin
For es = ini To fin
Call AvanzamentoElab(Ini,fin,es)
Messaggio(es)
For r1 = 1 To 10
For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12
For p1 = 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r2,p1)
If n1 = n2 Then
co = co + 1
ColoreTesto 0
ruote(1) = r1
ruote(2) = r2
'--------- Calcolo Numeri ma mettere in gioco-------------
a1 = Decina(n1)' decina n1
a2 = Cadenza(n1)' cadenza n1
a3 = Fuori90(a1 + a2)' somma unità e dicina
a4 = Vert(a3)' vertibile somma
k(1) = Fuori90(a3 + a4)
k(2) = Fuori90(k(1)*7)
'---------------------------------------------------------
Scrivi String(100,"=")
ColoreTesto 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " ---> isotopo " & n1 & " - " & " Posiz. " & p1,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " ---> isotopo " & n2 & " - " & " Posiz. " & p1,1
Scrivi String(100,"-") & " Caso n° " & co
ColoreTesto 0
ImpostaGiocata 1,k,ruote,posta,clp,2
Gioca es,1
End If
Next
Next
Next
Next
Scrivi
Scrivi "Casi Riscontrati n° " & CInt(co)
ScriviResoconto
End Sub

 

[Pilot]

Puoi cortesemente esporre il metodo a parole? Grazie

 

[mastrogino]

Puoi cortesemente esporre il metodo a parole? Grazie

ciao,...........
trovi tutte le info in questo post ....in 2° pagina


http://forum.lottoced.com/f12/chi-s...listato-x-un-bene-di-tutti-102317/index2.html

 

[Roberto57]

Grazie molto gentile Gioacchino, già dato un'occhiata, è molto utile anche per abbinamenti/convergenze, non sono un esperto di spaziometria, (sono solo un giocatore) però cerco di imparare a muovermi nelle varie funzioni.
Naturalmente non sempre si possono giocare due ambate su due ruote, ma io tento sempre la posizione.
In più ho notato che nei colpi stabiliti può uscire più volte sulla stessa ruota
Stavo già giocando sulla NZ 63 e proprio oggi lo volevo mollare......ma un paio di colpi lo gioco ancora

"A mio modesto parere Luigi è un fenomeno ad aver progettato questo programma."

Buon proseguimento di giornata