numeri pari e dispari

[Zetrix]

Nu(1) = Estratto(ES,r,1)
Nu(2) = Estratto(ES,r,2)
Nu(3) = Estratto(ES,r,3)
Nu(4) = Estratto(ES,r,4)
Nu(5) = Estratto(ES,r,5)



If dispari(Nu(1)) : Fuori90(Nu(1)*2) Else pari(Nu(1)) : Fuori90(Nu(1)/2) End If


anum(1) = Format2 (Nu(1))
anum(2) = Format2 (Nu(2))
anum(3) = Format2 (Nu(3))
anum(4) = Format2 (Nu(4))
anum(5) = Format2 (Nu(5))


ciao a tutti

mike58 ti posso chiedere una cortesia come si fa a mettere
la stringa esatta con i numeri pari e dispari
mi spiego meglio quello che mi serve
vorrei che nell'estrazione mi calcola i numeri
in questo modo
se abbiamo un num dispari allora faremo
il n x 2 , se diverso avremo un num pari
faremo n : 2
ho scritto una stringa con il codice script ma mi da errore
se puoi farmi questa cortesia, grazie

 

[claudio8]

Ti consiglio di evitare l'uso dei ":" nei costrutti in modo che sia + chiara la sequenza delle operazione/righe di costrutto, lo farai se lo vorrai quando sarai "padrone" degli script.
Eccoti la soluzione della condizione richiesta, inserita in un ciclo for per velocizzare l'elaborazione.


Sub Main
Dim Nu(5)
Dim anum(5)
Dim es,r,x
es = EstrazioneFin
r = 1
Nu(1) = Estratto(es,r,1)
Nu(2) = Estratto(es,r,2)
Nu(3) = Estratto(es,r,3)
Nu(4) = Estratto(es,r,4)
Nu(5) = Estratto(es,r,5)
Scrivi StringaNumeri(Nu,"-",True)
For x = 1 To 5
If dispari(Nu(x)) Then
Nu(x) = Fuori90(Nu(x)*2)
Else
Nu(x) = Nu(x)/2
End If
Next
anum(1) = Format2(Nu(1))
anum(2) = Format2(Nu(2))
anum(3) = Format2(Nu(3))
anum(4) = Format2(Nu(4))
anum(5) = Format2(Nu(5))
Scrivi StringaNumeri(anum,"-",True)
End Sub
Saluti

 

[Zetrix]

grazie claudio8 per lo script

saluti