PDA

توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : محاسبه اي فركانس كمتر از يك هرتز



mehrannohtani
28-07-2015, 21:36
سلام به همه اي مهندسين و دوستان، يك برنامه فركانس متر با ميكرو avr هست كه قبلا از اينترنت گرفتم،
الان مي خواهم فركانس هاي كمتر از يك هرتز را اندازه بگيرم، با اين برنامه ظاهرا فقط مي توان فركانس هاي
يك هرتز به بالا را اندازه گرفت من مي خواهم فركانس هاي كمتر از يك هرتز را تا جايي كه ميكرو جواب بده
اندازه بگيرم، نمي دانم دقيقا كجاي برنامه را بايد دستكاري كنم تا مشكلم حل بشه ... دوستان اگر مي توانند
راهنمايي كنند، ممنون. برنامه مربوط به ميكرو avr و نوع مگا 32 است. برنامه ساده هست ولي چه جوري بايد
اين فركانس كمتر از يك هرتز را اندازه بگيرم نمي دانم. لطفا دوستان راهنمايي كنند؟
يا هر برنامه اي ديگه اي كه بشه با آن فركانس هاي ميلي هرتز را انداره گرفت .ممنون.
$regfile = "m32def.dat"
$crystal = 1000000
'--------------------------------------------------
Config Lcdpin = Pin , Db4 = Porta.3 , Db5 = Porta.2 , _
Db6 = Porta.1 , Db7 = Porta.0 , E = Porta.4 , Rs = Porta.5
Config Lcd = 16 * 2
Cursor Off : Cls
Config Pinb.1 = Input
'--------------------------------------------------
Dim A As Long , B As Byte
'--------------------------------------------------
Config Timer1 = Counter , Edge = Rising
Config Timer2 = Timer , Async = On , Prescale = 128
Enable Timer2
Enable Ovf2
On Ovf2 Sky
'--------------------------------------------------
Enable Interrupts
Enable Timer1
On Ovf1 Pulsecount
Start Timer2
'--------------------------------------------------
Do

Loop
End
'--------------------------------------------------
Sky:
Cursor Off
Stop Timer2
Stop Timer1
Cls : Home
A = B * 65536
A = A + Counter1
Locate 1 , 1
Lcd "Freq: " ; A ; " HZ"
B = 0
Counter1 = 0
Start Timer2
Start Timer1
Return
'--------------------------------------------------
Pulsecount:
Incr B
Counter1 = 0
Return