Mam problem z encoderem czy kręcąc w lewo czy w prawo zlicza raz odejmując zmienną raz ją dodając
kod poniżej
[syntax=basic4gl]'Filename Encoder_100.bas
'Version 1.00
'Date 2012-03-19
'Purpose Test of ALPS STEC11B13 encoder (reichelt.de)
'Author Georg Latzel, DL6GL
'Copyright (c) Georg Latzel, free for private use under GNU license
'Hardware ATmega8
' Crystal 16 MHz
' 2x16 Text LCD @ PortC
' Encoder A @ PortB.0
' Encoder B @ PortB.1
'Compiler BASCOM-AVR 2.0.7.3
' For readable "camel case" variables mark "Don't change case"
' in BASCOM Options-Programmer-Environment-Editor
' Flash used: 1420 bytes (17%)
'Edit history
'V1.00 2012-03-19, first release
'==============================================================================
'FUSE-Bits (Ponyprog-Settings, [ ]=no check, [x]=check)
'In ATmega data sheets: Bit = 1 -> not set = [ ] Ponyprog
' Bit = 0 -> set = [x] Ponyprog
'- OCDEN [ ]
'- JTAGEN: [ ] (disabled!, otherwise LCD at PORT.C does not work)
'- EESAVE [ ] Save EEProm on erase chip
'- BOOTSZ1 [x] Select Boot size
'- BOOTSZ0 [x] Select Boot size
'- BOOTRST [ ] Select reset vector
'- Crystal oscillator
' CKOPT: [ ] (=1, low Oscillator amplitude or=1, [x], high ampl.)
' CKSEL3: [ ] (=1, Select Clock Source)
' CKSEL2: [ ] (=1, as well)
' CKSEL1: [ ] (=1, as well)
' CKSEL0: [ ] (=1, crystal osc. fast start up 16k CK + 4ms)
' SUT1: [ ] (=1, as well)
' SUT0: [x] (=0, as well)
$regfile = "m644pdef.dat" ' specify the used micro
$crystal = 16000000
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' 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 = 0 , Ce2 = 1 , Cd = 4 , Rd = 3 , Reset = 2 , Enable = 5
'Configure Encoder on Port B --------------------------------------------------
Ddrd = &B00000000 'Portd = input
Portd = &B11111111 'Activate Pullup
' 'PIND.0 = Encoder Pin A
' 'PIND.1 = Encoder Pin B
' 'PIND.2 = Encoder key
Enc_a Alias Pind.0 'Encoder A
Enc_b Alias Pind.2 'Encoder B
Enc_k Alias Pind.1 'Encoder key
'Configure Timer0 interrupt for encoder --------------------------------------
'Timer0 = 8 bit
'Overflow time: overflow counts * Prescale / crystal frequency
'= 256 * 256 / 16.000.000 Hz = 4,1 msec = ~ 244 Hz
'Here Prescale = 256
'The encoder is polled every 4,1 msec. To shorten time set PresetTimer 0 > 0
'Possible Prescales: 8, 64, 256, 1024
Config Timer0 = Timer , Prescale = 256
Const Presettimer0 = 0 'Initialize Timer0
On Timer0 Timer0_isr 'Timer0 Interrupt service routine
'Common Variables, multiply used ----------------------------------------------
Dim Lngfreq As Long
Dim Lngstep As Long
Dim Strfreq As String * 9
'Variables Encoder -----------------------------------------------------------
Dim Bytincr As Byte '=2: Encoder incr., =1: decr., =0: ./.
Dim Bytenc_old As Byte
Dim Bytenc_new As Byte
Dim Bitkey_enc As Bit 'Encoder key, =1: pressed
Const Doublestep = 0 '=1: intermediate position detected
Declare Sub Clearlcdline(byval Bytline As Byte)
'Main program ****************************************************************
Cls
Lngfreq = 14000000
Lngstep = 10
Strfreq = Str(lngfreq)
Strfreq = Format(strfreq , " 0.000000")
Setfont My12_16 : Lcdat 3 , 20 , Strfreq
Bytenc_old = 0 'Encoder data
Bytenc_new = 0 'Encoder data
Bytincr = 0
Enable Timer0 'Interrupt encoder
Enable Interrupts 'enable all Interrupts
Do
Disable Timer0 'Stop Timer0 for display
Select Case Bytincr 'Set/show TRX freq.
Case 2 'Encoder incremented
Lngfreq = Lngfreq + Lngstep
Case 1 'Encoder decremented
Lngfreq = Lngfreq - Lngstep
End Select
Setfont My6_8 : Lcdat 1 , 5 , Bytincr
If Bytincr > 0 Then 'Freq. was changed
Strfreq = Str(lngfreq)
Strfreq = Format(strfreq , " 0.000000")
'Call Clearlcdline(2)
Setfont My12_16 : Lcdat 3 , 20 , Strfreq
Bytincr = 0 'Reset increment flag
End If
Enable Timer0 'Restart Timer0
Loop
End
'End of main program **********************************************************
'------------------------------------------------------------------------------
Timer0_isr:
'Encoder interrupt on Timer0 overflow
'While data are displayed Timer0 should be stopped
'Output: bytIncr = 2: increment, =1: decrement if encoder was changed
'Having processed the bytIncr data in the main program reset bytIncr = 0
'Switching pattern of ALPS STEC11 encoder:
'Turning clockwise ... counter clockwise
'A B A B
'1 1 start detent position 1 1
'1 0 intermediate position 1 0 1
'0 0 intermediate position 2 0 0
'0 1 intermediate position 3 1 0
'1 1 next detent position 1 1
Timer0 = Presettimer0
Bytenc_new.0 = Enc_a 'Set bit 0 of bytEnc_new
Bytenc_new.1 = Enc_b 'Set bit 1 of bytEnc_new
'Check encoder pattern if encoder is changed
'bytIncr = 1: decremented (turned counter clockwise)
'bytIncr = 2: incremented (turned clockwise)
If Bytenc_new <> Bytenc_old Then 'encoder is changed
'from intermediate position 3 to quiescent position
If Bytenc_new = &B00000011 And Bytenc_old = &B00000010 Then Bytincr = 2
If Bytenc_new = &B00000011 And Bytenc_old = &B00000001 Then Bytincr = 1
'from intermediate position 1 to intermediate position 2
'DoubleStep = 1: intermediate position 2 gives an additional tick
' 2 ticks between 2 detent positions on slow rotation
' = 0: 1 tick between 2 detent positions
#if Doublestep = 1
If Bytenc_new = &B00000000 And Bytenc_old = &B00000001 Then Bytincr = 2
If Bytenc_new = &B00000000 And Bytenc_old = &B00000010 Then Bytincr = 1
#endif
Bytenc_old = Bytenc_new 'old <- new for the next time
End If
Return
'------------------------------------------------------------------------------
Sub Clearlcdline(byval Bytline As Byte)
'Clear LCD line bytLine
Locate Bytline , 1
Lcd Spc(16)
Locate Bytline , 1
End Sub
'------------------------------------------------------------------------------
$include "my12_16.font"
$include "my6_8.font"[/syntax]Statystyki: Napisane przez slawek3000 — 23 sie 2014, o 06:32
]]>