找回密碼
 立即注冊

QQ登錄

只需一步，快速開始

搜索
查看: 37544|回復(fù): 42
收起左側(cè)

自己制作的簡易的 基于51單片機的自動升降電梯簡易模型 與大家分享

  [復(fù)制鏈接]
ID:162229 發(fā)表于 2017-2-3 19:43 | 顯示全部樓層 |閱讀模式
寒假在家閑著無事，想著做點東西，但是畢竟是新手，做不了太厲害的東西，就弄了個這小玩意，純屬個人娛樂之作，與各位分享。

配上幾張圖片 192737jesbqbge0uqasq6w.jpg 192740pdsdcxm20cgfs0su.jpg 192743asm8bqoskqsn328z.jpg 192747wg0gruababgvamh4.jpg 192751cq23q7na772262l6.jpg 192757jhbrbq8g8wgpblah.jpg 192800z1t1tyqzpiwiq5yl.jpg ，全部程序，又做了個小視頻來演示。



主程序預(yù)覽：
  1. /**************************************************
  2. /*項目名稱：基于51單片機的自動升降電梯簡易模型
  3. /*主控芯片：STC89C52
  4. /*使用模塊：28BYJ_48步進電機、ULN2003驅(qū)動模塊、無源蜂鳴器、紅外發(fā)射器、紅外接收頭、4×4軟鍵盤
  5. /*平臺搭建：廢舊泡沫塊、硬紙殼
  6. /*主要功能：裝置供電后，通過按下紅外遙控器或者軟鍵盤選擇樓層所對應(yīng)的數(shù)字，選擇升降方式（只上升、只下降、先升再降）
  7. /*          然后升降電梯（泡沫模擬）停在對應(yīng)樓層，蜂鳴器發(fā)出“叮咚”的聲響。共計16層。
  8. /*引腳說明：步進電機接P1低四位，蜂鳴器IO口接P3^7，紅外接收頭接P3^2，軟鍵盤接P2口；
  9. /*時間：2017年2月3日17時22分
  10. /**************************************************/

  12. /*********************************************
  13. /*包含必要的頭文件
  14. **********************************************/
  15. #include<ring.h>
  16. #include<key.h>
  17. #include<run.h>
  18. #include<red.h>

  20. /*********************************************
  21. /*定義紅外接收必要數(shù)據(jù)
  22. **********************************************/
  23. unsigned char IrValue[6];
  24. unsigned char Time;
  25. /*********************************************
  26. /*定義變量
  27. **********************************************/
  28. unsigned char s,p;
  29. unsigned int m,a;
  30. /*********************************************
  31. /*主函數(shù)
  32. **********************************************/                                                                                                        
  33. void main()                                                               
  34. {
  35.         unsigned int n,w=30000;
  36.         unsigned char b;
  37.         IrInit();
  38.         while(1)
  39.         {
  40.                 if(p==2)
  41.                 {
  42.                         delay(50000);               
  43.                         Z_run(n+15);
  44.                         p=0;
  45.                 }
  46.                 if(p==4)
  47.                 {
  48.                         delay(50000);               
  49.                         Z_run(n+15);
  50.                         p=3;
  51.                 }               
  52.                 while((p!=3)&&(w>0)) w--;
  53.                 if(p==3)
  54.                 {
  55.                         delay(50000);
  56.                         D_run(n);
  57.                         p=0;
  58.                 }
  59.                 n=0;               
  60.                 s=1;
  61.                 while(s)
  62.                 {
  63.                         a=KeyDown();
  64.                 }
  65.                 if(a!=0)
  66.                 {
  67.                         if(a==14)
  68.                         {
  69.                                 a=0;
  70.                                 p=2;
  71.                         }
  72.                         else if(a==15)
  73.                         {
  74.                                 a=0;
  75.                                 p=3;
  76.                         }
  77.                         else  
  78.                         {
  79.                                 b=a;
  80.                                 p=0;
  81.                         }
  82.                         n=b*883;
  83.                 }
  84.                 else        
  85.                 {
  86.                         n=m*883;
  87.                 }
  88.         }         
  89. }


  92. /*********************************************
  93. /*紅外接收，數(shù)據(jù)處理函數(shù)，使用外部中斷0
  94. **********************************************/
  95. void ReadIr() interrupt 0
  96. {
  97.         unsigned char j,k;
  98.         unsigned int err;
  99.         Time=0;                                         
  100.         delay(700);
  101.         if(IRIN==0)        
  102.         {         
  103.                 err=1000;                                
  104.                 while((IRIN==0)&&(err>0))
  105.                 {                        
  106.                         delay(1);
  107.                         err--;
  108.                 }
  109.                 if(IRIN==1)               
  110.                 {
  111.                         err=500;
  112.                         while((IRIN==1)&&(err>0))               
  113.                         {
  114.                                 delay(1);
  115.                                 err--;
  116.                         }
  117.                         for(k=0;k<4;k++)        
  118.                         {                                
  119.                                 for(j=0;j<8;j++)
  120.                                 {

  122.                                         err=60;               
  123.                                         while((IRIN==0)&&(err>0))
  124.                                         {
  125.                                                 delay(1);
  126.                                                 err--;
  127.                                         }
  128.                                         err=500;
  129.                                         while((IRIN==1)&&(err>0))         
  130.                                         {
  131.                                                 delay(10);         
  132.                                                 Time++;
  133.                                                 err--;
  134.                                                 if(Time>30)
  135.                                                 {
  136.                                                         return;
  137.                                                 }
  138.                                         }
  139.                                         IrValue[k]>>=1;         
  140.                                         if(Time>=8)               
  141.                                         {
  142.                                                 IrValue[k]|=0x80;
  143.                                         }
  144.                                         Time=0;                                                               
  145.                                 }
  146.                         }
  147.                 }
  148.                 if(IrValue[2]!=~IrValue[3])
  149.                 {
  150.                         return;
  151.                 }
  152.                 s=0;
  153.                 ding();
  154.                 switch(IrValue[2])
  155.                 {
  156.                         case 0x16:
  157.                         m=0;
  158.                         break;
  159.                         case 0x0c:
  160.                         m=1;
  161.                         break;
  162.                         case 0x18:
  163.                         m=2;
  164.                         break;
  165.                         case 0x5e:
  166.                         m=3;
  167.                         break;
  168.                         case 0x08:
  169.                         m=4;
  170.                         break;
  171.                         case 0x1c:
  172.                         m=5;
  173.                         break;
  174.                         case 0x5a:
  175.                         m=6;
  176.                         break;
  177.                         case 0x42:
  178.                         m=7;
  179.                         break;
  180.                         case 0x52:
  181.                         m=8;
  182.                         break;
  183.                         case 0x4a:
  184.                         m=9;
  185.                         break;
  186.                         case 0x40:
  187.                         p=2;
  188.                         break;
  189.                         case 0x43:
  190.                         p=3;
  191.                         break;
  192.                         case 0x19:
  193.                         p=4;
  194.                         break;
  195.                         case 0x45:
  196.                         m=10;
  197.                         break;
  198.                         case 0x46:
  199.                         m=11;
  200.                         break;
  201.                         case 0x47:
  202.                         m=12;
  203.                         break;
  204.                         case 0x44:
  205.                         m=13;
  206.                         break;
  207.                         case 0x07:
  208.                         m=14;
  209.                         break;
  210.                         case 0x15:
  211.                         m=15;
  212.                         break;
  213.                         case 0x09:
  214.                         m=16;
  215.                         break;
  216.                 }
  217.         }                        
  218. }


復(fù)制代碼

0.png
詳細信息請參照程序（壓縮包中含全部源碼）：
基于51的自動升降電梯程序.zip (45.6 KB, 下載次數(shù): 219)

評分

參與人數(shù) 5黑幣 +126 收起 理由
柯南的阿嘞嘞 + 5 絕世好帖！
dsjfadsjf + 4 很給力！
沉默的墓碑 + 12 很給力！
啾糾 + 5 很給力！
admin + 100 共享資料的黑幣獎勵！

查看全部評分

相關(guān)帖子
回復(fù)

使用道具 舉報

ID:163575 發(fā)表于 2017-2-6 16:49 | 顯示全部樓層
有沒有仿真電路圖哇大神
回復(fù)

使用道具 舉報

ID:162229 發(fā)表于 2017-2-7 13:32 | 顯示全部樓層
16546 發(fā)表于 2017-2-6 16:49
有沒有仿真電路圖哇大神

我不太習(xí)慣用protues畫圖，就手畫了一個，其實結(jié)構(gòu)很簡單，畫出來之后竟然就這么一點點

回復(fù)

使用道具 舉報

ID:162229 發(fā)表于 2017-2-7 18:44 | 顯示全部樓層

回復(fù)

使用道具 舉報

ID:162229 發(fā)表于 2017-2-7 18:44 | 顯示全部樓層

回復(fù)

使用道具 舉報

ID:162229 發(fā)表于 2017-2-7 18:47 來自手機 | 顯示全部樓層
抱歉，剛剛電腦出毛病了，圖片發(fā)不上去
14864644122140.21675697640962244.jpg
回復(fù)

使用道具 舉報

ID:99341 發(fā)表于 2017-2-7 22:49 | 顯示全部樓層
樓主給一個詳細的電路圖吧！
回復(fù)

使用道具 舉報

ID:162229 發(fā)表于 2017-2-8 09:18 來自手機 | 顯示全部樓層
YBZYBZ 發(fā)表于 2017-2-7 22:49
樓主給一個詳細的電路圖吧！

剛剛畫了一個，不太會用這個protues，電路基本上就是這樣了。
mmexport1486516601474.jpg
回復(fù)

使用道具 舉報

ID:164282 發(fā)表于 2017-2-11 22:33 | 顯示全部樓層
樓主能給份原件清單嗎
回復(fù)

使用道具 舉報

ID:164282 發(fā)表于 2017-2-11 23:10 | 顯示全部樓層
啾糾 發(fā)表于 2017-2-11 22:33
樓主能給份原件清單嗎

比如PCB版是用的成品最小系統(tǒng)吧？
回復(fù)

使用道具 舉報

ID:162229 發(fā)表于 2017-2-12 13:06 | 顯示全部樓層
啾糾 發(fā)表于 2017-2-11 23:10
比如PCB版是用的成品最小系統(tǒng)吧？

51單片機最小系統(tǒng)（STC89C52）×1
ULN2003驅(qū)動模塊×1
28BYJ-348步進電機×1
4×4軟鍵盤×1
VS1838B一體化紅外接收頭×1
紅外遙控器×1
無源蜂鳴器模塊×1
電源、電源線×1
泡沫底板×1
硬紙板×若干
杜邦線×若干
回復(fù)

使用道具 舉報

ID:96326 發(fā)表于 2017-3-9 08:29 | 顯示全部樓層
不錯的文件，頂一下。
回復(fù)

使用道具 舉報

ID:192333 發(fā)表于 2017-4-22 15:30 | 顯示全部樓層
可不可以用大功率的電機啊
回復(fù)

使用道具 舉報

ID:194070 發(fā)表于 2017-4-27 08:49 來自手機 | 顯示全部樓層
怎么聯(lián)系你啊大神
回復(fù)

使用道具 舉報

ID:162229 發(fā)表于 2017-5-6 23:31 | 顯示全部樓層
wh150 發(fā)表于 2017-4-27 08:49
怎么聯(lián)系你啊大神

不不不，不敢當，小白一枚。
回復(fù)

使用道具 舉報

ID:162229 發(fā)表于 2017-5-6 23:34 | 顯示全部樓層
chenyan 發(fā)表于 2017-4-22 15:30
可不可以用大功率的電機啊

如果你要做大的系統(tǒng)的話，可以改用大功率電機，同樣驅(qū)動也要更換，我做的就是個小的模擬的東西，隨便玩玩
回復(fù)

使用道具 舉報

ID:195259 發(fā)表于 2017-6-5 19:05 | 顯示全部樓層
大神能加一下好友嗎
回復(fù)

使用道具 舉報

ID:207997 發(fā)表于 2017-6-6 09:50 | 顯示全部樓層
#include<ring.h>
/*********************************************
/*電梯到達提示音
**********************************************/
void ring()
{
        unsigned int c;
        for(c=0;c<140;c++)
        {
                bee=!bee;
                delay(130);
        }
        for(c=0;c<100;c++)
        {
                bee=!bee;
                delay(200);
        }
}
bee是什么意思
                        s=0;
                        ting();
                }
        }
        switch(KeyValue)
        {
                case(1):return 1;
                case(2):return 2;
                case(3):return 3;
                case(4):return 10;
                case(5):return 4;
                case(6):return 5;
                case(7):return 6;
                case(8):return 11;
                case(9):return 7;
                case(10):return 8;
                case(11):return 9;
                case(12):return 12;
                case(13):return 14;
                case(14):return 0;
                case(15):return 15;
                case(16):return 13;
                default:return 0;
        }
S=0;ting（）；這又是什么意思
回復(fù)

使用道具 舉報

ID:202308 發(fā)表于 2017-6-6 22:33 | 顯示全部樓層
支持樓主，感謝分享！
回復(fù)

使用道具 舉報

ID:202308 發(fā)表于 2017-6-6 22:34 | 顯示全部樓層
感謝樓主，多謝分享�。�
回復(fù)

使用道具 舉報

ID:209556 發(fā)表于 2017-6-21 17:26 | 顯示全部樓層
為什么電機會來回轉(zhuǎn) 一直抖動，求指教
回復(fù)

使用道具 舉報

ID:276794 發(fā)表于 2018-1-16 23:32 來自手機 | 顯示全部樓層
還在嗎？  請求添加q1771716122  我也想做一個求幫忙
回復(fù)

使用道具 舉報

ID:250673 發(fā)表于 2018-3-14 17:15 | 顯示全部樓層
你好，請求添加q1161329168，關(guān)于這個電梯的制作遇到了困難，請求大神幫助
回復(fù)

使用道具 舉報

ID:98926 發(fā)表于 2018-3-26 10:38 | 顯示全部樓層
做的不錯  值得學(xué)習(xí)學(xué)習(xí)
回復(fù)

使用道具 舉報

ID:329032 發(fā)表于 2018-5-19 12:30 來自手機 | 顯示全部樓層
大神，我借鑒你這個做課程設(shè)計，指導(dǎo)一下嗎，謝謝，可以的話請給我留下聯(lián)系方式，謝謝
回復(fù)

使用道具 舉報

ID:335581 發(fā)表于 2018-5-22 13:11 | 顯示全部樓層
謝謝原理圖
回復(fù)

使用道具 舉報

ID:317116 發(fā)表于 2018-5-23 11:39 | 顯示全部樓層
話說樓主這個怎么知道他是到達那一層樓了，是怎么知道的，很疑惑，你沒有有什么傳感器去檢測它��？
回復(fù)

使用道具 舉報

ID:294865 發(fā)表于 2018-5-23 16:11 | 顯示全部樓層
學(xué)習(xí)下
回復(fù)

使用道具 舉報

ID:335251 發(fā)表于 2018-5-24 13:03 來自手機 | 顯示全部樓層
那個模擬高樓，一層大概幾厘米？
回復(fù)

使用道具 舉報

ID:392019 發(fā)表于 2018-8-31 15:09 來自手機 | 顯示全部樓層
你好  樓主   
回復(fù)

使用道具 舉報

ID:392019 發(fā)表于 2018-8-31 15:11 來自手機 | 顯示全部樓層
樓主  你好   我要做一個畢業(yè)設(shè)計的模型   我要用到一個升降機 能向你請教一些問題嗎
回復(fù)

使用道具 舉報

ID:392019 發(fā)表于 2018-8-31 15:24 來自手機 | 顯示全部樓層
樓主你好    想向你請教一些問題
回復(fù)

使用道具 舉報

ID:392019 發(fā)表于 2018-9-3 08:49 來自手機 | 顯示全部樓層
樓主   你好
回復(fù)

使用道具 舉報

ID:399179 發(fā)表于 2018-10-8 19:45 來自手機 | 顯示全部樓層
感謝樓主分享�。�！
回復(fù)

使用道具 舉報

ID:392019 發(fā)表于 2018-10-16 15:53 來自手機 | 顯示全部樓層
bbxyzzj 發(fā)表于 2017-3-9 08:29
不錯的文件，頂一下。

我這里下載怎么程序有問題
回復(fù)

使用道具 舉報

ID:438033 發(fā)表于 2018-12-2 23:34 | 顯示全部樓層
樓主，怎么判斷到達第幾樓呢，用步進電機的步數(shù)去計算的嗎？
回復(fù)

使用道具 舉報

ID:467353 發(fā)表于 2019-1-13 13:47 | 顯示全部樓層
紅外測距，好厲害．正常電梯是測試編碼反饋的，中間有速度平穩(wěn)控制
回復(fù)

使用道具 舉報

ID:467353 發(fā)表于 2019-1-14 15:34 | 顯示全部樓層
用普中ＨＣ６８００�。牛印。郑玻皩嶒灠�，會不會簡單點？接口都現(xiàn)成的．
回復(fù)

使用道具 舉報

ID:273674 發(fā)表于 2019-3-15 21:26 | 顯示全部樓層
有沒有大神懂基于單片機電梯模型設(shè)計的，借鑒LZ這個做個畢設(shè)，加355052629
回復(fù)

使用道具 舉報

ID:273674 發(fā)表于 2019-4-9 11:42 | 顯示全部樓層
LZ可以加個好友嗎，我也是做的升降，您是怎么讓升一層大概3CM左右的，我QQ35505269
回復(fù)

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規(guī)則

手機版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機教程網(wǎng)

快速回復(fù) 返回頂部 返回列表