منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
com الكمبيوتر - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : com الكمبيوتر (/showthread.php?tid=44095)

com الكمبيوتر - h2551996 - 17-10-22

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


RE: com الكمبيوتر - عبدالله الدوسري - 17-10-22

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

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



بشكل  مختصر

RE: com الكمبيوتر - h2551996 - 17-10-22

(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

RE: com الكمبيوتر - عبدالله الدوسري - 17-10-22

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

RE: com الكمبيوتر - Jounior_P - 18-10-22

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