Új hozzászólás Aktív témák

• Bobrooney senior tag

  #2670

  #2669 Zsolt_974

  2016-01-21 21:17:13

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Bobrooney

  senior tag

  #2669 Zsolt_974

  #2669 Zsolt_974

  Így indul a program:

  

  A belépés gombra klikkelve:

  

  Ok gombra klikkelve és utána a "Com port lenyílóban ezek láthatók: Com1, Com9, Kommunikációs port(Com1)":

  

  A program kódban az ehhez tartozó sorok:

  Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_SerialPort")
  _______________________________________________________________________________________

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _Button1.Click

  For Each queryObj As ManagementObject In searcher.Get()
  MsgBox(queryObj("Name"))
  Dim textt As String = queryObj("Name").ToString
  RichTextBox1.Text = textt
  ComboBox1.Items.Add(textt)

  Next

  ComboBox1.Items.AddRange(IO.Ports.SerialPort.GetPortNames())
  End Sub

  Végül is tegnap már ott jártam, hogy a ComboBox-ba is beírja, de sajnos csak a
  Kommunikációs port(COM1). Az USB-SERIAL CH340(COM9) nem sikerül kiíratni.
  A két port közül miért csak a Kommunikációs port(COM1)-et találja meg?

  Lehet az USB-t más metódusban tudod lekérdezni. [link]

Új hozzászólás Aktív témák