PIC Vietnam

Go Back   PIC Vietnam > Microchip PIC > Các ngôn ngữ lập trình khác (CCS C, HT PIC,...)

Tài trợ cho PIC Vietnam
Trang chủ Đăng Kí Hỏi/Ðáp Thành Viên Lịch Tìm Kiếm Bài Trong Ngày Ðánh Dấu Ðã Ðọc Vi điều khiển

 
 
Ðiều Chỉnh Xếp Bài
Prev Previous Post   Next Post Next
Old 27-07-2009, 11:01 PM   #1
Huynh Thanh San
Nhập môn đệ tử
 
Huynh Thanh San's Avatar
 
Tham gia ngày: Oct 2008
Bài gửi: 8
:
Wink Mong Các Pro Help dùm mình việc Quang báo

Code:
===================================================================
Doan chuong trinh cua em nhu sau : 
#include <16f877a.h>
#use delay(clock=20000000)
#define hang PORTD
#define cot PORTB
#define Cot1 PORTC
#byte PORTD =0x08
#byte PORTB =0x06
#byte PORTC =0x07
#byte trisc =0x87
#byte trisb =0x86
#byte trisd =0x88
const unsigned char chuA[]={   0b00010000, //BitRB4
0b00011000,0b00010100,0b00011100,0b00010010,0b00011010,0b00010110,0b00011110,
                                 0b00100000, //BitRB5
0b00101000,0b00100100,0b00101100,0b00100010,0b00101010,0b00100110,0b00101110,
                                     0b01000000, //BitRB6
0b01001000,0b01000100,0b01001100,0b01000010,0b01001010,0b01000110,0b01001110,
                                       0b10000000, //BitRB7
0b10001000,0b10000100,0b10001100,0b10000010,0b10001010,0b10000110,0b10001110};
const unsigned char font[]={251,224,219,255,192,247,247,207,255,231,219,219,195,255,195,251,251,199,255,192,247,247,207,255,255,255,255,217,182,182,205,255,231,219,219,195,255,195,
251,251,199,255,239,87,87,135,255,255,255,129,126,126,129,255,241,110,110,129,255,254,14,246,248,255,231,235,237,0,239,255,110,110,110,145,255,125,0,127,
255,29,110,118,121,255,125,0,127,255,29,110,118,121,255,110,110,110,145,255,255,63,63,255,255,255,255,255,255,255,255,255};
void Display(unsigned char timer1,unsigned char k) {
unsigned char i,j,m;
set_tris_d(0);
set_tris_b(0);
set_tris_c(0);
for(i=0;i<timer1;i++)
 {
 m = 0;
 for(j=0;j<=20;j++)
  {
 Cot = chuA[j];
 Cot1 = chuA[j+32];
 hang  = 0xff;
    if(j>=k)
    {
hang = font[m];
m ++;
}
}
}
}
void main()
{
while(true){
unsigned char k=33,m=0;
while(true)
{
Display(33,k); 
k=k-1;
if(k==0)
{
while(true)
{
Display(1000,k); 
for(m=0;m<=20;m++)
{
font[m]=font[m+1];
hang  = 0xff;
}
}
}
}
}
}

===============================================================
File Kèm Theo
File Type: rar H T San.rar (55.7 KB, 147 lần tải)
__________________
THS

thay đổi nội dung bởi: Huynh Thanh San, 07-11-2009 lúc 08:37 AM. Lý do: Bạn nhớ đưa code vào thẻ code
Huynh Thanh San vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
 

Ðiều Chỉnh
Xếp Bài

Quyền Sử Dụng Ở Diễn Ðàn
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Mở
Smilies đang Mở
[IMG] đang Mở
HTML đang Tắt

Chuyển đến


Múi giờ GMT. Hiện tại là 07:15 AM.


Được sáng lập bởi Đoàn Hiệp
Powered by vBulletin®
Page copy protected against web site content infringement by Copyscape
Copyright © PIC Vietnam