Discussion :

[bkhbkh]

Salut mes ami(e)s

je cherche le code qui permet d'envoyer d'un poste et recevoir dans un autre une chaîne des caractères (de taille max 236 octets) par le com ( RS 232) j'aime que l'envoi sera en boucle (tjrs) jusqu'à l'action sur 1 bouton et sur la côte réception je veux afficher toujours la chaîne envoyé
j'attends vos aides je suis très besoin de ce code

On va utiliser un câble croisé : poste1 2 -------- 3 poste 2
3 -------- 2
5 -------- 5

[SfJ5Rpw8]

Programmer le port série avec le contrôle MsComm par Alexandre Lokchine

[bkhbkh]

merci bien
mais j'ais testé le code qui ce trouve dans la page et n'a pas donné de resultat chez moi
y a t'il de parametrage à faire avand de tester le code
j'attends car je suis tres besoin de ce code d'emission et reception de msg par com1(port serie) entre 2 pc

tres tres tres besoin de ce code SVP

[thunderpat]

tien essai avec ce code là

c'est l'emmission

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 = "0"
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False 'on ferme le port à la fermeture de l'appli
End Sub
 
Private Sub Text1_Change()
MSComm1.Output = Text1.Text
End Sub

[bkhbkh]

tien essai avec ce code là

c'est l'emmission

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 = "0"
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False 'on ferme le port à la fermeture de l'appli
End Sub
 
Private Sub Text1_Change()
MSComm1.Output = Text1.Text
End Sub

merci bien
même code mais n'est pas fonctionné chez moi
y a t'il des autres parametres à faire ?? !!!!!!!!!!!!

[thunderpat]

sur ton appli tu as bien l'icone avec le tel

[..::snake::..]

.Handshaking = 2 'RTS


Lui il utilise 3 sortie

2 , 3 , 5

Ce qui est
Rx , Tx , GND
Mais le code que vous avez donné utilise le RTS , ce qui est un autre point sur le COM .
en l'appelle request .

tien essai avec ce code là

c'est l'emmission

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 = "0"
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False 'on ferme le port à la fermeture de l'appli
End Sub
 
Private Sub Text1_Change()
MSComm1.Output = Text1.Text
End Sub