Hallo,
mit der If Version ist mir das zuviel Schreibarbeit...(zuviele Abfragen)
Code:
If Led_flag = 1 Then
Reset Led_flag
Incr Zeile
If Zeile = 20 Then Zeile = 0 'wenn die 20 Zeilen durch sind geht's von vorne los
Position = Zeile * 10
W1 = Lookup(position , 1)
Incr Position
W2 = Lookup(position , 1)
Incr Position
W3 = Lookup(position , 1)
Incr Position
W4 = Lookup(position , 1)
Incr Position
W5 = Lookup(position , 1)
Incr Position
W6 = Lookup(position , 1)
Incr Position
W7 = Lookup(position , 1)
Incr Position
W8 = Lookup(position , 1)
Incr Position
W9 = Lookup(position , 1)
Incr Position
W10 = Lookup(position , 1)
End If
@Robert das muss ich mir noch mal ansehen - ich hab´s noch nicht verstanden...
Code:
' --------------- nachgemachter lookup
varia = tabelle + position
wert = CPEEK(varia)
Lesezeichen