ATNEL tech-forum 2013-11-03T21:44:58+01:00 https://forum.atnel.pl/feed.php?f=12&t=4659&mode 2013-11-03T21:44:58+01:00 2013-11-03T21:44:58+01:00 https://forum.atnel.pl/viewtopic.php?t=4659&p=55306#p55306 <![CDATA[Re: Instrukcja Encoder i baragraf]]>
[syntax=basic4gl]$regfile = "m32def.dat"
$crystal = 16000000
$hwstack = 40
$swstack = 20
$framesize = 16

Config Timer0 = Timer , Prescale = 256
Enable Timer0 : On Timer0 Prztimer0
Config Timer1 = Timer , Prescale = 64 , Clear Timer = 1 , Compare A = Toggle
Enable Interrupts

Start Timer1
On Compare1a Timer1_isr
Enable Timer1
Enable Compare1a
Enable Interrupts

Config Graphlcd = 240 * 128 , Dataport = Portc , Controlport = Porta , Ce = 2 , Cd = 3 , Wr = 4 , Rd = 5 , Reset = 6 , Fs = 10 , Mode = 6

Config Adc = Single , Prescaler = Auto , Reference = Avcc

Dim Odczyt_adc0 As Word
Dim Srednia_adc0 As Long
Dim Wynik_adc0 As Word
Dim Krok_adc0 As Byte
Dim Dol_adc0 As Bit
Dim Stop_adc0 As Bit
Dim Gora_adc0 As Bit
Dim Licz_speed As Byte
Dim Dol_e As Byte
Dim Gora_e As Byte
Config Portd.0 = Input
Set Pind.0
Config Portd.1 = Input
Set Portd.1
Config Portd.6 = Output
Config Portd.7 = Output
Set Portd.6
Reset Portd.7
Config Portd.2 = Input
Config Portd.3 = Input
Set Portd.2
Set Portd.3
Dim E As Long 'zmienna odczytu z enkodera lewy wskaźnik
Dim F As Long 'zmienna odczytu z enkodera prawy wskaźnik
Dim A As Long 'zmiennna pomocnicz odczytu enkodera
Dim B As Single
Dim C As Single
Dim D As Single
Dim Dzielnik(3) As Byte 'dzielniki timera
Dim Flaga_4ms As Bit , Flaga_100ms As Bit , Flaga_500ms As Bit , Flaga_1s As Bit 'flagi przerwa?
Dim Enkoder As Byte
Pind.0 Alias Kanal_a
Pind.1 Alias Kanal_b
Set Portd.0
Set Portd.1

Gora_adc0 = 0
Dol_adc0 = 0
Stop_adc0 = 1
Dol_e = 0
Gora_e = 0

E = 0
F = 0
Start Adc
Ocr1a = 777 'Ocr1a = 50
Stop Timer1
Cursor Off
Cls
Locate 1 , 1 : Lcd "TEST REGULACJI"


Wait 1
Start Timer1
'Timer1 = 5000
Cls
Do
'================================================== flaga 4_ms
If Flaga_4ms = 1 Then
Flaga_4ms = 0
Gosub Wyswietlanie
Gosub Ktory_kierunek
Gosub Odczyt_enkoder
Gosub Kierunek
Gosub Predkosc
'Gosub Pom_adc0
End If
'================================================== flaga 100_ms
If Flaga_100ms = 1 Then
Flaga_100ms = 0

'Gosub Pom_adc0
End If
'================================================== flaga 500_ms
If Flaga_500ms = 1 Then
Flaga_500ms = 0


End If
'================================================== flaga 1_s
If Flaga_1s = 1 Then
Flaga_1s = 0

End If




Loop
End
'==================================================================
Odczyt_enkoder:

Enkoder = Encoder(pind.0 , Pind.1 , Prawo , Lewo , 1)

Return
'==================================================================
Prawo:

Start Timer1
Ocr1a = Ocr1a - 1
If Ocr1a <= 77 Then
Ocr1a = 77
End If


'Dol_e = Dol_e + 1
'Incr Dol_e
'If Dol_e => 250 Then
' Dol_e = 250
' End If
'Decr Gora_e
'If Gora_e = 0 Or Gora_e > 250 Then
' Gora_e = 0
' End If

Return
'=================================================================
Lewo:

Start Timer1
Ocr1a = Ocr1a + 1
If Ocr1a => 777 Then
Ocr1a = 777
End If

'Incr Gora_e
'If Gora_e => 250 Then
' Gora_e = 250
' End If
'Decr Dol_e
'If Dol_e = 0 Or Dol_e > 250 Then
' Dol_e = 0
' End If

Return
'======================================================
'Pom_adc0:

'For Krok_adc0 = 1 To 100
'Odczyt_adc0 = Getadc(0)
'Srednia_adc0 = Srednia_adc0 + Odczyt_adc0
'Next Krok_adc0
'Srednia_adc0 = Srednia_adc0 / 100


'Return
'======================================================
Wyswietlanie:

Locate 1 , 1 : Lcd "ADC(0) " ; Odczyt_adc0 ; " "
Locate 3 , 1 : Lcd "OCR1A " ; Ocr1a ; " "
Locate 4 , 1 : Lcd "GORA " ; Gora_adc0
Locate 5 , 1 : Lcd "DOL " ; Dol_adc0
Locate 6 , 1 : Lcd "STOP " ; Stop_adc0
'Locate 2 , 1 : Lcd "WYNIK_ADC0 " ; Srednia_adc0 ; " "
Locate 7 , 1 : Lcd "LICZ_SPEED " ; Licz_speed
Locate 8 , 1 : Lcd "dol_E " ; Dol_e ; " "
Locate 9 , 1 : Lcd "gora_E " ; Gora_e ; " "


Return
'====================================================================
Timer1_isr:
'Incr Dystans

Return
'===============================================================
Ktory_kierunek:

If Odczyt_adc0 < 475 Then
Gora_adc0 = 1
Dol_adc0 = 0
Stop_adc0 = 0
Elseif Odczyt_adc0 > 549 Then
Gora_adc0 = 0
Dol_adc0 = 1
Stop_adc0 = 0
Else
Gora_adc0 = 0
Dol_adc0 = 0
Stop_adc0 = 1
End If

Return
'=======================================================================
Kierunek:

'If Gora_adc0 = 1 Then
' Start Timer1
' Decr Licz_speed
' If Licz_speed => 100 Then
' Licz_speed = 100
' Ocr1a = Ocr1a - 10
' End If
' If Ocr1a <= 77 Then
' Ocr1a = 77
' End If
' 'Ocr1a = 389
' Set Portd.6
' Reset Portd.7
' Elseif Dol_adc0 = 1 Then
' Start Timer1
' Decr Licz_speed
' If Licz_speed => 100 Then
' Licz_speed = 100
' Ocr1a = Ocr1a - 10
' End If
' 'Ocr1a = 389
' Reset Portd.6
' Reset Portd.7
' Else
' Stop Timer1
' Ocr1a = 38
' 'End If
' End If

Return
'==================================================================
Predkosc:

'Start Timer1
'Ocr1a = Ocr1a - Dol_e
'If Ocr1a => 777 Then
' Ocr1a = 777
' End If

Return
'==================================================================
Prztimer0:
Timer0 = 5
Set Flaga_4ms
Incr Dzielnik(1)
If Dzielnik(1) = 25 Then
Dzielnik(1) = 0
Set Flaga_100ms
Incr Dzielnik(2)
If Dzielnik(2) = 5 Then
Dzielnik(2) = 0
Set Flaga_500ms
Incr Dzielnik(3)
If Dzielnik(3) = 2 Then
Dzielnik(3) = 0
Set Flaga_1s
End If
End If
End If
Return[/syntax]

Statystyki: Napisane przez Jacek — 3 lis 2013, o 21:44

]]> 2013-11-03T21:18:33+01:00 2013-11-03T21:18:33+01:00 https://forum.atnel.pl/viewtopic.php?t=4659&p=55305#p55305 <![CDATA[Re: Instrukcja Encoder i baragraf]]> Statystyki: Napisane przez jacekk232 — 3 lis 2013, o 21:18

]]> 2013-11-03T21:07:37+01:00 2013-11-03T21:07:37+01:00 https://forum.atnel.pl/viewtopic.php?t=4659&p=55302#p55302 <![CDATA[Re: Instrukcja Encoder i baragraf]]>

Statystyki: Napisane przez slawek3000 — 3 lis 2013, o 21:07

]]> 2013-11-03T20:44:15+01:00 2013-11-03T20:44:15+01:00 https://forum.atnel.pl/viewtopic.php?t=4659&p=55298#p55298 <![CDATA[Re: Instrukcja Encoder i baragraf]]> Statystyki: Napisane przez jacekk232 — 3 lis 2013, o 20:44

]]> 2013-11-03T07:21:52+01:00 2013-11-03T07:21:52+01:00 https://forum.atnel.pl/viewtopic.php?t=4659&p=55228#p55228 <![CDATA[Instrukcja Encoder i baragraf]]>
[syntax=basic4gl]'--------------------------------------------------------------------------------
'name : BG30dB_LCD.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : create a logarithmic LCD bar graph dB (VU) meter
'micro : AT90S2313-10
'suited for demo : yes
'commercial addon needed : no
'use in simulator : possible
'
' Author : Ger langezaal
'
'---[ Small program description ]-----------------------------------------------------
'
' This program is written to create a logarithmic LCD bar graph dB (VU) meter
' on a 16x2 LCD display with peak-hold and drop-down.
' Custom characters are designed with the LCD Designer in BASCOM-AVR.
' The upper row is a scale from +6dB to -24dB with 2dB markers.
' The lower row is the bar graph with peak-hold and drop-down.
' Log conversion is done with the analog comparator on a RC discharge curve.
' C1 is charged every 4mS with PB0 as output on a Timer0 Interrupt.
' Then PB0 is set to AIN0 (analog comparator +input) Timer1 is reset
' and start counting, C1 will be discharged by R1.
' Timer1 is counting until AIN0 < AIN1.
' Analog Comparator Output = ACSR bit 5.
' Timer1 value is stored in T1 for calculation.
'
'---[ LCD display ]-------------------------------------------------------------
'
' Display : LCD 16 x 2
' Scale range : 30dB (+6dB to -24dB)
' Resolution : 2dB
'
' The LCD display is connected in PIN mode.
' See also BASCOM-AVR Index:
' 'Attaching an LCD Display' and 'AT90S2313' for pin numbers
'
' LCD pin - AVR
'
' Vss 1 - GND
' Vdd 2 - VCC +5 Volt
' Vo 3 - 0-VCC Contrast
' RS 4 - PB2
' RW 5 - GND
' E 6 - PB3
' Db0 7 - GND
' Db1 8 - GND
' Db2 9 - GND
' Db3 10 - GND
' Db4 11 - PB4
' Db5 12 - PB5
' Db6 13 - PB6
' Db7 14 - PB7
'
'---[ Analog comparator inputs ]------------------------------------------------
'
'
' Meter DC input >-------[ R2 ]-------> Pb0 (AIN1 )
' |
' GND <---------||-----
' C2
'
' ---[ R1 ]---
' GND <----| |----> Pb1 (AIN0 )
' -----||-----
' C1
' R1 = 10k 5%
' R2 = 10k
' C1 = 47nF 5%
' C2 = 47nF
'
'---[ DC input versus Timer1 and Bar position ]---------------------------------
'
' Measured Timer1 values for calculation:
' DC input = 3500mV Timer1 = 192 ( +6dB)
' DC input = 350mV Timer1 = 1482 (-14dB) 20dB = factor 10
' 20dB = 1482 - 192 = 1290 Timer1 counts
' 2dB = 1290 / 10 = 129 Timer1 counts
'
' Calculated Values:
' Input mV Timer1 dB Scale Bar pos
' 3500 192 +6 16
' 2780 321 +4 15
' 2208 450 +2 14
' 1754 579 0 13
' 1393 708 -2 12
' 1106 837 -4 11
' 879 966 -6 10
' 698 1095 -8 9
' 554 1224 -10 8
' 440 1353 -12 7
' 350 1482 -14 6
' 278 1611 -16 5
' 221 1740 -18 4
' 175 1869 -20 3
' 139 1998 -22 2
' 111 2127 -24 1
' <111 >2127 infinit 1/2 Bar
'
'---[ Compiler and hardware related statements ]--------------------------------

$regfile = "m128def.dat"
'$regfile = "m644pdef.dat" ' specify the used micro
$crystal = 16000000 'default use 40 for the frame space


Config Lcd = 16 * 4
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.3 , Rs = Porta.2

Ddre = &B10111111 'set PB0 and PB1 as inputs
Porte.2 = 0 'disable PB0 input pullup
Porte.3 = 0 'disable PB1 input pullup

Ddrd = &B10111111 'config PD6 as input
Portd = &B11111111 'output high and enable input pullup

Acsr.7 = 0 'enable analog comparator (bit 7 = 0)

'---[ Variables ]---------------------------------------------------------------

Dim Char_pos As Byte
Dim Peak_pos As Byte
Dim Peak_hold As Byte
Dim Drop_hold As Byte
Dim Bar_len As Word
Dim T1 As Word

'---[ Constants ]---------------------------------------------------------------

Const Peak_hold_time = 250
Const Drop_down_time = 50
Const Char_max = 16 'number of LCD characters (one row)
Const T1_fs = 192 'full scale Timer1 value
Const T1_step = 129 '2dB step Timer1 value
Const T1_range = T1_step * Char_max + T1_fs 'Calculate Timer1 range

Ac_out Alias Acsr.5 'analog comparator output = ACSR bit 5

'---[ Custom LCD characters ]---------------------------------------------------

Deflcdchar 0 , 12 , 18 , 18 , 18 , 12 , 32 , 04 , 04 ' 0
Deflcdchar 1 , 02 , 06 , 02 , 02 , 07 , 32 , 32 , 04 ' 1
Deflcdchar 2 , 06 , 09 , 02 , 04 , 15 , 32 , 32 , 04 ' 2
Deflcdchar 3 , 32 , 32 , 07 , 32 , 32 , 32 , 32 , 04 ' -
Deflcdchar 4 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 04 ' Scale marker
Deflcdchar 5 , 27 , 27 , 27 , 27 , 27 , 27 , 27 , 32 ' bar
Deflcdchar 6 , 24 , 24 , 24 , 24 , 24 , 24 , 24 , 32 ' 1/2 left bar
Deflcdchar 7 , 06 , 05 , 14 , 21 , 14 , 32 , 32 , 04 ' dB
Cls 'select LCD data RAM
Cursor Off

'---[ Timer Configuration ]-----------------------------------------------------

Config Timer0 = Timer , Prescale = 256 'On Interrupt Timer
Config Timer1 = Timer , Prescale = 8 'R/C Timer
Config Watchdog = 2048
Enable Interrupts
Enable Timer0
Enable Timer1
On Timer0 Dc_input_sample 'goto subroutine
Timer0 = 0
Timer1 = 0
Start Timer0
Start Timer1

'---[ Show software revision ]--------------------------------------------------

Lcd "BAR GRAPH 30dB"
Locate 2 , 1
Lcd "METER Rev.1.0"
Waitms 1000
Cls

'---[ Draw dB Scale with custom characters ]------------------------------------

Locate 1 , 1 : Lcd Chr(3) ; Chr(2) ; Chr(0) ; Chr(4) ; Chr(4) ; Chr(3)
Locate 1 , 7 : Lcd Chr(1) ; Chr(0) ; Chr(4) ; Chr(4) ; Chr(4) ; Chr(4)
Locate 1 , 13 : Lcd Chr(0) ; Chr(4) ; Chr(4) ; Chr(7)

'---[ Main program loop ]-------------------------------------------------------

Do
Locate 2 , 1 'set LCD first character position

If Bar_len = 0 Then
If Peak_pos = 0 Then Lcd Chr(6) 'print 1/2 left bar for infinit
End If

For Char_pos = 1 To Char_max 'number of characters
If Char_pos <= Bar_len Then 'print one bar
Lcd Chr(5) '
Elseif Char_pos = Peak_pos Then 'print peak bar
Lcd Chr(5) '
Else
Lcd Chr(32) 'print spaces to fill row
End If
Next
Loop

'-------------------------------------------------------------------------------
End
'-------------------------------------------------------------------------------

'---[ Interrupt Service Routine on Timer0 overflow ]---------------------------

Dc_input_sample:
Timer0 = 100 'preset Timer0 for sample rate of 4mS

Ddre.2 = 1 'set AIN0 as PB0 output
Porte.2 = 1 'set PB0 high to charge C1
Waitus 200 'wait for charge complete
Ddre.2 = 0 'reset PB0 as AIN0 analog input
Porte.2 = 0 'disable AIN0 pullup

Timer1 = 0 'clear R/C Timer1
Bitwait Ac_out , Reset 'wait for AIN0 < AIN1
T1 = Timer1 'read Timer1 value

If T1 < T1_fs Then 'check T1 low limit
T1 = T1_fs 'T1 clipping
Elseif T1 > T1_range Then 'check T1 high limit
T1 = T1_range 'T1 clipping
End If

Bar_len = T1_range - T1 'calculate bar length
Bar_len = Bar_len \ T1_step '

If Bar_len >= Peak_pos Then 'new peak value
Peak_pos = Bar_len 'store peak value
Peak_hold = Peak_hold_time 'preset peak hold timer
Else
If Peak_hold > 0 Then
Decr Peak_hold
Else
If Drop_hold > 0 Then
Decr Drop_hold
Else
Drop_hold = Drop_down_time 'preset drop down timer
If Peak_pos > 0 Then Decr Peak_pos 'drop down one position
End If
End If
End If
Reset Watchdog
Return[/syntax]

podczas działania tego programu encoder nie działa prawidłowo ponieważ zlicza mi tylko do zwiększanie zmiennej LONG natomiast nie zlicza zmniejszenia zmiennej LONG co może być przyczyną ?

Statystyki: Napisane przez slawek3000 — 3 lis 2013, o 07:21

]]>