در این پروژه قصد داریم تا با مثالی ساده و به آسانترین روش نحوه کار بار پورت RS232 رو یاد بگیریم در این برنامه با ارسال دستور به پورت یک 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 مشخص میشود . برای روشن و خاموش شدن اتوماتیک میتوانید با اضافه کردن تایمر به برنامه سرعت روشن خاموش شدن را بصورت اتوماتیک و بدون نیاز به فشردن دکمه تعیین کنید .