Onkelono
16.01.2005, 22:41
Erst einmal Hallo zusammen,
ich habe meinem ersten AVR-Board ein Problem.
Ich nutze folgenden Code, um die LED'S an PORT C anzusteuern:
$crystal = 1000000
$regfile = "m16def.dat"
Dim I As Integer
Dim N As Integer
Config Portc = Output
For N = 1 To 100
For I = 0 To 7
Portc.i = 0
Waitms 100
Portc.i = 1
Next I
Next N
Nun leuchten aber nur die LED's 1,2,7,8 die LED's 3,4,5,6 bleiben dunkel.
Elektrisch sollte es funktionieren. Ich habe den MEGA 16 demontiert und die Pin's mit nem Draht auf Masse gelegt. Alle LED's leuchten dann.
Auch einen anderen M16 habe ich ausprobiert. Das gleiche Ergebnis.
Was habe ich falsch gemacht? Warum leuchten die mittleren LED's nicht?
Ich danke Euch für die Hilfe
Gruß Ingo
ich habe meinem ersten AVR-Board ein Problem.
Ich nutze folgenden Code, um die LED'S an PORT C anzusteuern:
$crystal = 1000000
$regfile = "m16def.dat"
Dim I As Integer
Dim N As Integer
Config Portc = Output
For N = 1 To 100
For I = 0 To 7
Portc.i = 0
Waitms 100
Portc.i = 1
Next I
Next N
Nun leuchten aber nur die LED's 1,2,7,8 die LED's 3,4,5,6 bleiben dunkel.
Elektrisch sollte es funktionieren. Ich habe den MEGA 16 demontiert und die Pin's mit nem Draht auf Masse gelegt. Alle LED's leuchten dann.
Auch einen anderen M16 habe ich ausprobiert. Das gleiche Ergebnis.
Was habe ich falsch gemacht? Warum leuchten die mittleren LED's nicht?
Ich danke Euch für die Hilfe
Gruß Ingo