توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : مدار ضرب کننده فرکانس
Morteza_rk
29th January 2010, 07:48 PM
سلام به همگی
من به یک مدار ضرب کننده فرکانس احتیاج دارم. می خوام این مدار فرکانسهاس دریافتی رو در 1.35 ضرب کنه و در خروجی ظاهر کنه. مثلا فرکانس 10 هرتز بگیره و 13.5 هرتز بده.
خودم تقریبا یه چیزایی می دونم ولی توی ساختنش موندم!
اگه اشتباه نکنم ما اول باید یک فرکانس 1.35 هرتز بسازیم بعد اونو در فرکانس های دیگه ضرب کنیم. اما نمی دونم مدار عملیش چطوریه؟
کسی می تونه کمک کنه؟
hengameh
18th April 2010, 11:19 PM
سلام
این آقا مرتضی مشکلشون حل شده و تو یه سایته دیگه تصمیم گرفتن با یه میکرو Atmega8این کارو انجام دادن
برنامشو من اینجا هم میذارم برای دوستانی که نیاز داشتن:
بدون استفاده از کریستال ساعت و دارای کریستال 4 مگاهرتز
$regfile = "m8def.dat"
$crystal = 4000000
$hwstack = 32
$swstack = 10
$framesize = 40
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Configurations ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Config Timer0 = Counter , Edge = Rising , Prescale = 1
Config Timer1 = Timer , Compare A = Toggle , Clear Timer = 1 , Prescale = 64
Config Timer2 = Timer , Prescale = 256
Config Portc.1 = Input
Config Portc.2 = Input
Config Portb.4 = Output
Enable Timer0
Enable Timer1
Enable Timer2
Enable Ovf2
Enable Oc1a
Enable Interrupts
Portb.4 = 0
Stop Timer1
Stop Timer2
Timer2 = 0
Timer1 = 0
Counter0 = 0
On Ovf2 One_secend
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Variable ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dim Fin As Single
Dim Tin As Single
Dim Tout As Single
Dim Tout1 As Integer
Dim Scale As Single
Dim First_scale As Eram Single
Dim I As Eram Byte
Dim J As Eram Byte
Dim K As Byte : K = 1
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ initionaliz ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Start Timer2
Start Timer1
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Main program ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Do
scale=1.35
Loop
End
One_secend:
If K = 62 Then
Stop Timer2
K = 1
Fin = Counter0
Fin = Fin * Scale
Tin = 1 / Fin
Tin = Tin / 2 'Diuration of '1's
Tout = 62500 * Tin
Tout1 = Tout
Compare1a = Tout1
Timer2 = 0
Counter0 = 0
Start Timer2
End If
Incr K
Return
منبع:http://iranmicro.ir/forum/showthread.php?p=12323
hengameh
18th April 2010, 11:20 PM
اینم یه مقاله برای مداری بدون میکرو برای فرکانس های مایکروویو:
http://sid.ir/Fa/VEWSSID/J_pdf/61013830104.pdf
استفاده از تمامی مطالب سایت تنها با ذکر منبع آن به نام سایت علمی نخبگان جوان و ذکر آدرس سایت مجاز است
استفاده از نام و برند نخبگان جوان به هر نحو توسط سایر سایت ها ممنوع بوده و پیگرد قانونی دارد
vBulletin® v4.2.5, Copyright ©2000-2025, Jelsoft Enterprises Ltd.