Script su Metodi Cabalistici, Ciclometrici & C.

[salvo50]

Ok

 

[salvo50]

l'ho modificato con le ultime richieste, quindi lo script del post 1091 è da riprendere fammi sapere se va bene

 

[filippo1963]

Ho provato lo script ok ora da estratto vedo che rendimento ha

 

[salvo50]

Ciao a Tutti

Lo script del post 1091 è da riprendere c'era qualche errore

 

[bubù]

Ho provato lo script ok ora da estratto vedo che rendimento ha

Ciao a Tutti

Lo script del post 1091 è da riprendere c'era qualche errore

Buongiorno, con l'autorizzazione di filippo1963 e se il bravissimo salvo50 è disponibile, proporrei una piccola modifica aggiungendo per la sorte dell'AMBO SECCO inserendo il numero che si ripete e un'altro Ambo Secco inserendo il Vertibile dello stesso numero che si ripete nelle 3 ruote. Chiedo scusa per il disturbo ma ho notato che potrebbe regalare qualche piccolo sorriso. Buona giornata a Tutti e un Grazie a salvo50 anche se non potrà accontentarmi nella modifica.

 

[bubù]

Se può servire questo era un mio vecchio studio sui numeri che si ripetono nella stessa estrazione in 3 ruote, in passato ha funzionato abbastanza bene pagando anche con qualche terno su ruota. Chiedo scusa in anticipo se c'è qualche errore nello script , qualche numero che si ripete e se non so postarlo correttamente. Se posso rendermi utile quello che faccio lo inserisco volentiere per tutti
'Numero Ripetuto su 3 Ruote x Bubu'
Sub Main()
Dim ruota(10),ruote(10),ruotee(10)
Dim posta(5),poste(5),postee(5)
Dim n(10),nn(10)
posta(1) = 3
posta(2) = 1
poste(2) = 1
postee(2) = 1
postee(3) = 1
k = 7 '<-------- numero colpi
ini = 10600 '<---- estrazione di inizio ricerca ( 6877 = 01-01-2000 )
fin = EstrazioneFin
For es = ini To fin '<------------------------------- ciclo estrazioni da controllare
For p = 1 To 5 '<-------------------------------- ciclo posizione estratti prima ruota
For r = 1 To 9 '<---------------------------- ciclo prima ruota
a = Estratto(es,r,p) '<------------------ estratto prima ruota
For rr = r + 1 To 10 '<--------------------- ciclo seconda ruota
For pp = 1 To 5 '<------------------- ciclo posizione estratti seconda ruota
b = Estratto(es,rr,pp) '<------------- estratto secondo ruota
If a = b Then '<--------------------- se trova due estratti uguali cerca anche il terzo
For rrr = rr + 1 To 12 '<------------- ciclo terza ruota
If rrr = 11 Then rrr = 12
For ppp = 1 To 5 ' <------- ciclo posizione estratti terza ruota
c = Estratto(es,rrr,ppp) '<---- estratto terza ruota
If c = a Then '<------------- se trova anche il terzo uguale fà la giocata
am = Diametrale(a)
am1 = Vert(am)
am2 = Fuori90(a*3)
am3 = Fuori90(Vert(a)*3 + 2)



Scrivi "________________________________________________________________",1
Scrivi
Scrivi "Numero: " & a & " ripetuto su " & Left(NomeRuota(r),2) & "-" & Left(NomeRuota(rr),2) & "-" & Left(NomeRuota(rrr),3),1
ruota(1) = r ' <----- prima ruota
ruota(2) = rr ' <----- seconda ruota
ruota(3) = rrr '<----- terza ruota

ruote(1) = r ' <----- prima ruota
ruote(2) = rr ' <----- seconda ruota
ruote(3) = rrr '<----- terza ruota
ruote(4) = 11
ruote(5) = 12



n(1) = am
n(2) = am1
ImpostaGiocata 1,n,ruota,posta,k '<--- imposta la giocata
n(1) = am
n(2) = a
ImpostaGiocata 2,n,ruota,poste,k '<--- imposta la giocata
n(1) = am
n(2) = Vert(a)
ImpostaGiocata 3,n,ruota,poste,k '<--- imposta la giocata
n(1) = am
n(2) = am2
ImpostaGiocata 4,n,ruota,poste,k '<--- imposta la giocata
n(1) = am
n(2) = am3
ImpostaGiocata 5,n,ruota,poste,k '<--- imposta la giocata
n(1) = am1
n(2) = a
ImpostaGiocata 6,n,ruota,poste,k '<--- imposta la giocata
n(1) = am1
n(2) = Vert(a)
ImpostaGiocata 7,n,ruota,poste,k '<--- imposta la giocata
n(1) = am1
n(2) = am2
ImpostaGiocata 8,n,ruota,poste,k '<--- imposta la giocata
n(1) = am1
n(2) = am3
ImpostaGiocata 9,n,ruota,poste,k '<--- imposta la giocata
nn(1) = am
nn(2) = am1
nn(3) = a
nn(4) = Vert(a)
nn(5) = am2
nn(6) = am3
ImpostaGiocata 10,nn,ruote,postee,k '<--- imposta la giocata


Gioca es '<----------------------------- gioca la formazione impostata
End If
Next
Next
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub

 

[salvo50]

Ciao a Tutti
Ciao Bubù
Appena posso lo faccio