Page 1 sur 1
Liste des ports com disponibles sur le PC
Publié : sam. 05/août/2017 13:02
par brossden
Bonjour à tous !
Est il possible d'obtenir le liste des ports COM disponibles dur le pc !
Bonne jour née à tous
Re: Liste des ports com disponibles sur le PC
Publié : sam. 05/août/2017 14:14
par Ollivier
Re: Liste des ports com disponibles sur le PC
Publié : sam. 05/août/2017 14:41
par brossden
Merci
Ollivier mais j'ai trouvé plus simple par moi-même avec cette petite appli :
Code : Tout sélectionner
For n = 1 To 15
PortCom.s= "COM"+Str(n)
x = OpenSerialPort(0, PortCom,9600, #PB_SerialPort_NoParity, 8, 1, #PB_SerialPort_NoHandshake, 1024, 1024)
If x > 0
CloseSerialPort(0)
Debug PortCom
EndIf
Next
Re: Liste des ports com disponibles sur le PC
Publié : sam. 05/août/2017 14:59
par Ar-S
Quel plaisir de te lire brossden !
Re: Liste des ports com disponibles sur le PC
Publié : sam. 05/août/2017 16:43
par Ollivier
Content de te revoir aussi.
Par contre, ta méthode simplissime mérite des explications : Si tu as un peu de temps, peux-tu préciser :
1) la version de ton système d'exploitation
2) la liste que ça t'affiche
3) la liste que le BIOS affiche
4) le nombre de connexions physiques
Sans quoi, c'est sûr, tout serait simple...
Exemple :
1) XP
2) COM3 seul disponible
3) Pas de port disponible dans le BIOS
4) Pas de connexion physique
Voilà, voilà!
Re: Liste des ports com disponibles sur le PC
Publié : sam. 05/août/2017 22:29
par cage
Bonjour,
Sous Windows, dans une fenêtre "Invite de commande", taper mode
Exemple:
Code : Tout sélectionner
C:\Users\admin>mode
Statut du périphérique COM4:
----------------------------
Baud : 1200
Parité : None
Bits de données : 7
Bits d’arrêt : 1
Temporisation : OFF
XON/XOFF : OFF
Protocole CTS : OFF
Protocole DSR : OFF
Sensibilité DSR : OFF
Circuit DTR : ON
Circuit RTS : ON
Statut du périphérique CON:
---------------------------
Lignes : 9001
Colonnes : 120
Vitesse clavier : 31
Délai clavier : 1
Page de codes : 850
C:\Users\admin>
Exemple avec PB
Code : Tout sélectionner
ClearClipboard()
RunProgram("cmd.exe", "/c mode 2>&1|clip", #Null$,#PB_Program_Wait)
clip$ = GetClipboardText()
Debug clip$
Reste a traiter le contenu du presse papier
Autre exemple avec PB
Code : Tout sélectionner
Procedure CheckSerial()
#BUFFERSIZE = 128
#MAX_SERIAL = 255
Protected COM$
Protected Result.l
Protected SName$
Protected Buffer${#BUFFERSIZE}
Buffer$ = Space(#BUFFERSIZE)
Protected Serial.a
For Serial = 1 To #MAX_SERIAL
SName$ = "COM" + Serial + Chr(0)
Result = QueryDosDevice_(SName$, @Buffer$, #BUFFERSIZE)
If Result
COM$ = "COM" + Str(Serial)
Debug COM$
EndIf
Next
EndProcedure
CheckSerial()
cage
Re: Liste des ports com disponibles sur le PC
Publié : lun. 07/août/2017 8:13
par Kwai chang caine
Toujours heureux de lire de temps à autre ce bon Denis
@Cage
Cool la combine de copie dans le presse papier à partir de la console, connaissais pas.
Merci Cage
Re: Liste des ports com disponibles sur le PC
Publié : lun. 07/août/2017 15:46
par GallyHC
bonjour,
Dans le même style avec les bauds en plus
http://www.purebasic.fr/french/viewtopi ... 10#p188810
Cordialement,
GallyHC
Re: Liste des ports com disponibles sur le PC
Publié : sam. 09/sept./2017 10:49
par brossden
Bonjour à tous les amis !
Depuis que je suis à la retraite je n'ai plus le temps de rien faire ! lol
Mon seul soucis est de connaitre les ports com disponibles. Pour cette fonction le reste ne m'importe pas puisque on ne peux pas utiliser les ports déjà pris !
Pour ce qui est de la version Windows cela marche avec n'importe que version même le DOS ! Mais il faut l'adapter à Qbasic ! Mdr !
Aller 0+ peut être !
Re: Liste des ports com disponibles sur le PC
Publié : sam. 09/sept./2017 11:56
par Ollivier
Toi, tu as senti le gateau!