51单片机十字路口交通灯Proteus仿真图和源码

Colbie · 发表于 2018-10-19 13:50

EDA365欢迎您登录！

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

x

51单片机十字路口交通灯Proteus仿真图和源码

proteus仿真原理图：

单片机源码：

#include<reg51.h>
#include<absacc.h>

#define uchar unsigned char
#define uint unsigned int
#define PA 0xf8ff
#define PB 0xf9ff
#define PC 0xfaff
#define CTRL XBYTE[0xfbff]

sbit KEY1 = P3^0;
sbit KEY2 = P3^1;

uint i=0, cnt = 0;
uchar table[]={
0x3f,0x06,0x5b,0x4f,
0x66,0x6d,0x7d,0x07,
0x7f,0x6f,0x77,0x7c,
0x39,0x5e,0x79,0x71
};

void IntConfiguration();
void TimeConfig();
void display(int, int, uint, uint, uint, uint);
void delay(int);

void main()
{
CTRL = 0x80;
      IP = 0x05;
      IntConfiguration();
      TimeConfig();
      while(1)
      {
            if(cnt < 55)
            {
                        XBYTE[PA] = 0x33;
                     display(PB, PC, (54-cnt)/10,(54-cnt)%10, (59-cnt)/10,(59-cnt)%10);
            }
               else if(cnt >= 55 && cnt < 60)
               {
                     XBYTE[PA] = 0x35;
                     display(PB, PC, (59-cnt)/10,(59-cnt)%10, (59-cnt)/10,(59-cnt)%10);
               }
            else if(cnt >= 60 && cnt < 85)
               {
                     XBYTE[PA] = 0x1e;
         display(PB, PC, (89-cnt)/10,(89-cnt)%10, (84-cnt)/10,(84-cnt)%10);
               }
            else if(cnt >= 85 && cnt < 90)
         {
                     XBYTE[PA] = 0x2e;
         display(PB, PC, (89-cnt)/10,(89-cnt)%10, (89-cnt)/10,(89-cnt)%10);
            }

      }
}

void display(int x, int y, uint a,uint b, uint c, uint d)
{
P1 = 0x0e;
      XBYTE[x] = table[a];
      delay(1);

P1 = 0x0d;
      XBYTE[x] = table;2 j& _3 K+ P" i
      delay(1);
9 y, `0 ~3 u1 t/ h
7 L: k' @2 [3 e/ c" C, Q. H7 _& L% B
      P1 = 0x0b;) [2 R( w" K& @& \4 A: g
      XBYTE[y] = table[c];3 Q% F8 _9 _! S
      delay(1);
* N* k  z+ I7 Q9 n2 B5 U7 i  z* C) t5 G6 Y1 Z1 U* f
P1 = 0x07;. w  e; |6 H) z) D. a% V: u1 A
      XBYTE[y] = table[d];
5 ?' B7 H. K+ u( l; P( U, \       delay(1);
% E( F8 T3 R1 y6 a, i8 |, f       P1 = 0x0f;
1 d* }: [9 X5 W; |! V  z1 O}7 J% f% Q$ D' \
; o/ _! G/ f) H: o* N
void delay(int z). e, _0 m. N" Q. N
{
% b, e6 s: ?- a. ]6 i6 U. duint x,y;
1 l$ v# \0 ~; q1 F, Jfor(x=z;x>0;x--)  |) r9 z! c& Y  t% _
for(y=110;y>0;y--);2 H9 `9 s$ b9 e" |" a; o
}
) r+ s. Z5 \5 ]& X0 ~2 b
6 o, u0 j1 I( R% e5 qvoid IntConfiguration()
7 v  M9 e/ I3 @6 w& o{
) J8 K/ f, K, ?$ B: I       IT0=0;8 A. z$ w7 Z& B6 I! z
      EX0=1;
' G6 Z9 m$ |( }$ _3 R$ ~# B8 C       IT1=0;
* O3 V: @5 [1 }) ]       EX1=1;
6 @& P2 l+ r9 Y' l       EA=1;
( e# T" c6 v* k. R}. H% J3 @  ?1 L' V' O& T* A
) g9 X* M  `( c  q
void TimeConfig()
5 L# H. O. a5 s! R3 a, |: C{
' f9 z7 O) c( e8 R  TMOD = 0x01;0 n5 {) g5 X2 z$ |
  TH0 = (65536-10000)/256;! Z( W# r1 J+ h) ]8 B1 s: l
  TL0 = (65536-10000)%256;
9 b- P! @9 K) n" U$ L3 ]) T. \. X  EA = 1;
2 N5 L6 X; C% {$ t& A( q" O: o5 }* ]9 D  ET0 = 1;& R! Q! y2 c! t' u7 G
  TR0 = 1;       8 b3 m0 M6 S4 k* z8 Z0 B, ]# p
}
# h6 x2 |1 D/ `- i) n" z) Q5 P7 a2 C! Y$ A1 s, @
void Int0() interrupt 0
% r3 z( I" _- A6 T  }! X) W{8 A5 Z, \8 S7 Z0 w4 v8 L) m* d
  XBYTE[PA] =0x36;' O& n( {4 b1 \5 K3 Z; w/ D8 `
  display(PB, PC, 0, 0, 0, 0);
1 z1 p/ z5 t1 @' p}
  {6 ~6 I" W, m( \/ {7 M$ c& p* E* j+ L( w- H. V
void Int1() interrupt 2                : K9 [2 g+ Y, W# q/ Z" w
{
: {) g6 b1 |4 Q5 C: e/ }
3 ]' e6 v' M. q  if(KEY1 == 0)
$ j0 S( B& B1 D4 b% p/ T XBYTE[PA] = 0x33;
$ n( ^8 e& B2 q8 S4 h  if(KEY2 == 0)
, R" H/ @6 L* @$ ?' i6 G/ d XBYTE[PA] = 0x1e;
9 s# q5 U) X" E" p4 l  display(PB, PC, 0, 0, 0, 0);
+ U3 G4 ^5 d1 A( c* y' S2 u0 F( j}
: o7 r" W; l; Q: `6 }& `
& l- v- q, [* F# a1 c0 ^void mytimer() interrupt 1
! b: m. t% `* e) ~& C5 @{
! |$ |, ]0 p; ~: j+ B. A% I; O  uint flag = 0;
" }/ ^( |) G4 K3 H, c  TH0 = (65536-10000)/256;
2 \3 N8 x/ V3 B/ m" i/ n  TL0 = (65536-10000)%256;
. w8 w  i, V# o: [# E: r
  y1 B& g/ K6 _* m. E; c  i++;
3 D: w4 v. w- X  if(i >= 100)
; ?6 T# N; c( h% @  {
3 k1 L7 ]# p3 m: ]- B       i = 0;( H$ {" l1 O1 C' i
      flag = 1;
( F6 k, m( Z( d. l3 l% }  }
( c3 K4 y: ^" [1 m; j  if(flag == 1)
# U! @/ n1 h+ C" i" c/ o5 S  i* Z
+ ]+ A$ N5 s) S( p3 H
: D& F% ^) }* ]  p6 H7 X; x…………限于本文篇幅余下代码请从论坛下载附件…………& D: o  }3 j; y: a- Y4 D' l

游客，如果您要查看本帖隐藏内容请回复
3 q. y/ L  s3 n& ?, o- q) h) S, v

3 d* c8 Z) H; v$ S5 u

Mhza · 发表于 2018-10-19 16:02

学习下

帐号		自动登录	找回密码
密码			注册

51单片机十字路口交通灯Proteus仿真图和源码

EDA365欢迎您登录！

浏览过的版块

推荐内容 /1