variablen mit veränderlichen namen / bascom

[ak (Gast)]

hallo, folgendes problem:

8 Leds an PortA und B, folgender Aufbau

led1 alias PortA.2
led2 alias PortB.1
led3 alias PortA.5
.
.
.
usw

nun möchte ich led1 - led8 nacheinander leuchten lassen, möglichst so

dim i as integer

do
led(i) = 1
wait 1
i = i+1
loop until i = 8

Nur wie bekomm ich es her, variablen in variblennamen zu quetschen?
ich dachte zunächst an ein array

dim led(8) as integer

Led1 = Led(1) bzw PortA.2
Led2 = Led(2) bzw PortB.2
.
.
.
usw, mit

Led(1) = 1 bekomm ich die aber nicht an

hab da wohl nen Denkfehler :/

[Weingut P. (weinbauer)]

oh, seh gerade, die LED sind nicht an einem Port ...

:(

schlecht, dann gehts nur mit if - then

dim led_counter as byte

led_counter=1

do
if led_counter.0 = 1 then
    LED1=1
endif

if led_counter.1 = 1 then
    LED1=2
endif

if led_counter.2 = 1 then
    LED1=3
endif

' etc. etc.

wait 1
shift led_counter,left,1
loop until led_counter.7 = 1

[Karl H. (kbuchegg)]

Fhutdhb Ufzjjuz schrieb:
> oh, seh gerade, die LED sind nicht an einem Port ...
>
> :(
>
> schlecht, dann gehts nur mit if - then

ja, das hättest du dir mal vorher überlegen sollen, wie du die LED 
anschliesst.

Es geht schon auch mit Arrays, aber dann musst du immer alle verwendeten 
Ports komplett beschreiben. Möglich ist es, aber da reicht mein BASCOM 
nicht (bzw. ich bin zufaul dafür)