[syntax=basic4gl]$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 = 1 , Ce2 = 0 , Cd = 4 , Rd = 3 , Reset = 2 , Enable = 5
Ddrd = &B00000000 'Portd = input
Portd = &B11111111 'PINB.0 = Encoder Pin A
' 'PINB.1 = Encoder Pin B
' 'PINB.2 = Encoder key
Enc_a Alias Pind.7 'Encoder A
Enc_b Alias Pind.6 'Encoder B
Enc_k Alias Pind.5 '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
Dim Modulacja As Byte
Const Doublestep = 0 '=1: intermediate position detected
'Main program ****************************************************************
Cls
Lngfreq = 14000000
Lngstep = 10
Modulacja = 1
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
If Bytincr > 0 Then 'Freq. was changed
Strfreq = Str(lngfreq)
Strfreq = Format(strfreq , " 0.000000")
Setfont My12_16 : Lcdat 3 , 20 , Strfreq
Bytincr = 0 'Reset increment flag
End If
Enable Timer0 'Restart Timer0
Debounce Pind.0 , 0 , Rit_sub , Sub 'RIT
Debounce Pind.1 , 0 , Modechange , Sub
Loop
End
Wyswietlacz:
Setfont My6_8 : Lcdat 1 , 26 , "&" :
Setfont My6_8 : Lcdat 5 , 1 , "^" : Lcdat 5 , 10 , "1" , 1 : Lcdat 5 , 20 , "ATT" : Lcdat 5 , 40 , "0dB" , 1 : 'Line(57 , 32) -(57 , 39) , 1
Setfont My6_8 : Lcdat 6 , 1 , "S ~1~3~5~7~9+20+40 dB" :
Setfont My6_8 : Lcdat 8 , 1 , "Po 10 30 50 100" :
Setfont Font16x16 : Lcdat 1 , 40 , "&"
Setfont Font16x16 : Lcdat 1 , 60 , "'"
Setfont Font16x16 : Lcdat 1 , 80 , "("
Setfont Font16x16 : Lcdat 1 , 100 , ")"
'Boxfill(0 , 48) -(1 , 54) , 1 ' show circle
'Line(0 , 54) -(0 , 48) , 1
Boxfill(0 , 48) -(1 , 54) , 1
Boxfill(3 , 48) -(4 , 54) , 1
Boxfill(6 , 48) -(7 , 54) , 1
Boxfill(9 , 48) -(10 , 54) , 1
Boxfill(12 , 48) -(13 , 54) , 1
If Modulacja = 1 Then
Setfont My6_8 : Lcdat 1 , 2 , "CW "
Elseif Modulacja = 2 Then
Setfont My6_8 : Lcdat 1 , 2 , "LSB"
Elseif Modulacja = 3 Then
Setfont My6_8 : Lcdat 1 , 2 , "USB"
Elseif Modulacja = 4 Then
Setfont My6_8 : Lcdat 1 , 2 , "AM "
Elseif Modulacja = 5 Then
Setfont My6_8 : Lcdat 1 , 2 , "FM "
End If
Return
Rit_sub:
Gosub Wyswietlacz
Return
Modechange:
If Modulacja = 1 Then
Modulacja = 2
Elseif Modulacja = 2 Then
Modulacja = 3
Elseif Modulacja = 3 Then
Modulacja = 4
Elseif Modulacja = 4 Then
Modulacja = 5
Elseif Modulacja = 5 Then
Modulacja = 1
End If
Gosub Wyswietlacz
Return
'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
'------------------------------------------------------------------------------
$include "font16x16.font" 'End Sub
$include "my12_16.font"
$include "my6_8.font"[/syntax]Statystyki: Napisane przez slawek3000 — 19 paź 2014, o 09:36
]]>