VB6 - MSComm

[cyclone]

Codice: Seleziona tutto

       
  If mscomm1.PortOpen = True Then mscomm1.PortOpen = False
           Dim count As Integer, i As Integer
           For i = 1 To 32
              If iscomportavailable(i) Then
                     Frm.Combo1.AddItem i
              End If
          Next i

questo codice lo devi inserire sul tuo button oppure lo puoi eseguire dal form main .
l'elenco delle porte valide verranno aggiunte con Additem sul combo della form su cui stai lavorando

[simo85]

OK funziona sono riuscito ad adattarlo, ma infine né il metodo linkato da angus, ne il tuo risulta efficiente, ma forse è solo perché sto lavorando su WinXp ospitato.. Lunedì potrò provare il codice da un Xp non ospitato, vediamo se cambia qualcosa.

Questo perché sia provando il codice linkato da angus che il tuo, riesco ad ottenere la lista di porte, che termina a 32 per via del loop.
La lista comincia dal COM3, ma già il codice mi dice che questo non è disponibile.
Questo con un adattatore USB-RS232 attaccato e ben riconosciuto da VirtualBox.
Se scollego l'adattatore la lista comincia dal numero 10..


Posso dirla una cosetta?
Me cago en VB y en su pxxa madre.

Per il momento ringrazio anche cyclone con una reputation, mi sembra il minimo per aver scritto il codice.. Se lunedì da Xp su fisso ottengo risultati migliori vi aggiorno.

[cyclone]

Grazie gohan per i ringraziamenti,

buon fine settimana