51单片机太阳追踪系统

stc89c52 PCF8591，28BYJ-48-5V步进电机，代码实测，实物验证

/*************************************************************************************
*    步进电机（双四拍方式）															 *
* 																					 *
*    										 *
*;   双四拍工作方式：                                                           	 *
*;   正转：A/B   AB   AB/  A/B/      								                 *
*    反转：A/B/  AB/  AB   A/B
*    
*    UDN2916电流控制真值表：
*	 I0    I1       输出电流
*	  L	    L		  最大
*	  H		L		  最大*2/3
*	  L		H		  最大*1/3
*     H     H         0	                                                             *
*                   	                          						*
**************************************************************************************/  


#define speed 2
 //Motor
sbit PH1 = P1^0;	  //定义管脚
sbit PH2 = P1^1;
sbit I01 = P1^2;
sbit I11 = P1^3;
sbit I02 = P1^4;
sbit I12 = P1^5;



void delay（int time）;

/***************************************
函数功能：产生脉冲控制步进机
正转：A/B   AB   AB/  A/B/ 
I0 I1 为低电平时，均以最大电流输出
**************************************/
//正转

void Go1（）
{	 //A
        PH1 = 0;  //PH1为0 则A线圈为反向电流
        I01 = 0;
	I11 = 0;
	

	PH2 = 1;   //PH2为1 则B线圈为正向电流
	I02 = 0;
	I12 = 0;

	delay（speed）;
	//0
	PH1 = 1;  //PH1为1 则A线圈为正向电流
        I01 = 0;
	I11 = 0;
	

	PH2 = 1;  //PH2为1 则B线圈为正向电流
	I02 = 0;
	I12 = 0;

	delay（speed）;
	//B
	PH1 = 1;  //PH1为1 则A线圈为正向电流
        I01 = 0;
	I11 = 0;
	

	PH2 = 0;   //PH2为0 则B线圈为反向电流
	I02 = 0;
	I12 = 0;
	
	delay（speed）;
	//0
	PH1 = 0;  //PH1为0 则A线圈为反向电流
	I01 = 0;
	I11 = 0;
	

	PH2 = 0;  //PH2为0 则B线圈为反向电流 
	I02 = 0;
	I12 = 0;
             
	delay（speed）;
	
	
}



//反转

void Go2（）
{
        
        //B
	PH1 = 1;  //PH1为1 则A线圈为正向电流
        I01 = 0;
	I11 = 0;
	

	PH2 = 0;   //PH2为0 则B线圈为反向电流
	I02 = 0;
	I12 = 0;
	
	delay（speed）;

        //0
	PH1 = 1;  //PH1为1 则A线圈为正向电流
        I01 = 0;
	I11 = 0;
	

	PH2 = 1;  //PH2为1 则B线圈为正向电流
	I02 = 0;
	I12 = 0;

	delay（speed）;

        //A
        PH1 = 0;  //PH1为0 则A线圈为反向电流
        I01 = 0;
	I11 = 0;
	

	PH2 = 1;   //PH2为1 则B线圈为正向电流
	I02 = 0;
	I12 = 0;

	delay（speed）;
        

        //0
	PH1 = 0;  //PH1为0 则A线圈为反向电流
	I01 = 0;
	I11 = 0;
	

	PH2 = 0;  //PH2为0 则B线圈为反向电流 
	I02 = 0;
	I12 = 0;
             
	delay（speed）;

        
	
	
	
	
	
	
}
/*******************延时函数****************************/
void delay（int time）
{ 
  int ij;
  
  for（j=0; j <= time; j++）
   for（i =0 ; i <= 120; i++）;
}

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件      17529  2014-06-02 00:01  太阳追踪系统\C语言程序.docx

     文件     141703  2014-05-27 13:09  太阳追踪系统\介绍\1323312033.jpg

     文件      77688  2014-05-27 13:11  太阳追踪系统\介绍\20093261012373499.jpg

     文件     207870  2014-05-27 15:21  太阳追踪系统\介绍\460642_145321186151_2.jpg

     文件     132438  2014-05-27 15:20  太阳追踪系统\介绍\Img319465053.jpg

     文件     116888  2014-05-27 15:21  太阳追踪系统\介绍\OOOPIC_shawlei_200911188292a51f12a8becb.jpg

     文件      75448  2014-05-27 13:10  太阳追踪系统\介绍\proxy.jpg

     文件      25275  2014-05-27 13:11  太阳追踪系统\介绍\Step_motor1_3.gif

     文件    2933760  2014-05-31 13:59  太阳追踪系统\介绍\基于51的太阳追踪系统.ppt

     文件       2702  2014-05-20 16:13  太阳追踪系统\工程文件\BJ.c

     文件       6893  2014-05-19 21:07  太阳追踪系统\工程文件\BJ.LST

     文件       3554  2014-05-19 21:07  太阳追踪系统\工程文件\BJ.OBJ

     文件       3429  2014-05-24 13:13  太阳追踪系统\工程文件\i2c.c

     文件        417  2013-09-02 10:08  太阳追踪系统\工程文件\i2c.H

     文件       6854  2014-06-03 00:22  太阳追踪系统\工程文件\i2c.LST

     文件       4493  2014-06-03 00:22  太阳追踪系统\工程文件\i2c.OBJ

     文件       6498  2014-06-03 00:21  太阳追踪系统\工程文件\main.c

     文件      16975  2014-06-03 00:22  太阳追踪系统\工程文件\main.LST

     文件      15115  2014-06-03 00:22  太阳追踪系统\工程文件\main.OBJ

     文件       6376  2009-05-07 14:37  太阳追踪系统\工程文件\STARTUP.A51

     文件      14048  2014-06-03 00:22  太阳追踪系统\工程文件\STARTUP.LST

     文件        749  2014-06-03 00:22  太阳追踪系统\工程文件\STARTUP.OBJ

     文件      17743  2014-06-03 00:22  太阳追踪系统\工程文件\taiyang

     文件       4786  2014-06-03 00:22  太阳追踪系统\工程文件\taiyang.hex

     文件         71  2014-06-03 00:22  太阳追踪系统\工程文件\taiyang.lnp

     文件      23759  2014-06-03 00:22  太阳追踪系统\工程文件\taiyang.M51

     文件       4939  2014-06-03 00:22  太阳追踪系统\工程文件\taiyang.plg

    .......     56257  2014-06-03 00:22  太阳追踪系统\工程文件\taiyang.uvopt

     文件      13571  2014-05-19 22:08  太阳追踪系统\工程文件\taiyang.uvproj

    .......     56251  2014-05-28 23:44  太阳追踪系统\工程文件\taiyang_uvopt.bak

............此处省略8个文件信息