led küp yardım lütfen

nazif038

Üye
Katılım
15 Şub 2011
Mesajlar
6
Puanları
1
Yaş
34
// PIC16F877A ile LED kupu uygulamasi

#include <pic.h>
#include <delay.c>
#include <stdlib.h>

// Konfigurasyon ayarlari (4MHz rezonator)
__CONFIG(XT&WDTDIS&PWRTEN&LVPDIS);

//============================================================
// ANA PROGRAM
//============================================================
main (void)
{

unsigned const char secme[4]={0xFE,0xFD,0xFB,0xF7};
unsigned char a,i,c,k,t,x,y,m;
unsigned const char donus1[6]={0x10,0x01,0x02,0x04,0x08,0x80};
unsigned const char donus2[6]={0x08,0x80,0x40,0x20,0x10,0x01};

unsigned const char altD[4]={0x0F,0xF0,0x00,0x00};
unsigned const char altB[4]={0x00,0x00,0x0F,0xF0};

unsigned const char ustD[4]={0x00,0x00,0xF0,0x0F};
unsigned const char ustB[4]={0xF0,0x0F,0x00,0x00};

unsigned const char dizi[4]={0x88,0x44,0x22,0x11};

unsigned const char xyzD[4]={0x1F,0x01,0x01,0x01};
unsigned const char xyzB[4]={0x11,0x00,0x00,0x00};

unsigned const char izgaraD[4]={0x9F,0x09,0x09,0x9F};
unsigned const char izgaraB[4]={0xF9,0x90,0x90,0xF9};

unsigned const char kucukizgaraD[4]={0x00,0x60,0x60,0x00};
unsigned const char kucukizgaraB[4]={0x00,0x06,0x06,0x00};

unsigned const char havaifisekD[36]={0xF0,0x00,0x00,0x00,
0xF0,0x00,0x00,0x00,
0xF0,0xF0,0x00,0x00,
0xF0,0xF0,0xF0,0x00,
0xF0,0xF0,0xF0,0xF0,

0x00,0x00,0x00,0x0F,
0x00,0x00,0x0F,0x0F,
0x00,0x0F,0x0F,0x0F,
0x0F,0x0F,0x0F,0x0F
};

unsigned const char havaifisekB[36]={0x0F,0x00,0x00,0x00,
0x0F,0x00,0x00,0x00,
0x0F,0x0F,0x00,0x00,
0x0F,0x0F,0x0F,0x00,
0x0F,0x0F,0x0F,0x0F,

0x00,0x00,0x00,0xF0,
0x00,0x00,0xF0,0xF0,
0x00,0xF0,0xF0,0xF0,
0xF0,0xF0,0xF0,0xF0
};

//--------------------------------------------------------
// Port konfigurasyonu
//--------------------------------------------------------
TRISB=0x00; // Hepsi cikis (8 adet LED icin)
TRISD=0x00; // Hepsi cikis (8 adet LED icin)
TRISC=0x00; // Hepsi cikis (4 adet transistoru secmek icin)
//--------------------------------------------------------

//--------------------------------------------------------
// Baslangic durumu ayarlari
//--------------------------------------------------------
PORTC=0xFF; // hicbir transistor secili degil
PORTB=0x00; // Data lojik 0
PORTD=0x00; // LED'ler sonuk
//--------------------------------------------------------

//-------------------------------------
// (1) 64 adet LED'i sirayla yakmak icin
//-------------------------------------
for(a=0;a<4;a++){

PORTC=secme[a]; // duzlemi sec

for(i=0;i<8;i++){ // RD0'dan RD7'ye
PORTD=1<<i;
DelayMs(100);
}

PORTD=0;

for(i=0;i<8;i++){ // RB0'dan RB7'ye
PORTB=1<<i;
DelayMs(100);
}

PORTB=0;
}
//-------------------------------------


//-------------------------------------
// (2) 64 adet LED'i S seklinde yakmak icin
//-------------------------------------
c=80;
for(a=0;a<4;a++){

PORTC=secme[a]; // duzlemi sec

for(i=0;i<4;i++){ // RD0'dan RD3'e
PORTD=0x01<<i;
DelayMs(c);
}
for(i=0;i<4;i++){ // RD7'dan RD4'e
PORTD=0x80>>i;
DelayMs(c);
}

PORTD=0;

for(i=0;i<4;i++){ // RB0'dan RB3'e
PORTB=0x01<<i;
DelayMs(c);
}
for(i=0;i<4;i++){ // RB7'dan RB4'e
PORTB=0x80>>i;
DelayMs(c);
}

PORTB=0;
}
//-------------------------------------

//-------------------------------------
// (3) x-y-z koordinat ekseni
//-------------------------------------
for(k=0;k<200;k++){ // 200 kez tara
for(a=0;a<4;a++){
PORTC=secme[a]; // duzlemleri sirayla sec
PORTD=xyzD[a];
PORTB=xyzB[a];
DelayMs(1);
PORTB=0; PORTD=0;
}
}
//-------------------------------------


//-------------------------------------
// (4) Kup izgara
//-------------------------------------
// Once buyuk izgara
for(t=0;t<2;t++){ // 2 kez tekrarla

for(k=0;k<200;k++){ // 200 kez tara
for(a=0;a<4;a++){
PORTC=secme[a]; // duzlemleri sirayla sec
PORTD=izgaraD[a];
PORTB=izgaraB[a];
DelayMs(1);
PORTB=0; PORTD=0;
}
}
//-------------------------------------


// Sonra kucuk izgara
for(k=0;k<200;k++){ // 200 kez tara
for(a=0;a<4;a++){
PORTC=secme[a]; // duzlemleri sirayla sec
PORTD=kucukizgaraD[a];
PORTB=kucukizgaraB[a];
DelayMs(1);
PORTB=0; PORTD=0;
}
}
}
//-------------------------------------


//-------------------------------------
// (5) yukari-asagi
//-------------------------------------
for(t=0;t<2;t++){

// once yukari dogru
for(i=0;i<4;i++){

for(k=0;k<40;k++){ // 40 kez tara
for(a=0;a<4;a++){
if(a==i){
PORTC=secme[a]; // duzlemleri sirayla sec
PORTD=0xFF;
PORTB=0xFF;
}
DelayMs(1);
PORTD=0;PORTB=0;
}
}
}

// sonra asagi dogru
for(i=4;i>0;i--){

for(k=0;k<40;k++){ // 40 kez tara
for(a=4;a>0;a--){
if(a==i){
PORTC=secme[a-1]; // duzlemleri sirayla sec
PORTD=0xFF;
PORTB=0xFF;
}
DelayMs(1);
PORTD=0;PORTB=0;
}
}
}
}
//-------------------------------------


//-------------------------------------
// (6) yukari asagi eklemeli
//-------------------------------------
for(t=0;t<2;t++){

// once yukari dogru
for(i=0;i<4;i++){

for(k=0;k<40;k++){ // 40 kez tara
for(a=0;a<4;a++){
if(i>=a){
PORTC=secme[a]; // duzlemleri sirayla sec
PORTD=0xFF;
PORTB=0xFF;
}
DelayMs(1);
PORTD=0;PORTB=0;
}
}
}

// sonra asagi dogru
for(i=4;i>0;i--){

for(k=0;k<40;k++){ // 40 kez tara
for(a=4;a>0;a--){
if(i>=a){
PORTC=secme[a-1]; // duzlemleri sirayla sec
PORTD=0xFF;
PORTB=0xFF;
}
DelayMs(1);
PORTD=0;PORTB=0;
}
}
}
}
//-------------------------------------


//-------------------------------------
// (7) sola-saga
//-------------------------------------
for(t=0;t<2;t++){

//once sola
for(i=0;i<4;i++){

for(k=0;k<40;k++){ // 40 kez tara
for(a=0;a<4;a++){
PORTC=secme[a]; // duzlemleri sirayla sec
PORTD=altD;
PORTB=altB;
DelayMs(1);
}
}
PORTD=0;PORTB=0;
}

// sonra saga
for(i=0;i<4;i++){

for(k=0;k<40;k++){ // 40 kez tara
for(a=0;a<4;a++){
PORTC=secme[a]; // duzlemleri sirayla sec
PORTD=ustD;
PORTB=ustB;
DelayMs(1);
}
}
PORTD=0;PORTB=0;
}
}

//-------------------------------------


//-------------------------------------
// (8) one-arkaya
//-------------------------------------
for(t=0;t<2;t++){

// once onden arkaya dogru
for(i=0;i<4;i++){

for(k=0;k<40;k++){ // 40 kez tara
for(a=0;a<4;a++){
PORTC=secme[a]; // duzlemleri sirayla sec
PORTD=dizi;
PORTB=dizi;
DelayMs(1);
}
}
PORTB=0; PORTD=0;
}

// sonra arkadan one dogru
for(i=0;i<4;i++){

for(k=0;k<40;k++){ // 40 kez tara
for(a=0;a<4;a++){
PORTC=secme[a]; // duzlemleri sirayla sec
PORTD=dizi[3-i];
PORTB=dizi[3-i];
DelayMs(1);
}
}
PORTB=0; PORTD=0;
}
}

//-------------------------------------


//-------------------------------------
// (9) Dairesel donus
//-------------------------------------

PORTB=0; PORTD=0;
for(i=0;i<6;i++){

for(k=0;k<20;k++){ // 20 kez tara
for(a=0;a<4;a++){
PORTC=secme[a]; // duzlemleri sirayla sec
PORTD=donus1; // dikey duzlem
DelayMs(1);
}
}
}
PORTD=0;

for(i=0;i<6;i++){

for(k=0;k<20;k++){ // 20 kez tara
for(a=0;a<4;a++){
PORTC=secme[a]; // duzlemleri sirayla sec
PORTB=donus2; // dikey duzlem
DelayMs(1);
}
}
}
PORTB=0;
//-------------------------------------


//-------------------------------------
// (10) Dairesel donus-2
//-------------------------------------

PORTB=0; PORTD=0;
for(i=0;i<6;i++){

for(k=0;k<20;k++){ // 20 kez tara
for(a=0;a<4;a++){
PORTC=secme[a]; // duzlemleri sirayla sec
PORTD=PORTD|donus1; // dikey duzlem
DelayMs(1);
}
}
}

for(i=0;i<6;i++){

for(k=0;k<20;k++){ // 20 kez tara
for(a=0;a<4;a++){
PORTC=secme[a]; // duzlemleri sirayla sec
PORTB=PORTB|donus2; // dikey duzlem
DelayMs(1);
}
}
}

//-------------------------------------


//-------------------------------------
// (11) Dairesel donus-3
//-------------------------------------

PORTB=0; PORTD=0;
for(t=1;t<=4;t++){

for(i=0;i<6;i++){

for(k=0;k<20;k++){ // 20 kez tara
for(a=0;a<t;a++){
PORTC=secme[a]; // duzlemleri sirayla sec
PORTD=PORTD|donus1; // dikey duzlem
DelayMs(1);
}
}
}

PORTD=0;

for(i=0;i<6;i++){

for(k=0;k<20;k++){ // 20 kez tara
for(a=0;a<t;a++){
PORTC=secme[a]; // duzlemleri sirayla sec
PORTB=PORTB|donus2; // dikey duzlem
DelayMs(1);
}
}
}
PORTB=0;
}
//-------------------------------------


//-------------------------------------
// (12) Yatayda karasimsek (duzlemler sirayla)
//-------------------------------------
c=100;

for(a=0;a<4;a++){ // yukari dogru

PORTC=secme[a]; // duzlemi sec

PORTD=0x0F;
DelayMs(c);
PORTD=0xF0;
DelayMs(c);PORTD=0;
PORTB=0x0F;
DelayMs(c);
PORTB=0xF0;
DelayMs(c);

PORTB=0xF0;
DelayMs(c);
PORTB=0x0F;
DelayMs(c);PORTB=0;
PORTD=0xF0;
DelayMs(c);
PORTD=0x0F;
DelayMs(c);

}
//-------------------------------------


//-------------------------------------
// (13) Alt ve ust duzlemde eszamanli karasimsek (tersten)
//-------------------------------------
c=100;

for(i=0;i<4;i++){ // tekrar sayisi

for(t=0;t<4;t++){ // duzlem secimi

for(k=0;k<50;k++){ // 50 kez tara

PORTB=0; PORTD=0;
PORTC=secme[0]; // 1. duzlemi sec
PORTD=altD[t];
PORTB=altB[t];
DelayMs(1);

PORTB=0; PORTD=0;
PORTC=secme[3]; // 4. duzlemi sec
PORTB=ustB[t];
PORTD=ustD[t];
DelayMs(1);
}
}

for(t=0;t<4;t++){

for(k=0;k<50;k++){

PORTB=0; PORTD=0;
PORTC=secme[0]; // 1. duzlemi sec
PORTD=ustD[t];
PORTB=ustB[t];
DelayMs(1);

PORTB=0; PORTD=0;
PORTC=secme[3]; // 4. duzlemi sec
PORTB=altB[t];
PORTD=altD[t];
DelayMs(1);
}
}
}
//-------------------------------------

//-------------------------------------
// (14) rastgele sayi uretimi
//-------------------------------------

for(t=0;t<10;t++){

x=rand();
y=rand();

for(k=0;k<100;k++){
for(a=0;a<4;a++){
PORTB=0; PORTD=0;
PORTC=secme[a]; // duzlemi sec

PORTD=x;
PORTB=y;
DelayMs(1);
}
}
}
//-------------------------------------


//-------------------------------------
// (15) Havaifisek
//-------------------------------------

for(t=0;t<9;t++){

for(k=0;k<40;k++){ // 40 kez tara
for(a=0;a<4;a++){
PORTB=0; PORTD=0;
PORTC=secme[a]; // duzlemi sec

PORTD=havaifisekD[4*t+a];
PORTB=havaifisekB[4*t+a];
DelayMs(1);
}
}
}
//-------------------------------------


//-------------------------------------
// (16) Yukselen-alcalan 4 kose kule
//-------------------------------------
for(a=0;a<4;a++){

for(k=0;k<150;k++){ // 150 kez tara
PORTB=0; PORTD=0;
PORTC=secme[a]; // duzlemi sec

PORTD=0x09;
PORTB=0x90;
DelayMs(1);
}
}
for(a=0;a<4;a++){
for(k=0;k<150;k++){ // 150 kez tara
PORTB=0; PORTD=0;
PORTC=secme[3-a]; // duzlemi sec

PORTD=0x09;
PORTB=0x90;
DelayMs(1);
}
}
//-------------------------------------


//-------------------------------------
// (17) Dans eden kuleler
//-------------------------------------

t=15; // gecikme

for(m=0;m<8;m++){

for(i=0;i<4;i++){
for(k=0;k<t;k++){ // t kez tara
for(a=0;a<4;a++){
if(i>=a){
PORTC=secme[a]; // duzlemleri sirayla sec
PORTD=1<<m;
PORTB=0x80>>m;
}
DelayMs(1);
PORTB=0; PORTD=0;
}

}
}

// sonra asagi dogru
for(i=4;i>0;i--){

for(k=0;k<t;k++){ // t kez tara
for(a=4;a>0;a--){
if(i>=a){
PORTC=secme[a-1]; // duzlemleri sirayla sec
PORTD=1<<m;
PORTB=0x80>>m;
}
DelayMs(1);
PORTD=0;PORTB=0;
}
}
}
DelayMs(4*t);

}

//-------------------------------------


//-------------------------------------
// (18) Spiral hareket
//-------------------------------------
// once saat yonunde, sonra ters yonde yukari

for(m=7;m<30;m+=5){

PORTB=0; PORTD=0;

for(a=0;a<4;a++){

PORTC=secme[a]; // duzlemleri sirayla sec
for(i=0;i<6;i++){
PORTD=donus1;
DelayMs(m);
}
PORTD=0;

PORTC=secme[a]; // duzlemleri sirayla sec
for(i=0;i<6;i++){
PORTB=donus2;
DelayMs(m);
}
PORTB=0;
}


// ters
PORTB=0; PORTD=0;

for(a=0;a<4;a++){


PORTC=secme[3-a]; // duzlemleri sirayla sec
for(i=0;i<6;i++){
PORTD=donus1[5-i];
DelayMs(m);
}
PORTD=0;

PORTC=secme[3-a]; // duzlemleri sirayla sec
for(i=0;i<6;i++){
PORTB=donus2[5-i];
DelayMs(m);
}
PORTB=0;
}
}

//-------------------------------------

}
//---------------PROGRAM SONU----------------------------

ben bu program da led küp e tek tek harflerle isim yazmasını eklemek istiyorum bunu nasıl yapabilirim yardımcı olursanız sevinirim.
 
Harfler iki boyutlu ama senin küp 3 boyutlu??
 
Cevap yazmak için giriş yap yada kayıt ol.

Benzer Konular

Mikro denetleyici pıc c programlama 3 tane sorum vardır yardımcı olursanız sevinirim
Cevaplar
7
Görüntüleme
1K
fgencal
fgencal
Arduino ile Step Motor, Joystick ve Limit Switch nasıl kullanılır?
Cevaplar
1
Görüntüleme
760
drcivanim
drcivanim
Url Yönlendirme Pyhton
Cevaplar
0
Görüntüleme
579
lalo2salamanca
Visual Basic TcpClient + Arduino
Cevaplar
1
Görüntüleme
1K
alarmko
alarmko
Kablo Kesme Makinası
Cevaplar
0
Görüntüleme
1K
xveb

Yeni mesajlar

Forum istatistikleri

Konular
128,158
Mesajlar
915,515
Kullanıcılar
449,903
Son üye
furoz6868

Yeni konular

Çevrimiçi üyeler

Toplam: 1,289 (Kullanıcı: 30, ziyaretçi: 1,259)
Geri
Üst