X - RUDIVALL

[Roby]

ciao Rudy

Beccati sta bestia e metti da parte il F.Excel che ti avevo inviato
in PVT.
( anche se con Excel lo Scan sulle variabili é molto + veloce )

1 Saluto

D.Aspys

[|)]
----------------------------
Sub main()
Dim ambata(3)
Dim ruota(1)
Dim m(10)

ruota(1)=1
Dim posta(1)
posta(1)=1

k=73
l=22

Scrivi "Listato by DendroAspys"
For ES=7287 To EstrazioneFin
If IndiceMensile(ES)=5 Then
r=1
n1=Estratto(es,r,1)
n2=Estratto(es,r,2)
n3=Estratto(es,r,3)
n4=Estratto(es,r,4)
n5=Estratto(es,r,5)

If Pari(n1)= True Then px1=1 End If
If Pari(n1)= False Then px1=0 End If
If Pari(n2) Then px2=1 End If
If Pari(n2)= False Then px2=0 End If
If Pari(n3)= True Then px3=1 End If
If Pari(n3)= False Then px3=0 End If
If Pari(n4) Then px4=1 End If
If Pari(n4)= False Then px4=0 End If
If Pari(n5) Then px5=1 End If
If Pari(n5)= False Then px5=0 End If

Scrivi
If px1&px2&px3&px4&px5=11111 Then ambata(1)=Fuori90(31+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=11110 Then ambata(1)=Fuori90(30+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=11101 Then ambata(1)=Fuori90(29+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=11100 Then ambata(1)=Fuori90(28+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=11011 Then ambata(1)=Fuori90(27+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=11010 Then ambata(1)=Fuori90(26+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=11001 Then ambata(1)=Fuori90(25+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=11000 Then ambata(1)=Fuori90(24+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=10111 Then ambata(1)=Fuori90(23+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)

If px1&px2&px3&px4&px5=10110 Then ambata(1)=Fuori90(22+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=10101 Then ambata(1)=Fuori90(21+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=10100 Then ambata(1)=Fuori90(20+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=10011 Then ambata(1)=Fuori90(19+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=10010 Then ambata(1)=Fuori90(18+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=10001 Then ambata(1)=Fuori90(17+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=10000 Then ambata(1)=Fuori90(16+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)

If px1&px2&px3&px4&px5=01111 Then ambata(1)=Fuori90(16+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=01110 Then ambata(1)=Fuori90(17+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=01101 Then ambata(1)=Fuori90(18+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=01100 Then ambata(1)=Fuori90(19+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=01011 Then ambata(1)=Fuori90(20+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=01010 Then ambata(1)=Fuori90(21+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=01001 Then ambata(1)=Fuori90(22+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=01000 Then ambata(1)=Fuori90(23+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=00111 Then ambata(1)=Fuori90(24+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=00110 Then ambata(1)=Fuori90(25+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=00101 Then ambata(1)=Fuori90(26+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=00100 Then ambata(1)=Fuori90(27+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=00011 Then ambata(1)=Fuori90(28+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=00010 Then ambata(1)=Fuori90(29+k) : ambata(2)=Fu

 

[rudivall]

[red]Dario[/red], grandioso con tutto quello script non ci ho capito niente, ma quale è il funsionamento, cioè cosa ricerca......solo curiosità ?

rodolfo

 

[rudivall]

[red]Dario[/red], grandioso con tutto quello script non ci ho capito niente, ma quale è il funsionamento, cioè cosa ricerca......solo curiosità ?

rodolfo

 

[ghost]

Bello davvero sto script. leggendolo qualcosa penso di aver capito, ma non riesco a capire il risultato che da: potresti darci qualche delucidazione?
ciao e grazie[8D]

 

[ghost]

Bello davvero sto script. leggendolo qualcosa penso di aver capito, ma non riesco a capire il risultato che da: potresti darci qualche delucidazione?
ciao e grazie[8D]

 

[rudivall]

Dario stò controllando il listato hai veramente fatto un super lavoro, complimenti

rodolfo

 

[rudivall]

Dario stò controllando il listato hai veramente fatto un super lavoro, complimenti

rodolfo

 

[DendroAspys]

dai fate 1 sforzo, é facile....
vi do 1 mano;
trattasi di sistema Binario sui N° pari e dispari, ma con 1 novita'.
legge la stringa N° anche quando parte con lo - 0 - e la inverte.
es:
se la stringa é

01101

la inverte in:

10010

aggiunge poi il vertibile x la seconda ambata,
e in + ho inserito 2 valori addizionali variabili
a piacimento tramite le costanti - K e L -

1 Saluto

DendroAspys

[|)]

 

[DendroAspys]

dai fate 1 sforzo, é facile....
vi do 1 mano;
trattasi di sistema Binario sui N° pari e dispari, ma con 1 novita'.
legge la stringa N° anche quando parte con lo - 0 - e la inverte.
es:
se la stringa é

01101

la inverte in:

10010

aggiunge poi il vertibile x la seconda ambata,
e in + ho inserito 2 valori addizionali variabili
a piacimento tramite le costanti - K e L -

1 Saluto

DendroAspys

[|)]

 

[imported_n/a]

Ciao DendroAspys, noto una tua grandissima abiltà per la statistica numerica molto familiare ad un amico che da 2 settimane circa non mi risponde in messenger, parlo di persona operativa in questo forum. Forse mi sapresti dire qualcosa.

essere presenti

 

[imported_n/a]

Ciao DendroAspys, noto una tua grandissima abiltà per la statistica numerica molto familiare ad un amico che da 2 settimane circa non mi risponde in messenger, parlo di persona operativa in questo forum. Forse mi sapresti dire qualcosa.

essere presenti

 

[DendroAspys]

quote:Originally posted by puledro

Ciao DendroAspys, noto una tua grandissima abiltà per la statistica numerica molto familiare ad un amico che da 2 settimane circa non mi risponde in messenger, parlo di persona operativa in questo forum. Forse mi sapresti dire qualcosa.

essere presenti

------------------------------------------------------

non so di chi stai parlando.


D.Aspys
[|)]

 

[DendroAspys]

quote:Originally posted by puledro

Ciao DendroAspys, noto una tua grandissima abiltà per la statistica numerica molto familiare ad un amico che da 2 settimane circa non mi risponde in messenger, parlo di persona operativa in questo forum. Forse mi sapresti dire qualcosa.

essere presenti

------------------------------------------------------

non so di chi stai parlando.


D.Aspys
[|)]

 

[DendroAspys]

Bari :

Esito 13 al 7° C.


1 Saluto

D.Aspys

[|)]

 

[DendroAspys]

Bari :

Esito 13 al 7° C.


1 Saluto

D.Aspys

[|)]

 

[rudivall]

Preso Dario, preso e anche bene accoppiato con altri due numeri 73 39

rodolfo

 

[rudivall]

Preso Dario, preso e anche bene accoppiato con altri due numeri 73 39

rodolfo

 

[DendroAspys]

si ho visto...

complimenti.

 

[DendroAspys]

si ho visto...

complimenti.