COMUNICACION RS232
NECESITO COMUNICAR VIA RS232, Y NO SE COMO HACERLO. TENGO QUE ENVIAR 2 VALORES QUE TENGO EN 2 CASILLAS "TEXT" POR EL PUERTO. Y LUEGO ESTAR DURANTE TODO EL RATO LEYENDO EL PUERTO PORQUE PUEDE RECIBIR VALORES QUE QUIERO PONER EN 2 CASILLAS "TEXT". GRACIAS
Le envio una pequeña configuracion del puerto serial.
Recuerde que tiene que poner el componente MSComm sobre el formulario.
Cualquier duda con mucho gusto le ayudaré
Dim reci As String
Private Sub Command1_Click()
MSComm1.Output = Text1.Text
MSComm1.Output = Text2.Text
End Sub
Private Sub Form_Load() 'Configurar el puerto serial
MSComm1.CommPort = 2 'puerto comm 2
MSComm1.Settings = "9600,N,8,1" 'configuracion de velocidad
MSComm1.PortOpen = True
reci = MSComm1.Input 'recibe los datos y los almacena
Text3.Text = reci
End Sub
Recuerde que tiene que poner el componente MSComm sobre el formulario.
Cualquier duda con mucho gusto le ayudaré
Dim reci As String
Private Sub Command1_Click()
MSComm1.Output = Text1.Text
MSComm1.Output = Text2.Text
End Sub
Private Sub Form_Load() 'Configurar el puerto serial
MSComm1.CommPort = 2 'puerto comm 2
MSComm1.Settings = "9600,N,8,1" 'configuracion de velocidad
MSComm1.PortOpen = True
reci = MSComm1.Input 'recibe los datos y los almacena
Text3.Text = reci
End Sub