ساخت دور سنج با تایمر و کانتر avr

[meisam_68]

با سلام خدمت دوستان.لطفا راهنمایی کنید،خیلی حیاتیه
من میخوام یه دور سنج با avr و زبان برنامه نویسی بیسیک بسازم
البته یکی ساختم که اصولی نیست.فایل برنامه رو میزارم
توی این دور سنج از تایمر کانتر استفاده نکردم (نتونستم) و چون برنامه همش به خارج از حلقه برنامه اصلی پرش میکنه برنامه درست اجرا نمیشه
لطفا برای استفاده از تایمر و کانتر برای ساخت دور سنج راهنمایی کنید
خیلی خیلی ممنون




$regfile = "m32def.dat"

$crystal = 4000000
'-------------------------------------------------------------------------------
Config Lcdpin = Pin , Rs = Pina.0 , E = Pina.1 , Db4 = Pina.2 , Db5 = Pina.3_
, Db6 = Pina.4 , Db7 = Pina.5
Config Lcd = 16 * 2
Cursor Off
Cls
Dim Rpm As Byte , K As Long
'-------------------------------------------------------------------------------
Cls
Locate 1 , 1
Lcd "M-F PID"
Wait 1
Cls
'-------------------------------------------------------------------------------
Main:
Do
Incr K
If K > 10000 Then Goto Dorsanj
If Pina.0 = 0 Then Goto L2
Loop
End
'================================================= ==============================
Dorsanj:
Rpm = Rpm * 60
Locate 1 , 1
Lcd "speed:" ; Rpm ; "rpm"
Rpm = 0
K = 0
Goto Main

L2:
Incr Rpm
L1:
If Pina.0 = 0 Then Goto L1
Goto Main