Bonjour a tous.
J aimerais communiquer via le port rs232 et j ai quelques problemes :
J ai installé la librairie mscomm32.ocx
et j ai ecris le code suivant :
mon probleme vient du fait que je ne sais pas quoi mettre apres le setPrivate Sub Commande0_Click()
Dim portcom As MSComm
Set portcom =
portcom.CommPort = 1 'On utilise le port COM1:
portcom.Handshaking = 2 'RTS
portcom.RThreshold = 1
portcom.RTSEnable = True 'mieux pour le port COM:
portcom.Settings = "9600,n,8,1"
portcom.SThreshold = 1
portcom.PortOpen = True 'ouverture du port
portcom.Output = "020E0D0A110D0A4D2033312"
portcom.PortOpen = False
End Sub
Merci d avance pour les reponses
Partager