Hola que tal, desde hace mucho he querido sacar un pequeño proyecto de la escuela y una de la buenas opciones fue utilizar las librerias y programas del libro de Microcontroladores, y para mi suerte salio asi como queria, aunque moviendo a unas salidas optoacopladas empece a tener problemas, no con la programacion sino con el circuito, por cierto en tarjeta ya perforada, y ahorita no hace ni pio el programa, ya le movi, le movi en proto y nomas no, y aunque otros programas de comunicacion serial sencillos si estan funcionando, los mas elaborados no funcionan ni en el circuito ni en proto, lo peor del caso es que no me marca errores ni naa, incluso genera el archivo .HEX, pero cuando lo pruebo en el circuito nomas no, y ojo, ya me habia funcionado :S.
La funcion principal del programa es cachar un numero decimal de la compu, del 1-4 para activar un bus comun de datos y espacio para apagarlo, todo lo visualiza en algun programa con comunicacion serial.
Asi que decidi usar el Pic Basic Pro, cosa que nunca he utilizado, y ya hice un programa sustituto para el circuito viendo tutoriales, pero la vdd no se que mas hacer, al parecer esta terminado, pero no se que tengo que hacer para cargarlo al pic..
Aqui en Basic use el cero para apagarlo porque no se como declarar para que sea la barra espaciadora....
'****************************************************************
'* Name : comsertm.BAS *
'* Author : [jesus g muñoz e] *
'* Notice : Copyright (c) 2010 *
'* : All Rights Reserved *
'* Date : 16/09/2010 *
'* Version : 1.0 *
'* Notes : Comunicacion serial con pc para el control *
'* de un bus comun *
'****************************************************************
@ DEVICE PIC16F84A,WDT_OFF,PWRT_ON,PROTECT_OFF
include "modedefs.bas"
define osc 4
Entrada Var Byte
trisa=%11110111
trisb=0
Principal
Serin portb.3,N9600,Entrada
CLRF
select case entrada
Case 1
entrada=1
portb=%00000001
serout porta.2,N9600,["Activado 1er bus..."]
Case 2
Entrada=2
portb=%00000010
serout porta.2,N9600,["Activado 2do bus..."]
Case 3
Entrada=3
portb=%00000100
serout porta.2,N9600,["Activado 3er bus..."]
Case 4
Entrada=4
portb=%00001000
Serout porta.2,N9600,["Activado 4to bus..."]
Case 5
Entrada=0
portb=0
serout porta.2,N9600,["Sistema apagado..."]
end select
goto Principal
Por Favor les agradeceria mucho si me ayudaran con esto, aun asi le voy a seguir moviendo y buscando por si sale algo.
Gracias, saludos desde Sonora :3......
