[RISOLTO]Scansione porte seriali

[akrobaticone]

Vorrei trovare un sistema per effettuare una scansione delle porte seriali del PC, comprese quelle emulate da convertitori USB, così da creare una combo ove sono elencate per poterle scegliere
Come posso fare?
Grazie

[milio]

io avevo fatto così:

Codice: [Seleziona]

Public Function ScanSerial() As String[]
Dim SPortList As New String[]

  SPortList.Insert(Dir("/dev", "ttyS*").Sort())
  SPortList.Insert(Dir("/dev", "ttyUSB*").Sort())

  Return SPortList

End

[fsurfing]

per alcuni dispositivi tipo arduino dovresti mettere anche

Codice: [Seleziona]

SPortList.Insert(Dir("/dev", "ttyACM*").Sort())

[akrobaticone]

il sistema funziona
grazie per la info
mi fa vedere anche il convertitore 232 usb
la lista delle seriali disponibili è però di 30 elementi
è normale?

[akrobaticone]

come mai ci sono tutte le seriali da 1 a 30?
per verificare quelle realmente esistenti dovrei aprirle una a una e verificare se viene riportato un errore
esiste un sistema più semplice?

[fsurfing]

forse puoi verificarlo con cat /dev/porta
ma non è che sia molto meglio ...

hai provato a guardar el' esempio serial port se fa menzione del sistema di elenco porte?

[akrobaticone]

Nell'esempio serial port è possibile selezionare solo la porta ttys0
in /dev sono presenti tutte le porte fino a 30
vengono previste tutte in anticipo?

[akrobaticone]

ho provato a scrivere una cosa così

Codice: [Seleziona]

' Gambas class file


Public Function ScanSerial() As String[]
   Dim SPortList As New String[]

  SPortList.Insert(Dir("/dev", "ttyS*").Sort())
  SPortList.Insert(Dir("/dev", "ttyUSB*").Sort())

  Return SPortList

End

Public Sub Form_Open()
  Dim lista As New String[]
  Dim lunghezza As Integer
  Dim i As Integer

  lista = ScanSerial()
  lunghezza = lista.count - 1

  For i = 0 To lunghezza
    If verifica_seriale(lista[i])
      ComboBox1.add(lista[i])
    Endif
  Next
  ComboBox1.index = 0
End


Public Sub verifica_seriale(lista As String) As Boolean
  
  Dim risultato As Boolean
  Serialport1.PortName = "/dev/" & lista
  Serialport1.Open
  risultato = True 
  Serialport1.close()
  Finally 
    Return risultato
  Catch
    risultato = False
End

 Prima carico tutta la lista delle seriali, poi le verifico una ad una provandole verificando che non diano errore
infine le inserisco in una combobox

[milio]

Ottimo... testata e funzionante... ti trova solo le seriali a cui e' collegato un 'qualcosa'...

Solo perche' ci devo mettere anche del mio,  , si puo' scrivere anche in questo modo:

Codice: [Seleziona]

PUBLIC SUB verifica_seriale(lista AS String) AS Boolean

  Serialport1.PortName = "/dev/" & lista
  TRY Serialport1.Open()
  IF ERROR THEN RETURN
  Serialport1.Close()
  RETURN TRUE

END

[akrobaticone]

Ottimo... testata e funzionante... ti trova solo le seriali a cui e' collegato un 'qualcosa'...

Solo perche' ci devo mettere anche del mio,  , si puo' scrivere anche in questo modo:

Codice: [Seleziona]

PUBLIC SUB verifica_seriale(lista AS String) AS Boolean

  Serialport1.PortName = "/dev/" & lista
  TRY Serialport1.Open()
  IF ERROR THEN RETURN
  Serialport1.Close()
  RETURN TRUE

END

così mi sembra più bello

un'altro tassello al mio progetto

[akrobaticone]

per alcuni dispositivi tipo arduino dovresti mettere anche

Codice: [Seleziona]

SPortList.Insert(Dir("/dev", "ttyACM*").Sort())

dimenticavamo anche questo..