簡易的跑馬燈設計�；贏VR單片機
仿真原理圖如下（proteus仿真工程文件可到本帖附件中下載）：
單片機源程序如下:
- /********************************************************************
- 匯誠科技
- *********************************************************************/
- #include <iom16v.h>
- /**********************************************************************
- 函數數據類型說明
- **********************************************************************/
- #define uchar unsigned char
- #define uint unsigned int
- /**********************************************************************
- MS級延時函數程序，參數i 延時時間
- **********************************************************************/
- void DelayMS(uint i)
- {
- uint j;
- for(;i!=0;i--)
- {
- for(j=8000;j!=0;j--);
- }
- }
- /**********************************************************************
- 跑馬燈程序，通過跑過的步數進行判斷來點亮相應的LED
- 低電平點亮LED
- **********************************************************************/
- void horse(uchar i)
- {switch (i)
- {
- case 0:PORTA=0X00;break;//0000 0000B 點亮LED1~LED8
- case 1:PORTA=0X01;break;//0000 0001B 點亮LED2~LED8
- case 2:PORTA=0X03;break;//0000 0011B 點亮LED3~LED8
- case 3:PORTA=0X07;break;//0000 0111B 點亮LED4~LED8
- case 4:PORTA=0X0f;break;//0000 1111B 點亮LED5~LED8
- case 5:PORTA=0X1f;break;//0001 1111B 點亮LED6~LED8
- case 6:PORTA=0X3f;break;//0011 1111B 點亮LED7~LED8
- case 7:PORTA=0X7f;break;//0111 1111B 點亮LED8
- case 8:PORTA=0Xff;break;//1111 1111B 全熄滅
- default:break;
- }
- }
- /**********************************************************************
- 主函數
- **********************************************************************/
- void main(void)
- {
- uchar i;
- DDRA=0XFF;//端口設置，PA口設置為推挽1輸出
- PORTA=0XFF;
- PORTA=0XFF;//PORTA初始化為1,滅掉所有的LED
- DelayMS(10);
- while(1)//程序無條件執行
- {
- for(i=0;i<9;i++)
- {
- horse(i);
- DelayMS(10);//延時時間約10MS
- }
- ……………………
- …………限于本文篇幅 余下代碼請從51黑下載附件…………
所有資料51hei提供下載:
跑馬燈設計.rar
(47.38 KB, 下載次數: 22)
2017-5-29 16:17 上傳
點擊文件名下載附件
|
