V{maketoc}
قطعات مورد نیاز
در این مدار با نحوه کنترل یک led توسط کامپیوتر آشنا می شوید.در این مدار احتیاجی به منبع تغذیه ندارید.
# 1 عدد led معمولی
# یک عدد کابل RS232
# ((برد بورد)) یا برد مسی سوراخدار
# سیم تلفنی
در این نوع از استاندارد ارسال ودریافت از طریق کامپیوتر، پین 5 زمین یا گراند است.در این استاندارد تنها سه پین خروجی وجود دارند.این سه پین عبارتند از DTR پین 4،TXD پین 3 ،RTS پین 7 به شکل پینها واسامی آنها در زیر توجه کنید.
{picture file=img/daneshnameh_up/9_PIN_PIN_OUT.gif}
|
{picture file=img/daneshnameh_up/9_pin.jpg}
|
!نحوه بستن مدار
اگر به کابل RS232 که تهیه کرده اید به خوبی نگاه کنید.، متوجه یک سری شماره از 1 تا 9 روی سوکت آن می شوید.، این شماره ها در واقع همان شماره پینهای مربوط به ارسال و دریافت هستند.،در این مدار ما به2 پین احتیاج داریم . پین 4 DTR ،پین 5 GND ،پین 5 در واقع زمین ما در ارسال ودریافت استانداردRS232 است که می بایست منفی LED را بر روی برد بورد به آن وصل کنید.،می توانید زمین این کابل را به منفی LED بر روی بردهای سوراخدار مسی لحیم کنید.وکل مدار خود را بر روی برد های سوراخدار مسی به جای برد بورد پیاده سازی کنید.از سیمهای تلفنی که در اختیار دارید حدود 2 تکه 5سانتی متری ببرید.حال با استفاده از هویه و سیم قلعی که تهیه کرده اید این سیمها را به پینهای سوکت RS232 که مشخص شده است.، لحیم کنید . در هنگام لحیم کردن به شماره پینها دقت کنید.،شماره هر پین در کنار آن بر روی سوکت نوشته شده است.حال DTR را که پین 4 است.را به مثبت LED وصل کنید.، و برنامه را اجرا کنید.
!نقشه مدار
به نقشه مدار در شکل زیر توجه کنید.در این نقشه اگر جهت led را عوض کنید.با ز هم led مانند حالت قبل روشن و خاموش می شود.،و به چشمک زدن خود ادامه می دهد.، این بار روشن وخاموش شدن بر خلاف حالت اولیه خواهد بود.برای اینکه این حالت را بهتر متوجه بشو ید.دو عدد led را در کنار یکدیگر به صورت موازی قرار دهید به گونه ای که مثبت ومنفی یا آند و کاتد آنها بر خلاف یکدیگر باشند اگر برنامه را اجرا کنید.مشاهده خواهید کرد که led ها با هم روشن نمی شوند بلکه عمل روشن و خاموش شدن به تناوب صورت خواهد گرفت.علت آن وجود قطار پالسی است که توسط برنامه صورت می گیرد.زمانیکه این قطار پالس زیر محور صفر قرار می گیرد.در واقع زمین نسبت به آن مثبت تر است و جریان را براحتی عبور می دهد.،و دیود روشن و خاموش می شود.یک اصل مهم را همواره در دیود ها به خاطر بسپارید.هرگاه ولتاژ سمت آند دیود از ولتاژ سمت کاتد آن مثبت تر باشد دیود جریان را از خود عبور میدهد.این عمل در led ها با روشن شدن آنها براحتی و با چشم دیده می شو د.
{picture file=img/daneshnameh_up/LEDCONT.JPG}
|
!برنامه مدار
{CODE(ln=>1, colors=>php| highlights| phpcode)}
Dim Output As Integer
Private Sub Command1_Click()
Timer1.Interval = HScroll1.Value + 10
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
i = OPENCOM("COM2,1200,N,8,1")
If i = 0 Then MsgBox ("COM Port unavailable")
Timer1.Interval = 250
Timer1.Enabled = True
Output = 0
End Sub
Private Sub Form_Unload(Cancel As Integer)
CLOSECOM
End Sub
Private Sub HScroll1_Change()
Timer1.Interval = HScroll1.Value + 10
End Sub
Private Sub Timer1_Timer()
If Output = 1 Then Output = 0 Else Output = 1
If Output = 1 Then DTR 1 Else DTR 0
End Sub
{CODE}
!!برنامه ماژول
برای انجام پروژه های اینترفیس (Interface) باید پینها وعباراتی را که احتیاج دارید در قسمت ماژول وارد کنید.در این برنامه ما احتیاج داریم که یک پورت سریال را باز کنیم بعد از تمام شدن برنامه آنرا ببندیم.از پین DTR استفاده کنیم.و عمل ارسال یا send را انجام بدهیم تمامی این موارد در این ماژول کاملا رعایت شده است.خط اول برنامه پورت را باز میکند.،خط بعدی اگر برنامه را شما ببندید پورت را می بندد.و از باز بودن پورت جلوگیری می کند.خط بعدی مربوط به ارسال است.و خط آخر پین DTR را به عنوان خروجی معرفی می کند.
{CODE(ln=>1, colors=>php| highlights| phpcode)}
Declare Function OPENCOM Lib "Port" (ByVal A$) As Integer
Declare Sub CLOSECOM Lib "Port" ()
Declare Sub SENDBYTE Lib "Port" (ByVal b%)
Declare Sub DTR Lib "Port" (ByVal b%)
End Sub
{CODE}
