Ich habe die Schaltung wie oben skizziert ausprobiert. Als Port habe ich den ganz rechten PA0 genommen zusammen mit dem folgenden Programm:
Code:
$regfile = "m32def.dat" ' Bestimmung des Prozessors
$crystal = 16000000 ' Quarzfrequenz
$baud = 9600 ' RS232-Uebertragungsrate
$hwstack = 32
$framesize = 32
$swstack = 32
'###############################
'
'Programm zeigt Zustand von digitalem Port A Pin 3 über LED an€
'
'###############################
Config Adc = Single , Prescaler = Auto 'Für Tastenabfrage und Spannungsmessung
Config Porta = Input
' Alle internen Pullup Widerstände ein, bis auf Batteriespannungsmessungsport
Config Portc = Output
Do
Porta. = 1
If Pina.0 = 1 Then
Portc.1 = 0
Else
Portc.1 = 1
End If
Loop
Es blieben allerdings alle LED's an. Ist im Programm der Fehler?
Lesezeichen