CON UN MSCOMM CREO LA APLICACION PARA PC (COMO UN CHAT) LO QUE NO SE USAR ES EL RICH TEXTBOX POR QUE NO SE QUE PONER EN SU CODIGO Y TAMBIEN ME FALTA ALGUN CODIGO DENTRO DE LO QUE TENGO (lo que coloque abajo)PARA QUE ME CORRA BIEN EL PROGRAMA...
sI ALGUIEN ME PUEDE AYUDAR POR FAVOR SE LO AGRADECERE
Option Explicit
Dim Cadena As String
Private Sub cmdconec_Click()
If MSComm1.PortOpen = False Then
If cbo.ListIndex = 0 Then
MSComm1.CommPort = 1
Else
MSComm1.CommPort = 2
End If
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
Me.Caption = "Conectado por el puerto " & MSComm1.CommPort
End If
End Sub
Private Sub cmddesc_Click()
If MSComm1.PortOpen Then
MSComm1.PortOpen = False
Me.Caption = "Desconectado"
End If
End Sub
Private Sub cmdenv_Click()
MSComm1.Output = TextoEnviar.Text & vbCr
'coloca el texto que enviamos en la pantalla
Texto.Text = Texto.Text & vbCrLf & "<Ordenador 1>" & TextoEnviar.Text
TextoEnviar.SetFocus
End Sub
Private Sub Form_Load()
cbo.AddItem "Com1"
cbo.AddItem "Com2"
cbo.ListIndex = 0
End Sub
Private Sub Form_Unload(Cancel As Integer)
Desconectar_Click
End Sub
Private Sub MSComm1_OnComm()
Dim i As Integer
Dim Valor As String
Valor = MSComm1.Input
i = InStr(Valor, Chr(13))
If i = 0 Then
Cadena = Cadena & Valor
Else
Cadena = Cadena & Left(Valor, i - 1)
Texto.Text = Texto.Text & vbCrLf & "<Ordenador 2>" & Cadena
Texto.SelStart = Len(Texto.Text)
Cadena = ""
End If
End Sub
