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!