Interrupt + Taster

[Markus D. (trmax)]

Hallo

Ich würde gerne mittels einen Taster eine Variable setzten. Der Taster 
soll dazu einen IR auslösen. Leider läuft der Code nicht ganz:

  $regfile = "m128def.dat"                                   'Die Anweisung bestimmt Controllertyp, hier AVR Mega 32
 $crystal = 16000000                                        'Die Frequenz des verwendeten Quarzes
 $baud = 4800

 Config Int7 = Falling
 Enable Interrupts
 On Int7 Isr_von_int7 0
 Enable Int7
 Dim Var1 As Bit

 Do
   Print Var1
   Loop
 End



Isr_von_int7:                                               'ISR von Int7


If Var1 = 0 Then
   Var1 = 1
Else
   Var1 = 0
End If


Return

Hat jemand eine Ahnung was da haben könnte?

Beste Grüße

[Markus D. (trmax)]

Ok hier die Lösung:

  $regfile = "m128def.dat"                                   'Die Anweisung bestimmt Controllertyp, hier AVR Mega 32
 $crystal = 16000000                                        'Die Frequenz des verwendeten Quarzes
 $baud = 4800

 Config Int7 = Falling
 Enable Interrupts
 On Int7 Isr_von_int7
 Enable Int7

Dim Switch As Bit
Config Portd.4 = Input                                      'Hier isteine Taste angeschlossen
Config Portg.3 = Output
Portd.4 = 1
Config Debounce = 100

 Do
   If Switch = 1 Then
    Portg.3 = 1
   End If
   If Switch = 0 Then
    Portg.3 = 0
   End If
   Loop
 End



Isr_von_int7:                                               'ISR von Int7


Debounce Pind.4 , 0 , Schalter , Sub


Schalter:
Toggle Switch
Return


Return

war doch nicht so schwer ;)

[Peter D. (peda)]

Markus Duschek schrieb:
>

> Config Debounce = 100
> ...
> Isr_von_int7:                                               'ISR von
> Int7
> Debounce Pind.4 , 0 , Schalter , Sub
>

>
> war doch nicht so schwer ;)

Ist ja auch nicht richtig.

Wenn Dein Programm mal größer werden wird (wovon beim Mega128 Monster 
auszugehen ist), wirst Du merken, daß elend lange 100ms Warten im 
Interrupt ziemlich tödlich ist.
Z.B. eine UART wird dann Zeichen verlieren, eine SW-PWM flankern wie 
wild usw.

Ich kann Dir nur zeigen, wie man es in C macht. Ich glaub, daß das 
jemand schonmal nach Bascom portiert hatte.


Peter