Hallo,
ist es möglich eine
CONST als Array anzulegen?
Also in etwas sowas =
Ich will die Daten nicht im Ram halten müssen
Der Umweg ist jetzt das EEprom
Alles anzeigen
ist es möglich eine
CONST als Array anzulegen?
Also in etwas sowas =
Ich will die Daten nicht im Ram halten müssen
Der Umweg ist jetzt das EEprom
Quellcode
- Dim Dummy as Eram byte
- Dim Ee_leer as Eram byte
- Dim Taste(10,2) As ERAM Dword
- Dim Steck as byte
- Dim Aus_Ein as byte
- If Ee_leer <> 127 then
- Ee_leer = 127
- Taste(1,1)= &B10001111_00101110_10110000 'T1ein aus dem internet
- Taste(1,2)= &B10001100_10000101_10010000 'T1aus
- Taste(2,1)= &B10001111_00101110_10110100 'T2ein aus dem internet
- Taste(2,2)= &B10000101_11001001_00100100 'T2 aus
- Taste(3,1)= &B10000101_11001001_00101110 'Test3ein erzeugt aus t4 mit denken
- Taste(3,2)= &B10001111_00101110_10111110 'Test3aus
- Taste(4,1)= &B10000101_11001001_00100010 'T4ein aus dem internet
- Taste(4,2)= &B10001111_00101110_10110010 'T4aus
- Taste(5,1)= &B00001111_00110100_00110000 'TAein
- Taste(5,2)= &B00001010_10101010_00010000 'TAaus
- Taste(6,1)= &B00001001_01100111_01110100 'TBein
- Taste(6,2)= &B00000110_01111100_00100100 'TBaus
- Taste(7,1)= &B00001011_00001011_10111100 'TCein
- Taste(7,2)= &B00000110_01111100_00101100 'TCaus
- Taste(8,1)= &B00000101_11010001_10010010 'TDein
- Taste(8,2)= &B00000001_00101110_01000010 'TDaus
- Taste(9,1)= &B10010001_10011011_10110000 'T11ein
- Taste(9,2)= &B10011001_11011100_00100000 'T11aus
- Taste(10,1)= &B00000000_00000000_00000000 'Dummy
- Taste(10,2)= &B11111111_11111111_11111111 'Dummy
- Endif
- '****** MAIN LOOP ******
- DO
- x
- x
- CALL SwitchOnOff(Taste(steck,Aus_Ein))
- x
- x
- END
- '****** END MAIN *******