PIC12F675 Led Kalp Animasyon Devresi

Merhabalar bu yazıda sizleri yoğun çalışma temposundan kurtaracak yorgunluğunuzu alacak ve içinizden bir türlü atamadığınız lehim dumanı isteği ve devre yapma arzusunu biraz dindirmek için basit bir ışıklı kalp sunuyorum.

Bu lehim kokusu uzun aradan sonra bir istek oluşturuyor bende bu alışkanlık sizlerde de var mıdır bilmem. Ayrıca sevdiklerinize özel günlerde çin malı hediyelik eşyalar yerine kendi yaptığınız ve el emeğiniz bir kalp hediye etmek güzel olurdu.(gerçi PIC ler LEDlerde çin malı ama olsun işin içinde kendi emeğiniz olunda bir başka)

İsis devre şeması;

MikroC KALP.c yazılım içeriği;

unsigned int x,a;

/******/
/*************************************/
/*                          MikroC Programı ile
              12f675 ile Animasyonlu ledli KALP
              Progamı Yazan AYTAÇ DÜRGEN "KALP"
              mayıs 2010
              proje ile ilgili dökümanlar ekte verilmiştir....
              Kocaeli üniversitesi TEKNİK EĞİTİM FAKULTESİ...
              Elektrik öğretmenliğ 4.Sınıf
              Mikroİşlemci 12F675
              Osilatör  DAHİLİ OSİLATORden   20MHZ
*/




void bekle(){delay_ms(250);}
void flas (){
GPIO=0x01;
delay_ms(90);
GPIO=0;
delay_ms(900);

}
void ok(){
GPIO=1;
bekle();
GPIO=3;
bekle();
GPIO=7;
bekle();
GPIO=23;
bekle();
GPIO=55;
bekle();
bekle();
bekle();
}
void ok_disari(){
GPIO=55;
bekle();
GPIO=53;
bekle();
GPIO=49;
bekle();
GPIO=33;
bekle();
GPIO=1;
bekle();
bekle();
}
void pwm(){
for(x=0;x<20000;x++){
GPIO=0xFF;
delay_us(1);
GPIO=0;
delay_us(50);
}
}


void ayarlar(){
ANSEL = 0x00;          // analog girişler kapatıldı.
TRISIO=0x00;            // port yönlendirmesi
GPIO=0x00 ;
}
/*****************/


void main()
{
ayarlar();
for( ; ; )
{
for(x=0;x<3;x++)       // kalbi yak söndür 3kez
{
GPIO=0;
bekle();
beklE();
GPIO=1;
bekle();
bekle();
}
ok();                // kalbe ok girişi yap
ok_disari();         // kalbe ok çıkışı yap
ok();
ok_disari();
for(x=0;x<6;x++){
flas();               // kalp atışı efekti çalıştır
}
ok();
for(a=0;a<10;a++){          // ışık şiddetini azaltarak yanıp söndür

pwm();
GPIO=0xFF;
delay_ms(500);          }


}
}

Projeyi yapan : Aytaç DÜRGEN

PIC12F675 Led Kalp Animasyon projesine ait kaynak kod ve proteus simülasyon dosyaları;