PDA

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



Morteza_rk
29th January 2010, 06:48 PM
سلام به همگی

من به یک مدار ضرب کننده فرکانس احتیاج دارم. می خوام این مدار فرکانسهاس دریافتی رو در 1.35 ضرب کنه و در خروجی ظاهر کنه. مثلا فرکانس 10 هرتز بگیره و 13.5 هرتز بده.

خودم تقریبا یه چیزایی می دونم ولی توی ساختنش موندم!

اگه اشتباه نکنم ما اول باید یک فرکانس 1.35 هرتز بسازیم بعد اونو در فرکانس های دیگه ضرب کنیم. اما نمی دونم مدار عملیش چطوریه؟

کسی می تونه کمک کنه؟

hengameh
18th April 2010, 10: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, 10:20 PM
اینم یه مقاله برای مداری بدون میکرو برای فرکانس های مایکروویو:
http://sid.ir/Fa/VEWSSID/J_pdf/61013830104.pdf

استفاده از تمامی مطالب سایت تنها با ذکر منبع آن به نام سایت علمی نخبگان جوان و ذکر آدرس سایت مجاز است

استفاده از نام و برند نخبگان جوان به هر نحو توسط سایر سایت ها ممنوع بوده و پیگرد قانونی دارد