PCINT0 und Bascom Rising/Falling

[Manfred S. (Firma: Manfred) (xfred343)]

Schönen Abend,

hab heute abends ein Miniprojekt für meine Tochter gemacht: einen 
Puzzle-Leuchtturm mit 3 LEDs beleuchten. Ist schon toll, wie schnell das 
mit AVR geht - kleine runde Lochrasterplatine bestückt, Atiny gesockelt, 
10-pol ISP eingelötet, 3 LEDs mit Vorwiderstand, 1 Taster, 
Knopfzellenhalter für CR2025 und Schottkydiode zur Trennung vom 
Programmer.

Klappt alles wunderbar, geschaltet wird das mit einem Taster zwischen 
PIN2 (PCINT3) und Ground - mit PCMSK=8 wird dieser Interrupt gewählt.

Einzige Frage, die bleibt: wie kann zwischen Falling und Rising beim 
PCINT unterschieden werden - denn beim Drücken der Taste löst er immer 
2x aus, wodurch das Miniprogramm noch nicht optimiert ist...

$regfile = "attiny13.dat"
$crystal = 600000
$hwstack = 32
$framesize = 4
$swstack = 20
Dim Xon As Long
Dim Xfeuer As Byte
Ddrb = &B00000111
Taster Alias Pinb.3
Portb.3 = 1
Portb.4 = 1
Portb.5 = 1
Pcmsk = 8
Weissa Alias Portb.0
Weissb Alias Portb.1
Rot Alias Portb.2
Stop Adc
Stop Ac
Stop Watchdog
Enable Pcint0
Enable Interrupts
On Pcint0 Int3_isr
Xon = 0
Do
  If Xon = 0 Then
      Weissa = 0
      Weissb = 0
      Rot = 0
      Xfeuer = 0
      Power Powerdown
  End If
  Select Case Xfeuer
  Case 1 To 2
     Weissa = 1
     Wait 1
     Weissa = 0
     Wait 1
     Rot = 1
     Wait 1
     Rot = 0
     Wait 1
     Weissb = 1
     Wait 1
     Weissb = 0
     Wait 2
  Case 3 To 4
     Weissa = 1
     Weissb = 1
     Wait 1
     Weissa = 0
     Weissb = 0
     Rot = 1
     Wait 1
     Rot = 0
     Wait 2
  Case 5 To 6
     Weissa = 1
     Weissb = 1
     Rot = 1
     Wait 1
     Weissa = 0
     Weissb = 0
     Rot = 0
     Wait 1
  Case 7 To 8
     Weissa = 1
     Waitms 100
     Weissa = 0
     Waitms 100
     Weissb = 1
     Waitms 100
     Weissb = 0
     Waitms 100
     Rot = 1
     Waitms 100
     Rot = 0
  Case 9 To 10
     Weissa = 1
     Weissb = 1
     Waitms 80
     Weissa = 0
     Weissb = 0
     Waitms 80
     Rot = 1
     Waitms 80
     Rot = 0
  Case Else
     Xon = 1
  End Select
  Decr Xon
Loop
End

Int3_isr:
Weissa = 1
Weissb = 1
Rot = 1
Waitms 500
Weissb = 0
Weissa = 0
Rot = 0
Waitms 100
Xon = Xon + 255
Incr Xfeuer
Return

[Sebastian (Gast)]

Der Code wirkt etwas unorthodox auf mich. In der ISR einen Wait-Befehl 
einzubauen ist oft nicht so günstig.

Normalerweise startet man mit Config Int0 = Rising  / Falling. Wie man 
das über PCMSK realisiert, weiß ich nicht.

Du meinst aber wohl eher etwas was um Deinen Taster zu entprellen. Da 
hilft DEBOUNCE in Kombination mit Bitwait.

Debounce Taste , 0 , Subroutine_to_go , Sub

Subroutine_to_go:
  Bitwait Taste , Reset.....

[Manfred S. (Firma: Manfred) (xfred343)]

Hallo Sebastian,

der Code ist "bewusst unorthodox", da ein Debouncen damit nicht 
notwendig ist - die Variable wird immer exakt  um 2 hochgezählt, daher 
die Notwendigkeit auf Falling zu prüfen

[spess53 (Gast)]

Hi

>Einzige Frage, die bleibt: wie kann zwischen Falling und Rising beim
>PCINT unterschieden werden

Man prüft einfach den Zustand des Pins.

MfG Spess

[Manfred S. (Firma: Manfred) (xfred343)]

spess53 schrieb:
> Hi
>
>>Einzige Frage, die bleibt: wie kann zwischen Falling und Rising beim
>>PCINT unterschieden werden
>
> Man prüft einfach den Zustand des Pins.
>
> MfG Spess

Super Danke, hmm - so einfach wärs gewesen..