Ingeneria De Sistema
Enviado por jose543 • 9 de Septiembre de 2013 • 262 Palabras (2 Páginas) • 261 Visitas
SENSORES>>MEMORIA>>ACTUADOR
MEMORIA 16F84 EEPROM
2 SERIES:
F = SON REGRABABLES
C = NO SON REGRABABLES
ISIS PROFESIONAL
PIC BASIC LITE V7.1
PROTEUS 7.7, 8.0 PARA W7 SIMULADOR PARA REALIZAR CIRCUITOS
DEVICE 16F84 //DECLARO LA MEMORIA
DEFINE PORTB=00000000 //0 CUANDO EXPULSA SEÑAL, SI INGRESA 1
DIM Z
MENU:
FOR Z=0 TO 1:DELAYMS (255)//MILISEGUNDOS, MAXIMO HASTA 255 A MAYOR MILISEGUNDOS, MAS LENTO.
IF Z=0 THEN OUTB (1)
IF Z=1 THEN OUTB (0)
NEXT Z //PARA CERRAR
GOTO MENU
-------------------------------------------------------------------------------------------------
DEVICE 16F84 //DECLARO LA MEMORIA
DEFINE PORTB=00000000 //0 CUANDO EXPULSA SEÑAL, SI INGRESA 1
DIM Z
OUTB (0)
MENU:
FOR Z=0 TO 3:DELAYMS (255)//MILISEGUNDOS, MAXIMO HASTA 255 A MAYOR MILISEGUNDOS, MAS LENTO.
IF Z=0 THEN OUTB (1)
IF Z=1 THEN OUTB (2)
IF Z=2 THEN OUTB (4)
IF Z=3 THEN OUTB (8)
NEXT Z //PARA CERRAR
GOTO MENU
------------------------------------------------------------------------------------------------------
DEVICE 16F84 //DECLARO LA MEMORIA
DEFINE PORTB=00000000 //0 CUANDO EXPULSA SEÑAL, SI INGRESA 1
DIM Z
OUTB (0)
MENU:
FOR Z=0 TO 7:DELAYMS (255)//MILISEGUNDOS, MAXIMO HASTA 255 A MAYOR MILISEGUNDOS, MAS LENTO.
IF Z=0 THEN OUTB (1)
IF Z=1 THEN OUTB (2)
IF Z=2 THEN OUTB (4)
IF Z=3 THEN OUTB (8)
IF Z=4 THEN OUTB (16)
IF Z=5 THEN OUTB (32)
IF Z=6 THEN OUTB (64)
IF Z=7 THEN OUTB (128)
NEXT Z //PARA CERRAR
GOTO MENU
------------------------------------------------------------------------------------------------------
DEVICE 16F84 //DECLARO LA MEMORIA
DEFINE PORTB=00000000 //0 CUANDO EXPULSA SEÑAL, SI INGRESA 1
DIM Z
OUTB (0)
MENU:
FOR Z=0 TO 15:DELAYMS (255)//MILISEGUNDOS, MAXIMO HASTA 255 A MAYOR MILISEGUNDOS, MAS LENTO.
IF Z=0 THEN OUTB (1)
IF Z=1 THEN OUTB (2)
IF Z=2 THEN OUTB (4)
IF Z=3 THEN OUTB (8)
IF Z=4 THEN OUTB (16)
IF Z=5 THEN OUTB (32)
IF Z=6 THEN OUTB (64)
IF Z=7 THEN OUTB (128)
IF Z=8 THEN OUTB (128)
IF Z=9 THEN OUTB (64)
IF Z=10 THEN OUTB (32)
IF Z=11 THEN OUTB (16)
IF Z=12 THEN OUTB (8)
IF Z=13 THEN OUTB (4)
IF Z=14 THEN OUTB (2)
IF Z=15 THEN OUTB (1)
NEXT Z //PARA CERRAR
GOTO MENU
-------------------------------------------------------------------------
18f77
...