0 Usuarios y 2 Visitantes están viendo este tema.
Codigo:"rutina para el LCD"-----CONFIGURACION DEL LCDDEFINE LCD_DREG PORTB DEFINE LCD_DBIT 0 DEFINE LCD_RSREG PORTB DEFINE LCD_RSBIT 5 DEFINE LCD_EREG PORTB DEFINE LCD_EBIT 4"-------OSCILADOR-----------Define OSC 4Loop: lcdout $FE,1," LCD FUNCIONA" lcdout $FE,$C0," MUY BIEN" pause 300 goto loopend
Codigo:"rutina para probar los leds y pulsantes"-----CONFIGURACION DEL LCDDEFINE LCD_DREG PORTB DEFINE LCD_DBIT 0 DEFINE LCD_RSREG PORTB DEFINE LCD_RSBIT 5 DEFINE LCD_EREG PORTB DEFINE LCD_EBIT 4i var byte"-------OSCILADOR-----------Define OSC 4TRISC=%00001111Inicio: lcdout $FE,1," Probando LEDS" for i=0 to 5 PORTC=%11110000 pause 150 PORTC=%00000000 pause 150 next i lcdout $FE,1," LEDS OK" pause 1000 gosub mensajeloop if PORTC.0=0 then lcdout $FE,1," Pulsante RC0" High PORTC.7 pause 500 low PORTC.7 gosub mensaje endif if PORTC.1=0 then lcdout $FE,1," Pulsante RC1" High PORTC.6 pause 500 low PORTC.6 gosub mensaje endif if PORTC.2=0 then lcdout $FE,1," Pulsante RC2" High PORTC.5 pause 500 low PORTC.5 gosub mensaje endif if PORTC.3=0 then lcdout $FE,1," Pulsante RC3" High PORTC.4 pause 500 low PORTC.4 gosub mensaje endif goto loop endmensaje: lcdout $FE,1,"Probar Pulsantes" lcdout $FE,$C0," Pulsa Alguno" return
Codigo:DEFINE LCD_DREG PORTB DEFINE LCD_DBIT 0 DEFINE LCD_RSREG PORTB DEFINE LCD_RSBIT 5 DEFINE LCD_EREG PORTB DEFINE LCD_EBIT 4A VAR PORTD.0 ;nombres para los pines de las filasB VAR PORTD.1C VAR PORTD.2D VAR PORTD.3UNO VAR PORTD.4 ;nombres para los pines de las columnasDOS VAR PORTD.5TRES VAR PORTD.6CUATRO VAR PORTD.7Lcdout $FE,1,"Probando Teclado" BARRIDO: LOW A IF UNO = 0 THEN lcdout $FE,$C0," 7" IF DOS = 0 THEN lcdout $FE,$C0," 8" IF TRES = 0 THEN lcdout $FE,$C0," 9" IF CUATRO = 0 THEN lcdout $FE,$C0,"10" HIGH A LOW B IF UNO = 0 THEN lcdout $FE,$C0," 4" IF DOS = 0 THEN lcdout $FE,$C0," 5" IF TRES = 0 THEN lcdout $FE,$C0," 6" IF CUATRO = 0 THEN lcdout $FE,$C0,"11" HIGH B LOW C IF UNO = 0 THEN lcdout $FE,$C0," 1" IF DOS = 0 THEN lcdout $FE,$C0," 2" IF TRES = 0 THEN lcdout $FE,$C0," 3" IF CUATRO = 0 THEN lcdout $FE,$C0,"12" HIGH C LOW D IF UNO = 0 THEN lcdout $FE,$C0,"14" IF DOS = 0 THEN lcdout $FE,$C0," 0" IF TRES = 0 THEN lcdout $FE,$C0,"15" IF CUATRO = 0 THEN lcdout $FE,$C0,"13" HIGH D pause 10 GOTO BARRIDO END