[VB6] Selezionare automaticamente la prima porta seriale esistente e disponibile

[08arco80]

Ciao,
ho realizzato un programma che permette ad un pc ed un dispositivo di colloquiare tra loro utilizzando una comunicazione seriale che utilizza lo standard RS-232.
Vorrei fare in modo che all'avvio del programma realizzato (e quindi in form_load() ) venga controllata sia l'esistenza che la disponiblità delle porte seriali a partire dalla COM 1 e venga selezionata la prima (tramite riga di comando MSComm1.CommPort = n ) che risulti essere sia esistente che disponibile, in modo tale da poterla utilizzare per far comunicare pc e dispositivo.
Qualcuno ha idea di come fare?
Grazie

[oregon]

Usa la On Error quando esegui la

MSComm1.CommPort = n

in un ciclo

[08arco80]

Ho provato in diversi modi senza successo. Se potessi aggiungere un esempio funzionante e completo te ne sarei grato.

[oregon]

Originariamente inviato da 08arco80
Ho provato in diversi modi ...

Ad esempio, come ?

[08arco80]

Per testare esistenza e disponiblilità di una particolare porta, pensavo di impostare il numero della porta da testare (MSComm1.CommPort = n ) e di testarla tentando l'apertura della porta stessa (MSComm1.PortOpen = True ). In questo modo dovrebbe venir restituito un errore nel caso la porta non sia esistente o non sia disponiblie.
Supponiamo che l'unica porta esistente e disponiblie sia la COM 7.
La routine da realizzare dovrebbe quindi testare le porte una per una partendo dalla COM 1, scartare le porte che generano un errore (in questo caso quelle comprese tra la 1 e la 6) e selezionare per la comunicazione la prima porta che non genera un errore (in questo caso la COM 7).

Durante uno dei tentativi che ho effettuato, ho utilizzato On Error ed etichette di riga per realizzare una sorta di loop, come di seguito:

private sub form_load()

    index = 1
    
    GoTo comportsearch

comportsearch:
    On Error GoTo errs
    MSComm1.commport = index
    MSComm1.PortOpen = True
    Exit Sub

errs:
    index = index + 1
    Err.Clear
    GoTo comportsearch

end sub

In questo caso viene generato un errore (cod. 8002) alla riga MSComm1.PortOpen = True nonostante sia presente l'istruzione On Error GoTo errs .

[08arco80]

Proprio nessuna idea?!?

[oregon]

Originariamente inviato da 08arco80
Per testare esistenza e disponiblilità di una particolare porta, pensavo di impostare il numero della porta da testare (MSComm1.CommPort = n ) e di testarla tentando l'apertura della porta stessa (MSComm1.PortOpen = True ). In questo modo dovrebbe venir restituito un errore nel caso la porta non sia esistente o non sia disponiblie.

Mi sembra corretto ... l'unica cosa che ti consiglio e' di provare per un numero limitato di porte (che so ... dalla 1 alla 10 ) e non con un ciclo, potenzialmente, infinito ...
Nel caso in cui non ci fosse nessuna COM disponibile, il programma andrebbe avanti senza fermarsi ...

E poi devi usare la Resume e non la Goto ...

Private sub Form_load()
    Dim ix As Long

    On Error Resume Next

    For ix = 1 To 10
        MSComm1.commport = ix
        MSComm1.PortOpen = True
        
        If Err = 8002 Then
            Resume Next
        Else
            MsgBox "Aperta la porta " & ix
            Exit Sub
        End If
    Next ix

    MsgBox "Nessuna porta aperta"
End Sub