Comunicacion serial en mikrobasic pro para PIC

[Lord_Libra]

Saludos.

estoy teniendo problemas con la comunicacion serial, trabajo en
mikrobasic pro para PIC y el PIC16F877A.
No logro que se produsca la comunicacion, es un pequeño ejemplo para
poder avanzar en un proyecto más grande.

program EJEMPLO_SERIAL
'--- Area de declaración:

Dim Datos_RX As Byte[10] ' Arreglo de variables para almacenar los
datos.
acumulador As Byte ' Variable para condicional "loop
Until..."
X As Byte ' Variable para lazo For-Next.
Dim mandar as char[20]

' Configuración de pines de control y datos de la pantalla LCD:

Dim LCD_RS As sbit At RB4_bit
LCD_EN As sbit At RB5_bit
LCD_D4 As sbit At RB0_bit
LCD_D5 As sbit At RB1_bit
LCD_D6 As sbit At RB2_bit
LCD_D7 As sbit At RB3_bit

LCD_RS_Direction As sbit At TRISB4_bit
LCD_EN_Direction As sbit At TRISB5_bit
LCD_D4_Direction As sbit At TRISB0_bit
LCD_D5_Direction As sbit At TRISB1_bit
LCD_D6_Direction As sbit At TRISB2_bit
LCD_D7_Direction As sbit At TRISB3_bit

' Fin de la configuración de conexiones

main: ' Programa Principal
UART1_Init(2400) ' Inicializamos el módulo UART
a 2400 bps.
Delay_ms(100) ' Pausa de 100 milisegundos
para estabilización.
LCD_Init() ' Inicializa la pantalla LCD
LCD_Cmd(_LCD_CLEAR) ' Limpia la pantalla LCD
LCD_Cmd(_LCD_CURSOR_OFF) ' Apaga el cursor en la
pantalla
Lcd_Out(1, 1, "Datos: ") ' Se imprime "Datos: " en la
primera línea
' de la pantalla.
mandar = "webadaamandar"
' continúa cargando
caracteres.
For X = 1 To 9 ' For-Next para enviar los
datos desde
' la primera variable hasta
la última cargada.
UART1_Write(mandar[X]) ' Enviamos el dato cargado en
la variable.
Next X
Lcd_Out(2, 1, "Mostrando Datos!") ' Mensaje de estado del
Buffer.
For X = 1 To 9 ' For-Next para presentar
los datos desde
' la primera variable hasta
la última cargada.
Lcd_Chr(1, 8, mandar[X]) ' Mostramos el equivalente
ASCII del valor cargado
' en la variable "Datos_RX"
Delay_ms(1000) ' Retardo de 1 segundo.

Next X


Lcd_Out(2, 1, " Fin ") ' Mensaje de finalización
del proceso.

End.

me estoy basando en el ejemplo #51 del libro de Christian Bodington.
porfavor, necesito ayuda
gracias.

[Williams Aguilar]

hola Lord te paso este ejemplo, espero te sirva para poder lograr tu comunicacion serial, saludos esta 100% funcional cualquiero cosa o dudes en consultarme..

 

Lo utilice para un proyecto genero una trama con otro pic con pbp y la recibo en un pic maestro programado en mikrobasic, espero te sirva.

 

 

 

Atte

Williams Aguilar

--
Has recibido este mensaje porque estás suscrito al grupo "ConexionElectronica" de Grupos de Google.
Para publicar una entrada en este grupo, envía un correo electrónico a conexione...@googlegroups.com.
Para anular tu suscripción a este grupo, envía un correo electrónico a conexionelectro...@googlegroups.com
Para tener acceso a más opciones, visita el grupo en http://groups.google.com/group/conexionelectronica?hl=es.