標題: 單片機8層電梯程序分享(支持修改任意最大樓層)仿真+源程序 [打印本頁]
作者: Angle145    時間: 2018-7-7 00:32
標題: 單片機8層電梯程序分享(支持修改任意最大樓層)仿真+源程序
本帖最后由 Angle145 于 2020-1-25 21:28 編輯

修改最大樓層方法，在程序中，#define MaxFloor   8    把8改成想要的樓層數(shù)就可以了，支持1-8層，其他不用修改。

按照現(xiàn)實的電梯運行設計，兩個版本，一個是用定時器產(chǎn)生定時，定時用來模擬電梯上下樓，別一版本是需要外部的信號來觸發(fā)，就是現(xiàn)實中的限位器或者傳感器，用來傳感是否到達某個樓層。理論上每個樓層都要安裝一個傳感器，電梯經(jīng)過時就可以知道是否到達樓層了。

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

//在此聲明，代碼全部屬于原創(chuàng)，沒有任何一條是復制粘貼，請尊重個人勞動成果
//在此分享出來僅供大家學習參考使用，請務必禁止用于其他用途

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


單片機源程序：


  1. /*******************電梯主程序**********************/
  2. #include "reg51.h"
  3. #include "intrins.h"

  5. /******************移植部分代碼*************************/
  6. sbit DOOR=P3^5;
  7. sbit DlevMotor_P=P3^6; //電梯電機正極
  8. sbit DlevMotor_N=P3^7; //電梯電機負極
  9. #define SEGPort    P0
  10. #define KeyPort_X  P1
  11. #define KeyPort_Y  P2
  12. /******************************************************/


  15. #define u8  unsigned char
  16. #define u16 unsigned int
  17.         
  18. #define MaxFloor   8

  20. #define FloorStayTime 40        //單位：50ms
  21. #define DoorStayTime  2   //單位：S

  23. #define TRUE  1
  24. #define FALSE 0

  26. #define Null  0  
  27. #define STOP  1
  28. #define UP    2
  29. #define DOWN  3
  30. #define Dlev_UP    DlevMotor_P=0;DlevMotor_N=1  //低電平有效
  31. #define Dlev_DOWN  DlevMotor_P=1;DlevMotor_N=0  //低電平有效
  32. #define Dlev_STOP  DlevMotor_P=1;DlevMotor_N=1  //低電平有效

  34. #define OPEN  1  
  35. #define CLOSE 0
  36. #define DOOR_Open  DOOR=OPEN
  37. #define DOOR_Close DOOR=CLOSE


  40. typedef struct
  41. {
  42.         u8 DlevRunning;
  43.   u8 CurrentFloor;
  44.         u8 Direction;
  45.         u8 FloorCallTable[MaxFloor+1];//數(shù)組[0]不用，從[1]開始使用
  46.         u8 FloorTimerCount;        
  47.         u8 ArriveFlag;      //到達樓層信號(用于停止或在前一樓層提前加減速)(此版本是定時器模擬，用不到)
  48.         u8 FreeFlag;        
  49. }TYPEDEF_DLEVSTATE;
  50. TYPEDEF_DLEVSTATE DlevState;


  53. u8 code SEG_NUM[]={0x3f,0x06,0x5b,0x4f,0x66,0x6D,0x7D,0x07,0x7f,0x6f};   //SEG數(shù)碼管段碼  0~9
  54. u8 Timer_Second;
  55. u16 TimerCount;
  56. u8 RICount=0;
  57. u8 RIOver_Flag=0;
  58. u8 ExternKey[2]={0}; //外部按鍵按下信息
  59. u8 FloorCallTableBUFF[MaxFloor+10]={0};
  60. u8 KeyPressFlag=0;

  62. void delay_ms(u16 xms);
  63. void delay_s(u8 xs);
  64. void EXTI0_Init(void);
  65. void Timer0_Init(void);
  66. void USART_Configure(u16 BaudRate);
  67. u8 KeyScan(void);
  68. void KeyDatHandle(u8 key);
  69. void WaitDoorOpen(u8 ts);
  70. void WaitDoorClose(u8 ts);
  71. void SEG_Display(u8 segnum);
  72. void DlevWorkState(u8 state);
  73. void Elevator(void);
  74. u8 FloorCall_UP(u8 floorside);
  75. u8 FloorCall_DOWN(u8 floorside);
  76. void FLOORCALLCHECK(void);
  77. void SYSYEM_INIT(void);


  80. void main(void)
  81. {
  82.         SYSYEM_INIT();
  83.         EXTI0_Init();
  84.         EXTI1_Init();
  85.         Timer0_Init();
  86.         USART_Configure(9600);
  87.   while(1)
  88.         {
  89.                  KeyPort_Y=0x00;
  90.                  FLOORCALLCHECK();
  91.            Elevator();   
  92.         }
  93. }

  95. void EXTI1_IRQHandler(void) interrupt 2    //矩陣按鍵中斷
  96. {
  97.    KeyDatHandle(KeyScan());
  98. }

  100. void TIM0_IRQHandler(void)  interrupt 1    //定時模擬電梯上升和下降
  101. {
  102.    TH0=(65536-50000)/256;
  103.          TL0=(65536-50000)%256;
  104.         
  105.          TimerCount++;
  106.          if(TimerCount==20)  //1秒
  107.          {
  108.                  TimerCount=0;
  109.                  Timer_Second++;
  110.          }         
  111.          DlevState.FloorTimerCount++;
  112. }
復制代碼


全部資料51hei下載地址：
8層電梯(雙版本).zip (250.59 KB, 下載次數(shù): 236)


作者: xinxinxiangyin    時間: 2018-7-7 17:32
謝謝你的分享，下載，下來慢慢學習。
作者: 老王頭8    時間: 2018-12-13 20:55
想好好看下  學習哈
作者: 老王頭8    時間: 2018-12-15 21:15
打不開怎么回事啊
作者: Angle145    時間: 2019-1-16 02:54
老王頭8 發(fā)表于 2018-12-15 21:15
打不開怎么回事啊

你的keil版本太低，安裝keil5
作者: 找人PK    時間: 2019-2-4 06:16
不錯,學習了
作者: dpo    時間: 2019-2-24 11:20
proteus為什么打不開
作者: Angle145    時間: 2019-3-1 21:40
dpo 發(fā)表于 2019-2-24 11:20
proteus為什么打不開

需要proteus8.6及以上版本
作者: 李海林    時間: 2019-3-18 14:12
LZ我想問下 如果是2部電梯的話 該怎么弄呢
作者: Angle145    時間: 2019-3-18 21:43
李海林 發(fā)表于 2019-3-18 14:12
LZ我想問下 如果是2部電梯的話 該怎么弄呢

需要通過通訊來達到協(xié)調(diào)或者獨立運行
作者: heen325    時間: 2019-3-19 08:41
很棒!收藏了!
作者: 萬畫家    時間: 2019-12-10 19:01
有問題想請教，可以私聊嗎
作者: Monster..    時間: 2020-6-23 18:55
大佬 你這個仿真的時候，數(shù)碼管不起作用？我按下7樓，數(shù)碼管顯示一直不變。。
作者: 394130040    時間: 2020-6-23 22:08
感謝分享，學習了
作者: 易木殘陽    時間: 2021-5-23 16:24
請問樓主，傳感器是用什么類型的呢？比如是壓力？還是光電？c語言編寫控制都一樣的嗎？
作者: Angle145    時間: 2021-5-27 15:34
易木殘陽 發(fā)表于 2021-5-23 16:24
請問樓主，傳感器是用什么類型的呢？比如是壓力？還是光電？c語言編寫控制都一樣的嗎？

傳感器光電開關效果最好，都一樣的



歡迎光臨 (http://www.torrancerestoration.com/bbs/) Powered by Discuz! X3.1