RE: Schalter zu Taster

[Jan S. (Gast)]

Hallo und danke für eure Hilfe!
Die Lösung von Helfer funktioniert perfekt. Nur wie bekomme ich es hin, 
dass es mehrere "Umwandler" gibt? Dieser Code auf Basis von Helfer geht 
irgendwie nicht:

$regfile = "2313def.dat"
$crystal = 1000000

'        Vcc
'         |
'         # int. Pull Up
'         |
' Pin PD0 o----+
'              |
'               \ Schalter
'              |
'             GND
'
Config Pind.0 = Input
Config Pind.1 = Input
Config Pind.2 = Input


'
' Pin PB0 o--###-->|--o GND
'
Config Portb.0 = Output
Config Portb.1 = Output
Config Portb.2 = Output

'
' Ausgangsbedingungen
'
Dim P0_pegel As Byte
Dim P1_pegel As Byte
Dim P2_pegel As Byte

P0_pegel = Pind.0

Do
  If Pind.0 = 1 And P0_pegel = 0 Then
    ' Steigende Flanke 0 nach 1 erkennen und Aktion durchführen
    P0_pegel = 1
    Portb.0 = 1
    Waitms 80 ' Überspringt implizit Prellen
    Portb.0 = 0
  Elseif Pind.0 = 0 And P0_pegel = 1 then
    ' Fallende Flanke 1 nach 0 erkennen und P0_pegel zurücksetzen
    Waitms 20                                               ' Prellen abwarten
    P0_pegel = Pind.0
  End If

    If Pind.1 = 1 And P1_pegel = 0 Then
    ' Steigende Flanke 0 nach 1 erkennen und Aktion durchführen
    P0_pegel = 1
    Portb.1 = 1
    Waitms 80 ' Überspringt implizit Prellen
    Portb.1 = 0
  Elseif Pind.1 = 0 And P1_pegel = 1 Then
    ' Fallende Flanke 1 nach 0 erkennen und P0_pegel zurücksetzen
    Waitms 20                                               ' Prellen abwarten
    P1_pegel = Pind.1
  End If

    If Pind.2 = 1 And P2_pegel = 0 Then
    ' Steigende Flanke 0 nach 1 erkennen und Aktion durchführen
    P0_pegel = 1
    Portb.1 = 1
    Waitms 80 ' Überspringt implizit Prellen
    Portb.1 = 0
  Elseif Pind.2 = 0 And P2_pegel = 1 Then
    ' Fallende Flanke 1 nach 0 erkennen und P0_pegel zurücksetzen
    Waitms 20                                               ' Prellen abwarten
    P2_pegel = Pind.2
  End if
Loop

[Helfer (Gast)]

Bist du sicher, dass du die internen Pull ups nicht brauchst? Die fehlen 
in deinem Code. In der Vorlage 
(Beitrag "Re: Schalter zu Taster") sind die noch drin

> Portd.0 = 1 ' int. Pullup ein

[Jan S. (Gast)]

Entschuldigt, ich habe mich irgendwie verkickt und habe einen neuen 
Thread dafür eröffnet dabei sollte es nur eine Antwort sein :S

@Helfer: Die Pull-Up-Widerstände habe ich extra eingebaut, ist mir 
irgendwie lieber ;) Auch bevor ich deine Lösung kompiliert habe, habe 
ich die Zeile gelöscht, also sollte es nicht daran liegen.
Gruß, Jan

[Peter D. (peda)]

Du kannst gerne lange Programme schreiben. Nur wird die sich kaum ein 
Bascomer angucken, weil er weiß, daß es den Debounce Befehl gibt.

Man darf ruhig auch mal ins Bascom Manual reinschauen, ehe man drauflos 
programmiert.

AFAIK gibt es auch eine Portierung meiner 4-fach, 8-Tasten 
Entprellroutine nach Bascom. Der große Vorteil, sie kommt völlig ohne 
Delays aus.


Peter

[Helfer (Gast)]

Jan, dann solltest du das "geht irgendwie nicht" irgendwie genauer 
beschreiben.

Du darfst auch die Kommentare im Programm anpassen. Wenn in einem 
Kommentar ein interner Pull-up beschrieben ist, erwartet man auch die 
entsprechende Codezeile. Externe Pull ups ist PK, den alten Kommentar 
stehen zu lassen ist "Verarsche".

Du hast auch die Vorbesetzung von Px_state für P1 und P2 weggelassen.

[Helfer (Gast)]

Ersetze PK durch OK

[Helfer (Gast)]

> Du hast auch die Vorbesetzung von Px_state für P1 und P2 weggelassen.

P0_pegel = Pind.0
P1_pegel = Pind.1
P2_pegel = Pind.2

[Jan S. (Gast)]

>Zitat von Peter Dannegger
>Du kannst gerne lange Programme schreiben. Nur wird die sich kaum ein
>Bascomer angucken, weil er weiß, daß es den Debounce Befehl gibt.

Ich dachte, debounce ist nur für das entprellen zuständig ?!