rotary encoder + Bascom

broland

Szia Puzzafutar

És az a HDD motor csak egyszerűen a procira van kötve, vagy van közötte valami illesztő fokozat is? (nem szeretném a cuccot hazavágni!!!)

Előre is köszi.

Üdv Roland

kapu48

Hi Roland!
Félreértetted a témát!
Nem a HD motor meghajtásról van szó, hanem a benne levő jeladóról.
Amit a motor fordulatszámának szinkronban tartására használnak.

broland

Szia Kapu48

Sajnos nekem csak olyan motorom van amiből 3 tyúkbél jön ki, és azok a pikercsei a motornak. Ha azt rákötöm, lehet, hogy indukál olyan delejt, ami a procit a másvilágra löki.

Üdv Roland

kapu48

Ja igazad van!
Itt illesztette Müv. erősítővel.
http://www.fleurey.com/franck/pmwiki.ph ... HDDEncoder

De még mindég nem tudjuk, hogy 1 fordulatra menyi impulzust kapunk?
Bár ez lehet motortól függő!

Bence

Sziasztok!

Én ezt korábban megépítettem. Nem emlékszem pontosan, hogy mennyi impulzust küldött egy fordulatra, de az biztos, hogy nem volt sok.

Lehet, hogy később előszedem és megnézem nektek.

ampervadasz

Szervusztok AVR Istenei!

Belefutottam egy furcsa encoder-be, amihez az eddig használatos program nem megfelelő működést idézett elő. Biztos, ami biztos rákötöttem szkópra. Az alábbi jelalak figyelhető meg!

Kép

A függőleges vonalak az encoder alaphelyzetben lévő értékeinél van.

Kérlek titeket, segítsetek leprogramozni.

Köszönettel Ampervadasz.

evildodo

ampervadasz írta:Szervusztok AVR Istenei!

Belefutottam egy furcsa encoder-be, amihez az eddig használatos program nem megfelelő működést idézett elő. Biztos, ami biztos rákötöttem szkópra. Az alábbi jelalak figyelhető meg!

A függőleges vonalak az encoder alaphelyzetben lévő értékeinél van.

Kérlek titeket, segítsetek leprogramozni.

Köszönettel Ampervadasz.

Én is találkoztam valami hasonlóval,de a fiók méllyén landolt

Kíváncsi vagyok én is a megoldásra, annó nem volt kedvem foglalkozni vele!

kapu48

És mi ebben a bonyolult?
A szokásos fel vagy lefutó élre történő megszakítás kérés és megszakításban megvizsgálod a másik jel állapotát.
Nevezzük a felső görbét A-nak, az alsót B-nek.
A –nál lefutó élre INT és ha B = 0 mozgás > ,vagy ha B = 1 < mozgás
És / vagy:
B –nél Felfutó élre INT és ha A = 0 mozgás > ,vagy ha A = 1 < mozgás

strigo

Sziasztok!

A két jel a két adatvonal? vagy jobbra és balra?
Ha a két adatvonal, akkor jó lenne látni a másik irányt is!

kapu48

Mért nem látod??
Igen 2 adatvonal van összehasonlítva. Annyi a minimum, hogy megtud állapítani a mozgás irányt is.
És az elmozdulás fokát adja az Impulzus*(360/enkóder osztásának száma).
Jobbról balra haladva az egyik irány, balról jobbra a másik irány!
És forduláskór a vizsgált élek mindig átkerülnek a másik oldalra.

ampervadasz

Még egyszerűbb lenne a helyzet, ha lehetne invertálni az "A" (felső) jelét... De mivel nem lehet, igy marad kapu48 ötlete. Műszak végén - holnap - ki is próbálom.

szovhoz

miért akarod invertálni?

Int alapon meg foghatod a fel és a lefutó éleket is vagy a változást.

Szerintem is ez a legjobb megoldás én is ezt szoktam használni.

tetye

Sziasztok!
Küzdök egy ilyen:http://www.ia.omron.com/data_pdf/data_s ... csm490.pdf E6A2-CW5 encoderrel.
Ezzel a progival:

Kód: Egész kijelölése

'MCU
$regfile = "m16def.dat"
$crystal = 8000000

'LCD
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.5 , Db5 = Portc.4 , Db6 = Portc.3 , Db7 = Portc.2 , E = Portc.6 , Rs = Portc.7
Initlcd
Cursor Off
Cls

'ADC
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc

'FŰTÉS
Config Portd.5 = Output
Triak Alias Portd.5

'SPEAKER
Config Portd.6 = Output
Speaker Alias Portd.6

'MEGSZAKÍTÁSOK
Config Int0 = Falling
Config Int1 = Falling
Enable Interrupts
Enable Int0
Enable Int1
On Int0 Encodera
On Int1 Encoderb

'VÁLTOZÓK
Const Debouncetime = 5
Dim Encounter As Integer
Dim Wait_time As Word
Dim T_ram As Eram Integer
Dim W As Word
Dim I As Integer

'RUTINOK
Declare Sub Encoder_push

'_______________________________________________________________________________


'BOOT
Wait_time = 1000
Lcd "Inicializalas:"
Lowerline
For I = 1 To 16
Lcd "."
Waitms Wait_time
Next I
Cls
Encounter = T_ram

'MAIN

Do
 ' Locate 1 , 1
 ' W = Getadc(0)
  'Cls
 ' Lcd " value: " ; W
  'Lowerline
  Locate 2 , 1
    Lcd Encounter
  Waitms Wait_time
Loop
End

'ÁLLÁS MENTÉSE
Sub Encoder_push:
 T_ram = Encounter

End Sub

Encodera:
  Waitms Debouncetime
  Incr Encounter
  If Encounter > 450 Then Encounter = 450
  Gifr = 64
Return

Encoderb:
  Waitms Debouncetime
  Decr Encounter
  If Encounter < 0 Then Encounter = 0
  Gifr = 128
Return

A bajom az hogy nem tudom hogy lehetne számolni mert ez össze vissza írja most így ki, ami nem is lep meg, mert ugye egyik megszakításból jön a másik ahogy forog és amit számolna fel a következő húzza is le.
Hogy szoktátok ezt csinálni?

Prellegés nem kavar be?
100nF kondi, nem csak belső felhúzóellenállás, hanem külső 1...10k ?

winnerbt

Ez elektronikus encoder, nem kell pergésmentesíteni. A megszakításban meg nézd meg a másik fázis állapotát, abból derül ki az irány. Nem úgy jönnek, hogy egyik irányban az A-n, a másikban a B-n jön ki imp. (most emiatt fel-le ugrál ugye).
JAni