arrays in bascom

[samuel c. (samclau)]

hallo,


ich habe hier etwas programmiert womit ich bei einer ledmatrix mit shift 
register leds ansteuern kann und je nachdem ob eine eins oder eine null 
da steht geht ein pin an oder aus:

**************************************

$regfile = "m8def.dat"
$crystal = 8000000

Dim N As Byte
Dim A As Byte
Dim Row(12) As Byte
Row(1) = 0
Row(2) = 1
Row(3) = 0
Row(4) = 1
Row(5) = 0
Row(6) = 1
Row(7) = 1
Row(8) = 0
Row(9) = 0
Row(10) = 1
Row(11) = 0
Row(12) = 1


Config Portd = Output
Config Portb = Output

Do

For A = 1 To 12

Portb.4 = Row(a)
Portb.3 = 1
Portb.3 = 0
Portd.4 = 1
Portd.7 = 1
Waitms 1000

Next A

Portb.2 = 1
Portb.2 = 0

Loop

End

*************************
meine frage ist jetzt wie man die werte in der array auf einer kuerzeren 
art und weise aufschreiben kann ?

[fragezeichen (Gast)]

kannst Du Deine Frage bitte so formulieren, dass man sie auch verstehen 
kann ?

[Roland .. (rowland)]

Wenn das Array nur 1 und 0 beinhaltet und das bei nur 12 Elementen, dann 
brauchst Du eigentlich kein Array, da genügt ein Integer. Jedes Bit 
entspricht dann einem Element, eben 0 oder 1.

[kopfkratzer (Gast)]

kopfkratz
Was steht in in der Hilfe/Doku zu Deinem BASIC Derivat ?
Es sollte folgendes gehen:

DIM Row AS Byte = {1,0,0,1,0,0,1,1,1}

probier's aus und wenn's nicht geht muß es halt zu Fuß ...

[samuel c. (samclau)]

geht leider nicht

[Dino Dieter (Gast)]

Hallo

So in der Art

Dim row as integer

LED1 alias Portb.4
config LED1 = output

row = &B0101_0101_0101_0101

For A = 1 To 12

if row.a = 1 then
   set LED1
else
   reset LED1
end if

next a


Gruß
Dieter

[samuel c. (samclau)]

Danke das hat das geloest