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

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

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

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

بشكل مختصر

(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

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

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 

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

h2551996

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

h2551996

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

Jounior_P