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

• Zsolt_974 tag

  #2671

  #2670 Bobrooney

  2016-01-26 21:53:41

  Ú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

  

  Zsolt_974

  tag

  #2670 Bobrooney

  #2670 Bobrooney

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

  Bocs, hogy nem válaszoltam, de nem volt rá időm.

  Igen közbe rájöttem én is, hogy miért csak a Com1-et találja meg és a Com9-et miért nem. Azért, mert a Com9 egy usb-s eszköz, "virtuális soros port".

  Viszont ezzel:
  Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_PnPEntity")

  sikerült megtalálni az USB-Serial CH340(COM9)-et, de sajnos sok PnP eszköz, erőforrások is belekerült a listába.

• Zsolt_974 tag

  #2669

  #2668 Bobrooney

  2016-01-21 17:58:06

  Ú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

  

  Zsolt_974

  tag

  #2668 Bobrooney

  #2668 Bobrooney

  Gondolom erre gondolsz: MsgBox(queryObj("Description"))
  Akkor ha a MsgBox helyett egy String-be rakod bele?

  Í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?

• Zsolt_974 tag

  #2667

  #2666 Bobrooney

  2016-01-20 23:35:04

  Ú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

  

  Zsolt_974

  tag

  #2666 Bobrooney

  #2666 Bobrooney

  [link]
  Ahogy nézem itt iterálással oldotta meg. Remélem jó lesz

  Köszönöm a gyors választ.

  Sajnos ezzel is csak a következőt kapom vissza, hogy
  COM 1
  COM 9

  Viszont ezt találtam:
  [link]

  Ez egy MsgBox-ban vissza adja ezt:

  

  Sajnos a ComboBox1-be nem tudom belevarázsolni és csak a Com 1 jelenik meg a Com 9 nem.
  Én csak hobbiszinten programozgatok. Viszont kitartóan.

  Zsolt

• Zsolt_974 tag

  #2665 2016-01-20 21:24:38

  Ú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

  

  Zsolt_974

  tag

  Sziasztok!

  Egy kis segítséget, útmutatást szeretnék kérni, bár látom nem nagyon pörög a téma.
  Írogatok egy programot Visual Basic 2008 környezetben. A program soros portról fogad adatokat.
  A problémám a következő lenne. A program indulásakor a gépen aktív soros portok száma mellé, hogy lehet az eszköz nevét is kiíratni mint az eszközkezelőben is van? Remélem érthetően fogalmaztam.

  

  

  A programban a következő sor olvassa be a soros portokat:

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

  Segítségeteket, válaszotokat előre is köszönöm.

  Üdv. Zsolt

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