Sebességmérő

[Bence]

Sziasztok!

Egy olyan áramkört csinálok amivel sebességet leht mérni (pl.:síelés), úgy működne hgy van két fénykapu 10 méterre egymástól, és az IC (ATTiny2313) mérné az időt. Így lehet pontosan időt mérni? Az " Ido" valozó értéke elvileg valamennyi tized másodperc, így elég pontos lesz?

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

Do
 Waitms 100
 Ido = Ido + 1
 If Pind.1 = 1 Then
   Gosub Meres_allj
 End If
Loop

[Robert]

Nem. Nem veszed figyelembe a program időfutásit. valamint az órajel is pontos kell legyen, belső RC nem lehet.

Pontos idő _csak_ timer alapú lehet....

[Robert]

A fénykapu ne prellegjen, ne zavarja meg pl. vaku villogása.

Az egyik az indító, a másik a leállítójel legyen... (INT lábon a legbiztosabb)

[Bence]

Köszi nagyon!!! Az érzékelőre ha egy gumicsövet teszek akkor nem nagyon tudja megzavarni semmi vagy igen?

[Robert]

Szép, hosszú fejlesztés lesz.....

Az ipari holmikban valahogy modulált a fény, és így nem tud bezavarni a külső....

[Bence]

A timert hogy kell használni? Most kezdtem csak el foglalkozni az AVR-ekkel meg a Bascommal.

[Robert]

Bascom könyv, megszakítás fejezet.....

[Bence]

Köszi!!!

[Bence]

Hello!

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

Config Timer1 = Counter , Prescale = 1 , Edge = Falling
Config Pind.2 = Input
Config Pind.3 = Input
Config Int0 = Falling
Config Int1 = Falling

Enable Interrupts
Enable Int0
Enable Int1

On Int0 Indit
On Int1 Megallit

Do
 Cls
 Lcd "READY"
 Wait 1
Loop

Indit:
Start Counter1

Megallit:
Stop Counter1
Cls
Lcd Counter1


End

A Portd2 és a Portd3-mon egy-egy gomb van, Timer1 10 Hz-es impulzust számlál, akkor ha megnyomom az egyik gombot és aztán a másikat akkor az LCD-re kiírja a két gomb megnyomása között eltelt időt tizedmásodpercben? Így jó és pontos lesz a mérés?

[Robert]

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

Config Timer1 = Counter , Prescale = 1 , Edge = Falling 'be kell pontosan allitani! 65535 atfordulas, 1MHz eseten ~ 6,5msec
Config Pind.2 = Input 
pind.2=1 'felhuzoellenallas
Config Pind.3 = Input 
pind.3=1 'felhuzoellenallas
Config Int0 = Falling 
Config Int1 = Falling 

dim eredmeny as word

Enable Interrupts 
Enable Int0 
Enable Int1 

On Int0 Indit 
On Int1 Megallit 

Do 
if eredmeny >0 then 
    Cls 
    Lcd eredemeny
    eredemeny=0
end if
Loop 

Indit: 
'Start Counter1 
start timer1
eredmeny=0
return

Megallit: 
'Stop Counter1 
'Cls 
'Lcd Counter1 
stop timer1
eredmeny=timer1
return


End

kb. A timernel a prescale tessék megnövelni!
Valamint a kapcsolo az prelleg...

[Bence]

Hello!

Ha egy TSOP1736-ot használok vevőnek és egy LED-et 36 kHz-el villogtatok működni fog?

[Robert]

Optokapunak jónak tűnik. DE: A TSOP irányérzéketlen, és nagyon érzékeny. A visszavert fényt is érzékeli!

Itthon kipróbáltam: 12-13 méterről is lazán vesz még!
A tápfeszt ne felejtsd el szűrni (100 ohm+10 mikroF, mint az adatlapban). A 3k3 felhúzóellenállás (esetnként) elhagyható.

[Bence]

Köszi!
A 3k3 felhúzóellenállást mikor lehet elhagyni?

[Robert]

Ha a vevőkocka 1 méternél közelebb van _és_ az AVR-ben a lábhoz tartozó felhúzóellenállás be van kapcsolva.

[Bence]

Ok! Köszi!