[عبدالله الدوسري]

وعليكم السلام

System.IO.Ports

لإنشاء الــ SerialPort

كود :

Dim SerialPort As New SerialPort("COM3")

فتح الــ SerialPort

كود :

SerialPort.Open()

لتلقي رسائل تأتي من الــ SerialPort : تحتاج إلى ضبط بعض خصائص  الــ SerialPort ليعمل بشكل المطلوب , حسب الجهاز المتصل بالبورت

كود :

      AddHandler SerialPort.DataReceived, Sub(sender As Object, e As SerialDataReceivedEventArgs)
                                               Dim sp As SerialPort = CType(sender, SerialPort)
                                               Dim BarcodeData As String = sp.ReadExisting
                                               MsgBox(BarcodeData)
                                           End Sub

لإغلاق الــ SerialPort

كود :

SerialPort.Close()

بشكل  مختصر