Variante zum Schmunzeln:
Code:
dim readx as byte
dim readv as word
reset tabelle
readv = 0
readx = 0
' find widerstand in tabelle---------------------------
while readv < Widerstand
read readv
wend
' der wievielte eintrag ist das ? ---------------------
readx = lookdown(readv, Tabelle, anz-entries)
' da spring ich hin -----------------------------------
on readx gosub act-1, act-2, .........act515, act 885
---etc. etc
' oder einen passenden wert suchen
readv = lookup(readx, tab2)
tabelle: 'sorted
Data nnn%, nnn%, nnn%, 815%, 885%, nnn%, nnn%
tab2:
data nnn%, nnn% ,................................
da fehlt noch drumherum, wenn der Widerstand > größter Tabwert usw.
Aber es is mal was anderes als Denkansatz
Lesezeichen