Geistesblitz
09.11.2011, 23:51
Hallo Community
Ich bin gerade dabei, mit Bascom weiter herum zu experimentieren. Hab gerade erst letztes Wochenende mal ein ordentliches Experimentierboard zusammengelötet und teste es jetzt auf seine Funktionsfähigkeit. Ports als Output verwenden funktioniert hervorragend, allerdings bekomm ich keinen Input-Pin richtig konfiguriert. Programm sieht wie folgt aus:
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 9600
Config Portc.0 = Input
Config Portc.1 = Output
Portc.0 = 1 'internen Pull-Up einschalten
Do
If Portc.0 = 1 Then
Portc.1 = 1
Else
Portc.1 = 0
End If
Loop
End
An Portc.0 ist ein Taster, an Portc.1 eine Led mit Vorwiderstand.
Leider tut sich nichts. Hab auch schon den Pin gewechselt, externen Pull-up gesetzt, einen anderen Controller eingesetzt, den Pin mittels Litze direkt mit Vss bzw. Gnd verbunden, nichts hilft :(
Pins funktonieren als Output wie gesagt top, aber irgendwas mach ich beim Konfigurieren als Input wohl falsch...
Ich bin gerade dabei, mit Bascom weiter herum zu experimentieren. Hab gerade erst letztes Wochenende mal ein ordentliches Experimentierboard zusammengelötet und teste es jetzt auf seine Funktionsfähigkeit. Ports als Output verwenden funktioniert hervorragend, allerdings bekomm ich keinen Input-Pin richtig konfiguriert. Programm sieht wie folgt aus:
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 9600
Config Portc.0 = Input
Config Portc.1 = Output
Portc.0 = 1 'internen Pull-Up einschalten
Do
If Portc.0 = 1 Then
Portc.1 = 1
Else
Portc.1 = 0
End If
Loop
End
An Portc.0 ist ein Taster, an Portc.1 eine Led mit Vorwiderstand.
Leider tut sich nichts. Hab auch schon den Pin gewechselt, externen Pull-up gesetzt, einen anderen Controller eingesetzt, den Pin mittels Litze direkt mit Vss bzw. Gnd verbunden, nichts hilft :(
Pins funktonieren als Output wie gesagt top, aber irgendwas mach ich beim Konfigurieren als Input wohl falsch...