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 20 utenti online: 0 Registrati, 0 Nascosti e 20 Ospiti

Nessuno

Il numero massimo di utenti online contemporaneamente è stato 634 il Sab 22 Dic 2012 - 20:45
Ultimi argomenti
» METODI DIVERSI,SOMME IDENTICHE
richiesta di un script x drago EmptyDom 25 Mar 2018 - 20:13 Da gio54

» DOMENICA 25 MARZO SALUTI
richiesta di un script x drago EmptyDom 25 Mar 2018 - 14:48 Da rita marras

» SISTEMONE 10ELOTTO NUMERI PROBABILI PER MARTEDI 27/03/2018
richiesta di un script x drago EmptyDom 25 Mar 2018 - 11:11 Da cantante

» 10eLotto serale: il pronostico di marzo 2018
richiesta di un script x drago EmptyDom 25 Mar 2018 - 10:29 Da DamBu82

» Metodo Mi-Na...9^mese
richiesta di un script x drago EmptyDom 25 Mar 2018 - 10:26 Da DamBu82

» e rieccomi....
richiesta di un script x drago EmptyDom 25 Mar 2018 - 9:44 Da claudio merlina

» BA CA per 27/3
richiesta di un script x drago EmptySab 24 Mar 2018 - 22:11 Da Cre.Ma

» SABATO 24 MARZO SALUTI
richiesta di un script x drago EmptySab 24 Mar 2018 - 13:45 Da marvik

» BA-CA-FI 3x1
richiesta di un script x drago EmptySab 24 Mar 2018 - 12:59 Da gio54

» °°° SENZA REGOLE °° RECORD... 1 QUATERNA A NAPOLI E TUTTE IN S -SUPERATO UN'ALTRO RECORD
richiesta di un script x drago EmptySab 24 Mar 2018 - 10:43 Da annamariacorona

» BA CA per 3/3
richiesta di un script x drago EmptyVen 23 Mar 2018 - 21:24 Da Cre.Ma

» Bari per 1/3
richiesta di un script x drago EmptyVen 23 Mar 2018 - 21:22 Da Cre.Ma

» AMBO LOTTO VORTEX
richiesta di un script x drago EmptyVen 23 Mar 2018 - 21:11 Da cantante

» VINCIAMO CON LA FIGURA 09 - ALTRO TERNO DAL METODO 09.90.18
richiesta di un script x drago EmptyVen 23 Mar 2018 - 14:59 Da rita marras

» VENERDI 23 MARZO SALUTI
richiesta di un script x drago EmptyVen 23 Mar 2018 - 14:58 Da rita marras

» °°INFO DI GIOCO..°°
richiesta di un script x drago EmptyGio 22 Mar 2018 - 22:23 Da lotto_amico

» °° ALLA RICERCA DELL'AMBO PERDUTO °° 1° COLPO TUTTE TERNO SECCO E UNA QUATERNA
richiesta di un script x drago EmptyGio 22 Mar 2018 - 22:12 Da lotto_amico

» °° METODO BY LOTTOAMICO 2017°° 1° COLPO BARI AMBO 16.18
richiesta di un script x drago 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...
richiesta di un script x drago EmptyGio 22 Mar 2018 - 21:44 Da lotto_amico

» ** I 5 MOSCHETTIERI ** ROMA TERNO IN C 08.89.90
richiesta di un script x drago EmptyGio 22 Mar 2018 - 21:41 Da lotto_amico

» ** METODO 09.90 **TUTTE QUATERNA 09.18.45.72
richiesta di un script x drago EmptyGio 22 Mar 2018 - 21:39 Da lotto_amico

» GIOVEDI 22 MARZO SALUTI
richiesta di un script x drago EmptyGio 22 Mar 2018 - 15:56 Da larablu

» Cagliari cinque numeri per un ambo
richiesta di un script x drago EmptyGio 22 Mar 2018 - 12:04 Da bianca valium

» Cagliari ambata 4
richiesta di un script x drago EmptyMer 21 Mar 2018 - 20:24 Da lulu67

» BARI & CAGLIARI IN VETRINA (Dal 03/03/2018) - RISOLTO
richiesta di un script x drago EmptyMer 21 Mar 2018 - 19:08 Da franco48

» MERCOLEDI 21 MARZO SALUTI
richiesta di un script x drago EmptyMer 21 Mar 2018 - 10:29 Da glosilv

» UNA SMORFIA:TRE NUMERI TRE RUOTE...
richiesta di un script x drago EmptyMar 20 Mar 2018 - 14:08 Da pescia

» MARTEDI 20 MARZO SALUTI
richiesta di un script x drago EmptyMar 20 Mar 2018 - 14:06 Da pescia

» AMBATA VELOCE
richiesta di un script x drago EmptyMar 20 Mar 2018 - 11:23 Da il re degli ignoranti56

» LUNEDI 19 MARZO AUGURI
richiesta di un script x drago 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

richiesta di un script x drago

Andare in basso

richiesta di un script x drago Empty richiesta di un script x drago

Messaggio Da Trebion il Mar 5 Giu 2012 - 7:31

richiesta di un script x drago Img08312

CIAO GIANNI SE E' POSSIBILE FARE UN SCRIPT DI QUESTO METODO

GRAZIE ANTICIPATAMENTE
Trebion
Trebion
Onorario del Complotto
Onorario del Complotto

Sesso : Maschio
Numero di messaggi : 2271
Età : 67
Scrivo da : Napoli
Il mio vero nome : Gennaro
Data d'iscrizione : 18.06.11

Torna in alto Andare in basso

richiesta di un script x drago Empty Re: richiesta di un script x drago

Messaggio Da drago2940 il Mer 6 Giu 2012 - 17:22

Dove ti mando lo script Ciao Gianni
drago2940
drago2940
Centenario del Complotto
Centenario del Complotto

Sesso : Maschio
Numero di messaggi : 244
Età : 69
Il mio vero nome : Gianni
Data d'iscrizione : 25.10.10

Torna in alto Andare in basso

richiesta di un script x drago Empty Re: richiesta di un script x drago

Messaggio Da Trebion il Mer 6 Giu 2012 - 17:58

drago2940 ha scritto:Dove ti mando lo script Ciao Gianni
LO PUOI POSTARE QUA
sotto il metodo
grazie
Trebion
Trebion
Onorario del Complotto
Onorario del Complotto

Sesso : Maschio
Numero di messaggi : 2271
Età : 67
Scrivo da : Napoli
Il mio vero nome : Gennaro
Data d'iscrizione : 18.06.11

Torna in alto Andare in basso

richiesta di un script x drago Empty Re: richiesta di un script x drago

Messaggio Da rossonero8 il Mer 6 Giu 2012 - 18:00

SALVE A TUTTI,
NON LO POSSIAMO AVERE ANCHE NOI POVERI MORTALI OLTRE AL BRAVISSIMO TREBION
GRAZIE E COMPLIMENTI

rossonero8
Centenario del Complotto
Centenario del Complotto

Sesso : Maschio
Numero di messaggi : 153
Età : 71
Scrivo da : FOGGIA
Il mio vero nome : RUGGIERO RUGGERO
Data d'iscrizione : 27.10.09

Torna in alto Andare in basso

richiesta di un script x drago Empty Re: richiesta di un script x drago

Messaggio Da rossonero8 il Mer 6 Giu 2012 - 18:02

BRAVO TREBION
NON MI SBAGLIAVO DAVVERO BRAVO

rossonero8
Centenario del Complotto
Centenario del Complotto

Sesso : Maschio
Numero di messaggi : 153
Età : 71
Scrivo da : FOGGIA
Il mio vero nome : RUGGIERO RUGGERO
Data d'iscrizione : 27.10.09

Torna in alto Andare in basso

richiesta di un script x drago Empty Re: richiesta di un script x drago

Messaggio Da drago2940 il Mer 6 Giu 2012 - 18:08

Ecco Spero rispetti tutte le opzioni del metodo Ciao Forum

Sub main()
Dim nu1(10),nu2(10),nu3(10)
Dim ruote(3),ruota(3)
Dim poste(5),posta(5)
posta(2)=1
poste(1)=1
fin=EstrazioneFin
ini=fin-100
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 11
If r1=11 Then r1=12
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2):ds1=Distanza(n1,n2):a1=Figura(n1)
If ds1=36 Then
For r2=1 To 11
If r2=11 Then r2=12
If r2<>r1 Then
For p3=1 To 5
For p4=p3+1 To 5
n3=Estratto(es,r2,p3)
n4=Estratto(es,r2,p4)
ds2=Distanza(n4,n3):a2=Figura(n3)
If ds2=18 And a1=a2 And n1<>n3 And n1<>n4 And n2<>n3 And n2<>n4 Then
b1=Minimo(n1,n2):b2=Minimo(n3,n4):b3=Minimo(b1,b2):b4=Massimo(b1,b2)
c1=Massimo(n1,n2):c2=Massimo(n3,n4):c3=Minimo(c1,c2):c4=Massimo(c1,c2)
y1=Distanza(b3,b4):y2=Distanza(b3,c3):y3=Distanza(b3,c4):y4=Distanza(b4,c3):y5=Distanza(b4,c4)
y6=Distanza(c3,c4)
If y1=18 Or y2=18 Or y3=18 Or y4=18 Or y5=18 Or y6=18 Then
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo distanza ["&Format2 (ds1)&"] . "&Format2(n1)&" . "&Format2(n2)&" ."
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo distanza ["&Format2 (ds2)&"] . "&Format2(n3)&" . "&Format2(n4)&" ."
Scrivi" Numeri a Crescere "&Format2 (b3)&" . "&Format2(b4)&" . "&Format2(c3)&" ."&Format2(c4)&" ."
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2: k=14:co=0:ruota(2)=11
k1=0
If Distanza(b3,c4)<>18 Then k1=Fuori90(c3+9)
If Distanza(b3,b4)=18 Then k1=Fuori90(b3+9)
If Distanza(b4,c3)=18 Then k1=Fuori90(b4+9)
If Distanza(c3,c4)=18 Then k1=Fuori90(c3+9)
If Distanza(b3,b4)=9 And Distanza(b4,c3)<>18 Then k1=Fuori90(b4+9)
c8=n1+n2:c9=Int(c8/2)
If c9=n1 Or c9=n2 Or c9=n3 Or c9=n4 Or k1=c9 Then c9=Diametrale(c9)
nu3(1)=k1
nu3(2)=c9
co=co+1
ImpostaGiocata co,nu3,ruote,poste,k
co=co+1
ImpostaGiocata co,nu3,ruota,posta,k
Gioca es
End If
End If
Next
Next
End If
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
drago2940
drago2940
Centenario del Complotto
Centenario del Complotto

Sesso : Maschio
Numero di messaggi : 244
Età : 69
Il mio vero nome : Gianni
Data d'iscrizione : 25.10.10

Torna in alto Andare in basso

richiesta di un script x drago Empty Re: richiesta di un script x drago

Messaggio Da Trebion il Mer 6 Giu 2012 - 18:19

rossonero8 ha scritto:SALVE A TUTTI,
NON LO POSSIAMO AVERE ANCHE NOI POVERI MORTALI OLTRE AL BRAVISSIMO TREBION
GRAZIE E COMPLIMENTI

SI CERTAMENTE LO FATTO POSTARE PER TUTTO IL FORUM

X CHI E' INTERRESSATO E CHE HA IL PROGRAMMA X FARLO FUNZIONARE

IN BOCCA AL LUPO

A TUTTI

Trebion
Trebion
Onorario del Complotto
Onorario del Complotto

Sesso : Maschio
Numero di messaggi : 2271
Età : 67
Scrivo da : Napoli
Il mio vero nome : Gennaro
Data d'iscrizione : 18.06.11

Torna in alto Andare in basso

richiesta di un script x drago Empty Re: richiesta di un script x drago

Messaggio Da Trebion il Mer 6 Giu 2012 - 19:13

drago2940 ha scritto:Ecco Spero rispetti tutte le opzioni del metodo Ciao Forum

Sub main()
Dim nu1(10),nu2(10),nu3(10)
Dim ruote(3),ruota(3)
Dim poste(5),posta(5)
posta(2)=1
poste(1)=1
fin=EstrazioneFin
ini=fin-100
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 11
If r1=11 Then r1=12
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2):ds1=Distanza(n1,n2):a1=Figura(n1)
If ds1=36 Then
For r2=1 To 11
If r2=11 Then r2=12
If r2<>r1 Then
For p3=1 To 5
For p4=p3+1 To 5
n3=Estratto(es,r2,p3)
n4=Estratto(es,r2,p4)
ds2=Distanza(n4,n3):a2=Figura(n3)
If ds2=18 And a1=a2 And n1<>n3 And n1<>n4 And n2<>n3 And n2<>n4 Then
b1=Minimo(n1,n2):b2=Minimo(n3,n4):b3=Minimo(b1,b2):b4=Massimo(b1,b2)
c1=Massimo(n1,n2):c2=Massimo(n3,n4):c3=Minimo(c1,c2):c4=Massimo(c1,c2)
y1=Distanza(b3,b4):y2=Distanza(b3,c3):y3=Distanza(b3,c4):y4=Distanza(b4,c3):y5=Distanza(b4,c4)
y6=Distanza(c3,c4)
If y1=18 Or y2=18 Or y3=18 Or y4=18 Or y5=18 Or y6=18 Then
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo distanza ["&Format2 (ds1)&"] . "&Format2(n1)&" . "&Format2(n2)&" ."
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo distanza ["&Format2 (ds2)&"] . "&Format2(n3)&" . "&Format2(n4)&" ."
Scrivi" Numeri a Crescere "&Format2 (b3)&" . "&Format2(b4)&" . "&Format2(c3)&" ."&Format2(c4)&" ."
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2: k=14:co=0:ruota(2)=11
k1=0
If Distanza(b3,c4)<>18 Then k1=Fuori90(c3+9)
If Distanza(b3,b4)=18 Then k1=Fuori90(b3+9)
If Distanza(b4,c3)=18 Then k1=Fuori90(b4+9)
If Distanza(c3,c4)=18 Then k1=Fuori90(c3+9)
If Distanza(b3,b4)=9 And Distanza(b4,c3)<>18 Then k1=Fuori90(b4+9)
c8=n1+n2:c9=Int(c8/2)
If c9=n1 Or c9=n2 Or c9=n3 Or c9=n4 Or k1=c9 Then c9=Diametrale(c9)
nu3(1)=k1
nu3(2)=c9
co=co+1
ImpostaGiocata co,nu3,ruote,poste,k
co=co+1
ImpostaGiocata co,nu3,ruota,posta,k
Gioca es
End If
End If
Next
Next
End If
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

CIAO GRAZIE GIANNI PER IL LISTATO
MANCA L'esempio quando la condizione si presenta su una Singola Ruota il 3 MARZO 2012
poi ci sono le note TECNICHE non so se ci sono
se non si possa fare nn crearti PROBLEMI
Trebion
Trebion
Onorario del Complotto
Onorario del Complotto

Sesso : Maschio
Numero di messaggi : 2271
Età : 67
Scrivo da : Napoli
Il mio vero nome : Gennaro
Data d'iscrizione : 18.06.11

Torna in alto Andare in basso

richiesta di un script x drago Empty Re: richiesta di un script x drago

Messaggio Da drago2940 il Mer 6 Giu 2012 - 19:46

Questo la prende anche su una sola ruota
Sub main()
Dim nu1(10),nu2(10),nu3(10)
Dim ruote(3),ruota(3)
Dim poste(5),posta(5)
posta(2)=1
poste(1)=1
fin=EstrazioneFin
ini=fin-100
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 11
If r1=11 Then r1=12
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2):ds1=Distanza(n1,n2):a1=Figura(n1)
If ds1=36 Then
For r2=1 To 11
If r2=11 Then r2=12
If r2<>r1 Or r1=r2 Then
For p3=1 To 5
For p4=p3+1 To 5
n3=Estratto(es,r2,p3)
n4=Estratto(es,r2,p4)
ds2=Distanza(n4,n3):a2=Figura(n3)
If ds2=18 And a1=a2 And n1<>n3 And n1<>n4 And n2<>n3 And n2<>n4 Then
b1=Minimo(n1,n2):b2=Minimo(n3,n4):b3=Minimo(b1,b2):b4=Massimo(b1,b2)
c1=Massimo(n1,n2):c2=Massimo(n3,n4):c3=Minimo(c1,c2):c4=Massimo(c1,c2)
y1=Distanza(b3,b4):y2=Distanza(b3,c3):y3=Distanza(b3,c4):y4=Distanza(b4,c3):y5=Distanza(b4,c4)
y6=Distanza(c3,c4)
If y1=18 Or y2=18 Or y3=18 Or y4=18 Or y5=18 Or y6=18 Then
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo distanza ["&Format2 (ds1)&"] . "&Format2(n1)&" . "&Format2(n2)&" ."
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo distanza ["&Format2 (ds2)&"] . "&Format2(n3)&" . "&Format2(n4)&" ."
Scrivi" Numeri a Crescere "&Format2 (b3)&" . "&Format2(b4)&" . "&Format2(c3)&" ."&Format2(c4)&" ."
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2: k=14:co=0:ruota(2)=11
k1=0
If Distanza(b3,c4)<>18 Then k1=Fuori90(c3+9)
If Distanza(b3,b4)=18 Then k1=Fuori90(b3+9)
If Distanza(b4,c3)=18 Then k1=Fuori90(b4+9)
If Distanza(c3,c4)=18 Then k1=Fuori90(c3+9)
If Distanza(b3,b4)=9 And Distanza(b4,c3)<>18 Then k1=Fuori90(b4+9)
c8=n1+n2:c9=Int(c8/2)
If c9=n1 Or c9=n2 Or c9=n3 Or c9=n4 Or k1=c9 Then c9=Diametrale(c9)
nu3(1)=k1
nu3(2)=c9
co=co+1
ImpostaGiocata co,nu3,ruote,poste,k
co=co+1
ImpostaGiocata co,nu3,ruota,posta,k
Gioca es
End If
End If
Next
Next
End If
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub


Ciao
quella del 3/3 non la prende perche le figure sono diverse Ciao
drago2940
drago2940
Centenario del Complotto
Centenario del Complotto

Sesso : Maschio
Numero di messaggi : 244
Età : 69
Il mio vero nome : Gianni
Data d'iscrizione : 25.10.10

Torna in alto Andare in basso

richiesta di un script x drago Empty Re: richiesta di un script x drago

Messaggio Da Trebion il Gio 7 Giu 2012 - 8:38

drago2940 ha scritto:Questo la prende anche su una sola ruota
Sub main()
Dim nu1(10),nu2(10),nu3(10)
Dim ruote(3),ruota(3)
Dim poste(5),posta(5)
posta(2)=1
poste(1)=1
fin=EstrazioneFin
ini=fin-100
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 11
If r1=11 Then r1=12
For p1=1 To 4
For p2=p1 1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2):ds1=Distanza(n1,n2):a1=Figura(n1)
If ds1=36 Then
For r2=1 To 11
If r2=11 Then r2=12
If r2<>r1 Or r1=r2 Then
For p3=1 To 5
For p4=p3 1 To 5
n3=Estratto(es,r2,p3)
n4=Estratto(es,r2,p4)
ds2=Distanza(n4,n3):a2=Figura(n3)
If ds2=18 And a1=a2 And n1<>n3 And n1<>n4 And n2<>n3 And n2<>n4 Then
b1=Minimo(n1,n2):b2=Minimo(n3,n4):b3=Minimo(b1,b2):b4=Massimo(b1,b2)
c1=Massimo(n1,n2):c2=Massimo(n3,n4):c3=Minimo(c1,c2):c4=Massimo(c1,c2)
y1=Distanza(b3,b4):y2=Distanza(b3,c3):y3=Distanza(b3,c4):y4=Distanza(b4,c3):y5=Distanza(b4,c4)
y6=Distanza(c3,c4)
If y1=18 Or y2=18 Or y3=18 Or y4=18 Or y5=18 Or y6=18 Then
casi=casi 1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo distanza ["&Format2 (ds1)&"] . "&Format2(n1)&" . "&Format2(n2)&" ."
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo distanza ["&Format2 (ds2)&"] . "&Format2(n3)&" . "&Format2(n4)&" ."
Scrivi" Numeri a Crescere "&Format2 (b3)&" . "&Format2(b4)&" . "&Format2(c3)&" ."&Format2(c4)&" ."
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2: k=14:co=0:ruota(2)=11
k1=0
If Distanza(b3,c4)<>18 Then k1=Fuori90(c3 9)
If Distanza(b3,b4)=18 Then k1=Fuori90(b3 9)
If Distanza(b4,c3)=18 Then k1=Fuori90(b4 9)
If Distanza(c3,c4)=18 Then k1=Fuori90(c3 9)
If Distanza(b3,b4)=9 And Distanza(b4,c3)<>18 Then k1=Fuori90(b4 9)
c8=n1 n2:c9=Int(c8/2)
If c9=n1 Or c9=n2 Or c9=n3 Or c9=n4 Or k1=c9 Then c9=Diametrale(c9)
nu3(1)=k1
nu3(2)=c9
co=co 1
ImpostaGiocata co,nu3,ruote,poste,k
co=co 1
ImpostaGiocata co,nu3,ruota,posta,k
Gioca es
End If
End If
Next
Next
End If
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub


Ciao
quella del 3/3 non la prende perche le figure sono diverse Ciao

CIAO DRAGO GRAZIE PER IL LISTASTO
IN QUESTO LISTATO e uguale al primo vedi l'esempio del 6/3/2012 e sbagliato la seguenza
crescente dovrebbe esssere : 8.26.53.89
e non come si presenta nel listato guarda l'imaggine sottostante: 8.53.26.89 esce un pronostico diverso dvrebbe essere 17.71 e non 35.71 e questo e l'esempio su una singola ruota e non su due

come appare nel listato

Ciao



richiesta di un script x drago Eee_bm10
Trebion
Trebion
Onorario del Complotto
Onorario del Complotto

Sesso : Maschio
Numero di messaggi : 2271
Età : 67
Scrivo da : Napoli
Il mio vero nome : Gennaro
Data d'iscrizione : 18.06.11

Torna in alto Andare in basso

richiesta di un script x drago Empty Re: richiesta di un script x drago

Messaggio Da drago2940 il Gio 7 Giu 2012 - 9:23

Ci sto lavorando e correggerlo Ho avuto fretta a postarlo comunque spero di finirlo al più presto ciao
drago2940
drago2940
Centenario del Complotto
Centenario del Complotto

Sesso : Maschio
Numero di messaggi : 244
Età : 69
Il mio vero nome : Gianni
Data d'iscrizione : 25.10.10

Torna in alto Andare in basso

richiesta di un script x drago Empty Re: richiesta di un script x drago

Messaggio Da drago2940 il Gio 7 Giu 2012 - 11:39

Spero Sia perfetto

Sub main()
Dim nu1(10),nu2(10),nu3(10)
Dim ruote(3),ruota(3)
Dim poste(5),posta(5)
posta(2)=1
poste(1)=1
fin=EstrazioneFin
ini=fin-100
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 11
If r1=11 Then r1=12
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2):ds1=Distanza(n1,n2):a1=Figura(n1)
If ds1=36 Then
For r2=1 To 11
If r2=11 Then r2=12
For p3=1 To 5
For p4=p3+1 To 5
n3=Estratto(es,r2,p3)
n4=Estratto(es,r2,p4)
ds2=Distanza(n4,n3):a2=Figura(n3)
If ds2=18 And a1=a2 And n1<>n3 And n1<>n4 And n2<>n3 And n2<>n4 Then
b1=Minimo(n1,n2):b2=Minimo(n3,n4):b3=Minimo(b1,b2):b4=Massimo(b1,b2)
c1=Massimo(n1,n2):c2=Massimo(n3,n4):c3=Minimo(c1,c2):c4=Massimo(c1,c2)
j1=Massimo(b4,c3):j2=Minimo(b4,c3):b4=j2:c3=j1
y1=Distanza(b3,b4):y2=Distanza(b3,c3):y3=Distanza(b3,c4):y4=Distanza(b4,c3):y5=Distanza(b4,c4)
y6=Distanza(c3,c4)
If y1=18 Or y2=18 Or y3=18 Or y4=18 Or y5=18 Or y6=18 Then
k1=0:k2=0
If Distanza(b3,b4)>9 And Distanza(b4,c3)=9 And Distanza(c3,c4)=9 Then k1=Abs(b4-9)
If Distanza(b3,b4)>9 And Distanza(b4,c3)=9 And Distanza(c3,c4)=18 Then k1=Fuori90(c3+9)
If Distanza(b3,b4)=9 And Distanza(b4,c3)=9 And Distanza(c3,c4)<>9 Then k1=Fuori90(c3+9)
If Distanza(b3,b4)=9 And Distanza(b4,c3)=9 And Distanza(c3,c4)=9 Then k1=Fuori90(c4+9)
If Distanza(b3,b4)=9 And Distanza(b4,c3)=18 Then k1=Fuori90(b4+9)
If Distanza(b3,b4)=18 Then k1=Fuori90(b3+9)
If Distanza(b3,b4)=18 And Distanza(c3,c4)=18 Then k1=Fuori90(b3+9):k2=Fuori90(c3+9)
If Distanza(b3,b4)=9 And Distanza(b4,c3)=9 Then k1=Fuori90(c3+9)
If Distanza(b3,b4)=9 And Distanza(b4,c3)>18 Then k1=Fuori90(b4+9)
If Distanza(b3,b4)>18 And Distanza(b4,c3)=18 And Distanza(c3,c4)=9 Then k1=Fuori90(b4+9)
If Distanza(b3,b4)>18 And Distanza(b4,c3)>18 And Distanza(c3,c4)=18 Then k1=Fuori90(c3+9)
If Distanza(b3,b4)>18 And Distanza(b4,c3)=27 And Distanza(c3,c4)=9 Then k1=Abs(c3-9):k2=Fuori90(b4+9)
If Distanza(b3,b4)=9 And Distanza(c3,c4)=9 Then k1=Fuori90(b4+9):k2=Abs(c3-9)
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo distanza ["&Format2 (ds1)&"] . "&Format2(n1)&" . "&Format2(n2)&" ."
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo distanza ["&Format2 (ds2)&"] . "&Format2(n3)&" . "&Format2(n4)&" ."
Scrivi" Numeri a Crescere "&Format2 (b3)&" . "&Format2(b4)&" . "&Format2(c3)&" . "&Format2(c4)&" . "
Scrivi"Chiusure "&Format2 (k1)&" . "&Format2(k2)&" . "
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2: k=14:co=0:ruota(2)=11
c8=n1+n2:c9=Int(c8/2)
If c9=k1 Then c7=Diametrale(c9):c9=c7
If c9=n1 Or c9=n2 Or c9=n3 Or c9=n4 Then c7=Diametrale(c9):c9=c7
nu3(1)=k1
nu3(2)=c9
nu3(3)=k2
co=co+1
ImpostaGiocata co,nu3,ruote,poste,k
co=co+1
ImpostaGiocata co,nu3,ruota,posta,k
Gioca es
End If
End If
Next
Next
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
drago2940
drago2940
Centenario del Complotto
Centenario del Complotto

Sesso : Maschio
Numero di messaggi : 244
Età : 69
Il mio vero nome : Gianni
Data d'iscrizione : 25.10.10

Torna in alto Andare in basso

richiesta di un script x drago Empty Re: richiesta di un script x drago

Messaggio Da Trebion il Gio 7 Giu 2012 - 12:44

OK E' PERFETTO

grazie
Trebion
Trebion
Onorario del Complotto
Onorario del Complotto

Sesso : Maschio
Numero di messaggi : 2271
Età : 67
Scrivo da : Napoli
Il mio vero nome : Gennaro
Data d'iscrizione : 18.06.11

Torna in alto Andare in basso

richiesta di un script x drago Empty Re: richiesta di un script x drago

Messaggio Da robi 76 il Gio 7 Giu 2012 - 13:13

ciao posso usarlo su vista? ma ci vuole un programma per impostarlo? ciao grazie. buona giornata wink
robi 76
robi 76
Onorario del Complotto
Onorario del Complotto

Sesso : Maschio
Numero di messaggi : 2090
Età : 43
Scrivo da : torino
Il mio vero nome : roby
Data d'iscrizione : 25.08.11

Torna in alto Andare in basso

richiesta di un script x drago Empty Re: richiesta di un script x drago

Messaggio Da Contenuto sponsorizzato


Contenuto sponsorizzato


Torna in alto Andare in basso

Torna in alto


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