Discussion :

[tatawissa]

Bonjour
j'ai un fichier .dll qui contient plusieurs fonctions y compris la fonction qui assure la communication série RS232. j'ai fait l'appel et la déclaration de la fonction en question et j'ai essayé de vérifier la bonne communication entre 2 port RS232 via le VSPE mais toujours sans réponse j'arrive pas à vérifier la liaison comme en C. vraiment je n'est pas trouvé une solution est ce que je dois faire une configuration de plus avec mon code qui appel la fonction .dll responsable de la liaison ou quoi je me trouve bloquée depuis 2 semaines et tout les recherches sur net ne me donne pas des réponses à mes questions.

voila mon code VB avec le quel je veux vérifier la liaison entre 2 ports. suite à l'exécution de ce code je n'ai pas des message d'erreur


[code=vb]

Code :

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

1
2
3
4
5
6
7
8
9
Private Declare Function Com Lib "vc_vb.Dll" (ByVal iPort As Integer, ByVal iBaud As Integer, ByVal iBits As Integer, ByVal iStop As Integer, ByVal iParity As Integer, ByVal iTimeout As Integer) As Long 
 
Private Sub Command2_Click() 
x = Com(1, 9600, 8, 1, 0, 20) 
End Sub 
 
Private Sub Command9_Click() 
x = Com(2, 9600, 8, 1, 0, 20) 
End Sub

Merci de me rendre service et m'aider

[DAUDET78]

Tu as un composant MScom qui fait le travail tout seul ....
http://grafikm.developpez.com/portcomm/

[tatawissa]

Merci DAUDET78 pour ta réponse, en faite l'utilisation de ce fichier dll pour la vérification de la communication serie est imposé dans le cahier de charge du projet. donc l'utilisation directe du composant MSComm n'est pas 100% faisable dans ce cas je pense puisque il s'agit d'une structure prédéfinie :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Private Sub Form_Load()
Form1.Caption = "App1"
With MSComm1 'configuration du port
.CommPort = 1 'On utilise le port COM1:
.Handshaking = 2 'RTS
.RThreshold = 1
.RTSEnable = True 'mieux pour le port COM:
.Settings = "9600,n,8,1"
.SThreshold = 1
.PortOpen = True 'ouverture du port
End With

à propos le code de l'application 1 me donne comme message :"erreur de compilation : methode ou membre des données introuvable"

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
19
20
21
22
23
24
Option Explicit
Private Sub Form_Load()
Form1.Caption = "App1"
With MSComm1 'configuration du port
.CommPort = 1 'On utilise le port COM1:
.Handshaking = 2 'RTS
.RThreshold = 1
.RTSEnable = True 'mieux pour le port COM:
.Settings = "9600,n,8,1"
.SThreshold = 1
.PortOpen = True 'ouverture du port
End With
 
Command1.Caption = "&Send"
Text1.Text = "Ces données ont été envoyés via le port COM"
End Sub
 
Private Sub Command1_Click()
MSComm1.Output = Text1.Text
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False 'on ferme le port à la fermeture de l'appli
End Sub

Mercii

[DAUDET78]

donc l'utilisation directe du composant MSComm n'est pas 100% faisable dans ce cas je pense puisque il s'agit d'une structure prédéfinie

Il y a dans VB6 un composant qui marche ,pourquoi ne pas l'utiliser?

Code :

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

1
2
3
4
.Handshaking = 2 'RTS
.RThreshold = 1
.RTSEnable = True 'mieux pour le port COM:
.SThreshold = 1

Ces commandes sont nuisibles si tu veux faire une liaison sans contrôle de débit (liaison 3 fils en Null Modem)

à propos le code de l'application 1 me donne comme message :"erreur de compilation : methode ou membre des données introuvable"

sur quelle ligne ?

[tatawissa]

l'erreur de compilation au niveau de la ligne 5

Code :

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

.CommPort = 1 'On utilise le port COM1:

[DAUDET78]

une erreur sur le nom du composant ? c'est bien MSComm1 ?

[ProgElecT]

Salut

Il n'est pas sûr que ton périphérique soit sur le port 1, de plus ce port est éventuellement utilisé par un autre périphérique.
Pour lever le doute, dans mes contributions, Utilitaire pour pilotage du port série, le source contenu dans le ZIP te permettra de faire des expériences pour finaliser l'utilisation de ta propre Dll.