می خوام یک فرکانس متر درست کنم که در فرکانسی مشخص یک LED رو روشن بکنه ! خیلی ساده و ابتدایی ! با تشکر
اطلاعیه
Collapse
No announcement yet.
فرکانس متر ساده
Collapse
X
-
پاسخ : فرکانس متر ساده
$regfile = "m16def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Portc.1 , Db5 = Portc.2 , Db6 = Portc.3 , Db7 = Portc.4 , E = Portd.2 , Rs = Portd.3
Config Lcd = 16 * 2
Config Timer1 = Counter , Edge = Rising
Ddrb.1 = 0 : Portb.1 = 1
Config Timer0 = Timer , Prescale = 1024
'-------------------------------------------------------------------------------
Enable Counter1
Enable Interrupts
Enable Timer0
Enable Timer1
On Ovf1 Pulsecount
On Ovf0 Ovf0occures
Dim A As Long , I As Long , B As Byte
B = 0
'-------------------------------------------------------------------------------
Cls
Start Timer0
Do
Loop
End
'-------------------------------------------------------------------------------
Ovf0occures:
Incr I
If I > 30 Then
Stop Timer0
Cls : Home
A = B * 65536
A = A + Counter1
Lcd "freq is: " ; A ; "hz"
B = 0
I = 0 : Counter1 = 0
Start Timer0
End If
Return
'-------------------------------------------------------------------------------
Pulsecount:
Incr B
Counter1 = 0
Returnآنچه هستی هدیه است از طرف خدا به تو
و آنچه می توانی باشی هدیه ای است از طرف تو به خدا
پس بهترین باش
www.mhedayati.blogfa.com
دیدگاه
دیدگاه