Tabelle mit mehreren Spalten auslesen?

[TobiasBlome]

Hallo,
ich möchte jeweils 3 Werte aus einer Tabelle im Programm auslesen und in 3 Variablen schreiben.
Zum testen hab ich in jede Zeile 3 Werte geschrieben, die in 3 Variablen sollen. Per Timer soll dann in die nachste Zeile in der Tabelle gesprungen werden und wieder 3 neue Werte in die 3 Variablen geschrieben werden, so das sich die Verte zb. alle 2 sekunden ändern.

Wie hole ich nun die Werte aus der Tabelle? Position angeben?

Alles was ich gefunden habe war ein RN-Wissen Artikel, den ich aber nicht richtig verstehe.



'Konfiguration µC:

$regfile = "m8def.dat" 'AT-Mega8
$crystal = 3686400 'Quarz: 3.6864 MHz
$baud = 9600 'Baudrate der UART: 9600 Baud


'-------------------------------------------------------------------------------
'Variablen


Dim Wert1 As Byte
Dim Wert2 As Byte
Dim Wert3 As Byte
Dim Wert4 As Byte
Dim Wert5 As Byte
Dim Wert6 As Byte

Dim Tabelle(90) As Byte


'-------------------------------------------------------------------------------


Tabelle:
' W1 , W2 , W3 , W4 , W5 , W6
Data 0 , 120 , 255
Data 20 , 140 , 240
Data 40 , 160 , 220
Data 60 , 180 , 200
Data 80 , 200 , 180
Data 100 , 220 , 160
Data 120 , 240 , 140
Data 140 , 255 , 120
Data 160 , 0 , 100
Data 180 , 20 , 80
Data 200 , 40 , 60
Data 220 , 60 , 40
Data 240 , 80 , 20
Data 255 , 100 , 0

[for_ro]

Hallo,
schau mal unter Lookup(value,label)

Gruß

Rolf

[TobiasBlome]

hmmm
also bisher hab ich nur unter diesem Begriff gefunden wie ich die Werte einer Zeile nacheinander auslese.
Wie kann ich aber in Variable 1 immer den 1.Wert der jeweiligen Zeile schreiben und in Variable 2 den 2. Wert jeder Zeile usw. ?

[for_ro]

Ich dachte an sowas:


Dim Count As Byte 'oder word, falls nötig
Dim Next_led As Byte 'oder word, falls nötig
Dim Led_flag As Byte
Dim W1 As Byte , W2 As Byte , W3 As Byte
Dim Zeile As Byte , Position As Byte 'position evtl as word, falls die tabelle größer wird
On Timer0 Timer0_isr
Do
If Led_flag = 1 Then
Reset Led_flag
Incr Zeile
If Zeile = 14 Then Zeile = 0 'Annahme: wenn die 14 Zeilen durch sind geht's von vorne los
Position = Zeile * 3
W1 = Lookup(position , Tabelle) 'Dies liest die Werte 0,3,6,9 .. aus der Tabelle
Incr Position
W2 = Lookup(position , Tabelle) 'Dies liest die Werte 1,4,7,10 .. aus der Tabelle
Incr Position
W3 = Lookup(position , Tabelle) 'Dies liest die Werte 2,5,8,11 .. aus der Tabelle
End If

Loop

Timer0_isr:
Incr Count
If Count = Next_led Then 'dies so einstellen, dass alle 2 Sekunden das flag gesetzt wird
Set Led_flag
Count = 0
End If
Return

Tabelle:
' W1 , W2 , W3 , W4 , W5 , W6
Data 0 , 120 , 255
Data 20 , 140 , 240
Data 40 , 160 , 220
Data 60 , 180 , 200
Data 80 , 200 , 180
Data 100 , 220 , 160
Data 120 , 240 , 140
Data 140 , 255 , 120
Data 160 , 0 , 100
Data 180 , 20 , 80
Data 200 , 40 , 60
Data 220 , 60 , 40
Data 240 , 80 , 20
Data 255 , 100 , 0

Kompiliert ok, aber ist nicht getestet.

Gruß

Rolf

[TobiasBlome]

Super es funktioniert!
vielen Dank!

Das hatte ich aus dem RN-Wissenartikel nicht so heraus gelesen. Was mir unter anderem fehlte war die durchnummerierung. Hätte gadacht das man die Zeile angibt und dann Wert 1-3 und die nächste Zeile fängt wieder bei 1 an - ist ja aber nicht so.

Wenn ich es richtig verstanden habe muss ich wohl bei 6 Werten pro Zeile
->Position = Zeile * 6
rechnen

Also noch mal vielen Dank (auch für die guten Kommentare im Code!)

Tobias