ATNEL tech-forum

Re: enkoder potrzebuje pomocy

2014-12-14T23:57:26+01:00

Te układy równiez nie działaja tak jak powiny
Układ tak narawde ma pracowac jako zadajnik MPG wiec potrzebuje wystawic sygnał cw do obsługi sterownika silnika krokowoego na atmega162 cały układ działa doskolane inne programy maja problem z cw poniewarz potrafia wystawic sygnał a nie przezucic z ccw na cw
a przy okazji wykozystuje z zadajnika odczyt na lcd wiec chciałbym tylko uruchomic ten program na atmega 32u4

Statystyki: Napisane przez motoinox — 14 gru 2014, o 23:57

Re: enkoder potrzebuje pomocy

2014-12-14T23:21:17+01:00

na atmega 162 terz chodzi na 16MHz enkodera uzywam inkrementalnego 500 impulsów push pull
i działa swietnie, nawet przy dużych predkościach nie gubi się ale ma tylko 3 przerwania a potrzebuje zrobic odczyt z dwuch enkoderów na jednym wyswietlaczu, dlatego zakupiłem arduino leonardo ze wzgledu na atmega32u4 bo caly moduł kosztuje tyle co sam procesor
Testowałem naprawde wiele róznych programów do obsługi enkoderów i wszystkie sie gubiły przy wiekszych predkosciach

Statystyki: Napisane przez motoinox — 14 gru 2014, o 23:21

Re: enkoder potrzebuje pomocy

2014-12-14T22:57:39+01:00

pinb jest podciagniety opornikiem wiec nie wymaga podcigania
po zmianie
Config Int0 = Rising
Config Int1 = Falling
jest lepiej ale nadal skacze wynik jak mu sie chce ale w miejszym stopniu

Statystyki: Napisane przez motoinox — 14 gru 2014, o 22:57

Re: enkoder potrzebuje pomocy

2014-12-14T22:24:46+01:00

jakaś podpowiedz jak je ustawić ?
Mcucr = &B00001011

Statystyki: Napisane przez motoinox — 14 gru 2014, o 22:24

Re: enkoder potrzebuje pomocy

2014-12-14T22:20:50+01:00

Nie wiem czy to ważne, ale rejestry MCUCR znacznie różnią się w tych dwóch ATmegach.
Porównaj sobie noty katalogowe.

Pozdr.

Statystyki: Napisane przez kicajek — 14 gru 2014, o 22:20

Re: enkoder potrzebuje pomocy

2014-12-14T21:25:46+01:00

przerabiałem z atmega162 na 32u4 a to tylko opis nie istotny, w kodzie zrudłowym jest PD0 i PD1

Statystyki: Napisane przez motoinox — 14 gru 2014, o 21:25

Re: enkoder potrzebuje pomocy

2014-12-14T21:23:59+01:00

Może -> TO <- pomoże.

Statystyki: Napisane przez matrix — 14 gru 2014, o 21:23

Re: enkoder potrzebuje pomocy

2014-12-14T21:19:34+01:00

Witam
Zaznaczam że Bascom'a nie znam nic ale zauważyłem w Twoim opisie:
[syntax=basic4gl]' Encoder phase A to INT0 and INT1 (PD2 and PD3)[/syntax]
a w Atm32 INT0 i INT1 jest pod PD0 i PD1; no chyba, że w kodzie podawane jest już odpowiednio.

Pozdr.

Statystyki: Napisane przez kicajek — 14 gru 2014, o 21:19

Re: enkoder potrzebuje pomocy

2014-12-14T20:33:02+01:00

tak zaglądałem do PDF-a Portu F używam do obsługi wyświetlacza który w pełni działa JTAG wyłączony

Na atmega162 po przekręceniu enkoderem licznik zmiana się co +0.01 - 0.01 zaś na atmega32u4 skacze jak chce +153.03 + 5.01 -534.52 nie ma płynności przeskoku

opis pinów

Statystyki: Napisane przez motoinox — 14 gru 2014, o 20:33

Re: enkoder potrzebuje pomocy

2014-12-14T19:10:47+01:00

Witam.
Ciągnąc dalej temat mam następujący problem otóż cały program działa pod atmega162 lecz jeśli zmienię pod atmege32u4 nie działają przerwania tzn wyświetla głupoty.
Gdzie błąd ?
[syntax=basic4gl]-------------------------------------------------------------------------------
' Filename : QuadrDec_1.0.bas
' Purpose : Quadrature Decoder/Counter and Display
' Author : Ger langezaal
' Date : 5 April 2002
' Compiler : BASCOM-AVR Rev. 1.11.6.5
'
'-------------------------------------------------------------------------------
'
' Algorithm:
' Interrupt on both edges of phase A
' Test phase B in ISR
' When phase B <> phase A then decrement counter
' When phase B = phase A then increment counter
' Convert counter value to displacment units
' Format value in string and display
'
'-------------------------------------------------------------------------------
'
' Setup for AT90S2313-10
'
' INT0 edge is set to rising edge
' INT1 edge is set to falling edge
' Encoder phase A to INT0 and INT1 (PD2 and PD3)
' Encoder phase B to PD4
' Pushbutton between Portd.5 and GND (display zero)
' LCD at PortB
'
' Example for PROXXON KT150 XY table:
' Displacement/rev = 2 mm
' Encoder resolution = 20 pulses/rev
' Interrupt on both pulse edges = 40 interrupts/rev
' Dial resolution: 2 mm / 40 = 0.05 mm
' The optical encoder came from a used mouse (two available)
'
'-------------------------------------------------------------------------------
'
' Options/Compiler/Chip:
' HW Stack 48
' Soft Stack 8
' Framesize 16
'
'-------------------------------------------------------------------------------
'
$regfile = "m32u4def.dat"
$crystal = 16000000 '16 MHz

Dim X_axis As String * 8 'LCD format string
Dim Axis_raw As Integer 'optical pulse counter
Dim Axis_mm As Integer 'counter value converted to mm
' 'range: -327.65 to +327.65 mm

Const Enc_res = 20 * 2 'encoder resolution * 2
Const Conv_mm = 200 / Enc_res 'dial resolution = 0.05 mm

Config Portb = Output
Config Portd = Input
Portd = 255 'enable Portd pullup's

Config Lcdbus = 4
Config Lcd = 20 * 4
Config Lcdpin = Pin , Db4 = Portf.5 , Db5 = Portf.4 , Db6 = Portf.1 , Db7 = Portf.0
Config Lcdpin = Pin , E = Portf.6 , Rs = Portf.7
Cls
Cursor Off

Phase_a Alias Pind.0 'INT0 also connected to Pind.0 = INT1
Phase_b Alias Pind.1
Axis_rst Alias Pinb.4 'reset counter if low

'---[ Set Interrupt logic ]-----------------------------------------------------

Mcucr = &B00001011 'set interrupt edges
On Int0 Phase_a_edge 'ISR on rising edge
On Int1 Phase_a_edge 'ISR on falling edge
Enable Int0
Enable Int1
Enable Interrupts

'---[ Initialization ]----------------------------------------------------------

Lcd "X-Axis Rev.1.0"
Waitms 1000
Cls
Axis_raw = 0

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

Do
If Axis_rst = 0 Then Axis_raw = 0 'reset counter if low

Axis_mm = Axis_raw * Conv_mm 'convert to mm
X_axis = Str(axis_mm) '
X_axis = Format(x_axis , " +0.00") 'format without leading zero's
' X_axis = Format(x_axis , "+000.00") 'format with leading zero's

Locate 1 , 1
Lcd "X " ; X_axis ; " mm" 'display
Waitms 200
Loop

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

'---[ Interrupt Service Routine ]-----------------------------------------------

Phase_a_edge: 'Interrupt on rising and falling edge
If Phase_b <> Phase_a Then 'test phase B
Decr Axis_raw 'CCW
Else
Incr Axis_raw 'CW
End If
Return

'-------------------------------------------------------------------------------[/syntax]

Statystyki: Napisane przez motoinox — 14 gru 2014, o 19:10

Re: enkoder potrzebuje pomocy

2014-12-08T10:22:51+01:00

Czy jest ktoś w stanie pomoc mi połączyć to w całość ?

Statystyki: Napisane przez motoinox — 8 gru 2014, o 10:22

Re: enkoder potrzebuje pomocy

2014-12-06T17:42:22+01:00

Witam

motoinox napisał(a):

Udało mi się znaleźć w necie bardzo dobrze działająca obsługę enkodera inkrementalnego

...no i?
Po pierwsze wklejając kod użyj " listing kodu" - Basic
po drugie nie opisałeś problemu

Pozdr.

Statystyki: Napisane przez kicajek — 6 gru 2014, o 17:42

enkoder potrzebuje pomocy

2014-12-06T19:18:11+01:00

]Witam.
Na początku chciałem się przedstawić i przywita, jestem nowy i niestety życie mnie zmusiło w końcu zagłębić się i nauczyć programowania niestety mam z tym problemy ponieważ jestem początkujący i w tym celu proszę o pomoc.

Udało mi się znaleźć w necie bardzo dobrze działająca obsługę enkodera inkrementalnego
[syntax=basic4gl]
-------------------------------------------------------------------------------
' Filename : QuadrDec_1.0.bas
' Purpose : Quadrature Decoder/Counter and Display
' Author : Ger langezaal
' Date : 5 April 2002
' Compiler : BASCOM-AVR Rev. 1.11.6.5
'
'-------------------------------------------------------------------------------
'
' Algorithm:
' Interrupt on both edges of phase A
' Test phase B in ISR
' When phase B <> phase A then decrement counter
' When phase B = phase A then increment counter
' Convert counter value to displacment units
' Format value in string and display
'
'-------------------------------------------------------------------------------
'
' Setup for AT90S2313-10
'
' INT0 edge is set to rising edge
' INT1 edge is set to falling edge
' Encoder phase A to INT0 and INT1 (PD2 and PD3)
' Encoder phase B to PD4
' Pushbutton between Portd.5 and GND (display zero)
' LCD at PortB
'
' Example for PROXXON KT150 XY table:
' Displacement/rev = 2 mm
' Encoder resolution = 20 pulses/rev
' Interrupt on both pulse edges = 40 interrupts/rev
' Dial resolution: 2 mm / 40 = 0.05 mm
' The optical encoder came from a used mouse (two available)
'
'-------------------------------------------------------------------------------
'
' Options/Compiler/Chip:
' HW Stack 48
' Soft Stack 8
' Framesize 16
'
'-------------------------------------------------------------------------------
'
$regfile = "2313def.dat"
$crystal = 10000000 '10 MHz

Dim X_axis As String * 8 'LCD format string
Dim Axis_raw As Integer 'optical pulse counter
Dim Axis_mm As Integer 'counter value converted to mm
' 'range: -327.65 to +327.65 mm

Const Enc_res = 20 * 2 'encoder resolution * 2
Const Conv_mm = 200 / Enc_res 'dial resolution = 0.05 mm

Config Portb = Output
Config Portd = Input
Portd = 255 'enable Portd pullup's

Config Lcdbus = 4
Config Lcd = 16 * 1
Config Lcdpin = Pin , Db4 = Pb.4 , Db5 = Pb.5 , Db6 = Pb.6 , Db7 = Pb.7 , E = Pb.3 , Rs = Pb.2
Cls
Cursor Off

Phase_a Alias Pind.2 'INT0 also connected to Pind.3 = INT1
Phase_b Alias Pind.4
Axis_rst Alias Pind.5 'reset counter if low

'---[ Set Interrupt logic ]-----------------------------------------------------

Mcucr = &B00001011 'set interrupt edges
On Int0 Phase_a_edge 'ISR on rising edge
On Int1 Phase_a_edge 'ISR on falling edge
Enable Int0
Enable Int1
Enable Interrupts

'---[ Initialization ]----------------------------------------------------------

Lcd "X-Axis Rev.1.0"
Waitms 1000
Cls
Axis_raw = 0

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

Do
If Axis_rst = 0 Then Axis_raw = 0 'reset counter if low

Axis_mm = Axis_raw * Conv_mm 'convert to mm
X_axis = Str(axis_mm) '
X_axis = Format(x_axis , " +0.00") 'format without leading zero's
' X_axis = Format(x_axis , "+000.00") 'format with leading zero's

Locate 1 , 1
Lcd "X " ; X_axis ; " mm" 'display
Waitms 200
Loop

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

'---[ Interrupt Service Routine ]-----------------------------------------------

Phase_a_edge: 'Interrupt on rising and falling edge
If Phase_b <> Phase_a Then 'test phase B
Decr Axis_raw 'CCW
Else
Incr Axis_raw 'CW
End If
Return

'-------------------------------------------------------------------------------
[/syntax]

Niestety tylko jednego potrzebuje rozszerzyć do obsługi dwóch jednocześnie i tutaj proszę o pomoc robię gdzieś błędy i nie mogę dojść gdzie

kręcąc y liczy do przodu i do tyłu prawidłowo i jednoczenie liczy do przodu x
nie wiem jak rozwiązać aby pokazywał osobno dla x oraz y
[syntax=basic4gl]

$regfile = "m162def.dat"
$crystal = 8000000

Config Lcd = 20 * 4
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Porta.0 , Db6 = Porta.1 , Db7 = Porta.2
Config Lcdpin = Pin , E = Portb.1 , Rs = Portb.2

Config Pinc.3 = Input
Config Pinc.2 = Input
Config Pina.3 = Output
Porta.3 = 1
Config Portc.4 = Input
Config Portd = Input
Config Portb = Output

Dim X As String * 8 'LCD format string
Dim X_raw As Long 'optical pulse counter
Dim X_mm As Long 'counter value converted to mm
'

Dim Y As String * 8 'LCD format string
Dim Y_raw As Integer 'optical pulse counter
Dim Y_mm As Integer 'counter value converted to mm
'

Const Enc_res = 500 'encoder resolution * 2
Const Conv_mm = 5 'dial resolution = 0.05 mm
Const Yenc_res = 500 'encoder resolution * 2
Const Yconv_mm = 5

Portd = 255

Cls
Cursor Off

In1_a Alias Pind.1 'INT0 also connected to Pind.3 = INT1
In1_b Alias Pind.2
X_reset Alias Pind.5

In2_a Alias Pind.3 'INT0 also connected to Pind.3 = INT1
In2_b Alias Pind.4
Y_reset Alias Pind.5 'reset counter if low

'---[ Set Interrupt logic ]-----------------------------------------------------

X_reset = 0
X_reset = Portd.5
Y_reset = 0
Y_reset = Portd.5

Enable Interrupts

'---[ Initialization ]----------------------------------------------------------
Locate 2 , 3
Lcd " Zadajnik MPG"
Waitms 1000
Cls
X_raw = 0
Y_raw = 0
'---[ Main program loop ]-------------------------------------------------------

Mcucr = &B00001011

On Int0 Phase_a_edge 'ISR on rising edge
On Int1 Phase_a_edge
'ISR on falling edge
Enable Int0
Enable Int1
Enable Interrupts

Do
If X_reset = 0 Then X_raw = 0 'reset counter if low

X_mm = X_raw / Conv_mm 'convert to mm
X = Str(x_mm) '
X = Format(x , " +0.00") 'format without leading zero's
' X_axis = Format(x_axis , "+000.00") 'format with leading zero's

Locate 2 , 3
Lcd "X " ; X ; " mm" 'display
Waitms 20

If Y_reset = 0 Then Y_raw = 0 'reset counter if low

Y_mm = Y_raw / Yconv_mm 'convert to mm
Y = Str(y_mm) '
Y = Format(y , " +0.00") 'format without leading zero's
' y_axis = Format(y_axis , "+000.00") 'format with leading zero's

Locate 3 , 3
Lcd "Y " ; Y ; " mm" 'display
Waitms 20

Loop

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

'---[ Interrupt Service Routine ]-----------------------------------------------

Phase_a_edge: 'Interrupt on rising and falling edge
If In1_a <> In1_b Then 'test phase B
Decr Y_raw
'CCW
Else
Incr Y_raw

End If

If In2_b <> In2_a Then 'test phase B
Decr Y_raw 'CCW
Else
Incr Y_raw 'CW
End If

Return
[/syntax]

Statystyki: Napisane przez motoinox — 6 gru 2014, o 17:37