Trabajando Serialmente con el Pic
Bueno la idea en este proyecto era la de hacer un proyecto, parecido al que esta en
www.pablin.com.ar/electron/proyecto/picnet/index.htm
Pero no hecho por C, sino por Pic Basic Pro.
Las Modificaciones están en que solo se controlara por el Puerto serial, pero si se simulara en Proteus.
Los que han leido el articulo, sabrán que para hacer la ultima parte es igual.
Empezemos ha programar.
Include "modedefs.bas" 'Variables Para Uso con el Serial
'Definimos
nuestras constantes
LED1 VAR PORTA.0
LED2 VAR PORTA.1
K1 VAR PORTB.0
SW1 VAR PORTB.1
SW2 VAR PORTB.2
TX VAR PORTB.6
RX VAR PORTB.5
DATO VAR BYTE
numero var byte
'Inicializamos Puertos
TRISA=0
TRISB=%00100110
porta=0
portb=0
GOSUB MENU
REPETIR:
SERIN RX,6,DATO
SELECT CASE DATO
CASE "?"
GOSUB Menu
CASE "1"
LED1=1
CASE "2"
LED1=0
CASE "3"
LED2=1
CASE "4"
LED2=0
CASE "5"
K1=1
CASE "6"
K1=0
CASE "7"
dato = SW1
+$30
SEROUT
TX,N9600,["El Sensor 1 Vale: ",dato,10,13]
CASE "8"
dato = SW2
+$30
SEROUT
TX,N9600,["El Sensor 2 Vale: ",dato,10,13]
END SELECT
GOTO REPETIR
MENU:
SEROUT tx,6,[" Controlando Pic Via Puerto Serial",10,13, _
" =========== === === ====== ======",10,13, _
" Press[1] ON LED 1, Press[2] OFF LED1",10,13, _
" Press[3] ON LED 2, Press[4] OFF LED2",10,13, _
" Press[5] ON KW , Press[6] OFF KW",10,13, _
" Press[7] Sensor 1",10,13, _
" Press[8] Sensor 2 ",10,13, _
" Press[?] Ayuda",10,13]
RETURN
END
Simulacion:
Bajar Ckto Armado Proteus y Simulacion
Espero que les haya sido de utilidad
Yoel Ocmin
http://proyectosfie.tk
UNMSM- Lima Perú 2006
sábado, 25 febrero 2006