|
下面是單片機(jī)16*16點(diǎn)陣的proteus仿真原理圖(工程文件可到本帖附件中下載):
0.png (21.59 KB, 下載次數(shù): 126)
下載附件
2017-5-7 21:15 上傳
仿LED點(diǎn)陣字模的VB6工程源代碼:
0.png (14.03 KB, 下載次數(shù): 123)
下載附件
2017-5-7 21:16 上傳
0.png (23.59 KB, 下載次數(shù): 137)
下載附件
2017-5-7 21:16 上傳
單片機(jī)16*16點(diǎn)陣源程序如下:
- #include <reg51.h> // 預(yù)處理命令
- #include <stdio.h>
- #define uint unsigned int
- #define u8 unsigned char
- //u8 Lsd[16]={0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1};
- u8 j=0; //行變量
- //32字節(jié)的字模
- u8 code zmdata[]=
- {0x00,0x08,0x7F,0xFC,0x01,0x00,0x01,0x00,0x01,0x00,0x01,0x04,0xFF,0xFE,0x01,0x00,
- 0x02,0x80,0x02,0x80,0x04,0x40,0x04,0x40,0x08,0x20,0x10,0x10,0x20,0x0E,0xC0,0x04};
- sbit sd = P1^6; // 行信號(hào)串行輸入線
- sbit clk = P1^7; // 串行時(shí)鐘線
- sbit stbd= P1^5; // 鎖存輸出脈沖線
- main() { // 主函數(shù)
- u8 i;
- SCON=0x00; //移位方式
- TMOD=0x01; //T0初始化為16位定時(shí)
- TH0=0xf8; //定時(shí)2000us
- TL0=0x30; //初值=65536-2000
- ET0=1; //開(kāi)定時(shí)器1中斷
- EA=1; //開(kāi)總中斷
- //初始化位選,讓16個(gè)行輸出是高電平,
- sd=1; // 初始化串行輸入數(shù)據(jù)線為高電平
- clk=1; // 初始化時(shí)鐘線為高電平
- stbd=0; // 初始化鎖存線為低電平
- for(i=0;i<16;i++) //移位16次,使移位寄存器輸出全部為高電平
- {
- clk=0;
- clk=1;
- }
- clk=0; //使時(shí)鐘線為低電平
- //把移位寄存器的16位進(jìn)行輸出鎖存
- stbd=1;
- stbd=0;
- TR0=1; //開(kāi)啟T0定時(shí)器
- while(1);
- } // 主程序結(jié)束
- void T0str() interrupt 1
- {
- TL0=0x30;
- TH0=0xf8; //定時(shí)器初值2ms
- j++; //行加1
- if(j==16)
- {
- j=0; //行范圍是0--15
- sd=0;
- }
- else
- {
- sd=1;
- }
- TI=0; //串行通信發(fā)送標(biāo)志置0
- SBUF=zmdata[2*j+1]; //移位輸出高位
- while(!TI);
- //移位輸出完成
- TI=0;
- SBUF=zmdata[2*j]; //移位輸出低位
- while(!TI);
- //移位輸出完成
- //sd=Lsd[j]; //
- clk=1; //發(fā)移位脈沖
- clk=0;
- stbd=1; ////發(fā)脈沖點(diǎn)亮當(dāng)前行
- stbd=0;
- } // max函數(shù)結(jié)束
- // 中
- //0x01,0x00,0x01,0x00,0x01,0x04,0x7F,0xFE,0x41,0x04,0x41,0x04,0x41,0x04,0
- …………限于本文篇幅 余下代碼請(qǐng)從51黑下載附件…………
復(fù)制代碼
給大家分享一些我們老師給的一些經(jīng)典的單片機(jī)程序源碼, 一共有十多個(gè).都有詳細(xì)的注釋?zhuān)淮蠹铱焖俚睦斫饷恳恍写a的意思。而且有proteus仿真原理圖。大家可以直接驗(yàn)證程序的對(duì)錯(cuò).

本系列所有源碼打包下載地址(含proteus仿真工程文件和源程序):
http://www.zg4o1577.cn/bbs/dpj-82474-1.html
本例程下載:
點(diǎn)陣.rar
(271.37 KB, 下載次數(shù): 32)
2017-5-7 21:20 上傳
點(diǎn)擊文件名下載附件
下載積分: 黑幣 -5
|
|