Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature currently requires accessing the site using the built-in Safari browser.
los ceros k stan en un rekuadro azul k signifikan... tierra???
'****************************************************************
'* Name : UNTITLED.BAS *
'* Author : [select VIEW...EDITOR OPTIONS] *
'* Notice : Copyright (c) 2011 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 26/04/2011 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
'ensayo teclado
anselh=0
trisa=0
porta=%00011111
A var portb.4
B var portb.5
C var portb.6
D var portb.7
UNO VAR portc.0
DOS VAR portc.1
TRES VAR portc.2
CUATRO VAR portc.3
CINCO VAR portc.4
SEIS VAR portc.5
SIETE VAR portc.6
OCHO VAR portc.7
main:
teclado:
low a
if UNO=0 then PORTA=0
if dos=0 then PORTA=1
if tres=0 then porta=2
if cuatro=0 then porta=3
if cinco=0 then porta=4
if seis=0 then porta=5
if siete=0 then porta=6
if ocho=0 then porta=7
high a
low b
if UNO=0 then porta=8
if dos=0 then porta=9
if tres=0 then porta=10
if cuatro=0 then porta=11
if cinco=0 then porta=12
if seis=0 then porta=13
if siete=0 then porta=14
if ocho=0 then porta=15
high b
low c
if UNO=0 then porta=16
if dos=0 then porta=17
if tres=0 then porta=18
if cuatro=0 then porta=19
if cinco=0 then porta=20
if seis=0 then porta=21
if siete=0 then porta=22
if ocho=0 then porta=23
high c
low d
if UNO=0 then porta=24
if dos=0 then porta=25
if tres=0 then porta=26
if cuatro=0 then porta=27
if cinco=0 then porta=28
if seis=0 then porta=29
if siete=0 then porta=30
if ocho=0 then porta=31
high d
pause 10
goto teclado
end
#include <16F876.h>
#fuses XT,NOWDT,NOPROTECT,NOLVP
#use delay(clock= 4000000)
#define use_portb_kbd TRUE
#include <lcd.c>
#include <kbd.c>
void main() {
char k;
int x;
lcd_init();
kbd_init();
port_b_pullups(TRUE);
lcd_putc("\fListo...\n");
while (TRUE) {
k=kbd_getc();
x=k-48; //Conversión numérica
if(k!=0){
if(k=='*')
lcd_putc('\f');
else
lcd_putc(k); //Imprime carácter
delay_ms(500);
printf(lcd_putc,"\f Car=%c",k); //Imprime carácter
delay_ms(500);
printf(lcd_putc,"\f Car=%u",k); //Imprime valor ASCII
delay_ms(500);
printf(lcd_putc,"\f Num=%u",x); //Imprime valor numérico
delay_ms(500);
lcd_putc("\fListo...\n");
}
}
}
Hola!! estoy haciendo un teclado matricial (sin usar pic), y bueno simulando en proteus debo conectar un reloj en una de las entradas de una compuerta AND de dos entradas. En el propetus pues el reloj es un dibujito de pulsos, pero no te dice componentes que utilizaras ni nada.. ahora que lo estoy armando en mi protoboard quisiera saber si puedo usar el N555 (que tengo uno guardado de un montaje anterior) pero no se si servira... y en el caso que si sirva, como lo conecto?? osea me refiero a los pines que trae el 555 con la entrada de la AND. Les agradezco de antemano si me pueden ayudar por favor!!
Andrea Liz
#include <18f2550.h>
#fuses HSPLL,NOWDT,NOPROTECT,NOLVP,NODEBUG,USBDIV,PLL5,CPUDIV1,VREGEN,NOMCLR
#use delay(clock= 4M)
#include <lcd.c>
#include <kbd.c>
//Configuración requerida para utilizar el bootloader
#define LOADER_END 0x7FF
#define LOADER_SIZE 0x6FF
#build(reset=LOADER_END+1, interrupt=LOADER_END+9)
#org 0, LOADER_END {} // nothing will replace the bootloader memory space
// Fin de la configuración
void main() {
char k;
int x;
lcd_init();
kbd_init();
port_b_pullups(TRUE);
lcd_putc("\fListo...\n");
while (TRUE) {
k=kbd_getc();
x=k-48; //Conversión numérica
if(k!=0){
if(k=='*')
lcd_putc('\f');
else
lcd_putc(k); //Imprime carácter
delay_ms(500);
printf(lcd_putc,"\f Car=%c",k); //Imprime carácter
delay_ms(500);
printf(lcd_putc,"\f Car=%u",k); //Imprime valor ASCII
delay_ms(500);
printf(lcd_putc,"\f Num=%u",x); //Imprime valor numérico
delay_ms(500);
lcd_putc("\fListo...\n");
}
}
YO TENGO UN PROBLEMA,ME COMPILA BIEN EL CODIGO EL CCS PERO EN EL PROTEUS NO HACE NADA EL TECLADO LE PONGO CUANLQUIERDIGITO Y NO SALE NADA. AVER SI PUDIERAN AYUDARME:
to tengo e mismo problema con el pic 18f2550 es el mismo codigo ejemplo. no hace nada en la simulacion y me selen muchas advertencias en el proteus.......
#include <18F2550.h>
[COLOR="Red"][B]#fuses XT,NOWDT,NOPROTECT,NOLVP,NODEBUG,NOUSBDIV,NOVREGEN,NOMCLR,NOPBADEN[/B][/COLOR]
[COLOR="Red"][B]#use delay(clock= 1M)[/B][/COLOR]
[COLOR="Red"][B]#define LCD_DATA_PORT getenv("SFR:PORTC")[/B][/COLOR]
#include <lcd.c>
[COLOR="Red"][B]#define use_portb_kbd TRUE[/B][/COLOR]
#include <kbd.c>
//Configuración requerida para utilizar el bootloader
#define LOADER_END 0x7FF
#define LOADER_SIZE 0x6FF
#build(reset=LOADER_END+1, interrupt=LOADER_END+9)
#org 0, LOADER_END {} // nothing will replace the bootloader memory space
// Fin de la configuración
void main()
{
char k;
int x;
lcd_init();
kbd_init();
[COLOR="Red"][B]//port_b_pullups(TRUE);[/B][/COLOR]
lcd_putc("\fListo...\n");
while(TRUE)
{
k=kbd_getc();
x=k-48; //Conversión numérica
if(k!=0)
{
if(k=='*')
lcd_putc('\f');
else
lcd_putc(k); //Imprime carácter
delay_ms(500);
printf(lcd_putc,"\f Car=%c",k); //Imprime carácter
delay_ms(1000);
printf(lcd_putc,"\f Car=%u",k); //Imprime valor ASCII
delay_ms(500);
printf(lcd_putc,"\f Num=%u",x); //Imprime valor numérico
delay_ms(500);
lcd_putc("\fListo...\n");
}
}
[COLOR="Red"][B]}[/B][/COLOR]