قطعات مورد نیاز
در این مدار با نحوه کنترل یک led توسط کامپیوتر آشنا می شوید.در این مدار احتیاجی به منبع تغذیه ندارید.
- 1 عدد led معمولی
- یک عدد کابل RS232
- برد بورد یا برد مسی سوراخدار
- سیم تلفنی
در این نوع از استاندارد ارسال ودریافت از طریق کامپیوتر، پین 5 زمین یا گراند است.در این استاندارد تنها سه پین خروجی وجود دارند.این سه پین عبارتند از DTR پین 4،TXD پین 3 ،RTS پین 7 به شکل پینها واسامی آنها در زیر توجه کنید.
نحوه بستن مدار
اگر به کابل RS232 که تهیه کرده اید به خوبی نگاه کنید.، متوجه یک سری شماره از 1 تا 9 روی سوکت آن می شوید.، این شماره ها در واقع همان شماره پینهای مربوط به ارسال و دریافت هستند.،در این مدار ما به2 پین احتیاج داریم . پین 4 DTR ،پین 5 GND ،پین 5 در واقع زمین ما در ارسال ودریافت استانداردRS232 است که می بایست منفی LED را بر روی برد بورد به آن وصل کنید.،می توانید زمین این کابل را به منفی LED بر روی بردهای سوراخدار مسی لحیم کنید.وکل مدار خود را بر روی برد های سوراخدار مسی به جای برد بورد پیاده سازی کنید.از سیمهای تلفنی که در اختیار دارید حدود 2 تکه 5سانتی متری ببرید.حال با استفاده از هویه و سیم قلعی که تهیه کرده اید این سیمها را به پینهای سوکت RS232 که مشخص شده است.، لحیم کنید . در هنگام لحیم کردن به شماره پینها دقت کنید.،شماره هر پین در کنار آن بر روی سوکت نوشته شده است.حال DTR را که پین 4 است.را به مثبت LED وصل کنید.، و برنامه را اجرا کنید.
نقشه مدار
به نقشه مدار در شکل زیر توجه کنید.در این نقشه اگر جهت led را عوض کنید.با ز هم led مانند حالت قبل روشن و خاموش می شود.،و به چشمک زدن خود ادامه می دهد.، این بار روشن وخاموش شدن بر خلاف حالت اولیه خواهد بود.برای اینکه این حالت را بهتر متوجه بشو ید.دو عدد led را در کنار یکدیگر به صورت موازی قرار دهید به گونه ای که مثبت ومنفی یا آند و کاتد آنها بر خلاف یکدیگر باشند اگر برنامه را اجرا کنید.مشاهده خواهید کرد که led ها با هم روشن نمی شوند بلکه عمل روشن و خاموش شدن به تناوب صورت خواهد گرفت.علت آن وجود قطار پالسی است که توسط برنامه صورت می گیرد.زمانیکه این قطار پالس زیر محور صفر قرار می گیرد.در واقع زمین نسبت به آن مثبت تر است و جریان را براحتی عبور می دهد.،و دیود روشن و خاموش می شود.یک اصل مهم را همواره در دیود ها به خاطر بسپارید.هرگاه ولتاژ سمت آند دیود از ولتاژ سمت کاتد آن مثبت تر باشد دیود جریان را از خود عبور میدهد.این عمل در led ها با روشن شدن آنها براحتی و با چشم دیده می شو د.
برنامه مدار
1:
2:
3: Dim Output As Integer
4:
5: Private Sub Command1_Click()
6: Timer1.Interval = HScroll1.Value + 10
7: Timer1.Enabled = True
8: End Sub
9:
10: Private Sub Command2_Click()
11: Timer1.Enabled = False
12: End Sub
13:
14: Private Sub Form_Load()
15: i = OPENCOM("COM2,1200,N,8,1")
16: If i = 0 Then MsgBox ("COM Port unavailable")
17: Timer1.Interval = 250
18: Timer1.Enabled = True
19: Output = 0
20: End Sub
21:
22: Private Sub Form_Unload(Cancel As Integer)
23: CLOSECOM
24: End Sub
25:
26: Private Sub HScroll1_Change()
27: Timer1.Interval = HScroll1.Value + 10
28: End Sub
29:
30: Private Sub Timer1_Timer()
31: If Output = 1 Then Output = 0 Else Output = 1
32: If Output = 1 Then DTR 1 Else DTR 0
33: End Sub
برنامه ماژول
