وقفه پورت سریال

[saadatfar]

من می خواهم به محظ که یه داده ای به پورت سریال رایانه ارسال شد یک تابع به اجرا درآید.
باید چه کنم؟

[rooshan2008]

سلام
شما می تونید از شی 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

موفق باشید.