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

ID:162229 · 發表于 2017-2-3 19:43

寒假在家閑著無事，想著做點東西，但是畢竟是新手，做不了太厲害的東西，就弄了個這小玩意，純屬個人娛樂之作，與各位分享。

配上幾張圖片

，全部程序，又做了個小視頻來演示。

主程序預覽：

/**************************************************
/*項目名稱：基于51單片機的自動升降電梯簡易模型
/*主控芯片：STC89C52
/*使用模塊：28BYJ_48步進電機、ULN2003驅動模塊、無源蜂鳴器、紅外發射器、紅外接收頭、4×4軟鍵盤
/*平臺搭建：廢舊泡沫塊、硬紙殼
/*主要功能：裝置供電后，通過按下紅外遙控器或者軟鍵盤選擇樓層所對應的數字，選擇升降方式（只上升、只下降、先升再降）
/* 然后升降電梯（泡沫模擬）停在對應樓層，蜂鳴器發出“叮咚”的聲響。共計16層。
/*引腳說明：步進電機接P1低四位，蜂鳴器IO口接P3^7，紅外接收頭接P3^2，軟鍵盤接P2口；
/*時間：2017年2月3日17時22分
/**************************************************/
/*********************************************
/*包含必要的頭文件
**********************************************/
#include<ring.h>
#include<key.h>
#include<run.h>
#include<red.h>
/*********************************************
/*定義紅外接收必要數據
**********************************************/
unsigned char IrValue[6];
unsigned char Time;
/*********************************************
/*定義變量
**********************************************/
unsigned char s,p;
unsigned int m,a;
/*********************************************
/*主函數
**********************************************/
void main()
{
unsigned int n,w=30000;
unsigned char b;
IrInit();
while(1)
{
if(p==2)
{
delay(50000);
Z_run(n+15);
p=0;
}
if(p==4)
{
delay(50000);
Z_run(n+15);
p=3;
}
while((p!=3)&&(w>0)) w--;
if(p==3)
{
delay(50000);
D_run(n);
p=0;
}
n=0;
s=1;
while(s)
{
a=KeyDown();
}
if(a!=0)
{
if(a==14)
{
a=0;
p=2;
}
else if(a==15)
{
a=0;
p=3;
}
else
{
b=a;
p=0;
}
n=b*883;
}
else
{
n=m*883;
}
}
}
/*********************************************
/*紅外接收，數據處理函數，使用外部中斷0
**********************************************/
void ReadIr() interrupt 0
{
unsigned char j,k;
unsigned int err;
Time=0;
delay(700);
if(IRIN==0)
{
err=1000;
while((IRIN==0)&&(err>0))
{
delay(1);
err--;
}
if(IRIN==1)
{
err=500;
while((IRIN==1)&&(err>0))
{
delay(1);
err--;
}
for(k=0;k<4;k++)
{
for(j=0;j<8;j++)
{
err=60;
while((IRIN==0)&&(err>0))
{
delay(1);
err--;
}
err=500;
while((IRIN==1)&&(err>0))
{
delay(10);
Time++;
err--;
if(Time>30)
{
return;
}
}
IrValue[k]>>=1;
if(Time>=8)
{
IrValue[k]|=0x80;
}
Time=0;
}
}
}
if(IrValue[2]!=~IrValue[3])
{
return;
}
s=0;
ding();
switch(IrValue[2])
{
case 0x16:
m=0;
break;
case 0x0c:
m=1;
break;
case 0x18:
m=2;
break;
case 0x5e:
m=3;
break;
case 0x08:
m=4;
break;
case 0x1c:
m=5;
break;
case 0x5a:
m=6;
break;
case 0x42:
m=7;
break;
case 0x52:
m=8;
break;
case 0x4a:
m=9;
break;
case 0x40:
p=2;
break;
case 0x43:
p=3;
break;
case 0x19:
p=4;
break;
case 0x45:
m=10;
break;
case 0x46:
m=11;
break;
case 0x47:
m=12;
break;
case 0x44:
m=13;
break;
case 0x07:
m=14;
break;
case 0x15:
m=15;
break;
case 0x09:
m=16;
break;
}
}
}

復制代碼

詳細信息請參照程序（壓縮包中含全部源碼）：

基于51的自動升降電梯程序.zip (45.6 KB, 下載次數: 219)

ID:163575 · 發表于 2017-2-6 16:49

有沒有仿真電路圖哇大神

ID:162229 · 發表于 2017-2-7 13:32

16546 發表于 2017-2-6 16:49
有沒有仿真電路圖哇大神

我不太習慣用protues畫圖，就手畫了一個，其實結構很簡單，畫出來之后竟然就這么一點點

ID:162229 · 發表于 2017-2-7 18:44

ID:162229 · 發表于 2017-2-7 18:44

ID:162229 · 發表于 2017-2-7 18:47

抱歉，剛剛電腦出毛病了，圖片發不上去

ID:99341 · 發表于 2017-2-7 22:49

樓主給一個詳細的電路圖吧！

ID:162229 · 發表于 2017-2-8 09:18

YBZYBZ 發表于 2017-2-7 22:49
樓主給一個詳細的電路圖吧！

剛剛畫了一個，不太會用這個protues，電路基本上就是這樣了。

ID:164282 · 發表于 2017-2-11 22:33

樓主能給份原件清單嗎

ID:164282 · 發表于 2017-2-11 23:10

啾糾發表于 2017-2-11 22:33
樓主能給份原件清單嗎

比如PCB版是用的成品最小系統吧？

ID:162229 · 發表于 2017-2-12 13:06

啾糾發表于 2017-2-11 23:10
比如PCB版是用的成品最小系統吧？

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

ID:96326 · 發表于 2017-3-9 08:29

不錯的文件，頂一下。

ID:192333 · 發表于 2017-4-22 15:30

可不可以用大功率的電機啊

ID:194070 · 發表于 2017-4-27 08:49

怎么聯系你啊大神

ID:162229 · 發表于 2017-5-6 23:31

wh150 發表于 2017-4-27 08:49
怎么聯系你啊大神

不不不，不敢當，小白一枚。

ID:162229 · 發表于 2017-5-6 23:34

chenyan 發表于 2017-4-22 15:30
可不可以用大功率的電機啊

如果你要做大的系統的話，可以改用大功率電機，同樣驅動也要更換，我做的就是個小的模擬的東西，隨便玩玩

ID:195259 · 發表于 2017-6-5 19:05

大神能加一下好友嗎

ID:207997 · 發表于 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（）；這又是什么意思

ID:202308 · 發表于 2017-6-6 22:33

支持樓主，感謝分享！

ID:202308 · 發表于 2017-6-6 22:34

感謝樓主，多謝分享！！

ID:209556 · 發表于 2017-6-21 17:26

為什么電機會來回轉一直抖動，求指教

ID:276794 · 發表于 2018-1-16 23:32

還在嗎？請求添加q1771716122 我也想做一個求幫忙

ID:250673 · 發表于 2018-3-14 17:15

你好，請求添加q1161329168，關于這個電梯的制作遇到了困難，請求大神幫助

ID:98926 · 發表于 2018-3-26 10:38

做的不錯值得學習學習

ID:329032 · 發表于 2018-5-19 12:30

大神，我借鑒你這個做課程設計，指導一下嗎，謝謝，可以的話請給我留下聯系方式，謝謝

ID:335581 · 發表于 2018-5-22 13:11

謝謝原理圖

ID:317116 · 發表于 2018-5-23 11:39

話說樓主這個怎么知道他是到達那一層樓了，是怎么知道的，很疑惑，你沒有有什么傳感器去檢測它啊？

ID:294865 · 發表于 2018-5-23 16:11

學習下

ID:335251 · 發表于 2018-5-24 13:03

那個模擬高樓，一層大概幾厘米？

ID:392019 · 發表于 2018-8-31 15:09

你好樓主

ID:392019 · 發表于 2018-8-31 15:11

樓主你好我要做一個畢業設計的模型我要用到一個升降機能向你請教一些問題嗎

ID:392019 · 發表于 2018-8-31 15:24

樓主你好想向你請教一些問題

ID:392019 · 發表于 2018-9-3 08:49

樓主你好

ID:399179 · 發表于 2018-10-8 19:45

感謝樓主分享！！！

ID:392019 · 發表于 2018-10-16 15:53

bbxyzzj 發表于 2017-3-9 08:29
不錯的文件，頂一下。

我這里下載怎么程序有問題

ID:438033 · 發表于 2018-12-2 23:34

樓主，怎么判斷到達第幾樓呢，用步進電機的步數去計算的嗎？

ID:467353 · 發表于 2019-1-13 13:47

紅外測距，好厲害．正常電梯是測試編碼反饋的，中間有速度平穩控制

ID:467353 · 發表于 2019-1-14 15:34

用普中ＨＣ６８００　ＥＳ　Ｖ２．０實驗板，會不會簡單點？接口都現成的．

ID:273674 · 發表于 2019-3-15 21:26

有沒有大神懂基于單片機電梯模型設計的，借鑒LZ這個做個畢設，加355052629

ID:273674 · 發表于 2019-4-9 11:42

LZ可以加個好友嗎，我也是做的升降，您是怎么讓升一層大概3CM左右的，我QQ35505269

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

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

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

評分

相關帖子

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

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

評分

相關帖子

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