علی قلعه بان
دانشجوی دکتری فناوری اطلاعات

آموزش کار با پورت RS232 در ویژوال بیسیک و انجام پروژه عملی

در این پروژه قصد داریم تا با مثالی ساده و به آسانترین روش نحوه کار بار پورت RS232 رو یاد بگیریم در این برنامه با ارسال دستور به پورت یک LED را روشن و خاموش خواهیم کرد برای این پروژه نیاز به

دوره های شبکه، برنامه نویسی، مجازی سازی، امنیت، نفوذ و ... با برترین های ایران
سرفصل های این مطلب
  1. یک عدد LED

یک عدد LED

پورت ماده RS232 امروز این پورت روی سیستم های جدید سخت پیدا میشه اگر شما نداشتین روی سیستم میتونید از نوع کارت PCI تهیه نمایید بعد از تهیه این اقلام LED را به پایه های 4 و 5 پورت وصل کنید دقت کنید پایه کوتاه LED باید به Ground پورت 5 و پایه بلند به DTR پورت 4 وصل شود طبق شکل زیر بهتر است لحیم کاری شود

وب سایت توسینسو

بعد از اتمام کار پورت را به به کامپیوتر وصل کنید و برنامه ویژالبیسیک را باز کنید و طبق شکل زیر عمل کنید

وب سایت توسینسو
وب سایت توسینسو
وب سایت توسینسو

بعد از انجام عملیات های نشان داده شده در بالا ابتدا در قسمت Form_Load کد زیر را وارد کنید

Private Sub Form_Load()
MSComm1.DTREnable = False
MSComm1.Settings = “1200,N,8,1”
MSComm1.CommPort = 1
MSComm1.InputLen = 1
MSComm1.PortOpen = True
MSComm1.RThreshold = 1
End Sub

سپس کد زیر را در درون کد دکمه on/off اضافه شده به فرم کپی نمایید

Private Sub Command1_Click()
If MSComm1.DTREnable = True Then
MSComm1.DTREnable = False
Else
MSComm1.DTREnable = True
End If
End Sub

همانطور که در کد مشاهده میکنید در هنگام لود شدن فرم تنظیمات عمومی پورت انجام و فعال میشود و سپس هنگام فشردن دکمه پایه DTR پورت فعال و غیرفعال میشود که این امر با روشن و خاموش شدن LED مشخص میشود . برای روشن و خاموش شدن اتوماتیک میتوانید با اضافه کردن تایمر به برنامه سرعت روشن خاموش شدن را بصورت اتوماتیک و بدون نیاز به فشردن دکمه تعیین کنید .

نویسنده : علی قلعه بان - دانشجوی دکتری فناوری اطلاعات


نظرات