ممكن المسا عدة في led matrix - الصفحة 2

ahmed-ahmed · 13-09-2009, 01:40 AM

شكرا metalljack علي اهتمامك و انا هجرب الكود و انا لسا عايز اعرف ما شكل الديرة

alnour1 · 14-09-2009, 02:11 PM

ممكن الكود بلغة السى لو سمحت علشان انا ما اعرفش غيرها بصراحة
والكود يكون واضح بعد اذنك علشان انا ما عملتش مشروع عرض كلام قبل كده
وقوللى لو عايز اعرض حاجة معينة اعرضها ازاى
وشكرا

metalljack · 15-09-2009, 03:35 AM

صديقي للأسف لا أعرف بالسي ولا أحب أن أضع كود خاطئ
بالنسبة للتوصيل من خلال البرنامج يمكنك تغيير البورتات اللتي تريدها للإظهار

alnour1 · 15-09-2009, 03:16 PM

طب ياريت يا جماعة لو حد يعرف ش ويحط لنا كود انا محتاجة ضروررررررى

ناصراحمد2 · 12:41 AM

السلام عليكم ورحمة الله

حبيت انى اضع رد هنا لرفع الموضوع لاهميتة

عموما الرابط ممتاز

لكن فعلا انا احترت فى الكود فى اى كومبيلر يتم تحويلة للهكس

انا جربت اغلب البرامج

مبلاب بك بيزك ميكرو سى فور بيك وغيرهم

مانفع معى اى منهم

وياريت حد يقوللى

هل برنامج ((( البك سوموليتر اى دى ))) يحتاج الى مفتاح او باتش

لانة ماقبل عتدى تشغيل اكثر من كم يوم فقط ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

هذا هو الكود الخاص ب pic16f877a

كود:

const font5x7  as byte[220] = (
        $3E, $51, $49, $45, $3E,' 0
        $00, $42, $7F, $40, $00,' 1
        $42, $61, $51, $49, $46,' 2
        $21, $41, $45, $4B, $31,' 3
        $18, $14, $12, $7F, $10,' 4
        $27, $45, $45, $45, $39,' 5
        $3C, $4A, $49, $49, $30,' 6
        $01, $71, $09, $05, $03,' 7
        $36, $49, $49, $49, $36,' 8
        $06, $49, $49, $29, $1E,' 9
        $00, $36, $36, $00, $00,' :
        $00, $56, $36, $00, $00,'
        $00, $08, $14, $22, $41,' <
        $14, $14, $14, $14, $14,' =
        $41, $22, $14, $08, $00,' >
        $02, $01, $51, $09, $06,' ?
        $32, $49, $79, $41, $3E,' *
        $7E, $11, $11, $11, $7E,' A
        $7F, $49, $49, $49, $36,' B
        $3E, $41, $41, $41, $22,' C
        $7F, $41, $41, $22, $1C,' D
        $7F, $49, $49, $49, $41,' E
        $7F, $09, $09, $01, $01,' F
        $3E, $41, $41, $51, $32,' G
        $7F, $08, $08, $08, $7F,' H
        $00, $41, $7F, $41, $00,' I
        $20, $40, $41, $3F, $01,' J
        $7F, $08, $14, $22, $41,' K
        $7F, $40, $40, $40, $40,' L
        $7F, $02, $04, $02, $7F,' M
        $7F, $04, $08, $10, $7F,' N
        $3E, $41, $41, $41, $3E,' O
        $7F, $09, $09, $09, $06,' P
        $3E, $41, $51, $21, $5E,' Q
        $7F, $09, $19, $29, $46,' R
        $46, $49, $49, $49, $31,' S
        $01, $01, $7F, $01, $01,' T
        $3F, $40, $40, $40, $3F,' U
        $1F, $20, $40, $20, $1F,' V
        $7F, $20, $18, $20, $7F,' W
        $63, $14, $08, $14, $63,' X
        $03, $04, $78, $04, $03,' Y
        $61, $51, $49, $45, $43,' Z
        $3E, $51, $49, $45, $3E)' 0

dim vs as byte[10] absolute $30
dim vsr as word[5] absolute $30
dim t0 as byte

main:
TRISB = 0
TRISC = 0
LATB = 0
LATC = 0
ADCON1 = 6

While 1=1
   For ADRESL = 0 to 214 step 5
      vs[0] = font5x7[adresl+0]
      vs[1] = font5x7[adresl+5]
      vs[2] = font5x7[adresl+1]
      vs[3] = font5x7[adresl+6]
      vs[4] = font5x7[adresl+2]
      vs[5] = font5x7[adresl+7]
      vs[6] = font5x7[adresl+3]
      vs[7] = font5x7[adresl+8]
      vs[8] = font5x7[adresl+4]
      vs[9] = font5x7[adresl+9]
      ADRESH = 0
      Do
         For CCPR1H = 0 to 4
            LATB = 4
            For CCPR1L = 0 to 4
               t0 = vsr[CCPR1L]
               LATC = Not(t0)
               delay_us(3500)
               LATB = LATB << 1
            Next CCPR1L
         Next CCPR1H
         vsr[0] = vsr[0] >> 1
         vsr[1] = vsr[1] >> 1
         vsr[2] = vsr[2] >> 1
         vsr[3] = vsr[3] >> 1
         vsr[4] = vsr[4] >> 1
      Loop Until inc(ADRESH) = 8
   Next ADRESL
Wend

end.

ياريت اى شخص نجح معاة هذة التجربة انة يفيدنا

ومن عندى اليكم هذا الرابط

لموضع جميل جدا

ميكرو بك pic16f84a

وهو برنامج متكامل

ويتم تغيير الرسالة عن طريق كى بورد كومبيوتر

اليكم الرابط

http://salecktion.blogspot.com/2007/...z-projesi.html

الصفحة بالتركية

من الممكن الاستعانة بجوجل للترجمة

ودمتم بود جميعا

.

ناصراحمد2 · 04:31 AM

السلام عليكم ورحمة الله

اضع هنا رابط موضوع ليد ماتركس وبلغة السى لكى نحاول ان نستفيد منة جميعا

وهو عبارة عن 8x8 ماتركس

انما مخصص لميكر و AT89X52

وهذا هو رابط الموضوع

http://www.8051projects.info/blogs/p...h-AT89S51.aspx

والكود

كود:

Assembly Code

ORG 00H
START: NOP
 MOV R3,#3
LOP2: MOV R4,#8
 MOV R2,#0
LOP1: MOV P1,#0FFH
 MOV DPTR,#TABA
 MOV A,R2
 MOVC A,*A+DPTR
 MOV P3,A
 INC R2
 LCALL DELAY
 DJNZ R4,LOP1
 DJNZ R3,LOP2
 
 MOV R3,#3
LOP4: MOV R4,#8
 MOV R2,#7
LOP3: MOV P1,#0FFH
 MOV DPTR,#TABA
 MOV A,R2
 MOVC A,*A+DPTR
 MOV P3,A
 DEC R2
 LCALL DELAY
 DJNZ R4,LOP3
 DJNZ R3,LOP4
 
 MOV R3,#3
LOP6: MOV R4,#8
 MOV R2,#0
LOP5: MOV P3,#00H
 MOV DPTR,#TABB
 MOV A,R2
 MOVC A,*A+DPTR
  MOV P1,A
 INC R2
 LCALL DELAY
 DJNZ R4,LOP5
 DJNZ R3,LOP6
 
 MOV R3,#3
LOP8: MOV R4,#8
 MOV R2,#7
LOP7: MOV P3,#00H
 MOV DPTR,#TABB
 MOV A,R2
 MOVC A,*A+DPTR
 MOV P1,A
 DEC R2
 LCALL DELAY
 DJNZ R4,LOP7
 DJNZ R3,LOP8
 LJMP START
 
DELAY: MOV R5,#10
D2: MOV R6,#20
D1: MOV R7,#248
 DJNZ R7,$
 DJNZ R6,D1
 DJNZ R5,D2
 RET
 
TABA: DB 0FEH,0FDH,0FBH,0F7H,0EFH,0DFH,0BFH,07FH
TABB: DB 01H,02H,04H,08H,10H,20H,40H,80H
 END

         هذا  الجزء   الثانى وهو بلغة سى     C code

#include <AT89X52.H>
 
unsigned char code taba[]={0xfe,0xfd,0xfb,0xf7,0xef,0xdf,0xbf,0x7f};
unsigned char code tabb[]={0x01,0x02,0x04,0x08,0x10,0x20,0x40,0x80};
 
void delay(void)
{
  unsigned char i,j;
 
  for(i=10;i>0;i--)
  for(j=248;j>0;j--);
}
 
void delay1(void)
{
  unsigned char i,j,k;
 
  for(k=10;k>0;k--)
  for(i=20;i>0;i--)
  for(j=248;j>0;j--);
 
}
 
void main(void)
{
  unsigned char i,j;
 
  while(1)
    {
      for(j=0;j<3;j++) //from left to right 3 time
        {
          for(i=0;i<8;i++)
            {
              P3=taba[i];
              P1=0xff;
              delay1();
            }
        }
 
      for(j=0;j<3;j++) //from right to left 3 time
        {
          for(i=0;i<8;i++)
            {
              P3=taba[7-i];
              P1=0xff;
              delay1();
            }
        }
 
      for(j=0;j<3;j++) //from top to bottom 3 time
        {
          for(i=0;i<8;i++)
            {
              P3=0x00;
              P1=tabb[7-i];
              delay1();
            }
        }
 
      for(j=0;j<3;j++) //from bottom to top 3 time
        {
          for(i=0;i<8;i++)
            {
              P3=0x00;
              P1=tabb[i];
              delay1();
            }
        }
 
    }
}

واتمنى ان كل من لدية اى معلومة ان لا يبخل بها

ننتظر الردود