单片机8层电梯程序分享(支持修改任意最大楼层)仿真+源程序

ID:142059 · 发表于 2018-7-7 00:32

本帖最后由 Angle145 于 2020-1-25 21:28 编辑

修改最大楼层方法，在程序中，#define MaxFloor 8 把8改成想要的楼层数就可以了，支持1-8层，其他不用修改。

按照现实的电梯运行设计，两个版本，一个是用定时器产生定时，定时用来模拟电梯上下楼，别一版本是需要外部的信号来触发，就是现实中的限位器或者传感器，用来传感是否到达某个楼层。理论上每个楼层都要安装一个传感器，电梯经过时就可以知道是否到达楼层了。

仿真文件请使用Proteus8.6及以上版本打开。
源程序用Keil5打开。

//在此声明，代码全部属于原创，没有任何一条是复制粘贴，请尊重个人劳动成果
//在此分享出来仅供大家学习参考使用，请务必禁止用于其他用途

仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）

单片机源程序：

/*******************电梯主程序**********************/
#include "reg51.h"
#include "intrins.h"
/******************移植部分代码*************************/
sbit DOOR=P3^5;
sbit DlevMotor_P=P3^6; //电梯电机正极
sbit DlevMotor_N=P3^7; //电梯电机负极
#define SEGPort P0
#define KeyPort_X P1
#define KeyPort_Y P2
/******************************************************/
#define u8 unsigned char
#define u16 unsigned int
#define MaxFloor 8
#define FloorStayTime 40 //单位：50ms
#define DoorStayTime 2 //单位：S
#define TRUE 1
#define FALSE 0
#define Null 0
#define STOP 1
#define UP 2
#define DOWN 3
#define Dlev_UP DlevMotor_P=0;DlevMotor_N=1 //低电平有效
#define Dlev_DOWN DlevMotor_P=1;DlevMotor_N=0 //低电平有效
#define Dlev_STOP DlevMotor_P=1;DlevMotor_N=1 //低电平有效
#define OPEN 1
#define CLOSE 0
#define DOOR_Open DOOR=OPEN
#define DOOR_Close DOOR=CLOSE
typedef struct
{
u8 DlevRunning;
u8 CurrentFloor;
u8 Direction;
u8 FloorCallTable[MaxFloor+1];//数组[0]不用，从[1]开始使用
u8 FloorTimerCount;
u8 ArriveFlag; //到达楼层信号(用于停止或在前一楼层提前加减速)(此版本是定时器模拟，用不到)
u8 FreeFlag;
}TYPEDEF_DLEVSTATE;
TYPEDEF_DLEVSTATE DlevState;
u8 code SEG_NUM[]={0x3f,0x06,0x5b,0x4f,0x66,0x6D,0x7D,0x07,0x7f,0x6f}; //SEG数码管段码 0~9
u8 Timer_Second;
u16 TimerCount;
u8 RICount=0;
u8 RIOver_Flag=0;
u8 ExternKey[2]={0}; //外部按键按下信息
u8 FloorCallTableBUFF[MaxFloor+10]={0};
u8 KeyPressFlag=0;
void delay_ms(u16 xms);
void delay_s(u8 xs);
void EXTI0_Init(void);
void Timer0_Init(void);
void USART_Configure(u16 BaudRate);
u8 KeyScan(void);
void KeyDatHandle(u8 key);
void WaitDoorOpen(u8 ts);
void WaitDoorClose(u8 ts);
void SEG_Display(u8 segnum);
void DlevWorkState(u8 state);
void Elevator(void);
u8 FloorCall_UP(u8 floorside);
u8 FloorCall_DOWN(u8 floorside);
void FLOORCALLCHECK(void);
void SYSYEM_INIT(void);
void main(void)
{
SYSYEM_INIT();
EXTI0_Init();
EXTI1_Init();
Timer0_Init();
USART_Configure(9600);
while(1)
{
KeyPort_Y=0x00;
FLOORCALLCHECK();
Elevator();
}
}
void EXTI1_IRQHandler(void) interrupt 2 //矩阵按键中断
{
KeyDatHandle(KeyScan());
}
void TIM0_IRQHandler(void) interrupt 1 //定时模拟电梯上升和下降
{
TH0=(65536-50000)/256;
TL0=(65536-50000)%256;
TimerCount++;
if(TimerCount==20) //1秒
{
TimerCount=0;
Timer_Second++;
}
DlevState.FloorTimerCount++;
}

复制代码

全部资料51hei下载地址：

8层电梯(双版本).zip (250.59 KB, 下载次数: 236)

ID:149783 · 发表于 2018-7-7 17:32

谢谢你的分享，下载，下来慢慢学习。

ID:437186 · 发表于 2018-12-13 20:55

想好好看下学习哈

ID:437186 · 发表于 2018-12-15 21:15

打不开怎么回事啊

ID:142059 · 发表于 2019-1-16 02:54

老王头8 发表于 2018-12-15 21:15
打不开怎么回事啊

你的keil版本太低，安装keil5

ID:471889 · 发表于 2019-2-4 06:16

不错,学习了

ID:479667 · 发表于 2019-2-24 11:20

proteus为什么打不开

ID:142059 · 发表于 2019-3-1 21:40

dpo 发表于 2019-2-24 11:20
proteus为什么打不开

需要proteus8.6及以上版本

ID:273674 · 发表于 2019-3-18 14:12

LZ我想问下如果是2部电梯的话该怎么弄呢

ID:142059 · 发表于 2019-3-18 21:43

李海林发表于 2019-3-18 14:12
LZ我想问下如果是2部电梯的话该怎么弄呢

需要通过通讯来达到协调或者独立运行

ID:475808 · 发表于 2019-3-19 08:41

很棒!收藏了!

ID:657980 · 发表于 2019-12-10 19:01

有问题想请教，可以私聊吗

ID:787940 · 发表于 2020-6-23 18:55

大佬你这个仿真的时候，数码管不起作用？我按下7楼，数码管显示一直不变。。

ID:788184 · 发表于 2020-6-23 22:08

感谢分享，学习了

ID:301242 · 发表于 2021-5-23 16:24

请问楼主，传感器是用什么类型的呢？比如是压力？还是光电？c语言编写控制都一样的吗？

ID:142059 · 发表于 2021-5-27 15:34

易木残阳发表于 2021-5-23 16:24
请问楼主，传感器是用什么类型的呢？比如是压力？还是光电？c语言编写控制都一样的吗？

传感器光电开关效果最好，都一样的

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

单片机8层电梯程序分享(支持修改任意最大楼层)仿真+源程序

评分