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
