CERCASI DJNOMADE...........

[Roby]

.............come da titolo............. .

SUERTE !!!!

 

[Roby]

Ciao Artemisio, lo sto cercando anch'io, devo chiedergli un favore, ma non so dove sia....
DJ NOMADEEEEEEE.....

Blackmore

 

[Roby]

ciao Ritchie,bohhhhhhhh chissa' dov'è !d'altronde....è NOMADE !!!

SUERTE !!!!

 

[Roby]

Porto Su

Blackmore

 

[DjNomade]

Chi cerca trova......
eccomi!!!!

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

 

[Roby]

Ciao Dj tu nei listati sei Bravissimo, e vorrei chiederti un grosso favore, se puoi ovviamente, mi servirebbe il listato di questo metodo:
ALLA 1° ESTRAZIONE DEL MESE GIOCHIAMO 2 AMBI SU TUTTE:
1°ambo= 1°di Bari + 5° di Venezia= A
5°di Bari + 1°di Venezia=B
-------------------------------------------------------------------------------------
2°ambo=Vertibile di A=C
Vertibile di B=D
--------------------------------------------------------------------------------------
RISULTATO 1 ambo= A e B, 2 ambo= C e D, X 9 Colpi

SE HAI TEMPO E VOGLIA DI FARLO TE NE SARÒ GRATO


Blackmore

 

[DjNomade]

Eccolo Blackmore controlla eventuali errori...

Ciauz




ColoreTesto 2 :Scrivi String(37,32)&"--1°estrazione del mese--2 Ambi a Tutte di Blackmore-------------------------",1

'21/04/2011
Scrivi String(47,32)&"by DjNomade",1
ColoreTesto 0


Sub main()
Dim poste(5)
Dim ruote(5)
Dim am(10)

poste(2)=1
casi=0

fin=EstrazioneFin
ini=EstrazioneFin-920
For es=ini To fin
If IndiceMensile(es)=1 Then



ColoreTesto 2 :Scrivi "--1°estrazione del mese---------------------------",1
ColoreTesto 0


ruote(1)=11

am(1)=Fuori90(Estratto(es,1,1)+Estratto(es,10,5))
am(2)=Fuori90(Estratto(es,1,5)+Estratto(es,10,1))
ImpostaGiocata 1,am,ruote,poste,9,2

am(1)=Vert(Fuori90(Estratto(es,1,1)+Estratto(es,10,5)))
am(2)=Vert(Fuori90(Estratto(es,1,5)+Estratto(es,10,1)))
ImpostaGiocata 2,am,ruote,poste,9,2

Gioca es
casi=casi+1
End If

Next
Scrivi
Scrivi
Scrivi "Numero Totale mesi analizzati : "&Cint(casi)
ScriviResoconto

ColoreTesto 2 :Scrivi String(37,32)&"--1°estrazione del mese--2 Ambi a Tutte di Blackmore-------------------------",1


Scrivi String(47,32)&"by DjNomade",1
ColoreTesto 0
End Sub


«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

 

[Roby]

Grazie Dj va benissimo,
Grazie ancora

Blackmore

 

[mirning]

A rieccolooo!!
bentornato , ti sento nominare e ci sara' un buon motivo . .
ora aspettiamo il motivo di tanta attesa e nomina!! [^]

 

[Roby]

Hola Mirning, bhe, un motivo era il mio listato.....
Il motivo di Artemisio non lo so, ma lo scopriremo presto...........credo

Blackmore

 

[Roby]

quote:Originally posted by Blackmore

Hola Mirning, bhe, un motivo era il mio listato.....
Il motivo di Artemisio non lo so, ma lo scopriremo presto...........credo

Blackmore

Ciao Ritchie ,ciao a tutti.....trovato il NOMADE e spiegato il motivo...appena pronto il tutto ve lo mostrero',e,come mio uso Ve ne faro' dono a tutti.Trattasi di una chicca ,dono di un amica e di cui voglio parteciparVi tutti.

X DJNOMADE: quello che ti ho' postato e' tutto quello che ho' e che so'........ma quella roba sforna ambi nel brevissimo periodo,e ,nelle ultime estrazioni ha dato anche un terno secco....se si riuscisse a scriptarlo potremmo verificare la bonta' del metodo !!!
Ciao.

SUERTE !!!!

 

[Roby]

La cosa si fà interessante......

Blackmore