[h2551996]

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

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

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

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

بشكل  مختصر

[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

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

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

[Jounior_P]

PHP كود :

Imports Microsoft.Win32

Public Class Form1
Public regKey As RegistryKey
Private Sub Btn_usbon_Click(sender As Object, e As EventArgs) Handles Btn_usbon.Click

    regKey = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Services\USBSTOR", True)
    regKey.SetValue("Start", 3) ' 3(To enable the ports)
                                
End Sub

Private Sub Btn_usboff_Click(sender As Object, e As EventArgs) Handles Btn_usboff.Click
    regKey = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Services\USBSTOR", True)
    regKey.SetValue("Start", 4) ' 4(To disable the ports)
                
End Sub
End Class