Discussion :

[gomtex]

bonjour a tous,

voila dans un programme j'utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Form1.Caption = "Form1"                                     'le titre du form
   With MSComm3                                            'configuration du port
        .CommPort = 3                                       'On utilise le port COM3
        .Handshaking = 2                                    'RTS
        .RThreshold = 1
        .RTSEnable = True                                   'mieux pour le port COM:
        .Settings = "9600,n,8,1"                            'taux 9600 bauds, sur 8 bit avec un bit de stop
        .PortOpen = True                                    'ouverture du port
        .SThreshold = 1
        End With

mais le problème et qu'il est possible que ce soit un autre port que le trois qui soit ouvert, comment peut-on faire pour checker tous les ports ouvert?

merci

[OhMonBato]

Avec une boucle de 1 à 16 (puisque le controle COM ne gère que de Com1 à Com16) et avec une détection d'erreur sur le "portopen = True"

[gomtex]

donc je dois faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Form1.Caption = "Form1"                                     'le titre du form
 
    For j = 1 To 16
    With MSComm3                                             'configuration du port
        .CommPort = j                                       'On utilise le port COM3
        .Handshaking = 2                                    'RTS
        .RThreshold = 1
        .RTSEnable = True                                   'mieux pour le port COM:
        .Settings = "9600,n,8,1"                            'taux 9600 bauds, sur 8 bit avec un bit de stop
        .SThreshold = 1
        If (.PortOpen = True) Then
        End If
        End With
        Next

ca lance le programme mais quand je veu faire quelque chose ca me dis qu'il faut que le port soit ouvert

[OhMonBato]

Que veux tu faire exactement ?
Si c'est juste pour voir si les ports sont ouverts ou non, cette boucle suffit (encore faudrait-il rajouter un "On Error" car je doute que tu ais 16 com ports sur ton PC). Si c'est pour utiliser un port en particulier, il faut le dire.
Prends donc le temps d'écrire un message ou tu expliqueras clairement et complètement ce que tu souhaites faire.

[gomtex]

oui je dois utiliser le port qui est ouvert^^ desolé

[DAUDET78]

oui je dois utiliser le port qui est ouvert^^ desolé

Je pense (ou plutôt j'espère) que notre ami Gomtex doit utiliser dans une feuille, un port COM qui a été ouvert dans une autre feuille du même .EXE, mais il ne sait plus son numéro. Dans ce cas, ce n'est pas en testant ceux qui sont déjà ouverts qu'on résous le problème.
- Soit tu mets dans une "variable globale" le numéro du port COM
- Soit tu crées une "fonction globale" d'écriture sur ce port COM

[OhMonBato]

Dernier rappel :

Prends donc le temps d'écrire un message ou tu expliqueras clairement et complètement ce que tu souhaites faire.

Le port ouvert par quel programme ? Si c'est ouvert par un autre programme, c'est foutu d'avance.

[gomtex]

Je souhaite faire un test pour savoir quel port com est ouvert, lorsqu'un des ports est jugé ouvert il s'arrête sur la boucle et le port qui sera utilisé sera celui la. Après je suppose et j'espère que je pourrai adapter pour faire une liste des ports com ouverts, parce que des fois ma souris est branchée sur le com et j'ai peur qu'il prenne se port la.