Such mal nach Taster entprellen.
Da gibts bestimmt einige codes im net vorallen so einfach wie du es willst.
so könnte dies aussehen
Do
Debounce Pinb.2 , 1 , Hauseingang , Sub
Debounce Pinb.1 , 1 , Toreingang , Sub
Debounce Pinb.0 , 1 , Katzenhaus , Sub
Debounce Pinb.6 , 1 , Realis , Sub
Loop
mit frdl grüßen
Entprellen ist aber eine wirklich gute Idee...
Eigentlich hast du doch schon genau geschrieben, was du machen willst. Das kannst du fast genau so in ein Programm umsetzen.
Also regelmäßig (Hauptschleife zum Beispiel) nachsehen, ob der Taster gedrückt wurde. Wenn er gedrückt wurde den Ausgang einschalten (eventuell kann man auch kurz warten und noch mal nachsehen, ob die Taste immer noch gedrückt ist, wenn nicht, nix machen), wenn er aus war und ausschalten, wenn er an war (kann man sich in einer Variablen merken oder der Ausgang auslesen). Außerdem (jetzt kommt das Entprellen) erst dann wieder was machen, wenn der Eingang mit dem Taster wieder aus ist und zwar für eine gewisse Zeit (27 Schleifendurchläufe oder so). Wenn du das nicht machst, kann es passieren, dass du zig mal auf die Taste hämmern musst, damit das Licht so ist, wie du es haben möchtest. Taster geben nämlich nicht nur keinen Kontakt oder Kontakt, sondern wechseln beim Drücken (und auch beim loslassen) sehr oft hin und her.
das wechseln eines ausganges funktioniert dann so
Sub Realis
'Portb = &B00011100 'weiß nicht für was das gut sein soll
Toggle Portd.6
Toggle Portb.7
Wait 1
Cls
Locate 1 , 1
Lcd " Deaktiviert"
Locate 2 , 1
Lcd " SCHARF"
End Sub
ich weiß nicht ob dir das hilft, da ich nicht weiß was du genau machen willst.
mit frdl grüßen
Nee, verstanden habe ich das nicht, aber ich dachte, du willst mit einem Taster an einem Eingang (PB.7) einen Ausgang (PB.4) schalten. (Eingang und Ausgang bitte nicht verwechseln und auch nicht wild durcheinander schmeißen.) Einmal Taster drücken ==> Ausgang Ein, nochmal Taster drücken ==> Ausgang Aus, wieder Taster drücken == Ausgang wieder Ein und so weiter. Für mich ist das ein Umschalten des Ausgangs mit einem Taster. Jedes Mal, wenn der Taster gedrückt wird, ändert sich der Zustand des Ausgang (wenn er Aus war geht er auf Ein, wenn er Ein war, geht er auf Aus).
Das ist die eigentliche Funktion.
So. Damit diese Funktion auch so funktioniert, wie gewünscht, muss der Taster noch entprellt werden. Die Funktion zum entprellen ist unabhängig von der Funktion 'Ausgang schalten' und kann auch so programmiert werden (oder jemand hat das in BASCOM schon gemacht, weiß ich nicht).
hatte ich dir schonmal geschrieben
??? Portb = &B00001000 ???
weiß immer noch nicht, was du damit erreichen willst, ausser dir selber fehler einzubauen.
durch sowas schaltest du den ganzen port B.
mit frdl grüßen
was ich auch noch sehe, ist das in den einzelnen subs, auch portb.7 geschaltet wird einmal aus und dann wieder ein.
vielleicht hilft dir das was
mit frdl grüßen
BITTE eigne dir doch endlich mal Grundlagenwissen über das an, was du da machst. Und denke mal 2min über das was du schreibst nach...
PS: hab da gehört das ELSE den eingang schalten kann?!?
1.) ELSE gehört zu IF, mehr will ich da garnicht zu schreiben, denn das ist eigentlich das ersten Konstrukt mit dem man sich überhaupt befasst, wenn man mit Programmieren beginnt.
2.) Wie soll ein EINGANG geschaltet werden?
Hey Thorsten
Hier ist ein super hilfreiches BASCOM (BASIC) Tuturial!
http://halvar.at/elektronik/kleiner_bascom_avr_kurs/
Gruß
Denis
