Gestion du port COM en RS232

Version imprimable

04/06/2007, 01h19
bkhbkh

Gestion du port COM en RS232

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
04/06/2007, 07h19
SfJ5Rpw8

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

;)
06/06/2007, 20h03
bkhbkh

:salut:
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

tien essai avec ce code là

c'est l'emmission

Code:

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

Citation:

Envoyé par thunderpat

tien essai avec ce code là

c'est l'emmission

Code:

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 ?? !!!!!!!!!!!!

:( :( :( :(

06/06/2007, 20h54
thunderpat

sur ton appli tu as bien l'icone avec le tel
06/06/2007, 20h57
bkhbkh

Citation:

Envoyé par thunderpat

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 :king: :king: :king:
06/06/2007, 21h03
thunderpat

tu peux l'envoyé
06/06/2007, 21h10
bkhbkh

1 pièce(s) jointe(s)

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

j'attens tes rqs
06/06/2007, 21h20
thunderpat

1 pièce(s) jointe(s)

j'ai repris ton prog
j'ai ajouté un text et une commande pour envoyer
ca fonctionne chez moi
06/06/2007, 21h27
bkhbkh

Citation:

Envoyé par thunderpat

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
06/06/2007, 21h28
thunderpat

j'ai tester entre 2 pc chez moi
06/06/2007, 21h32
bkhbkh

Citation:

Envoyé par thunderpat

j'ai tester entre 2 pc chez moi

:salut:
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

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:

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:

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:

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

.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 .
Citation:
Envoyé par thunderpat
tien essai avec ce code là

c'est l'emmission
Code:

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