Hallo Leute!
Ich steh hier ziemlich auf dem Schlauch. Warum rühren sich die Ports nicht?
Auch mit der ausgeklammerten Version tut sich nix. Nicht mal im Simulator.
Warum?? Bitte um euren Rat!
Ps: Ich würde damit gerne ein Lauflicht über alle Ports realisieren.
CodeBox BascomAVR
Ich steh hier ziemlich auf dem Schlauch. Warum rühren sich die Ports nicht?
Auch mit der ausgeklammerten Version tut sich nix. Nicht mal im Simulator.
Warum?? Bitte um euren Rat!
Ps: Ich würde damit gerne ein Lauflicht über alle Ports realisieren.
CodeBox BascomAVR
$regfile = "m328pdef.dat"
$crystal = 16000000
'Configs
Config Portd = Output
Config Portb = Output
Config Portc = Output
'Variable
Dim Z As Byte , Z2 As Byte
Dim Led As Long
'(
For Z = 0 To 7
Portd.z Alias Led.z
Next Z
For Z = 8 To 13
Z2 = Z - 8
Portb.z2 Alias Led.z
Next Z
For Z = 14 To 19
Z2 = Z - 14
Portc.z2 Alias Led.z
Next Z
')
Portd.0 Alias Led.0
Portd.1 Alias Led.1
Portd.2 Alias Led.2
Portd.3 Alias Led.3
Portd.4 Alias Led.4
Portd.5 Alias Led.5
Portd.6 Alias Led.6
Portd.7 Alias Led.7
Portb.0 Alias Led.8
Portb.1 Alias Led.9
Portb.2 Alias Led.10
Portb.3 Alias Led.11
Portb.4 Alias Led.12
Portb.5 Alias Led.13
Portc.0 Alias Led.14
Portc.1 Alias Led.15
Portc.2 Alias Led.16
Portc.3 Alias Led.17
Portc.4 Alias Led.18
Portc.5 Alias Led.19
Do
For Z = 0 To 19
Led.z = 1
Waitms 100
Led.z = 0
Waitms 100
Next
Loop
