saadatfar
پنج شنبه 07 آذر 1387, 23:51 عصر
من می خواهم به محظ که یه داده ای به پورت سریال رایانه ارسال شد یک تابع به اجرا درآید.
باید چه کنم؟
rooshan2008
جمعه 08 آذر 1387, 03:14 صبح
سلام
شما می تونید از شی SerialPort استفاده کنید.
به طور مثال :
برای گرفتن پورت ها متصل:
با فرض اینکه داخل فرمتون یک ComboBox وجود داشته باشه:
For Each s In IO.Ports.SerialPort.GetPortNames
ComboBox1.Items.Add(s)
Next
برای اینکه بتونین یک اطلاعات رو ارصال یا دریافت کنیم باید Port مورد نظر رو باز کنیم:
SerialPort1.PortName = PortName
SerialPort1.Open()
مثلا شما می تونید به مودم با تلفن ارتباط برقرار کرده و بین دو کامپیوتر اطلاعات ارسال یا دریافت کنید یا دستورات AT صادر کنید
برای دریافت اطلاعات:
وقتی اطلاعات به پورتی که باز کردید ارصال بشه رویداد DataReceived رخ میده که شما می تونید اون رو دریافت کنید.:
Dim obj(SerialPort1.BytesToRead + 1) As Char
SerialPort1.Read(obj, 0, SerialPort1.BytesToRead)
این هم یک مثال خیلی خوب :
http://msdn.microsoft.com/en-us/library/system.io.ports.serialport.aspx
موفق باشید.
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.