Visual Basic - MALDITO MSCOMM

Life is soft - evento anual de software empresarial
 
Vista:

MALDITO MSCOMM

Publicado por Rubén (9 intervenciones) el 05/09/2001 21:47:49
Estoy realizando un programa en Visual que contiene 4 formularios. En dos de ellos tengo un MSComm(1 y 2). Estoy teniendo problemas a la hora de acceder de uno a otro, ya que cuando abro el primero me funciona, pero cuando abro el segundo y luego quiero volver al primero ya no me funciona. Un jaleo total con esto de "el puerto no está abierto","el dispositivo no está abierto". ¿qué diferencia hay entre puerto, dispositivo?.

Esperando vuestra respuesta, un saludo

Rubén

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:MALDITO MSCOMM

Publicado por mario (3 intervenciones) el 06/09/2001 00:50:34
Que es lo que pretendes hacer?

Necesito saber específicamente lo q quieres hacer para ayudarte.

Cuando te sale el mensaje de pto. abierto es pq has uzado la propiedad commport. Debes establecer la propiedad CommPort antes de abrir el puerto

Puedes establecer el valor a cualquier número entre 1 y 16 (el valor predeterminado es 1) en tiempo de diseño. Sin embargo, el control MSComm genera el error 68 (El dispositivo no está disponible) si no existe el puerto cuando intenta abrirlo con la propiedad PortOpen.

Este sencillo ejemplo muestra cómo efectuar las comunicaciones básicas del puerto serie utilizando un módem:

Private Sub Form_Load ()
' Búfer para almacenar la cadena de entrada
Dim Instring As String
' Utiliza 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 = "AT" + Chr$(13)

' Esperar a que vuelvan los datos al puerto serie.
Do
DoEvents
Loop Until MSComm1.InBufferCount >= 2
' Leer los datos de respuesta de aceptación en el
' puerto serie.
Instring = MSComm1.Input
' Cerrar el puerto serie.
MSComm1.PortOpen = False
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar