Il Complotto
Vuoi reagire a questo messaggio? Crea un account in pochi clic o accedi per continuare.
POSSO AIUTARTI?



NON STARE A GUARDARE!
ENTRA E SCRIVI QUALCOSA!


HAI PERSO I DATI? TI AIUTO.

SE RICORDI IL NOME UTENTE

E LA MAIL DI REGISTRAZIONE
> RECUPERA TU LA PASSWORD <

NON RICORDI IL NOME UTENTE?
SCRIVI UNA MAIL ALL'ADMIN:
FABRIZIO.LAFERLA[@]GMAIL.COM

IN ALTERNATIVA PROVA A
ISCRIVERTI NUOVAMENTE!

Chi è online?
In totale ci sono 10 utenti online: 0 Registrati, 0 Nascosti e 10 Ospiti

Nessuno

Il numero massimo di utenti online contemporaneamente è stato 634 il Sab 22 Dic 2012 - 20:45
Ultimi argomenti
» METODI DIVERSI,SOMME IDENTICHE
Script Per l8 dei metodo di Cesare Baldazzi EmptyDom 25 Mar 2018 - 20:13 Da gio54

» DOMENICA 25 MARZO SALUTI
Script Per l8 dei metodo di Cesare Baldazzi EmptyDom 25 Mar 2018 - 14:48 Da rita marras

» SISTEMONE 10ELOTTO NUMERI PROBABILI PER MARTEDI 27/03/2018
Script Per l8 dei metodo di Cesare Baldazzi EmptyDom 25 Mar 2018 - 11:11 Da cantante

» 10eLotto serale: il pronostico di marzo 2018
Script Per l8 dei metodo di Cesare Baldazzi EmptyDom 25 Mar 2018 - 10:29 Da DamBu82

» Metodo Mi-Na...9^mese
Script Per l8 dei metodo di Cesare Baldazzi EmptyDom 25 Mar 2018 - 10:26 Da DamBu82

» e rieccomi....
Script Per l8 dei metodo di Cesare Baldazzi EmptyDom 25 Mar 2018 - 9:44 Da claudio merlina

» BA CA per 27/3
Script Per l8 dei metodo di Cesare Baldazzi EmptySab 24 Mar 2018 - 22:11 Da Cre.Ma

» SABATO 24 MARZO SALUTI
Script Per l8 dei metodo di Cesare Baldazzi EmptySab 24 Mar 2018 - 13:45 Da marvik

» BA-CA-FI 3x1
Script Per l8 dei metodo di Cesare Baldazzi EmptySab 24 Mar 2018 - 12:59 Da gio54

» °°° SENZA REGOLE °° RECORD... 1 QUATERNA A NAPOLI E TUTTE IN S -SUPERATO UN'ALTRO RECORD
Script Per l8 dei metodo di Cesare Baldazzi EmptySab 24 Mar 2018 - 10:43 Da annamariacorona

» BA CA per 3/3
Script Per l8 dei metodo di Cesare Baldazzi EmptyVen 23 Mar 2018 - 21:24 Da Cre.Ma

» Bari per 1/3
Script Per l8 dei metodo di Cesare Baldazzi EmptyVen 23 Mar 2018 - 21:22 Da Cre.Ma

» AMBO LOTTO VORTEX
Script Per l8 dei metodo di Cesare Baldazzi EmptyVen 23 Mar 2018 - 21:11 Da cantante

» VINCIAMO CON LA FIGURA 09 - ALTRO TERNO DAL METODO 09.90.18
Script Per l8 dei metodo di Cesare Baldazzi EmptyVen 23 Mar 2018 - 14:59 Da rita marras

» VENERDI 23 MARZO SALUTI
Script Per l8 dei metodo di Cesare Baldazzi EmptyVen 23 Mar 2018 - 14:58 Da rita marras

» °°INFO DI GIOCO..°°
Script Per l8 dei metodo di Cesare Baldazzi EmptyGio 22 Mar 2018 - 22:23 Da lotto_amico

» °° ALLA RICERCA DELL'AMBO PERDUTO °° 1° COLPO TUTTE TERNO SECCO E UNA QUATERNA
Script Per l8 dei metodo di Cesare Baldazzi EmptyGio 22 Mar 2018 - 22:12 Da lotto_amico

» °° METODO BY LOTTOAMICO 2017°° 1° COLPO BARI AMBO 16.18
Script Per l8 dei metodo di Cesare Baldazzi EmptyGio 22 Mar 2018 - 22:07 Da lotto_amico

» ** ANNO 2018 - I SUOI CENTENARI ** a voi che entrate qui lasciate ogni speranza di ritornare indietro...
Script Per l8 dei metodo di Cesare Baldazzi EmptyGio 22 Mar 2018 - 21:44 Da lotto_amico

» ** I 5 MOSCHETTIERI ** ROMA TERNO IN C 08.89.90
Script Per l8 dei metodo di Cesare Baldazzi EmptyGio 22 Mar 2018 - 21:41 Da lotto_amico

» ** METODO 09.90 **TUTTE QUATERNA 09.18.45.72
Script Per l8 dei metodo di Cesare Baldazzi EmptyGio 22 Mar 2018 - 21:39 Da lotto_amico

» GIOVEDI 22 MARZO SALUTI
Script Per l8 dei metodo di Cesare Baldazzi EmptyGio 22 Mar 2018 - 15:56 Da larablu

» Cagliari cinque numeri per un ambo
Script Per l8 dei metodo di Cesare Baldazzi EmptyGio 22 Mar 2018 - 12:04 Da bianca valium

» Cagliari ambata 4
Script Per l8 dei metodo di Cesare Baldazzi EmptyMer 21 Mar 2018 - 20:24 Da lulu67

» BARI & CAGLIARI IN VETRINA (Dal 03/03/2018) - RISOLTO
Script Per l8 dei metodo di Cesare Baldazzi EmptyMer 21 Mar 2018 - 19:08 Da franco48

» MERCOLEDI 21 MARZO SALUTI
Script Per l8 dei metodo di Cesare Baldazzi EmptyMer 21 Mar 2018 - 10:29 Da glosilv

» UNA SMORFIA:TRE NUMERI TRE RUOTE...
Script Per l8 dei metodo di Cesare Baldazzi EmptyMar 20 Mar 2018 - 14:08 Da pescia

» MARTEDI 20 MARZO SALUTI
Script Per l8 dei metodo di Cesare Baldazzi EmptyMar 20 Mar 2018 - 14:06 Da pescia

» AMBATA VELOCE
Script Per l8 dei metodo di Cesare Baldazzi EmptyMar 20 Mar 2018 - 11:23 Da il re degli ignoranti56

» LUNEDI 19 MARZO AUGURI
Script Per l8 dei metodo di Cesare Baldazzi EmptyLun 19 Mar 2018 - 18:11 Da cris77

FABRIZIO LA FERLA


CLICCA SU #FLF PER
SEGUIRMI SU FACEBOOK!


TERNO IN CINQUINA!
76-10-36 FI


AMBO MILIONARIO!
15-81 MI


SUPER AMBETTI!
27-49 NZ
33-85 RO
31-75 GE

HAI VINTO ANCHE TU?

FAX VINCITE 178.27.43.003
fabrizio.laferla[@]gmail.com

GIUSEPPE CHIARAMIDA


CLICCA SU #GC PER
SEGUIRMI SU FACEBOOK!


AMBO SECCO 1°C!

60-64 NA

CENTENARIO KO!

80-70-23 CA

TERNO IN QUARTINA!
12-19-61 RO

HAI VINTO ANCHE TU?
FAX VINCITE 178.27.42.674
chiaramidalottoelotto[@]gmail.com


I postatori più attivi del mese

Statistiche
Abbiamo 8376 membri registrati
L'ultimo utente registrato è antonella10

I nostri utenti hanno pubblicato un totale di 902542 messaggi in 22375 argomenti

Script Per l8 dei metodo di Cesare Baldazzi

Andare in basso

Script Per l8 dei metodo di Cesare Baldazzi Empty Script Per l8 dei metodo di Cesare Baldazzi

Messaggio Da drago29 il Dom 28 Nov 2010 - 16:18

Con il permesso di Cesare Baldazzi in questo post inserirò degli script per il programma L8 Buon divertimento
Metodo Distanza 7

Sub main()
Dim ruote(3),posta(5),nu1(10),nu2(10),poste(5),ruota(3),nu3(10)
posta(2)=1:poste(1)=1
dis=9
k=9
ce=50
ini=EstrazioneFin -ce
fin=EstrazioneFin
For es =ini To fin:Messaggio es
For r1=1 To 10
For p1=1 To 5
a=Estratto(es,r1,p1)
For r2=r1+1 To 10
If r2=11 Then r2=11
For p2=1 To 5
If p1=p2 Then
b=Estratto(es,r2,p2):ds=Distanza(a,b)
If Ds=7 Then
casi=casi+1:Scrivi String(65,"•"),1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "& StringaEstratti(es,r1)&_
" ] "&format2(a)&" pos. "&(p1)&"^."
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)&" - "& StringaEstratti(es,r2)&_
" ] "&format2(b)&" pos. "&(p2)&"^ Distanza. "&(ds)&"^ ."
Scrivi String(52,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:ruota(1)=11:co=0
n1=Vert(a)
n2=Vert(b)
If Cadenza(n1)=>0 And Cadenza(n1)<=4 Then c1=Fuori90(n1+25)
If Cadenza(n1)=>5 And Cadenza(n1)<=9 Then c1=Abs(n1-25)
If Cadenza(n2)=>0 And Cadenza(n2)<=4 Then c2=Fuori90(n2+25)
If Cadenza(n2)=>5 And Cadenza(n2)<=9 Then c2=Abs(n2-25)
n3=a
n4=b
n5=c1
n6=c2
nu1(1)=n1:nu1(2)=n2:nu1(3)=n3
co=co+1
ImpostaGiocata co,nu1,ruote,posta,k
co=co+1
ImpostaGiocata co,nu1,ruota,posta,k
nu1(1)=n1:nu1(2)=n2:nu1(3)=n4
co=co+1
ImpostaGiocata co,nu1,ruote,posta,k
co=co+1
ImpostaGiocata co,nu1,ruota,posta,k
nu1(1)=n1:nu1(2)=n2:nu1(3)=n5
co=co+1
ImpostaGiocata co,nu1,ruote,posta,k
co=co+1
ImpostaGiocata co,nu1,ruota,posta,k
nu1(1)=n1:nu1(2)=n2:nu1(3)=n6
co=co+1
ImpostaGiocata co,nu1,ruote,posta,k
co=co+1
ImpostaGiocata co,nu1,ruota,posta,k
nu2(1)=n1:nu2(2)=n2:nu2(3)=n3:nu2(4)=n4:nu2(5)=n5:nu2(6)=n6
co=co+1
ImpostaGiocata co,nu2,ruote,posta
Gioca es
End If
End If
Next
Next
Next
Next
next
ScriviResoconto
Scrivi "distanza 7 drago29 (Metodo C.Baldazzi)",1
End Sub

Distanza 10

Sub main()
Dim ruote(3),posta(5),nu1(10),nu2(10),poste(5),ruota(3),nu3(10)
posta(2)=1:poste(1)=1
dis=9
k=9
ce=50
ini=EstrazioneFin -ce
fin=EstrazioneFin
For es =ini To fin:Messaggio es
For r1=1 To 10
For p1=1 To 5
a=Estratto(es,r1,p1)
For r2=r1+1 To 10
If r2=11 Then r2=11
For p2=1 To 5
b=Estratto(es,r2,p2)
If Distanza(a,b)=10 And p1=p2 And r1+1=r2 Then
casi=casi+1:Scrivi String(65,"•"),1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "& StringaEstratti(es,r1)&_
" ] "&format2(a)&" "&(p1)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)&" - "& StringaEstratti(es,r2)&_
" ] "&format2(b)&" "&(p2)&"^ pos."
Scrivi String(52,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:ruota(1)=11
n1=Fuori90(a+b)
If Cadenza(n1)=>0 And Cadenza(n1)<=4 Then c1=Fuori90(n1+25)
If Cadenza(n1)=>5 And Cadenza(n1)<=9 Then c1=Abs(n1-25)
n2=Fuori90(c1+a)
n3=Fuori90(c1+b)
n4=Vert(n2)
n5=Vert(n3)
n6=Diametrale(n2)
n7=Diametrale(n3)
nu2(1)=n2:nu2(2)=n3
ImpostaGiocata 1,nu2,ruote,poste,k
nu1(1)=n2:nu1(2)=n3:nu1(3)=n4
nu1(4)=n5:nu1(5)=n6:nu1(6)=n7
ImpostaGiocata 2,nu1,ruote,posta,k
Gioca es
End If
Next:Next:Next:Next:next
ScriviResoconto
Scrivi "distanza 10 di Cesare Baldazzi (list by Drago29)",1
End Sub

drago29
Nuovo Lottoamatore
Nuovo Lottoamatore

Sesso : Maschio
Numero di messaggi : 1
Data d'iscrizione : 14.08.08

Torna in alto Andare in basso

Script Per l8 dei metodo di Cesare Baldazzi Empty Re: Script Per l8 dei metodo di Cesare Baldazzi

Messaggio Da sante il Mar 4 Gen 2011 - 13:04

Caro drago29
se con il permesso del sign. Baldazzi puoi scrivere i metodi in modo leggibile, sono un profano. Grazie x la comprensione :bye2:
sante
sante
Onorario del Complotto
Onorario del Complotto

Sesso : Maschio
Numero di messaggi : 7586
Età : 56
Data d'iscrizione : 20.09.10

Torna in alto Andare in basso

Torna in alto


 
Permessi in questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum.