Liebe Bascom-Jünger,
das ist für euch wahrscheinlich eine ganz einfache Sache: ich möchte per Variable in einem Array auf spezielle Pins zweier Ports zugreifen. In etwa so:
Dim Relais_ch(4) As Byte ' ... as Bit geht ja leider nicht, oder?
Config Porth.6 = Output : Relais_ch(1) Alias Porth.6
Config Porth.5 = Output : Relais_ch(2) Alias Porth.5
Config Porta.0 = Output : Relais_ch(3) Alias Porta.0
Config Porta.2 = Output : Relais_ch(4) Alias Porta.2
Ziel ist jedenfalls, später in Schleifen so etwas machen zu können:
For Kanal = 1 to 4
if Spannung >= 1000 then Relais_ch(kanal) = 1
next Kanal
Oder löst man das eleganter mit "Overlay" in der Form
Dim Relais_ch(4).0 as? at Porth.6 overlay
Dim Relais_ch(4).1 as? at Porth.5 overlay usw?
Aber das funktioniert nicht, da ich ein Array ja nur 1x dimensionieren kann und es dann eben doch wieder "Dim Relais_ch(4) As Byte " heißen müßte ...
Welche Möglichkeit gäbe es ggf noch, um eine solche "schleifenkonforme" Schaltmöglichkeit der Relais einzuführen, ohne immer noch weitere if-then's oder "select-case-Kanal" bemühen zu müssen?
Oder ist die Sache eben doch nicht so einfach, weil es kreuz und quer durch die Ports geht?
das ist für euch wahrscheinlich eine ganz einfache Sache: ich möchte per Variable in einem Array auf spezielle Pins zweier Ports zugreifen. In etwa so:
Dim Relais_ch(4) As Byte ' ... as Bit geht ja leider nicht, oder?
Config Porth.6 = Output : Relais_ch(1) Alias Porth.6
Config Porth.5 = Output : Relais_ch(2) Alias Porth.5
Config Porta.0 = Output : Relais_ch(3) Alias Porta.0
Config Porta.2 = Output : Relais_ch(4) Alias Porta.2
Ziel ist jedenfalls, später in Schleifen so etwas machen zu können:
For Kanal = 1 to 4
if Spannung >= 1000 then Relais_ch(kanal) = 1
next Kanal
Oder löst man das eleganter mit "Overlay" in der Form
Dim Relais_ch(4).0 as? at Porth.6 overlay
Dim Relais_ch(4).1 as? at Porth.5 overlay usw?
Aber das funktioniert nicht, da ich ein Array ja nur 1x dimensionieren kann und es dann eben doch wieder "Dim Relais_ch(4) As Byte " heißen müßte ...
Welche Möglichkeit gäbe es ggf noch, um eine solche "schleifenkonforme" Schaltmöglichkeit der Relais einzuführen, ohne immer noch weitere if-then's oder "select-case-Kanal" bemühen zu müssen?
Oder ist die Sache eben doch nicht so einfach, weil es kreuz und quer durch die Ports geht?