sistemas digitales

jhon es un genio de todo el mundo en su muro ha publicado al lado de diego muchas cosa muy interesnates puesto que esun estudiate del 10 mo ciclo de la universidad nacional san luis gonzaga de ica es uno de los mejores alumnos ocupando los primeros puestos de su salon con un rpomedio de 19.9.
Fuse Descripción
RC Oscilador RC vía CLKOUT
LP
XT Cristal menor a 4MHz
HS Cristal mayor a 4MhzEC_IO
WDT Perro guardián
NOWDT No habilita el perro guardián
PUT Espera un tiempo al encender , para que se estabilice la tensión
NOPUT No habilita PUT
PROTECT Protege el código de pic, para que no sea leído por otros
NOPROTECT No habilita el PROTECT
BROWNOUT Reset cuando baja la tensión a niveles no seguros
NOBROWNOUT No habilita BROWNOUT
MCLR Habilita el reseteo por el pin externoNOMCLR No habilita el NOMCLR
LVP Baja tensión de programación en B3(PIC16) o B5(PIC18)
NOLVP No habilita LVP
INTRC Oscilador interno RC, entrega la frecuencia por CLKOUT
RC_IO
INTRC_IO Cristal interno, y habilita los pines OSC1 y OSC2 como I/O ,no CLKOUT
CPD Código de protección de datos EEPROM
NOCPD No habilita CPD

 
'****************************************************************
'*Name : led Parpadeo.BAS *
'* Author : Nestor A. Ccencho Garcia *
'* Notice : Copyright (c) 2009 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 07/03/2009 *
'* Version : 1.0 *
'*Notes : www.icabots.com/foro *
'* : *
'****************************************************************
DEFINE OSC 20 ; cristal de 20Mhz
CMCON=%00000111 ; Declaro todos los puertos como E/S digitales
TRISA=$FF ; Declaro el puerto A comoentrada
TRISB=$00 ; Declaro el puerto B como salida
PORTB=$00 ; Limpio el puerto B
SYMBOL LED=PORTB.0 ; asigno el nombre de LED al pin PORTB.0

INICIO: ; Etiqueta de inicio

LED=0 ; Apago el led
PAUSE 500 ; pausa de medio segundoLED=1 ; prendo el led
PAUSE 500 ; pausa de medio segundo
GOTO INICIO ; regreso a inicio del bucle
END ; comando fin


 
Bueno amigos aca les paso el segundo programa que es secuencia de diodos leds.

Código:'****************************************************************
'* Name : Secuencia_leds.BAS *
'* Author : Nestor A. Ccencho Garcia *
'* Notice : Copyright (c) 2009 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 15/03/2009 *
'* Version : 1.0*
'* Notes : *
'* : *
'****************************************************************
DEFINE OSC 20 ; cristal de 20Mhz
CMCON=%00000111 ; Declaro todos los puertos como E/S digitales
TRISA=$FF ; Declaro elpuerto A como entrada
TRISB=$00 ; Declaro el puerto B como salida
PORTB=$00 ; Limpio el puerto B
A var byte
B VAR BYTE
i VAR BYTE


INICIO: ; Etiqueta de inicio
i=0
Secuencia1

for i=0...