Discussion :

[Tyrael62]

Voila , j'ai une feuille MDI , ou j'ai déclaré l'ouverture de mon port dans le form load_MDI , et ensuite dans les feuilles filles , j'utilise l'objet MSCOMM de la feuille MDI par la commande nom_feuille_MDI.COMM1.output,etc...
Mais le hic , c'est que dans ces feuilles filles , le port envoie rien vers l'alimentation de la carte electronique!Donc je vais vous laisser mes parties de code ou qu'à ou j'y aurais fait une erreur!
FEUILLE MDI : form_load_MDI

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
16
 
 ' Utilise le numero du port COM du fichier ini.
   MSComm1.CommPort = Port_com
 
   ' 9600 bauds, pas de parité, 8 bits de données et 1 bit d'arrêt.
   MSComm1.Settings = "9600,N,8,1"
 
   ' Indique au contrôle qu'il doit lire la totalité
   ' du tampon si la propriété Input est utilisée.
   MSComm1.InputLen = 0
 
 
   ' Ouvre le port.
   MSComm1.PortOpen = True
 
   MSComm1.Output = "*RST" & Chr(10)

FEUILLE TEST_CONNECT : form_load

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
16
17
18
 
Monofilaments_10µ.MSComm1.Output = "CONF:RES 20,(@101:110)" & Chr(10)
Sleep 500
Monofilaments_10µ.MSComm1.Output = "READ?" & Chr(10)
 
Sleep 1500
c = Monofilaments_10µ.MSComm1.Input
 
If Val(Mid(c, 1, 15)) < 3 Then
    t1 = "Court-circuit"
Else
    If Val(Mid(c, 1, 15)) < 18 Then
        t1 = "OK"
    Else
    t1 = "Mauvais contact"
    End If
End If
'etc....

Je precise que l'objet MScomm1 se situe uniquement dans la feuille MDI,les autres pages n'ont objet mscomm!
J'espere que vous pourrez m'aider un peu!En attendant , vos reponses je vais me creuser les méninges plus serieusement sur ce souci technique!

[ThierryAIM]

dejà tu dois traiter la réception dans l'evenement MSComm1_OnComm

Code :

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

1
2
3
4
5
6
7
 
Private Static Sub MSComm1_OnComm()
    Select Case MSComm1.CommEvent
        ' Messages d'événement.
        Case comEvReceive
            buffer = MSComm1.Input
....

sinon, pour l'envoi, y'a pas raison, si ta ligne est bien configurée

[AdHoc]

bonjour,
juste 2-3 conseils
- tester les trames avec hyperterminal branché sur un autre port com relié par un cordon (meme PC ou autre PC), cela permet déjà de voir si les trames partent bien avec le bon format etc etc
- je ne suis pas sur que mettre un sleep juste après le output soit une bonne idée. utilise plutot une machine à etat et un timers. En plus dans ton cas tu peux gérer les attentes et les time-out
- Contrairement à Thierry, j'evite d'utiliser MSComm1_OnComm, surtout quand deux applis font du question-reponse, par expérience, je sais que ces évenements peuvent etre "masqués" et si tu en manque un, c'est raté. En utilisant le InBufferCount avec un timer, on obtient une meilleure fiabilité. (Rmq: je sais que c'est contraire à la logique événementielle)
- J'evite de démarrer (timers) ou d'ouvrir (socket, port com) des controles dans le form_load, je préfére charger ma forme, puis appeler une fonction d'initialisation qui s'en charge
- si comme tu dit, le problème concerne juste les feuilles filles, essaye en utilisant une fonction de la feuille mere que tu appelle des feuilles filles, tu pourras mieux suivre le déroulement des opérations, notament voir si tu passe dedans.