per gli scripter tosti

arcor · 21 Gennaio 2012

ciao amici vorrei controllare se possibile con uno script questo metodo che ho postato in altri 3 forum senza che nessuno riuscisse a fare lo script dicono che è troppo difficile vedremo .....

Metodo;l’ambo vincente
questo metodo non rintraccia tante previsioni mensilmente ed è adatto a un gioco speculare per ambo secco
Bisogna rintracciare,su una qualsiasi ruota un ambo in cadenza a distanza 20 oppure 30
(esempio:20-40 oppure 20-50)
Se rintracciamo un ambo a distanza 20 su un altra ruota e in perfetta isotopia,bisogna rintracciare un estratto a distanza 10 dall’ambo rilevato(20-40 si rintracca 10 oppure 50)
Se rintracciamo un ambo a distanza 30,su un altra ruota dobbiamo rintracciare un intermedio
(20-50 si rintraccia il 30 oppure il 40)
Per rendere la combinazione giocabile dobbiamo rintracciare su una delle due ruote un diametrale in decina oppure un diametrale a 45 di uno dei tre numeri rintracciati

Per farvi capire meglio uso due esempi reali che valgono più di mille parole

Estrazione del 22/09/11 NA 52 in 5 pos/VE 62-32 in 2 e 5 pos e 77 diametrale a 45 del 32
Estrazione del 06/09/11 PA 63-33 in 2 e 5 pos/VE 43 in 5 pos e 48 diametrale in decina dell 43
Importante che gli ambi diametrali in decina oppure a 45 siamo nella stessa ruota

Adesso veniamo a elaborare la previsione prendendo in esame il primo esempio;

Capogioco;il numero in cadenza che chiude la combinazione 62-52-32=42
Abbinamenti per ambo secco;diametrali a 45 del 52-62=17-7
Terzina da giocare a recupero ;capogioco 42 e laterali dei tre numeri rintracciati=72-22

Adesso elaboramo la previsione prendendo in esame il 2 esempio;

Capogioco;combinazione 63-43-33,mancante il 53
Abbinamenti per ambo secco;diametrali in decina del 63-33=68-38
Terzina a recupero;capogioco 53 e laterali dei tre numeri rintracciati=73-23

Veniamo alle previsioni complete con esiti

NA/VE 42-7/42-17/7-17 AMBI SECCHI
42-72-22 TERZINA A RECUPERO

Esito;5 colpo NA 7-17
7 colpo VE 7-17
8 colpo NA 42-17

PA/VE 53-68/53-38/68-38 AMBI SECCHI
53-73-23 TERZINA A RECUPERO ESITO;2 colpo VE 53-68

Non mettere in gioco se ci sono più di due sfaldamenti nelle 20 estrazioni precedenti

bigalbe · 25 Gennaio 2012

C'è nessuno che si vuole cimentare nell'impresa?

arcor · 25 Gennaio 2012

perfetto lo script è stato fatto ottimamente
ciao

bigalbe · 26 Gennaio 2012

si potrebbe avere questo script per favore?

Enplein · 26 Gennaio 2012

bigalbe ha scritto:
si potrebbe avere questo script per favore?

Ecco lo script...

Ciao, Enplein.

Codice:

Sub[SIZE=2][COLOR=#000000] main() [/COLOR]
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Dim[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] rt(2),na(3),nb(3),e1(3),e2(2),lg1(3),lg2(3),ne(1),nr(4),nn(3),posta(1),poste(2),rtt(1),ru(1),amb(1)[/COLOR]
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Dim[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] tt(7),ambo1(2),ambo2(2),ambo3(2)[/COLOR]
posta(1)=1 
poste(2)=1 
frm="Enplein"
fm=CInt (Len("Florindi"))
sc=Space(45)&frm 
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]For[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] x=1 [/COLOR][/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]To[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 7 : tt(x)=Mid(frm,x,1) : [/COLOR][/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Next
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]rs=InputBox ("Quante estrazioni vuoi controllare?",,100)
clp=InputBox ("Quanti colpi vuoi giocare?",,34) 
fin=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]EstrazioneFin[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 
ini=fin-rs
co=0 
[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] String(40," ")&"****** Rendiconto ****** ",1 [/COLOR]
[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] String(40," ")& [/COLOR][/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]DataEstrazione[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](ini)&" - "& [/COLOR][/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]DataEstrazione[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000](fin)[/COLOR]
[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]ColoreTesto[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 2[/COLOR]
[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] String(48,"=")&"listed "&frm &" Forum LottoCed X Arcor 'L'AMBO VINCENTE' di ARCOR",1 [/COLOR]
[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]ColoreTesto[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 0[/COLOR]
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] fm<>8 [/COLOR][/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Exit[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Sub[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]For[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] es=ini [/COLOR][/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]To[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] fin [/COLOR]
[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Messaggio[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] es [/COLOR]
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]For[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] r1=1 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]To[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 10
rt(1)=r1 : rtt(1)=11
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]For[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] p1=1 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]To[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 4 : [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]For[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] p2=p1+1 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]To[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 5
a1=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (es,r1,p1): a2=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (es,r1,p2)
da=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Distanza[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (a1,a2): df1=Abs (a1-a2)
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] da=20 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Or[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] da=30 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (da=df1 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]And[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] a1>a2) [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Or[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (da<>df1 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]And[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] a1<a2) [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] x1=a2:x2=a1 
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (da=df1 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]And[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] a1<a2) [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Or[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (da<>df1 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]And[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] a1>a2) [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] x1=a1 : x2=a2
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] da=20 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] nx1=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Fuori90[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] ((x1+90)-10):nx2=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Fuori90[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (x2+10)
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] da=30 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] nx1=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Fuori90[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (x1+10) : nx2=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Fuori90[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] ((x2+90)-10)
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]For[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] r2=1 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]To[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 10
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] r2<>r1 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 
rt(2)=r2 :g1=0 
po1=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Posizione[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (es,r2,nx1): po2=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Posizione[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (es,r2,nx2)
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] po1>0 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Or[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] po2>0 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] po1>0 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]And[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (po1=p1 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Or[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] po1=p2) [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] g1=g1+1 : b1=nx1 : b2=nx2 : q1=po1 
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] po2>0 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]And[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (po2=p1 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Or[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] po2=p2) [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] g1=g1+1 : b1=nx2 : b2=nx1 : q1=po2
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] g1=1 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]And[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Cadenza[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (b1)=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Cadenza[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (a1) [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 
e1(1)=x1:e1(2)=x2:e1(3)=b1
[/SIZE][SIZE=2][COLOR=#009500][SIZE=2][COLOR=#009500]'Creare i numeri diametrali in decina o di figua dei 3 numeri trovati
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]na(1)=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Diametrale[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (a1):na(2)=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Diametrale[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (a2):na(3)=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Diametrale[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (b1)
nb(1)=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]DiametraleD[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (a1):nb(2)=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]DiametraleD[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (a2):nb(3)=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]DiametraleD[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (b1)
sf1=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]SerieFreq[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (es,es,na,rt,1) : sf2=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]SerieFreq[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (es,es,nb,rt,1)
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] sf1>0 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Or[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] sf2>0 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 
g=0: k1=0:k2=0
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]For[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] j=1 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]To[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 3 : [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]For[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] i=1 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]To[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 5
n1=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (es,r1,i): n2=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (es,r2,i)
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] na(j)=n1 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] g=g+1 : k1=1 : nu=n1 : ne(1)=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Diametrale[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (n1) : ro=r1
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] na(j)=n2 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] g=g+1 : k1=1 : nu=n2 : ne(1)=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Diametrale[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (n2) : ro=r2
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] nb(j)=n1 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] g=g+1 : k2=1 : nu=n1 : ne(1)=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]DiametraleD[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (n1): ro=r1
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] nb(j)=n2 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] g=g+1 : k2=1 : nu=n2 : ne(1)=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]DiametraleD[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (n2): ro=r2
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Next[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] : [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Next[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] g=1 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] da=20 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] nr(1)=nx1:nr(2)=x1:nr(3)=x2 : nr(4)=nx2
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] da=30 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] nr(1)=x1:nr(2)=nx1:nr(3)=nx2 : nr(4)=x2
[/SIZE][SIZE=2][COLOR=#009500][SIZE=2][COLOR=#009500]'Abbinamenti
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]ab1=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Fuori90[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] ((nr(1)+90)-10) : ab2=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Fuori90[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (nr(4)+10)
h=0 : [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Erase[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] nn
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]For[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] i=1 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]To[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 3
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] e1(i)<>ne(1) [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] h=h+1 : nn(h)=e1(i)
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Next[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] k1=1 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] ab3=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Diametrale[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (nn(1)) : ab4=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Diametrale[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (nn(2))
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] k2=1 [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] ab3=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]DiametraleD[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (nn(1)) : ab4=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]DiametraleD[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (nn(2))
[/SIZE][SIZE=2][COLOR=#009500][SIZE=2][COLOR=#009500]'Previsione
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]ambo1(1)=b2 : ambo1(2)=ab1
ambo2(1)=b2 : ambo2(2)=ab2
ambo3(1)=ab1 : ambo3(2)=ab2
lg1(1)=b2:lg1(2)=ab1:lg1(3)=ab2
lg2(1)=b2:lg2(2)=ab3:lg2(3)=ab4
　
co=co+1 
[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] String (110,"=")&" Caso n°"& co [/COLOR]
[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]DataEstrazione[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] (es)&" "& [/COLOR][/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]SiglaRuota[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] (r1)&" "& [/COLOR][/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]StringaEstratti[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] (es,r1)&" ["& [/COLOR][/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Format2[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] (a1)&"."& [/COLOR][/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Format2[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] (a2)&"]"&_[/COLOR]
" Dist: "& [/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Format2[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (da)&" Pos. "&p1&"^ "&p2&"^"&" 3° elemento (del num.)"& [/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Format2[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (ne(1))&" = "& [/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Format2[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (nu)&" sulla ruota di "& [/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]SiglaRuota[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (ro),1 
[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]DataEstrazione[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] (es)&" "& [/COLOR][/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]SiglaRuota[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] (r2)&" "& [/COLOR][/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]StringaEstratti[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] (es,r2)&" ["& [/COLOR][/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Format2[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] (b1)&" "&"] "&_[/COLOR]
" Pos. "&q1&"^ "&" Num. Base : "& [/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Format2[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (x1)&"."& [/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Format2[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (x2)&" Num. Ord. = "& [/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]StringaNumeri[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (nr),1 
[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] "--------------------------------------------------------------------------------------------------------------"[/COLOR]
sf3=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]SerieFreq[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (es-19,es,lg1,rt,2) : sf4=[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]SerieFreq[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (es-19,es,lg2,rt,2)
sff=sf3+sf4
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] sff>2 [/COLOR][/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]ColoreTesto[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 2 : [/COLOR][/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] "Previsione non ottimale!!!" : [/COLOR][/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]ColoreTesto[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 0[/COLOR]
[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]ImpostaGiocata[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1,ambo1,rt,poste,clp,2
[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]ImpostaGiocata[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 2,ambo2,rt,poste,clp,2
[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]ImpostaGiocata[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 3,ambo3,rt,poste,clp,2
[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]ImpostaGiocata[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 4,lg1,rt,poste,clp,2 
[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]ImpostaGiocata[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 5,lg2,rt,poste,clp,2 
[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Gioca[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] es 
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]End[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]End[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]End[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]End[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]End[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Next[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]End[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Next[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] : [/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Next[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Next[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 
[/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Next[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]ScriviResoconto[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] : [/COLOR][/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]For[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] x=1 [/COLOR][/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]To[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] 7 : [/COLOR][/SIZE][SIZE=2][COLOR=#ea0000][SIZE=2][COLOR=#ea0000]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] Space(45)&tt(x),1 : [/COLOR][/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Next
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]End[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Sub[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE]

bigalbe · 26 Gennaio 2012

Grazie.

jobby73 · 26 Gennaio 2012

Scusate ma avrei piacere di avere questo script ma non mi funziona forse perchè a colori.. qualcuno può postarlo in modo da non avere errori su spaziometria ? grazie

garcid · 26 Gennaio 2012

errore

errore

salve ho provato il scipit con spaziometria e mi segnala diversi errori è normale oppure è per in altro programma grazie

LuigiB · 26 Gennaio 2012

Codice:

Sub Main()
	Dim rt(2),na(3),nb(3),e1(3),e2(2),lg1(3),lg2(3),ne(1),nr(4),nn(3),posta(1),poste(2),rtt(1),ru(1),amb(1)
	Dim tt(7),ambo1(2),ambo2(2),ambo3(2)
	posta(1) = 1
	poste(2) = 1
	frm = "Enplein"
	fm = CInt(Len("Florindi"))
	sc = Space(45) & frm
	For x = 1 To 7
		tt(x) = Mid(frm,x,1)
	Next
	rs = InputBox("Quante estrazioni vuoi controllare?",,100)
	clp = InputBox("Quanti colpi vuoi giocare?",,34)
	fin = EstrazioneFin
	ini = fin - rs
	co = 0
	Scrivi String(40," ") & "****** Rendiconto ****** ",1
	Scrivi String(40," ") & DataEstrazione(ini) & " - " & DataEstrazione(fin)
	Scrivi
	ColoreTesto 2
	Scrivi String(48,"=") & "listed " & frm & " Forum LottoCed X Arcor 'L'AMBO VINCENTE' di ARCOR",1
	ColoreTesto 0
	If fm <> 8 Then Exit Sub
	For es = ini To fin
		Messaggio es
		For r1 = 1 To 10
			rt(1) = r1
			rtt(1) = 11
			For p1 = 1 To 4
				For p2 = p1 + 1 To 5
					a1 = Estratto(es,r1,p1)
					a2 = Estratto(es,r1,p2)
					da = Distanza(a1,a2)
					df1 = Abs(a1 - a2)
					If da = 20 Or da = 30 Then
						If(da = df1 And a1 > a2) Or(da <> df1 And a1 < a2) Then
							x1 = a2
							x2 = a1
						End If
						If(da = df1 And a1 < a2) Or(da <> df1 And a1 > a2) Then
							x1 = a1
							x2 = a2
						End If
						If da = 20 Then
							nx1 = Fuori90((x1 + 90) - 10)
							nx2 = Fuori90(x2 + 10)
						End If
						If da = 30 Then
							nx1 = Fuori90(x1 + 10)
							nx2 = Fuori90((x2 + 90) - 10)
						End If
						For r2 = 1 To 10
							If r2 <> r1 Then
								rt(2) = r2
								g1 = 0
								po1 = Posizione(es,r2,nx1)
								po2 = Posizione(es,r2,nx2)
								If po1 > 0 Or po2 > 0 Then
									If po1 > 0 And(po1 = p1 Or po1 = p2) Then
										g1 = g1 + 1
										b1 = nx1
										b2 = nx2
										q1 = po1
									End If
									If po2 > 0 And(po2 = p1 Or po2 = p2) Then
										g1 = g1 + 1
										b1 = nx2
										b2 = nx1
										q1 = po2
									End If
									If g1 = 1 And Cadenza(b1) = Cadenza(a1) Then
										e1(1) = x1
										e1(2) = x2
										e1(3) = b1
										'Creare i numeri diametrali in decina o di figua dei 3 numeri trovati
										na(1) = Diametrale(a1)
										na(2) = Diametrale(a2)
										na(3) = Diametrale(b1)
										nb(1) = DiametraleD(a1)
										nb(2) = DiametraleD(a2)
										nb(3) = DiametraleD(b1)
										sf1 = SerieFreq(es,es,na,rt,1)
										sf2 = SerieFreq(es,es,nb,rt,1)
										If sf1 > 0 Or sf2 > 0 Then
											g = 0
											k1 = 0
											k2 = 0
											For j = 1 To 3
												For i = 1 To 5
													n1 = Estratto(es,r1,i)
													n2 = Estratto(es,r2,i)
													If na(j) = n1 Then
														g = g + 1
														k1 = 1
														nu = n1
														ne(1) = Diametrale(n1)
														ro = r1
													End If
													If na(j) = n2 Then
														g = g + 1
														k1 = 1
														nu = n2
														ne(1) = Diametrale(n2)
														ro = r2
													End If
													If nb(j) = n1 Then
														g = g + 1
														k2 = 1
														nu = n1
														ne(1) = DiametraleD(n1)
														ro = r1
													End If
													If nb(j) = n2 Then
														g = g + 1
														k2 = 1
														nu = n2
														ne(1) = DiametraleD(n2)
														ro = r2
													End If
												Next
											Next
											If g = 1 Then
												If da = 20 Then
													nr(1) = nx1
													nr(2) = x1
													nr(3) = x2
													nr(4) = nx2
												End If
												If da = 30 Then
													nr(1) = x1
													nr(2) = nx1
													nr(3) = nx2
													nr(4) = x2
												End If
												'Abbinamenti
												ab1 = Fuori90((nr(1) + 90) - 10)
												ab2 = Fuori90(nr(4) + 10)
												h = 0
												Erase nn
												For i = 1 To 3
													If e1(i) <> ne(1) Then
														h = h + 1
														nn(h) = e1(i)
													End If
												Next
												If k1 = 1 Then
													ab3 = Diametrale(nn(1))
													ab4 = Diametrale(nn(2))
												End If
												If k2 = 1 Then
													ab3 = DiametraleD(nn(1))
													ab4 = DiametraleD(nn(2))
												End If
												'Previsione
												ambo1(1) = b2
												ambo1(2) = ab1
												ambo2(1) = b2
												ambo2(2) = ab2
												ambo3(1) = ab1
												ambo3(2) = ab2
												lg1(1) = b2
												lg1(2) = ab1
												lg1(3) = ab2
												lg2(1) = b2
												lg2(2) = ab3
												lg2(3) = ab4
												co = co + 1
												Scrivi String(110,"=") & " Caso n°" & co
												Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " [" & Format2(a1) & "." & Format2(a2) & "]" & _
												" Dist: " & Format2(da) & " Pos. " & p1 & "^ " & p2 & "^" & " 3° elemento (del num.)" & Format2(ne(1)) & " = " & Format2(nu) & " sulla ruota di " & SiglaRuota(ro),1
												Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " [" & Format2(b1) & " " & "] " & _
												" Pos. " & q1 & "^ " & " Num. Base : " & Format2(x1) & "." & Format2(x2) & " Num. Ord. = " & StringaNumeri(nr),1
												Scrivi "--------------------------------------------------------------------------------------------------------------"
												sf3 = SerieFreq(es - 19,es,lg1,rt,2)
												sf4 = SerieFreq(es - 19,es,lg2,rt,2)
												sff = sf3 + sf4
												If sff > 2 Then
													ColoreTesto 2
													Scrivi "Previsione non ottimale!!!"
													ColoreTesto 0
												End If
												ImpostaGiocata 1,ambo1,rt,poste,clp,2
												ImpostaGiocata 2,ambo2,rt,poste,clp,2
												ImpostaGiocata 3,ambo3,rt,poste,clp,2
												ImpostaGiocata 4,lg1,rt,poste,clp,2
												ImpostaGiocata 5,lg2,rt,poste,clp,2
												Gioca es
											End If
										End If
									End If
								End If
							End If
						Next
					End If
				Next
			Next
		Next
	Next
	ScriviResoconto
	For x = 1 To 7
		Scrivi Space(45) & tt(x),1
	Next
End Sub

Enplein · 27 Gennaio 2012

...grazie LuigiB, mi ero dimendicato di dire che lo script è stato realizzato con Lottodesk.

Con stima, Enplein.

LuigiB · 27 Gennaio 2012

funziona perfettamente anche con spaziometria solo che era incollato male nel forum. Ciao

jobby73 · 27 Gennaio 2012

GRAZIEEEE LUIGIB..... e grazie ARCOR bello... un pò lungo nei tempi e tante previsioni ma.... può essere uno spunto...

Cerca

Cerca

per gli scripter tosti

arcor

Advanced Member

bigalbe

Super Member >PLATINUM<

arcor

Advanced Member

bigalbe

Super Member >PLATINUM<

Enplein

Super Member >PLATINUM<

bigalbe

Super Member >PLATINUM<

jobby73

Advanced Member

garcid

Member

LuigiB

Guest

Enplein

Super Member >PLATINUM<

LuigiB

Guest

jobby73

Advanced Member

Ultima estrazione Lotto

Ultimi Messaggi