Hallo Javik,
Bascom stellt Dir frei, ob der Int bei fallender oder steigender Flanke ausgelöst werden soll.
Habe keinen Mega32 zum testen....aber so sollte es doch klappen:
$crystal = 16000000
$regfile = "m32def.dat"
'-----------------------------------
Config Int0 = Falling 'extern. Interrupt Config
Config Int1 = Falling
Config Int2 = Falling
On Int0 Int0_routine
On Int1 Int1_routine
On Int2 Int2_routine
Enable Int0
Enable Int1
Enable Int2
Enable Interrupts
'-----------------------------------
Dim Variable_1 As Byte ' Variablen deklarieren
Dim Variable_2 As Byte
Dim Variable_3 As Byte
'-----------------------------------
Do 'Hauptprogramm
Loop
End
'-----------------------------------
Int0_routine: 'Interruptroutine 0
Incr Variable_1
If Variable_1 = 255 Then
Variable_1 = 0
End If
Return
'-----------------------------------
Int1_routine: 'Interruptroutine 1
Incr Variable_2
If Variable_2 = 255 Then
Variable_2 = 0
End If
Return
'-----------------------------------
Int2_routine: 'Interruptroutine 2
Incr Variable_3
If Variable_3 = 255 Then
Variable_3 = 0
End If
Return
Viele Grüße
Daniel
Lesezeichen