RE:Mscomm.Urgente
Publicado por
Vicente (1 intervención) el 11/01/2003 18:39:38
Yo llevo un día entero con esto. Hay un ejemplo de documentación que está perfecto (metodos, propiedades y ejemplo) en el MSDN Lybrary del Visual Studio 6.0 .
¿ Por lo que veo es imposible usarlo dentro de una aplicación Acces?, ¿no?. Bueno yo te envio el código del ejemplo. También hay un grupo en yahoo que hay un par de articulos:
"http://es.groups.yahoo.com/group/visualbasic-esp"
Ejemplo:
Private Sub Form_Load ()
' Búfer para almacenar la cadena de entrada
Dim Instring As String
' Usar COM1.
MSComm1.CommPort = 1
' 9600 baudios, sin paridad, 8 bits de datos y 1
' bit de parada.
MSComm1.Settings = "9600,N,8,1"
' Indicar al control que lea todo el búfer al usar
' Input.
MSComm1.InputLen = 0
' Abrir el puerto.
MSComm1.PortOpen = True
' Enviar al módem el comando de atención.
MSComm1.Output = "ATV1Q0" & Chr$(13) ' Asegúrese de que
' el módem responde con "OK".
' Esperar a que vuelvan los datos al puerto serie.
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$, "OK" & vbCRLF)
' Leer los datos de respuesta de aceptación en el
' puerto serie.
' Cerrar el puerto serie.
MSComm1.PortOpen = False
End Sub