Was mache ich falsch?

[Alex (Gast)]

Hallo,

ich bin blutiger Anfänger.....und möchte ein Relais über Taster und
Fernbedienung schalten. Benutzt wird ein 2323. Der IR-Empfänger ist an
PB0, der Taster an PB1 und der Ausgang an PB2. Hier mein Code, erstmal
nur für den Taster:

Config Pinb.1 = Input
Config Pinb.2 = Output
Config Debounce = 500

Do

Debounce Pinb , 1 , 1 , Tg , Sub

Tg:
If Pinb.1 = 1 Then
 Toggle Pinb.2

Waitms 350

End If
Loop
End

Leider funktioniert es nicht :-( Ich probiere schon seit zwei Tagen
herum...ohne Erfolg, von der Fernbedienung ganz zu schweigen. Alle
möglichen Codebeispiele konnte ich nicht zum Laufen bringen. Ich bin
für Hilfe dankbar.

Alex

[Rufus T. Firefly (Gast)]

Schreib mal statt

  Toggle Pinb.2

das hier:

  Toggle Portb.2

In Bascom ist Pin ist nur zum Lesen von I/O-Leitungen, zum Schreiben
muss Port verwendet werden.

[Alex (Gast)]

Für die, die es interressiert; Hab den Schalter wieder gegen Masse
gelegt (vorher gegen Plus) und diesen Code zum laufen gebracht;

Config Portb.1 = Input
Portb.1 = 1
Config Portb.2 = Output
Config Debounce = 500

Do

Debounce Portb , 1 , 1 , Tg , Sub

Tg:
If Pinb.1 = 0 Then
 Toggle Portb.2

Waitms 350

End If
Loop
End

Jetzt muß ich nur noch die Fernbedienung reinbasteln. Bin weiterhin für
Tips dankbar

Alex

[Dirk (Gast)]

Hi,


dein Code beinhaltet einige unlogische Sachen.

Config Portb.1 = Input
Portb.1 = 1
Config Portb.2 = Output
Config Debounce = 30


main:
Do
Debounce Portb , 1 , 1 , Tg , Sub
loop
end

Tg:
If Pinb.1 = 0 Then
 set PORTB.2
End If
return

Der Code ist optimiert und der Progammablauf stimmt wieder.

Wieso du das Bit toggelst wenn es nur "0" ist verstehe ich nicht,
deshalb hab ich das durch SET ... ersetzt.

Mfg
Dirk