Autor
|
Tema: Cerrar los puertos Com1, Com2, Com3 ... (Leído 7,329 veces)
|
drakolive
Desconectado
Mensajes: 141
|
Estoy tratando de cerrar estos puertos .com; pero no consigo, podria algiuen dejarme algun link para poder leer y lograrlo...? Gracias...
|
|
|
En línea
|
|
|
|
byebye
Desconectado
Mensajes: 5.093
|
no entiendo que quieres decir con cerrar los puertos.
|
|
|
En línea
|
|
|
|
aaronduran2
|
Supongo que se refiere a impedir que entre o salga algo por los puertos.
Saludos.
|
|
|
En línea
|
|
|
|
FaiF (A¥åHøRå)
|
Prueba a poner un timer o un bucle para que esté constantemente cerrando los comm. (usa el control MSComm) salu2
|
|
|
En línea
|
|
|
|
drakolive
Desconectado
Mensajes: 141
|
no entiendo como hacer esto
|
|
|
En línea
|
|
|
|
FaiF (A¥åHøRå)
|
Agrega el componente MSComm y este codigo en el form_load. Lo que hace es comprobar infinitas vecs si el puerto com está abierto (si lo está lo cierra). No se si funcionará porque no tengo el VB aquí para probarlo, pero sería algo así: Dim i as integer = 0 while i = 0 if msComm1.portopen = true then msComm1.portopen = false end if wend
salu2
|
|
|
En línea
|
|
|
|
ReViJa
|
La idea es esa, pero piensa que con un bucle sin fin dejarías colgado el PC. Yo lo haría así: OBJETOSUn Timer y un MSComm Private Sub Form_Load() Timer1.Enabled = True Timer1.Interval = 2000 End Sub
Private Sub Timer1_Timer()
DoEvents If MSComm1.PortOpen = True Then MSComm1.PortOpen = False End If
End Sub Saludos.
|
|
|
En línea
|
|
|
|
|
|