Saludos, espero me puedan ayudar ya que he buscado por toda la Web y no encuentro solucion a un pequeño detalle que se me esta escapando y no se cual es.
Hice la programacion del pic16f877a para conectar a través del puerto serial de mi PC.
El circuito tiene un led en el puerto B1 para encender/apagar mediante un 1 o 0 que se envie desde la interfaz en visual Basic 2010.
La conexión se realiza correctamente entre la PC y el Pic (o eso creo
)
El problema radica en que envio y recibo datos erroneos, es decir, mando un 1 a través de la interfaz y me retorna desde el PIC un "L" (estoy mandando desde el pic la misma informacion que recibo de la pc, osea, si mando 1 debe regresarme un 1)
Ya he revisado toda la programacion, como dije la conexion esta bien, el envio de datos lo hace ya que si puenteo o uno los pines 2 y 3 del puerto serial, ahi si recibo los datos correctamente, es decir, si envio un 1 recibo ese mismo 1.
No se en que parte este el error, he estado analizando y creo q puede ser porque no estoy usando un MAX232, puede ser este el error?? o donde puede estarlo??
Espero me entiendan la situación, y ojala alguien pueda ayudarme.
Aqui esta la programación de Visual Basic 2010
Código:
Public Class Form1
Dim recibe As String = ""
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Each PuertoSerial As String In My.Computer.Ports.SerialPortNames
ComboBox1.Items.Add(PuertoSerial)
Next
If ComboBox1.Items.Count > 0 Then
ComboBox1.Text = ComboBox1.Items(0)
Else
ComboBox1.Enabled = False
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Application.Exit()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
If (Button2.Text = "Conectar") Then
SerialPort1.PortName = ComboBox1.Text
SerialPort1.BaudRate = 9600
SerialPort1.Parity = IO.Ports.Parity.None
SerialPort1.StopBits = IO.Ports.StopBits.One
'SerialPort1.Encoding = System.Text.Encoding.Default
SerialPort1.Open()
Button2.Text = "Desconectar"
Label2.Enabled = True
Label3.Enabled = True
TextBox1.Enabled = True
Button3.Enabled = True
Timer1.Enabled = True
Else
SerialPort1.Close()
Button2.Text = "Conectar"
Label2.Enabled = False
Label3.Enabled = False
TextBox1.Enabled = False
Button3.Enabled = False
Timer1.Enabled = False
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Try
SerialPort1.DiscardOutBuffer()
SerialPort1.Write(TextBox1.Text)
Label4.Text = "Dato enviado correctamente"
TextBox1.Text = ""
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
recibe = SerialPort1.ReadExisting
If recibe <> "" Then
TextBox2.Text = recibe
SerialPort1.DiscardInBuffer()
End If
End Sub
End Class
------------------------------------------------------
Programación del PIC16F877A con MikroC
Código:
char uart_rd;
void main() {
PORTB=0;
TRISB=0;
TRISC.F6=0; // configuro como salida el puerto TX
TRISC.F7=1; // configuro como entrada el puerto RX
PORTC=0; // configuro como salida todo el puerto C
UART1_Init(9600); // Inicializar el módulo UART a 9600 bps
Delay_ms(100); // Esperar a que señal de reloj del módulo UART se
// ponga estable
[B] UART1_Write_Text("Start");[/B]
UART1_Write(10); // Line Feed
UART1_Write(13); // Carriage Return
delay_ms(1000);
while (1) { // Bucle infinito
if (UART1_Data_Ready()) { // Si el dato se ha recibido,
uart_rd=UART1_Read(); // lea el dato recibido por la Pc a traves de la interfaz
if(uart_rd){
PORTB=0b00000010;
UART1_Write(uart_rd); // regreso el mismo dato recibido a la Pc
delay_ms(1000);
break;
}
}
}
}
En la parte del UART1_Write_Text("Start"); supuestamente en la interfaz debe salirme la palabra "Start", sin embargo lo que recibo son signos!!
Adjunto todos los archivos.
Gracias por la ayuda de antemano.
