Muchos problemas con MSCOMM
Publicado por Alex (2 intervenciones) el 24/12/2003 15:38:58
Wenass, estoy intentando hacer una aplicacion q marque un numero de telefono, he estado leiendo por ahi y tengo este codigo en mi formulario:
*************************************************
Private Sub cmdMarcar_Click()
If txtTelefono.Text = "" Then
MsgBox "El numero de telefono esta vacio"
End If
On Error GoTo errores
MSComm1.CommPort = 2
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
MSComm1.Output = "ATDT" & Val(txtTelefono.Text) & Chr(13)
Exit Sub
errores:
MsgBox Err.Description, vbCritical, "Atención"
End Sub
***********************************************************
El problema es q el telefono no suena y no se donde puede estar el fallo,
ya he probado con el ATDT a ver si era con Pasos en lugar de Tonos, he probado con todos los com, he cambiado las velocidades y la paridad y sigue sin funcionar, alguien me puede ayudar??
Gracias de antemano.
*************************************************
Private Sub cmdMarcar_Click()
If txtTelefono.Text = "" Then
MsgBox "El numero de telefono esta vacio"
End If
On Error GoTo errores
MSComm1.CommPort = 2
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
MSComm1.Output = "ATDT" & Val(txtTelefono.Text) & Chr(13)
Exit Sub
errores:
MsgBox Err.Description, vbCritical, "Atención"
End Sub
***********************************************************
El problema es q el telefono no suena y no se donde puede estar el fallo,
ya he probado con el ATDT a ver si era con Pasos en lugar de Tonos, he probado con todos los com, he cambiado las velocidades y la paridad y sigue sin funcionar, alguien me puede ayudar??
Gracias de antemano.
Valora esta pregunta
0