#include
__CONFIG(0x3f38);//Watchdog off, internal RC oscillation, RA6/RA7 do I/O
//-----------------------------------
/ / delay function
Voiddelay()
{
Inti; / / define the loop variable
For(i=5000;i>0;i--)//cycle number control
{
NOP();// consumes one instruction cycle time
NOP();
}
}
//----------------------------------
/ / initialization function
Voidinit()
{
TRISA=0X00; / / set A port as output
TRISB=0X00; / / set the B port as the output
}
//---------------------------------
//Lighting function
voidLED()
{
Chari; / / set the loop variable
While(1)
{
PORTA=1; / / light RA0
Delay();
Delay();
Delay();
PORTA=2;//Lights RA1
Delay();
Delay();
Delay();
PORTA=4;//Lights RA2
Delay();
Delay();
Delay();
PORTA=8;//Lights RA3
Delay();
Delay();
Delay();
PORTA=0X40; / / light RA6
For(i=2;i>0;i--)//cycle twice (RA6-RA7)
{
Delay();
Delay();
Delay();//call 3 times delay function to determine the speed of the flashing light
PORTA=PORTA<<1;//Lights the next LED
}
PORTA=0;//Clear all displays of port A
PORTB=1;//Lights RB0
For(i=8;i>0;i--)//8 cycles (RB0-RB7)
{
Delay();
Delay();
Delay();
PORTB=PORTB<<1;
}
PORTB=0;//Clear all displays on port B
}
}
//---------------------------------------
/ / Main function
Voidmain()
{
Init();//call initialization function
Led (); / / call the light function
}
PIC16F628A LED Water Light Sample Program
Yidashun offer high quality replacement Fujitsu power Adapter for laptop with best service at the lowest cost. All our Fujitsu Laptop Charger are Brand New Replacement Product, works as Genuine parts, 100% OEM Compatible!! Our adapter with smart IC to protect your laptop with over current protection, over load protection, short circuit protection, over heat protection.
If your original Fujitsu laptop charger is not work anymore, please tell us your laptop model, we will help select the correct OEM replacement models for you. we offer a full 1 year warranty for our adapters.
Fujitsu Laptop Charger,Fujitsu Lifebook Charger,Fujitsu Charger,Ac Adapter for Fujitsu
Shenzhen Yidashun Technology Co., Ltd. , https://www.ydsadapter.com