Witam po długim poszukiwaniu w sieci natknąłem sie na taki układzik do pomiaru prędkości pocisku. Pierwsza myśl była żeby go przerobić do potrzeb modelarskich, przeróbka Hardware nie ma problemu.
ale przy programowaniu bym potrzebowałem pomocy.
Mam tylko fragment kodu w bascom który powinien mierzyć czas pomiędzy dwoma fototranzystorami na porcie d2 i 3 Przelatującego pocisku przez bramkę IR.
-w jakiej jednostce (s ms. ns ) jest wyświetlony na lcd (zmienna A)
-jak to napisać żeby LCD pokazywał km/h (odległość pomiędzy fototranzystorami 10cm.
Za odpowiedzi z góry dziękuje.
a tu kod w bas>
Przeniosłem z Programowanie Ogólne - krzychoocpp
ale przy programowaniu bym potrzebowałem pomocy.
Mam tylko fragment kodu w bascom który powinien mierzyć czas pomiędzy dwoma fototranzystorami na porcie d2 i 3 Przelatującego pocisku przez bramkę IR.
-w jakiej jednostce (s ms. ns ) jest wyświetlony na lcd (zmienna A)
-jak to napisać żeby LCD pokazywał km/h (odległość pomiędzy fototranzystorami 10cm.
Za odpowiedzi z góry dziękuje.
a tu kod w bas>
$regfile = "m8def.dat"
$crystal = 8000000
Set Portd.2
Set Portd.3
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5
Config Timer0 = Timer , Prescale = 1
Config Int0 = Falling
Config Int1 = Falling
Dim Zm1 As Long
Dim A As Single
Dim B As Integer
Dim C As Single
On Timer0 Dodaj
On Int0 Poczatek
On Int1 Koniec
Const St_czasowa = 0.000001
Enable Interrupts
Enable Int0
Enable Int1
Enable Timer0
Do
Cls
Loop
Poczatek:
Zm1 = 0
Return
Koniec:
A = Zm1 * St_czasowa
B = 256 - Counter0
C = B * St_czasowa
A = A + C
Cls
Wait 2
Lcd "* CHRONO *"
Lowerline
Lcd A
Wait 10
Cls
A = 0
B = 0
C = 0
Zm1 = 0
Return
Dodaj:
Zm1 = Zm1 + 32
Return
EndPrzeniosłem z Programowanie Ogólne - krzychoocpp