INCREDIBBILE TALE PADRE TALE ..FIGLIO .MITICO

[Roby]

DEVO FARE UNA PRECISAZIONE ...LA PREV. SULLA NAZ. E BA NN DERIVA DALL
METODO SIRIUS MA DA UN'ALTRO METODO......" FIGLIO SUO"
LO POSTI QUI NN X SBAGLIO MA X MOTIVI TECNICI
CHIEDO SCUSA X IL DISIORIENTAMENTO RECANDOVI

BA NAZ
AMBATE PRINCIPALI 72.27.
ABBINAMENTI
71.73.26.28.
------------------------------------------------------------
NA.RO.
AMBATE PRINCIPALI 26.62.
ABBINAMENTI
25.27.61.63.
-------------------------------------------------------------

FUORI COLPI ANCORA CI REGALA
AMBO SU TT
E AMBATA SU RUOTA.....MITICO SIRIUS


se credi di fare qualcosa per te e il prossimo.....fallo il coraggio ha in sè genio potere magia

mastrogino

 

[pam63]

questo medoto sabato ha dato il terno a ve
32.22.24
era in gioco su to e ve dal 18.3

complimenti

 

[mastrogino]

quote:Originally posted by pam63

questo medoto sabato ha dato il terno a ve
32.22.24
era in gioco su to e ve dal 18.3

complimenti

ciao pam63 ti ringrazio x averlo notato
questo mio metodo e mitico.



se credi di fare qualcosa per te e il prossimo.....fallo il coraggio ha in sè genio potere magia

mastrogino

 

[Jolie76]

dove si trova il metodo?

 

[mastrogino]

quote:Originally posted by Jolie76

dove si trova il metodo?

CIAO JOLIE76
IL MIO METODO E UNA DELLE MIE PRIME E INTRAMONTABILI LO AVEVO POSTATO UN PAIO DI MESI FA SE MI DAI ALCUNI MINUTI LO POSTO DI NUOVO
APRI IL CASSETTO E CONSERVALO BENE......ATTENZIONE POI LO CANCELLO



se credi di fare qualcosa per te e il prossimo.....fallo il coraggio ha in sè genio potere magia

mastrogino

 

[Aline]

Grazie aspetto anchio

 

[mastrogino]

ECCO LO SCRIPT

Sub main()
Dim num(5)
Dim nu1(3)
Dim nu2(3)
Dim nu3(3)
Dim nu4(3)
Dim ruote(10)
Dim poste(2)
poste(1) = 1
poste(2) = 0
Dim post(3)
post(2) = 1
post(3) = 1
tmp = InputBox("Quante estrazioni controllo?",,100)
fin = EstrazioneFin
ini = fin - tmp
For es = ini To fin
Messaggio CStr(EstrazioneFin - es)
For r = 1 To 9
For r1 = r + 1 To 12
If r1 = 11 Then r1 = 12
For p = 1 To 5
a = Estratto(es,r,p)
b = Estratto(es,r1,p)
If a = b Then
a1 = DecinaNaturale(a)
a2 = Cadenza(a)
If a1 <> a2 Then
If a2 > 0 Then
a3 = a + b 'AMBATA
If a3 < 91 Then
a4 = Vert(a3)
If Cadenza(a3) > 0 Then
If Cadenza(a4) > 0 Then
Scrivi" - - - - - - - - - - - - - - - - - " & DataEstrazione(es) & " - - - - - - - - - - - - - - ",True
Scrivi" " & Left(NomeRuota(r),3) & " " & " " & StringaEstratti(es,r) & " - - - > " & Format2(a)
Scrivi" " & Left(NomeRuota(r1),3) & " " & " " & StringaEstratti(es,r1) & " - - - > " & Format2(b) & " Somma - - > " & Format2(a3)
ruote(1) = r
ruote(2) = r1
num(1) = a3
num(2) = a4
ImpostaGiocata 1,num,ruote,poste,4,1
nu1(1) = a3
nu1(2) = a4
nu1(3) = a3 - 1
ImpostaGiocata 2,nu1,ruote,post,4
nu2(1) = a3
nu2(2) = a4
nu2(3) = a3 + 1
ImpostaGiocata 3,nu2,ruote,post,4
nu3(1) = a3
nu3(2) = a4
nu3(3) = a4 - 1
ImpostaGiocata 4,nu3,ruote,post,4
nu4(1) = a3
nu4(2) = a4
nu4(3) = a4 + 1
ImpostaGiocata 5,nu4,ruote,post,4
Gioca es
Scrivi"*****************************************"
End If
End If
End If
End If
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub



se credi di fare qualcosa per te e il prossimo.....fallo il coraggio ha in sè genio potere magia

mastrogino

 

[Jolie76]

per favore puoi aspettare a cancellarlo domani stasera ho problemi con il pc grazie ancora

 

[mastrogino]

quote:Originally posted by Jolie76

per favore puoi aspettare a cancellarlo domani stasera ho problemi con il pc grazie ancora

ciao il metodo l'ho già cancellato ho solo lasciato lo script......
se mi collego domani verso le 21 lo rimetto ok




se credi di fare qualcosa per te e il prossimo.....fallo il coraggio ha in sè genio potere magia

mastrogino

 

[Jolie76]

grazie aspetto alle 21

 

[mastrogino]

buon divertimento

 

[Aline]

Grazie

 

[Jolie76]

grazie sei stato gentilissimo adesso mi dìvertirò a provarlo buona serata

 

[musa26]

Stavo scorrendo i post ed ho visto questo molto interessante, visto le vincite, e ti faccio i miei complimenti.
Purtroppo non sono capace di gestire uno script e mi interesserebbe il metodo potresti per favore rimetterlo? Però io mi collego solo molto tardi in serata!

 

[mastrogino]

quote:Originally posted by musa26

Stavo scorrendo i post ed ho visto questo molto interessante, visto le vincite, e ti faccio i miei complimenti.
Purtroppo non sono capace di gestire uno script e mi interesserebbe il metodo potresti per favore rimetterlo? Però io mi collego solo molto tardi in serata!

ciao musa26, anchio faccio le ore piccole ma adesso sono stanco
domanisera verso le 22 lo posto ok



se credi di fare qualcosa per te e il prossimo.....fallo il coraggio ha in sè genio potere magia

mastrogino

 

[musa26]

Grazie infinite

 

[gianna1968]

buongiorno,signor schirò stavo leggendo i suoi post devo dire molto interessanti,ho letto che avete inserito un vostro metodo molto valido e poi cancellato,come mai?non è possibile ripostrlo?sa io non ho sempre la disponibilità del pc quindi appena posso vi leggo tutti,con molta attenzione e ammirazione x il lavoro che svolgete e poi mettete a disposizione senza chiedere in cambio nulla grazie.

gianna

 

[Jolie76]

ciao ho visto che giocando la sestina si hanno spesso gli ambi ma volevo sapere per quanti colpi giocare e se una volta uscita l'ambata continuare? grazie ancora

 

[floradora]

dal mitico sirius, è possibile avere la previsione? Io non sono
capace di usare gli script, grazie ancora per la disponibilità



floradora

 

[mastrogino]

quote:Originally posted by floradora

dal mitico sirius, è possibile avere la previsione? Io non sono
capace di usare gli script, grazie ancora per la disponibilità



floradora

ciao .....vui il metodo ho una prev.??



se credi di fare qualcosa per te e il prossimo.....fallo il coraggio ha in sè genio potere magia

mastrogino