单片机控制晾衣架步进电机正反转 proteus仿真及源码

Demyar

单片机控制晾衣架步进电机正反转 proteus仿真及源码

- N. |+ d) C# S
6 P8 u! s( N$ t7 l0 i6 i8 P单片机控制步进电机正反转
% C, d& `# C0 [; X% l" t# Q' H设计原理：采用51单片机最小系统，通过达林顿管（ULN2003）来控制一个5线4相异步电机的正转和反转
从而达到晾衣架升降的目的
本系统还有衣服的重量自动检测的功能，采用模数转换器ADC0832，对重量传感器进行重量采集
将采集到的信号转换为数字信号送至单片机处理，并最终显示在LCD1602液晶显示器上
2 e! Q( L" W8 L系统会自动的根据衣物的重量控制晾衣架的起落





单片机源程序：
#include "reg52.h"                         //此文件中定义了单片机的一些特殊功能寄存器
6 j. H/ |1 G: L, _#include "adc0832.h"
' Z0 }; `# b; z$ B& q: h4 Q#include "lcd1602.h"
#include "delay.h"
#include<intrins.h>        
#include <string.h>
- H2 j' K* ^& c: [#define uchar unsigned char
1 n. {- [# b  |5 }, ~: M#define uint unsigned int
- I) ~& N4 j& i4 g7 Nuchar flag=0;
: y5 u; l  ~$ L! W! `+ ]0 _
3 v/ M3 a/ g4 u
0 p1 ^; G. H9 ]# J6 @+ A
1 C/ C- j$ K/ U9 z5 I! E
unsigned char code F_Rotation[8]={0x08,0x18,0x10,0x30,0x20,0x60,0x40,0x48};    //顺时针转表格
  o; G- D. z- [* W  n, X+ Yunsigned char code B_Rotation[8]={0x48,0x40,0x60,0x20,0x30,0x10,0x18,0x08};    //逆时针转表格
/******************************************/
/*              延时子程序                */
/******************************************/
void Delay1ms(unsigned int count)
{
        unsigned int i,j;
  k+ u; I8 f% h+ A        for(i=0;i<count;i++)
        for(j=0;j<120;j++);
}

8 [5 f! h- N: U7 \8 D. E# ^
: a7 y: d5 e6 x2 W: W% m* k$ i) X1 I

//步进电机正转函数
void SETP_MOTOR_FFW(uchar n)
{
         uchar i,j;
        for(i=0;i<5*n;i++)
        {
+ b3 h/ s9 Q$ j" r! m                 for(j=0;j<8;j++)
                {
        
" a. }- G' X, T! W' t3 l( I1 g                        P3 = F_Rotation[j];
8 V. ^- ~; b# W& c& j7 x# |                        Delay1ms(25);
6 P; j0 K7 b  H' s" `9 Y                        
                }
! |2 k5 z2 o+ m! a% X& i$ L! X        }
}
, u: `  D8 k/ Q' Z( @


' k) b3 r  [7 F6 v
//步进电机反转函数
# C1 _6 I- T+ h. u' I* ?

# e/ F' t' D* r1 O  c# o( \void SETP_MOTOR_REV(uchar n)
* D( M( B3 T1 w5 W) z{
$ O: _( ?; }) _8 w: j) r         uchar i,j;
        for(i=0;i<5*n;i++)
3 X/ W* d7 _9 k6 [/ V2 R        {
7 C6 `( O0 ?3 j, Q' l9 h- j                 for(j=0;j<8;j++)
2 \5 j0 A$ z& _2 H7 v3 @+ _                {
) V! C1 U, U9 O( L9 F8 N  Q                 
8 @3 k5 g- C) W                        P3 = B_Rotation[j];
                        Delay1ms(25);
2 d6 M& W/ k. v  s4 W+ g6 T                }
5 X- X2 T5 K8 G        }
* J9 r8 z% i) X8 D- A        
# E; X0 C" ~8 e' e- G6 h% b}
& C. E) u) w+ Z+ \



- H+ A" }) L3 O* [4 _6 d# L) _& Lvoid adc0832_cl(uchar q)
2 Z# [: C3 G* c: N5 f& [' v/ n{
q=q*100/255;                //对采集到的AD值进行0-100的量化
LCD_Write_String(4,0,"Weight");
write_com(0xC0+5);
write_dat(q/100+0x30);                        //百位
write_dat(q%100/10+0x30);            //十位
write_dat(q%10+0x30);            //个位
+ B! {, {0 w" I  
: X% F& I; k5 D/ j if( q>70 && flag==1)


* V5 L, ~( w4 b9 i3 x {SETP_MOTOR_REV(2); flag=0; }

7 D8 H8 }( a6 C6 V) U9 ^& u
3 B$ v* G- h: c- }# F% H if(q<30 && flag==0)
{SETP_MOTOR_FFW(2);  flag=1; }
5 E2 n2 R( v4 p, B  
0 F% ^5 ^4 E( Q$ w* t2 J; C. U  
4 ^4 z, E. [; V% T! V  
}
3 e0 O9 |! {& v' R: ]& }+ z& P' i

4 ], _/ i% @( ^5 R. y; g

- U. }' Z0 m/ \+ g, ^' U7 j

& {0 q0 e' y8 S5 r! `; w
% E1 U. O7 F+ h" k1 U) n
0 S. k* P% S5 E# }! w

+ |* B. O; m" n



void main()
4 q' [3 I; u! _/ d0 }: s{
) a( W# e, t# C' c* }( T4 R2 P! f/ G0 Elcd1602_init();        //液晶初始化
# `9 H9 t" w+ @" V/ \+ _% Twhile(1)
{


. D7 N5 }# r0 Q, V% G…………限于本文篇幅 余下代码请从论坛下载附件…………

游客，如果您要查看本帖隐藏内容请回复

wu68aq

分享是美德，感谢l楼主

relchhiclty

学习一下

abcde1234

不错，谢谢分享

黑暗帝国

可以分享程序吗

xingzhehuang

STM32和嵌入式开发，恒向科技，QQ:2046643630。

羽翼栗子球

11111111111111111111111111111

小白1

66666666666666666666666

soyabean

666

gg0760

分享是美德，感谢l楼主