مذبذب ومكبر مبرمجين بواسطه منفذ الطابعه

بسم الله الرحمن الرحيم

السلام عليكم

الفكره هىان نقوم بأدخال مكثف ما الى دائره المذبذب لتعطى تردد معين ثم نزعه و وضع

مكثف أخرليعطى تردد أخر وهكذا ولن نعمل ذلك يدويا بالطبع وأنما بطريقتان الأولى بواسطه الدوائر الألكترونيه(555 و4017 و4016 و4001 ) ثم بواسطه برنامج فيجوال بيسك

اولا البرنامج

هذا البرنامج مشابه تماما البرنامج فىالرابطه

http://www.nowah.net/bb/viewtopic.php?t=181

ويختلف عنه فقط فى أن البرنامج السابق عباره عن عداد ثنائى يعد من 0000 الى 1111 أما هذا العداد يعد با لأزاحه من 0001 ثم 0010 ثم 0100 ثم 1000

ويمكن تجربه البرنامج كما فى الرابطه السابقه

Private Declare Sub out Lib "Inpout32.dll" Alias "Out32" (ByVal portaddress As Integer, ByVal value As Integer)
Dim z As Boolean

Private Sub Command1_Click()
If z = True Then
a:
For x = 0 To 3
y = 2 ^ x
out &H378, y
dealy 3
Next x
DoEvents
If z = False Then
GoTo b
End If
GoTo a
End If
b:
End Sub
Sub dealy(i As Long)
j = Timer + i
Do Until j <= Timer
Loop
End Sub

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
z = False
End Sub

Private Sub Form_Load()
z = True
End Sub

ثانيا الدائره الألكترونيه

وهى تنقسم الى ثلاث أجزاء

- الساعه وهىعباره عن 555

- عداد ازاحه بواسطه 4017 ليعد من 0001 الى 1000 ثم نجبره على أنهاء العد بواسطه

توصيل طرف rest له بالطرف 5 ليبدأ العد من جديد عند التأكد من العداد يعمل جيدا بواسطه

4 لد على اطراف الخرج له مع توصيل طرف 3 ل 555 الى الطرف 14 للعداد نوصل 4016

كما فى الرسم حيث كل طرف من اطراف خرج 4017 تدخل مكثف محدد الى دائره المذبذب

4001 وتغلق باقى الأختيارات لل 4016 فمثلا عندما يكون خرج 4017 هو 0001 سوف يدخل المكثف الأول ويغلق التوصيل على باقى المكثفات

-نوصل المذبذب 4001 كما فى الرسم

حيث نوصل النقط A,B فى دائره 4001 مع A,B فى دائره 4016 ويصبح المكثف C1

هو أحد المكثفات الأربعه فى دائره 4016 والمحدد بواسط خرج 4017

حيث R1 يمكن ان تكون 22 كيلو اوم مثلا مع احد المكثفات1nf,15nf,47nf,100nf

ويمكن حساب التردد بواسطه المعادله

F=(R1*C1)/2.2 HZ

ونلاحظ التردد على مقياس التردد او اوسلسكوب من الطرف 4 ل 4001

ويمكن ملاحظه التردد على لد من الطرف 4 ل 4001 بأختيار المكثفات التاليه

150nf,330nf,470nf,1mfتوصل فىدائره 4016

الأخير 1ميكرو ،مع مقاومه 100كيلو او 1ميجاتوضع فى دائره 4001 ( R1 )

-بعد التأكد من السابق نحذف الدائره 555 و 4017 ونوصل اطراف منفذ الطابعه

2و3و4و5 الى اطراف 13 و5و6و12 فى 4016

-سوف نكمل فيما بعد بأذن الله