Hallo Forum,
die Übergabe eines Ports in einem Sub macht mir Probleme. Innerhalb des Subs kann ich den Port nicht mehr toggeln.
Hier mein Quellcode (nur im Grundsatz):
LEDgn Alias PortD.5 : DDRD.5=1 : PortD.5=1 ' LED grün
Declare Sub CodeBlinker ( ByVal Port as Byte )
Do
Call CodeBlinker ( LEDgn )
Loop
Sub CodeBlinker( Port )
Port = Not Port
End Sub
In dieser Ausführung müsste die LED nun blinken, was sie aber nicht macht. Was mache ich denn da falsch?
die Übergabe eines Ports in einem Sub macht mir Probleme. Innerhalb des Subs kann ich den Port nicht mehr toggeln.
Hier mein Quellcode (nur im Grundsatz):
LEDgn Alias PortD.5 : DDRD.5=1 : PortD.5=1 ' LED grün
Declare Sub CodeBlinker ( ByVal Port as Byte )
Do
Call CodeBlinker ( LEDgn )
Loop
Sub CodeBlinker( Port )
Port = Not Port
End Sub
In dieser Ausführung müsste die LED nun blinken, was sie aber nicht macht. Was mache ich denn da falsch?