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

[bkhbkh]

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

je vous donne le code si possible pour le voir si tu as le temps

[thunderpat]

tu peux l'envoyé

[bkhbkh]

merci bien voilà le code reception el le même code de vous pour emmission

j'attens tes rqs

[thunderpat]

j'ai repris ton prog
j'ai ajouté un text et une commande pour envoyer
ca fonctionne chez moi

[bkhbkh]

j'ai repris ton prog
j'ai ajouté un text et une commande pour envoyer
ca fonctionne chez moi

de meme chez moi pas d'execution
tu as testé entre 2 pc

[thunderpat]

j'ai tester entre 2 pc chez moi

[bkhbkh]

j'ai tester entre 2 pc chez moi

merci bien je veux tester demain chez mon ami et avec 1 autre cable null modem

merci infinement pour votre aide, votre attention et tout ce temps

[ProgElecT]

Il serait utile de laisser le choix du Port COM à l'utilisateur, chez moi le port COM est 4 (suivant ou je met mon addaptateur USB <--> RS232).

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
Private Sub Form_Load()
Dim T As Integer
ListPort.Clear
For T = 1 To 10
 MSComm1.CommPort = T
 On Error Resume Next
 MSComm1.PortOpen = True
 If Err.Number = 0 Then
  MSComm1.PortOpen = False
  ListPort.AddItem CStr(T)
  Else
  Err.Clear
 End If
Next T
End sub

Ajouter dans Unload

Code :

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

1
2
3
4
5
Private Sub Form_Unload(Cancel As Integer)
If MSComm1.PortOpen = True Then
 MSComm1.PortOpen = False  'on ferme le port quand l'appli quitte !!!!!!!!!!!!!!!!!!!
End If
End Sub

Selection par l'utilisateur

Code :

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

1
2
3
4
5
6
7
Private Sub ListPort_Click()
If MSComm1.PortOpen = True Then
 MSComm1.PortOpen = False  'on ferme le port
End If
MSComm1.CommPort = ListPort.List(ListPort.ListIndex)
MSComm1.PortOpen = True
End Sub

[..::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