none
Ayuda con visual basic y serial port RRS feed

  • Pregunta

  • Hola a todos estoy haciendo un  interfaz y necesito algo de ayuda,Se trata de comunicarme con 4 micros,estoslo hago con 4 pulsadore
    que me mandan un dato al los pic cada vez que pulso,cuando el pic recibe el dato   
    del interfaz invierte su estado,por ejem el PORTB,7 cuando recibe el dato si esta en cero se pone a uno si esta a uno se pone a
    cero y a su vez manda un dato al interfaz de como esta el 1º pic si se pone en alto manda el dato "A" si en bajo "a" el 2ª pic
    "B" en alto "b" bajo 3ª pic "C" en alto "c" bajo 4º pic "D" en alto "d" bajo.Todo esto me funciona bien lo que pasa es que los pic
    no los veo fisicamente y no se en que estado estan.Yo habia pensado que cuando el interfaz reciba los datos usarlos, habia pensado
    que los texbox al recibir las mayusculas se pongan de color rojo y las minisculas su color orijinal por supuesto el 1º texbox con
    la A ò a 2º texbox B ò b 3º C ò c 4º D ò d.Yo he pensado con los texbox pero si hay una idea mejor pues mejor. de antemano gracias
    saludos pepe.

    Este es el codigo que tengo, los pulsadores funcionan bien, los texbox esyan vacios

    Imports System.IO.Ports
    Public Class Form_Principal
        Public Sub New()
            InitializeComponent()
            If Not SerialPort1.IsOpen Then
                Try
                    SerialPort1.Open()
                Catch ex As Exception
                    MessageBox.Show(ex.ToString())
                End Try
            End If
        End Sub

     

     


        Private Sub Button_A_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_A.Click
            Dim mBuffer As Byte() = New Byte(0) {}
            mBuffer(0) = &H41  ' A en ASCII
            SerialPort1.Write(mBuffer, 0, mBuffer.Length)

        End Sub

        Private Sub Button_B_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_B.Click
            Dim mBuffer As Byte() = New Byte(0) {}
            mBuffer(0) = &H42    'B en ASCII
            SerialPort1.Write(mBuffer, 0, mBuffer.Length)

        End Sub

        Private Sub Button_C_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_C.Click
            Dim mBuffer As Byte() = New Byte(0) {}
            mBuffer(0) = &H43      'C en ASCII
            SerialPort1.Write(mBuffer, 0, mBuffer.Length)
        End Sub

        Private Sub Button_D_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_D.Click
            Dim mBuffer As Byte() = New Byte(0) {}
            mBuffer(0) = &H44     'D ascii
            SerialPort1.Write(mBuffer, 0, mBuffer.Length)
        End Sub

        Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        End Sub

        Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

        End Sub

        Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

        End Sub

        Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

        End Sub

     

       
    End Class

     

    martes, 24 de mayo de 2011 14:06

Todas las respuestas

  • Hola Depepes,

    Podrias concretar un poquito mas donde requieres la ayuda, pues en el codigo no se entender como recibes los datos para cambiar el color.

    Saludos,
    PepLluis,


    MVP - Visual Developer
    domingo, 29 de mayo de 2011 23:03
    Moderador
  • Hola PepLuis hacia tiempo que esperaba tu visita en el codigo no hay nada para cambiar de colo, en el codigo solo esta puesto el dato que mandan los pulsadores cuando se pulsan lo que necesito es lo siguiente: que el texbox1 se ponga rojo al recibir "A" y torne a su colo al recibir "a" en sengundo texbox igual con B 3º igual con c 4º con D estoy conectado  salusos pepe
    domingo, 29 de mayo de 2011 23:36
  • Claro pepluis es lo que no se hacer que al recibir elinterfaz los datos que mandan los micro los texbox cambiende color gracias pepe
    domingo, 29 de mayo de 2011 23:47