找回密码
 注册
关于网站域名变更的通知
查看: 373|回复: 1
打印 上一主题 下一主题

单片机8X8点阵资料包下载 含原理图 仿真 左移与静止显示... 

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2018-11-13 09:55 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

EDA365欢迎您登录!

您需要 登录 才可以下载或查看,没有帐号?注册

x
单片机8X8点阵资料包下载 含原理图 仿真 左移与静止显示...
+ w; s! i+ S/ \& z$ h6 k9 B* Z% }' d7 ^
! U+ U0 l4 @% E, h( n/ s

/ X/ q1 V9 u) Q8 L( v2 }: H3 G3 G8 C+ }5 s+ J' J* w
单片机源程序如下(左移显示):/*********************************************************************************3 ^& U/ x: i9 ~5 C0 V# _5 f" m9 i
* 【编写时间】: 2014年3月5日
& x; o! S. i. K; M, M! t3 ?* 【作    者】: 清翔电子&51hei
4 s, h1 J6 l/ B; h, O/ ]0 p0 E. ~* 【声    明】: 此程序仅用于学习与参考,引用请注明版权和作者信息!
! _3 T1 Y4 p1 J1 h, {4 U* 【函数功能】: 8*8点阵静态显示"亲"与心形符号                                                                                          
3 K% z3 v5 N5 q, f/ @% X* 【使用说明】: 兼容1602接口,使用时请把点阵1脚至6脚对应接到1602 1脚至6脚,5 E8 r; Y4 ]% f3 r. |* D; @, p
使用QX-MCS51开发板可以直接烧写此程序,无需修改接口。
: p$ T+ D. x* F  c5 S5 V/ M, g) j1 n3 q# W/ S2 U
**********************************************************************************// n9 O, _- {) S, J& ~
#include "main.h"
; O5 i) w: M1 O9 R, x3 ?/ Y) U" s8 S
//定义变量
. L% L) V  `) N0 ~4 E4 L& J+ bunsigned char temp = 0xfe;
( o/ o1 `. b% {/ q7 nunsigned char KEY_NUM = 0;# O( G. c/ z* s; s% v7 R8 t; F) i9 n

. `8 U0 v) e  S! Q1 Kunsigned char Display_word[4][4] = {" O0 c9 G' ?# N/ Y* s! ~/ E4 u
0x00,0x48,0x2A,0x8E,0xFB,0x0E,0x2A,0x48, //亲
$ E9 n3 ?- d; |# @6 q; P0x0C,0x1E,0x3E,0x7C,0x7C,0x3E,0x1E,0x0C, //心
, o& c) X* j$ G) j4 q2 w8 h! b3 h};& P1 Z# N8 V& z% b; F, R* n
$ o3 }) j8 C" z$ ]

# k# K' G5 T" u0 H9 K% |- U% b% U7 V4 K0 g/ q) {' R
//****************************************************
; J, F& \. e4 w/ N* w% h//主函数& z7 r1 d5 g" p1 P  C1 W
//****************************************************! h2 ?9 d. ]- X% w, l- `8 P" @
void main()
* P9 F1 M+ A+ Z/ m& G. U9 q  D{5 }( b8 m' U! K' ^8 ^% r% d; j
        unsigned int i;
: f/ ]' Q5 E8 n( G( A* m        unsigned char j,k;
( X0 c: N5 z: N, V- I& g: q        while(1)5 i' _0 S& w; }. S
        {5 a# `& t  }0 z$ j
                for(i = 0 ; i < 1000 ; i++)9 m% D" h% d% F, O# d7 K$ P
                {6 }% J9 }2 a) e  ?- n& `6 f
                        temp = 0x7f;8 ?1 o, g( |; S- S
                        for(j = 0 ; j < 2 ; j++)                //显示前两个字母. D" T* B# P, }1 V* y- l
                        {) \$ ], }, l$ C* _* K2 }  m8 E
                                for(k = 0 ; k < 4 ; k++)                //一个字母4BYTE
$ @; O5 _6 f. E6 n( g( o                                {
7 ~+ I8 K* I9 M; X/ a                                        Send_Byte(temp);                        //列选择
# A4 t( o2 t8 t5 ]                                        Send_Byte(Display_word[j][k]);                        //行数据2 _. M$ o2 f- E8 {6 ~6 h- J
                                        LEDARRAY_LAT = 1;                                        //锁存数据; Y( J0 R. ]1 a! X- c
                                        _nop_();
+ O+ D, {4 n4 T6 K3 H- t/ y0 {* V1 q- _) c  S
                                        LEDARRAY_LAT = 0;. {6 ~1 d6 V# v& }3 L" [
                                        _nop_();
$ a3 c" T! C0 U1 U# Z) z& H* L                                        temp = (temp>>1)|0x80;
7 ~2 ]/ H0 \" A6 ~% I                                }
! C5 O7 v6 b& a3 s$ l                        }
; B# f" Y/ w, C4 x                }0 w6 i# O  Z5 n; q1 D

& S, T- B( F1 K1 j! D- g4 j                for(i = 0 ; i < 1000 ; i++)4 x# W8 s0 M. @( `2 t) J8 I
                {! R8 K5 I5 b  V2 n( M* M
                        temp = 0x7f;
! k/ e, |6 \7 s* P                        for(j = 2 ; j < 4 ; j++)                //显示前两个字母! I! l6 x) S$ Q9 M; L. ]: z( _& E
                        {* H: S4 e2 J  ^! m( D# k8 o
                                for(k = 0 ; k < 4 ; k++)                //一个字母4BYTE
2 }$ X  d; g) v                                {9 _. W! {2 b8 S$ E) T8 c
                                        Send_Byte(temp);                        //列选择
+ t6 M. |" Y& G1 T/ s' @4 G# @                                        Send_Byte(Display_word[j][k]);                        //行数据2 S4 k8 w1 ~1 Z; Y3 L5 b) w
                                        LEDARRAY_LAT = 1;                                        //锁存数据
! z; b4 b* V9 W1 U) I                                        _nop_();  d: R9 c( b0 p8 A
9 v' T' I. O' a6 A
                                        LEDARRAY_LAT = 0;
2 q! h. X6 b/ n$ g# [0 j2 m                                        _nop_();
3 I0 i- ~0 t& N0 P                                        temp = (temp>>1)|0x80;
% ^; M: A3 A+ ^  x" F4 C+ L                                }# A, z( d. {$ e! p2 v
                        }+ I" J6 z# [5 y4 F' f5 @4 @$ g
                }$ j) s" t  C; W1 n* G& U  r6 K* z2 P
2 Q4 l1 S* }2 ^5 X* q# d0 f7 w
) v+ D" K# V, Y* w1 G5 b1 T- L0 M
        }
* v. f  o) K' V; O* g}
8 z% N( A# x. i- K6 _  }
, L( J2 L0 \7 H! ^$ W//****************************************************
% M- a% L, p1 J% B4 y# X//发送一个字节数据
3 s6 t7 ^' G8 h& L" Z6 j//****************************************************6 T% f5 i4 l" x" k
void Send_Byte( unsigned char dat)* [8 I$ u$ h1 U6 N0 z4 z5 R
{
8 n/ A$ z. a- k/ ?$ i' X2 Y* m/ R; a        unsigned char i;
8 b! U# E& h0 A8 H. ?' o        LEDARRAY_CLK = 0;
( X/ T5 q* n, A2 s! b+ x        _nop_();        
0 Q4 o2 [" m: o        LEDARRAY_LAT = 0;
3 S# z# S, K0 l& L  m1 z        _nop_();
  |2 G6 R/ |% |! S" i& q2 c# u/ S6 x- M$ a1 _$ z# d) Q
        for( i = 0 ; i < 8 ; i++ )
5 n( j  ]. g# J6 p7 G        {' b( i' A4 e' x3 D" a% t6 B
                if( dat&0x01 )$ O, J0 W& w; m( m
                {8 K& p9 [9 s" E# }9 n& t+ k1 |
                        LEDARRAY_DI = 1;        7 \4 g6 x0 H$ S* h! N- j: X6 {
                }2 Y& B/ z" X' Q3 L/ B- x3 f7 x+ V* T
……………………
* A- ~6 d5 B7 K0 R& k5 X6 Z! P8 E/ R0 x& W  f
…………限于本文篇幅 余下代码请从论坛下载附件…………; @& E8 N' _: q( Z& w. {2 w# e

: M, S& N( l' M+ g
游客,如果您要查看本帖隐藏内容请回复
) r" b  t& c) v. R
+ X: R7 W3 K0 ~. x/ \9 q% C. B
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

推荐内容上一条 /1 下一条

EDA365公众号

关于我们|手机版|EDA365电子论坛网 ( 粤ICP备18020198号-1 )

GMT+8, 2025-11-6 16:33 , Processed in 0.218750 second(s), 26 queries , Gzip On.

深圳市墨知创新科技有限公司

地址:深圳市南山区科技生态园2栋A座805 电话:19926409050

快速回复 返回顶部 返回列表