Das ist zwar Bascom code, aber der sollte sich doch leicht übersetzen lassen. Ich denke die Funktionsweise ist klar. Der Code findet das Maximum von einer Reihe von Messwerten die in einem Array gespeichert sind.
Code:
Dim Maximum As Word
Dim Maximumpos As Byte
Dim Messung(10) As Word ' so werden in Bascom Arrays definiert
Dim I As Byte
messung( 1 )= 1
Messung( 2 )= 2
messung( 3 )= 3
Messung( 4 )= 100
messung( 5 )= 70
Messung( 6 )= 50
messung( 7 )= 90
Messung( 8 )= 66
messung( 9 )= 45
Messung( 10 )= 64
Do
For I = 1 To 9
If Messung(i) > Maximum Then
Maximum = Messung(i)
Maximumpos = I
End If
Next
Print "Maximum: " ; Maximum ; " Index:" ; Maximumpos
Loop
End
Lesezeichen