///Practica 1 : Encender y Apagar LEDS (conteo hasta 255). con el PIC16F84A
///Para el foro.el-hacker.com by kaiser1313


///ENCABEZADOS NECESARIOS

///Libreria del PIC 16F84A
#include <16F84A.h>

///Comando para dar la Velocidad del Cristal
#use delay(clock=20000000)

///Configurar los Fusibles:
///HS Configura el oscilador en High Speed, para frecuencias de cristal
///mayores a 4MHz
///NOWDT Deshabilita el Watch Dog Timer (Temporizador Perro Guardian)
///NOPUT Deshabilita le reseteo de Power Up Timer (Temporizador de Encendido)
///NOPROTECT No se protege el codigo del PIC
#fuses HS,NOWDT,NOPUT,NOPROTECT

///VARIABLES GLOBALES
///Estos parámetros son visibles desde todo el código por eso se les llama
///Al ser constantes,lo más práctico es declararlas aquí.

int x;

///Principal

void main() 
{    
  set_tris_b(0); //Puerto B como salida (Salida = 0 = Lectura, Entrada = 1 = Escritura}
  delay_ms(100);//Retardo para dejar que se configure el PIC
  output_b(0x00000000);//Esto es para apagar todos los pines del puerto B, es decir, Voltaje = 0 (Puerto B = 8 bits)
  
  while(1)//Ciclo infinito de repeticion
  {
  for (x = 0; x<= 255; x++)//Ciclo FOR para conteo
  {
   output_b(x);//Se manda a que se enciendas los leds dependiendo del valor de x
   delay_ms(500);//Retardo de 500ms
  }
  } 
}//Fin del Programa
  

///Practica 2: Leer informacion del Puerto B y Reflejarla en el Puerto C.
///Para el foro.el-hacker.com by kaiser1313


#include <16F877.h>///Libreria para manejar el PIC 16F877

#use delay(clock=20000000)///Frecuencia del Cristal Oscilador

#fuses HS,NOWDT,NOPUT,NOLVP,NOBROWNOUT,NOWRT,NOPROTECT


#use fast_io(B)///con esta instruccion evitamos que
        ///se este configurando cada vez que usamos 
#use fast_io(C)///alguna instruccion de entrada o salida


void main(void)
{
  while(true)///Bucle infinito
  {
  set_tris_b(0xff);///se configura el puerto B como entrada
  set_tris_c(0x00);///se configura el puerto C como salida
  
  port_b_pullups(true);///activa las resistencias de pull-up
  
  output_c(input_b());
  
  }
}///Fin de Programa