...:::www.picpro.org:::... Elektronik hobi sitesi PIC ile kayan ışık uygulama devresi

PIC ile LCD de Kayan Yazı Uygulaması

'Programlayan : Zafer AKBAY

'Derleyici : Micro Code Studio

'Bu programda i değişkeni sırasıyla 1 - 2 - 4 - 8 - 16 - 32 - 64 - 128 değerlerini alır

've değişken portb ye gönderilir 128 e yani 7 nci bite geldi ise tekrar baştan başlar.

i var byte

TRISB=0

i=1

basla:

PORTB=i

pause 100

if i=128 then

i = 1

else

i = i<<1

endif

goto basla

************************************************************

HI-TECH C İLE YAZILIMI

************************************************************

#include<pic.h>

#include<delay.c>

main(void)

{

unsigned char i=1; //ledlerin ilk degeri

TRISB=0 ; //B portu cikis

for(;;)

{

PORTB=i;

DelayMs(250);

if (i==128)

i=1;

else

i = i<<1; // bir sonraki lede geç

}