• Jueves 7 de Noviembre de 2024, 07:20

Autor Tema:  visual basic y port serie  (Leído 1642 veces)

depepe

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
visual basic y port serie
« en: Martes 24 de Mayo de 2011, 18:55 »
0
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