hellraider
28.02.2006, 19:44
Hallo,
ich habe jetzt neu mit Bascom angefangen.
Ich hatte früher schon mal Erfahrungen mit dem 8051 in Basic gesammelt, bin deshalb nicht ganz fremd.
So schnell mal einen Prototypen zusammengebaut, und dann gings auch schon los.
Ich will zum testen die Ports einzeln ansprechen, und LED-Treiber
(ULN 2803) die daran angeschlossen sind zu testen.
Anbei mein Programm Auszug. Ich will hier nur Port C Pin 2
blinken lassen.
Die Pins 0 und 1 funktionieren einwandfrei.
Beim Testen mit dem Logiktester, stellte ich auch fest, das der Pin ( und 3 und 5 ) scheinbar in der Luft hängen.
Habe auch schon den Atmega16 getauscht ohne Erfolg.
Was mache ich falsch ?
$regfile = "m16def.dat"
$crystal = 8000000
Config Porta = Output
Config Portb = Output
Config Portc = Output
Config Portd = Output
Porta = 0
Portb = 0
Portc = 0
Portd = 0
Do
Portc.2 = 1
Waitms 20
Portc.2 = 0
Waitms 20
Loop
Danke schon mal im voraus.
Gruß
ich habe jetzt neu mit Bascom angefangen.
Ich hatte früher schon mal Erfahrungen mit dem 8051 in Basic gesammelt, bin deshalb nicht ganz fremd.
So schnell mal einen Prototypen zusammengebaut, und dann gings auch schon los.
Ich will zum testen die Ports einzeln ansprechen, und LED-Treiber
(ULN 2803) die daran angeschlossen sind zu testen.
Anbei mein Programm Auszug. Ich will hier nur Port C Pin 2
blinken lassen.
Die Pins 0 und 1 funktionieren einwandfrei.
Beim Testen mit dem Logiktester, stellte ich auch fest, das der Pin ( und 3 und 5 ) scheinbar in der Luft hängen.
Habe auch schon den Atmega16 getauscht ohne Erfolg.
Was mache ich falsch ?
$regfile = "m16def.dat"
$crystal = 8000000
Config Porta = Output
Config Portb = Output
Config Portc = Output
Config Portd = Output
Porta = 0
Portb = 0
Portc = 0
Portd = 0
Do
Portc.2 = 1
Waitms 20
Portc.2 = 0
Waitms 20
Loop
Danke schon mal im voraus.
Gruß