سلام دوستان من این فرکانس مترو از یک سایتی گرفتم
می خوام کاری کنم که بتونه هر سیکلی رو اندازه بگیره مثلا بتونه مثلتی و سینوسی رو هم اندازه بگیره
لطفی کنید و بگین باید چیکار کنم
اینم برنامشه :NO:
می خوام کاری کنم که بتونه هر سیکلی رو اندازه بگیره مثلا بتونه مثلتی و سینوسی رو هم اندازه بگیره
لطفی کنید و بگین باید چیکار کنم
اینم برنامشه :NO:
'------------------------------------
'counter until 8 mhz
'http://www.yazdkit.com
'http;//www.yazdkit.ir
'88/5/21
'-------------------------------------
$regfile = "m32def.dat"
$crystal = 8000000
'----------
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Porta.0 , E = Porta.1 , Db4 = Porta.2 , Db5 = _
Porta.3 , Db6 = Porta.4 , Db7 = Porta.5
Cursor Off
'-----------
Config Timer1 = Counter , Edge = Rising
Ddrb.1 = 0
Portb.1 = 1
'-------
Config Timer0 = Timer , Prescale = 1024
'---------------
Enable Timer1
Enable Timer0
Enable Interrupts
'---------------------
On Ovf1 Pulse_counter
On Ovf0 Yazdkit
'-------------------
Dim A As Long , B As Byte , I As Long
B = 0
'----------------------------
Cls
Locate 1 , 1
Lcd "Frequency meter"
Locate 2 , 1
Lcd "www.yazdkit.com"
Wait 5
Cls
'-----------------------
Start Timer0
'------------
Do
Loop
End 'end program
'--------------
Yazdkit:
Incr I
If I > 30 Then
Stop Timer0
Cls
Home
A = B * 65536
A = A + Counter1
Lcd "frequency:"
Locate 2 , 1
Lcd A ; " HZ"
B = 0
I = 0
Counter1 = 0
Start Timer0
End If
Return
'----------------------
Pulse_counter:
Incr B
Counter1 = 0
Return
'counter until 8 mhz
'http://www.yazdkit.com
'http;//www.yazdkit.ir
'88/5/21
'-------------------------------------
$regfile = "m32def.dat"
$crystal = 8000000
'----------
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Porta.0 , E = Porta.1 , Db4 = Porta.2 , Db5 = _
Porta.3 , Db6 = Porta.4 , Db7 = Porta.5
Cursor Off
'-----------
Config Timer1 = Counter , Edge = Rising
Ddrb.1 = 0
Portb.1 = 1
'-------
Config Timer0 = Timer , Prescale = 1024
'---------------
Enable Timer1
Enable Timer0
Enable Interrupts
'---------------------
On Ovf1 Pulse_counter
On Ovf0 Yazdkit
'-------------------
Dim A As Long , B As Byte , I As Long
B = 0
'----------------------------
Cls
Locate 1 , 1
Lcd "Frequency meter"
Locate 2 , 1
Lcd "www.yazdkit.com"
Wait 5
Cls
'-----------------------
Start Timer0
'------------
Do
Loop
End 'end program
'--------------
Yazdkit:
Incr I
If I > 30 Then
Stop Timer0
Cls
Home
A = B * 65536
A = A + Counter1
Lcd "frequency:"
Locate 2 , 1
Lcd A ; " HZ"
B = 0
I = 0
Counter1 = 0
Start Timer0
End If
Return
'----------------------
Pulse_counter:
Incr B
Counter1 = 0
Return
دیدگاه