TODOPIC
Lenguajes de programación para PC => Visual Basic => Mensaje iniciado por: flara en 14 de Febrero de 2007, 22:44:56
-
buen dia
Estoy trabajando en un proyecto con pic y visual, ya tengo comunicacion desde el pic con la aplicacion desarrollada en visual, estoy recibiendo tres caracteres en un Texbox, necesito tener un formulario que me este mostrando un mensaje distinto de acuerdo al caracter que me envie el pic, pero no se como hacerlo.
Le agradezco me ayuden
at flara
-
Hola flara ! :)
Por lo que cuentas, ya estás recibiendo caracteres en un textbox. Eso ya es muy importante. Tener comunicación PIC-PC
Busca en la web cualquier tutorial de visual, como puede ser "El Guille", donde te explique bien, el uso de la sentencia "SELECT - CASE" en visual. (Cualquier tutorial lo vá a hacer mejor que yo :D )
Tal vez muy burdamente, yo interpreto esa sentencia, como:
"Selecciono ....."
"En el caso de :" (Opción 1)(Tu primer caracter)
"Hago esto" (instrucciones de programa, en tu caso MSGBOX)
"En el caso de esto otro:" (Opción dos)(segundo caracter)
"Hago esto otro"(otro MSGBOX)
"En el caso de esto otro .......
Entonces el SELECT - CASE , te servirá de "direccionador" según el caracter recibido.
Al menos yo lo uso así y me funciona OK.
Saludos y Bienvenida/o al foro.
Mario
-
Gracias por la informacion de la forma como lo explica seguramente me funciona lo probare y le cuento, tengo otro problemita como hago para que este mostrando continuamente los caracteres que envia el PIC, en el momento unicamente recibo los dos primeros que envio, creo que debo hacer como un loop para que me continue recibiendo y mostrando los caracteres que le envia el pic pero no se como hacerlo.
Gracias
-
En el form Load
Dim CommPort As String, Settings As String
MSComm1.CommPort = 1 'puerto Com1
MSComm1.Settings = "9600,n,8,1" 'configuracion del puerto serie
MSComm1.PortOpen = True 'se abre el puerto para que funcione
MSComm1.RThreshold = 1 'cada 1 byte recibido, dispara el evento OnComm
En el evento On_Comm
Private Sub MSComm1_OnComm()
Dim Entrada As String
If MSComm1.CommEvent = comEvReceive Then
Entrada = MSComm1.Input
Text1.Text = Text1.Text & Entrada
End If
End Sub
Entonces a cada byte recibido (comEvReceive), se ejecutará el evento On_Comm y lo que entre por el puerto, pasará a la variable Entrada.
A cada paso por el On_Comm; Entrada te sumará un nuevo byte al textbox.
Espero se entienda.
Saludos
Mario