منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم اخوان
لو سمحتو محتاج مساعدة في كود
عند الضغط على زر اغلاق
يقوم بعمل البورت Disable
وعند الضغط على زر فتح
يقوم بعمل البورت Enable
هل من كود لهذه الطريقة

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

System.IO.Ports

لإنشاء الــ SerialPort


فتح الــ SerialPort




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




لإغلاق الــ SerialPort



بشكل  مختصر

(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

لا بصراحة لم اجرب من قبل
هذا الكود الذي وضعته من بعض المشاريع لدي وهو للإتصال بالباركود ريدر