TheSaib
Messages postés2367Date d'inscriptionmardi 17 avril 2001StatutMembreDernière intervention26 décembre 200723 7 janv. 2003 à 22:33
Dim Instring As String
' COM1.
MSComm1.CommPort = 1
' 9600 baud, parité nulle, 8 bit, et 1 bit de stop MSComm1.Settings = "9600,N,8,1"
' dis au control de lire le buffer entier
MSComm1.InputLen = 0
' Ouvre le port
MSComm1.PortOpen = True
' exemple d'envoit au modem
MSComm1.Output = "AT" + Chr$(13)
' attend un retour.
Do
DoEvents
Loop Until MSComm1.InBufferCount >= 2
' recupere la reponse ok du modem
Instring = MSComm1.Input
' fermeture du port
MSComm1.PortOpen = False