manejo de informacion

[flara]

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

[Marioguillote]

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  )

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

[flara]

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

[Marioguillote]

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