znalazłem taki program do obsługi przycisku wielofunkcyjnego
[syntax=basic4gl]'*******************************************************************************
'SampleCode by Galahat @ Bascom-Forum.de
'----------------------------------------
' August, 2011
' ---------------------------------------
'Mehfachausnutzung eines Tasters
' Single-, Doubble-, TrippleKlick + Halten
'*******************************************************************************
$regfile = "m644pdef.dat" ' specify the used micro
$crystal = 16000000
$baud = 19200 ' use baud rate
$hwstack = 128 ' default use 32 for the hardware stack
$swstack = 128 ' default use 10 for the SW stack
$framesize = 128 ' default use 40 for the frame space
$lib "glcdKS108.lbx"
'First we define that we use a graphic LCD
Config Graphlcd = 128 * 64sed , Dataport = Porta , Controlport = Portb , Ce = 1 , Ce2 = 0 , Cd = 4 , Rd = 3 , Reset = 2 , Enable = 5
'Timerinterval 10ms einrichten , CTC-Mode
Config Timer1 = Timer , Prescale = 8 , Clear Timer = 1
Compare1a = &H4800
On Compare1a Tmr_isr
Enable Compare1a
Taster Alias Pind.0
Config Taster = Input
Portd.0 = 1
Enable Interrupts
'_______________________________________________________________________________
'-------------------------------------------------------------------------------
Const True = 1 : Const False = 0
Dim Counts_pressed As Byte , Counts_released As Byte , Clicks As Byte
Dim Key_state As Byte , Old_key_state As Byte , Key_event As Byte
Const Key_not_pressed = 0
Const Key_long_pressed = 1
Const Key_single_klick = 2
Const Key_double_klick = 3
Const Key_tripple_klick = 4
Dim Tmr_event_1 As Byte
Cls
'_______________________________________________________________________________
'-------------------------------------------------------------------------------
Do
If Tmr_event_1 = True Then
Tmr_event_1 = False
Gosub Key_manager
If Key_event = True Then
Select Case Key_state
'Case Key_not_pressed : Print "Key_not_pressed"
Case Key_long_pressed :
Cls : Setfont My6_8 : Lcdat 1 , 26 , "Key_long_pressed"
Case Key_single_klick :
Cls : Setfont My6_8 : Lcdat 2 , 26 , "Key_single_klick"
Case Key_double_klick :
Cls : Setfont My6_8 : Lcdat 3 , 26 , "Key_double_klick"
Case Key_tripple_klick :
Cls : Setfont My6_8 : Lcdat 4 , 26 , "Key_tripple_klick"
End Select
End If
End If
Loop
End
'_______________________________________________________________________________
'-------------------------------------------------------------------------------
Key_manager:
'Betätigungsprüfung
If Taster = 0 Then
If Counts_released < 15 Then Incr Clicks 'Wiederholte Betätigung
If Counts_pressed < 100 Then Incr Counts_pressed 'Betätigungsdauer
Counts_released = 20
Else
If Counts_released <> 0 Then Decr Counts_released 'Keine Betätigung mehr
Counts_pressed = 0
End If
'Auswertung
If Counts_pressed = 50 Then 'langer Tastendruck
Key_state = Key_long_pressed
Clicks = 0
Counts_pressed = 100
End If
If Counts_released = 0 Then
Select Case Clicks
Case 0 : Key_state = Key_not_pressed
Case 1 : Key_state = Key_single_klick
Case 2 : Key_state = Key_double_klick
Case 3 : Key_state = Key_tripple_klick
End Select
Clicks = 0
End If
'Ergebnis
If Old_key_state <> Key_state Then
Old_key_state = Key_state
Key_event = True
Else
Key_event = False
End If
Return
'_______________________________________________________________________________
'-------------------------------------------------------------------------------
Tmr_isr:
Tmr_event_1 = True
Return
$include "my12_16.font"
$include "my6_8.font"
$include "font16x16.font"[/syntax]
ale wykorzystuje Timer1 , który już mam użyty w innym podprogramie czy nie można zamienić lub ustawić by współdziałały razem
poniżej konfiguracja Timer1 w podprogramie
[syntax=basic4gl]Const 750ms = 42098 ' @ 8Mhz
Config Timer1 = Timer , Prescale = 256
On Timer1 Timer1_int[/syntax]Statystyki: Napisane przez slawek3000 — 1 lis 2014, o 08:40
]]>