四層電梯模擬程序與配套的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

仿真不了兄弟你這/？

帳號		自動登錄	找回密碼
密碼			立即注冊

久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

四層電梯模擬程序與配套的proteus8.0的模擬程序

評分

相關帖子