四层电梯模拟程序与配套的proteus8.0的模拟程序

ID:145844 · 发表于 2016-11-25 15:55

windows平台下的keil开发环境开发的以atmel51单片机开发的四层电梯模拟程序与配套的proteus8.0的模拟程序，编译通过。模拟程序运行无误。其中包含的资料为电梯程序c语言和电梯仿真的原理图

单片机源程序：

#include <reg52.h>
#define u8 unsigned char
unsigned char seg_table[]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f,0x00};
unsigned char run,floor;
bit ud,stop=0;
sbit P06=P0^6;
sbit P07=P0^7;
sbit ulc=P2^0;
sbit dlc=P2^1;
sbit start=P2^2;
sbit alrl=P2^3;
sbit alrb=P2^4;
void input()
{
run|=((~P0)&0x3f);
if((P06==0)&&(ud==1))
run|=0x02;
if((P06==0)&&(ud==0))
run|=0x04;
if((P07==0)&&(ud==1))
run|=0x08;
if((P07==0)&&(ud==0))
run|=0x10;
}
void delay(int j)
{
int i;
for(;j>0;j--)
{
input();
for(i=200;i>0;i--)
{
if(stop==1)
break;
}
if(stop==1)
break;
}
}
void StepMotor(bit a,u8 b)
{
u8 x=0x80,i;
if(a==1)
{
ulc=0;
dlc=1;
for(i=0;i<b;i++)
{
if(x==0x10)
x=0x80;
else
x=x/2;
P3|=(x&0xf0);
delay(100);
}
}
else
{
ulc=1;
dlc=0;
for(i=0;i<b;i++)
{
if(x==0x80)
x=0x10;
else
x=x*2;
P3|=(x&0xf0);
delay(100);
}
}
}
void alarm()
{
alrl=0;
while(1)
{
alrb = ~alrb;
delay(200);
}
}
void main()
{
floor=1;
P1=seg_table[floor];
P0=0xff;
ud=1;
run=0;
ulc=1;
dlc=1;
alrl=1;
alrb=1;
TCON=0x01; //打开外部中断0，并设置为下降沿触发
IE=0x81; //开总中断
while(1)
{
while(start==1)
{
P1=seg_table[10];
ulc=1;
dlc=1;
}
input();
switch(floor)
{
case 1: //1
{
P1=seg_table[floor];
if((run&0x01)==0x01)
{
delay(600);
run&=0xfe;
}
if((run&0x3e)!=0)
{
StepMotor(1,5);
floor=2;
ud=1;
}
else
{
ulc=1;
dlc=1;
}
} break;
case 2:
{
P1=seg_table[floor];
if(ud==1) //2上
{
if((run&0x02)==0x02)
{
delay(600);
run&=0xfd;
}
if((run&0x38)!=0)
{
StepMotor(1,5);
floor=3;
}
else
{
ud=0;
ulc=1;
dlc=1;
}
}
else //2下
{
if((run&0x04)==0x04)
{
delay(600);
run&=0xfb;
}
if((run&0x01)!=0)
{
StepMotor(0,5);
floor=1;
}
else
{
ud=1;
ulc=1;
dlc=1;
}
}
} break;
case 3:
{
P1=seg_table[floor];
if(ud==1) //3上
{
if((run&0x08)==0x08)
{
delay(600);
run&=0xf7;
}
if((run&0x20)!=0)
{
StepMotor(1,5);
floor=4;
}
else
{
ud=0;
ulc=1;
dlc=1;
}
}
else //3下
{
if((run&0x10)==0x10)
{
delay(600);
run&=0xef;
}
if((run&0x07)!=0)
{
StepMotor(0,5);
floor=2;
}
else
{
ud=1;
ulc=1;
dlc=1;
}
}
} break;
case 4:
{
P1=seg_table[floor];
if((run&0x20)==0x20)
{
delay(600);
run&=0xdf;
}
if((run&0x1f)!=0)
{
StepMotor(0,5);
floor=3;
ud=0;
}
else
{
ulc=1;
dlc=1;
}
}
}
if(stop==1)
{
P1=seg_table[10];
ulc=1;
dlc=1;
alarm();
}
}
}
void int0() interrupt 0
{
stop=1;
}

复制代码

所有资料打包下载：

四层电梯模拟程序与proteus仿真.rar (106.52 KB, 下载次数: 225)

ID:128380 · 发表于 2016-11-25 17:52

厉害啊啊啊

ID:153883 · 发表于 2016-12-11 14:22

(⊙o⊙)(⊙o⊙)(⊙o⊙)

ID:146771 · 发表于 2017-1-15 22:04

能做出了很不容易啊

ID:160725 · 发表于 2017-1-16 09:21

运行错误呀

ID:161203 · 发表于 2017-1-16 15:06

没找到start呢？

ID:200583 · 发表于 2017-5-14 22:10

请问一下，为什么仿真不行啊？

ID:200583 · 发表于 2017-5-14 22:11

lzxdy 发表于 2017-1-16 15:06
没找到start呢？

我也是。。。

ID:204454 · 发表于 2017-5-24 20:31

我下下来的仿真也不能用按键没有反应

ID:262082 · 发表于 2017-12-20 15:37

为什么不能仿真

ID:67179 · 发表于 2017-12-25 10:21

谢谢分享！

ID:57831 · 发表于 2018-3-8 23:20

很给力！

ID:273292 · 发表于 2018-3-9 08:39

不错，很给力，运行不了的可以加我

ID:353754 · 发表于 2018-6-18 17:11

xdl932365660 发表于 2018-3-9 08:39
不错，很给力，运行不了的可以加我

请问怎么运行？？

ID:101342 · 发表于 2018-6-21 01:24

谢谢分享，下载来看看

ID:210588 · 发表于 2018-6-21 08:53

坑！！仿真没有反应

ID:365929 · 发表于 2018-7-6 09:36

怎么仿真啊？

ID:365929 · 发表于 2018-7-6 10:31

xdl932365660 发表于 2018-3-9 08:39
不错，很给力，运行不了的可以加我

咋运行

ID:397520 · 发表于 2018-9-13 15:49

很给力

ID:383986 · 发表于 2018-9-14 20:37

仿真报错，运行不了

ID:388870 · 发表于 2018-9-19 09:43

谢谢分享！

ID:74293 · 发表于 2020-3-18 00:06

有没有能改5层的？？？

ID:286327 · 发表于 2020-5-6 17:33

仿真不了兄弟你这/？

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

四层电梯模拟程序与配套的proteus8.0的模拟程序

评分

相关帖子