[h2551996]

(17-10-22, 03:59 PM)عبدالله الدوسري كتب : وعليكم السلام

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()

بشكل  مختصر

الف شكر ياغالي
هل ممكن نفس الطريقة لكن usb