Berekeningen uitvoeren met For loop

[gbvdh]

Goedendag,

Ik vraag me af of dit zou moeten werken op de manier dat ik het heb bedacht, dus als iemand er een mening over heeft hoor ik die graag.
De code waar het om gaat is:

For xx = 1 To 13
For xz = 27 To 39
zxx = ((xxz - xxx) / 2) + xxx
Next xz
Next xx

Wat ik hoop dat het doet is het volgende:
Ik heb een aantal waarden berekend en die x1, x2, x3 etc vervolgens wil ik met deze waarden een berekening uitvoeren: z1=((x1-x27)/2)+x1 en z2=((x2-x28)/2)+x2, etc maar volgens mij werkt bovenstaande code daar dus niet echt voor. Mijn vraag is dus eigenlijk hoe ik dit moet aanpassen om het wel te laten werken.

Bij voorbaad dank,

Barry

 

[Axel Hagg]

Dag GB,

Dim i as integer
Dim x() as single
Dim z() as single

Redim x(40)
redim z(13)
For i = 1 to 40
x(i)=bepaalde waarde?
Next
For i = 1 to 13
z(i) = (x(i)-x(i+26))/2 + x(i)
Next

Gegroet,

Axel.

 

[Axel Hagg]

Dag GB,

Nogmaals, maar nu met codetags:

<Code>
Dim i as integer
Dim x() as single
Dim z() as single

Redim x(40)
redim z(13)
For i = 1 to 40
x(i)=bepaalde waarde?
Next
For i = 1 to 13
z(i) = (x(i)-x(i+26))/2 + x(i)
Next
</Code>

Gegroet,

Axel.

 

[Wigi]

Axel,

het is

'de code
[/ code]

maar dan zonder spatie in de afsluitende tag.

Wigi

 

[Axel Hagg]

Dag Wim,

Dim i as integer
Dim x() as single
Dim z() as single

Redim x(40)
redim z(13)
For i = 1 to 40
    x(i)=bepaalde waarde?
Next
For i = 1 to 13
    z(i) = (x(i)-x(i+26))/2 + x(i)
Next

Hopelijk is het nu oké.

Axel.

 

[Wigi]

Hopelijk is het nu oké.

Prima