Probleme mit Inputs vom Mega16; ich kann sie nicht auslesen
Hi,
ich habe ein komisches Problem mit dem Mega16. Ich möchte
Code:
$regfile = "m16def.dat"
$crystal = 8000000
...
Config Porta.4 = Input
...
Config Portb.4 = Input
Config Portb.6 = Input
...
Config Adc = Single , Prescaler = Auto , Reference = Avcc
...
Enter Alias Porta.4
Plus Alias Portb.4
Minus Alias Portb.6
Do
Cls
If Enter = 0 Then
Locate 1 , 1
Lcd "Enter"
End If
If Plus = 0 Then
Locate 1 , 8
Lcd "plus"
endif
If Minus = 0 Then
Locate 2 , 1
Lcd "minus"
endif
Waitms 100
Loop
Die dre Eingänge, die von Pull-Up-Widerständen auf 5V hoch gezogen werden, sind mit Taster nach GND verbunden. Allerdings reagiert das Programm darauf nicht, es liest nur dauerhaft 0 ein.
Wenn ich die Spannung am Pin messe, ist diese auch Null, auch wenn die Taster nicht gedrückt sind. Daher gehe ich davon aus, dass irgendweswegen eine Null am Pin ausgegeben wird.
Kann es an den ConfigBits liegen? Wenn ja, an welchen?
Oder leigt es daran, dass ich den ADC des PortA verwende?
Schonmal Danke für eure Hilfe!
Gruß
Jan
Re: Probleme mit Inputs vom Mega16; ich kann sie nicht ausle
Zitat:
Zitat von x8r
Config Porta.4 = Input
Enter Alias Porta.4
If Enter = 0 Then
Einlesen musst du die Anschlüsse mit Pinx.y, also schreib mal
Enter Alias Pina.4
Dann klappt's.
Gruß
Rolf