Buenas, la verdad es que vengo desesperado a pedirles por ayuda porque ya ase una semana que intento esto y no lo he conseguido, ya busqué dentro del foro
http://www.todopic.com.ar/foros/index.php?topic=21593.0;wap2http://www.todopic.com.ar/foros/index.php?topic=32839.0http://www.todopic.com.ar/foros/index.php?topic=13977.0y me aclararon varias dudas pero no he podido resolver mi problema, lo que quiero es mandar la fecha "yymmddhhmmss" desde Visual Basic a un PIC 16F876A y esta es la forma en la que lo estoy haciendo, sin obter resultados:
Visual Basic, la palabra codigo la mando desde el PIC (es porque es para hacer un codigo de barras mas adelante con una impresora)
Option Explicit
Dim txtout1, txtout2 As String
Dim txtin As String
Dim a As Integer
Private Sub Form_Load()
puerto.PortOpen = True
End Sub
Private Sub Timer1_Timer()
txtin = puerto.Input
If txtin = "codigo" Then
fecha1.Text = txtin
fecha2.Text = Format(Now, "yymmddhhmmss")
txtout1 = fecha2.Text
puerto.Output = txtout1
End If
End Sub
En lo que respecta a este programa en VB veo la salida de fecha y la entrada "codigo" es decir que el PIC si me la está mandando (a todo esto la comunicacion PIC-PC esta buena, comprobado)
Y aquí está mi codigo del PIC
Void imprimir(void)
{
Char HoFe[14]; //Hora Fecha
int m=0;
fprintf(COM_A,"codigo");
if(kbhit(COM_A)){m++; HoFe[m]=fgetc(COM_A);write_eeprom(m,HoFe[m]);}
}
Aqui lo pense de la siguiente manera, cada vez que me llegue un caracter desde el PC aumento la variable "m" para recorrer y a la vez ir guardando en "HoFe" los datos, y al mismo tiempos los escribo en la EPROM para luego leer el PIC y ver si tengo al, pero siempre obtengo solo ceros, por qué sera?
Eso es todo, ayudenme porfavor llevo estancado en esto demasiado tiempo y estoy desesperado
