Comm Control 6.0

Question

Bonsoir,
je voudrais faire communiquer une carte via le port RS232. J'ai trouv&#233; ces qlqs lignes de prog que j'ai recopi&#233; mais lorsque je clic sur le 'command1' il n'affiche rien dans le 'TextBox'. Qlq'un peut me dire ou est le probleme

Merci pour votre aide

Private Sub Form_Load()
Form1.Caption = "Form1"
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 = ""
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 &#224; la fermeture de l'appli
End Sub

cs_Jack · Answer

Salut
C'est normal puisque Text1 contient le texte &#224; exp&#233;dier.
La r&#233;ception n'est pas trait&#233;e dans ton code, regarde l'aide : Lire le MSComm1.Input pour r&#233;cup&#233;rer les donn&#233;es et les afficher.
Il doit y avoir des exemples sur vbfrance, cherche un peu.

Vala
Jack
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_bentic · Answer

Merci pour ce coup de pousse. Je ne suis absolument pas programmeur c pour cela que je pose la question. Cela etant, je vais lire et essayer de comprendre le MScomm1.Input
Merci bon WE

Comm Control 6.0

2 réponses

Discussions similaires