51单片机追光程序Proteus仿真原理图（太阳能充电）

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



部分源码：完整源码请下载本文尾部的附件。

1. /********************************************************************
   
2. * 名称   : PSend_Hex()
   
3. * 功能   : 发送字符串函数,可控制发送长度
   
4. * 变量   : 无
   
5. * 返回值 : 无
   
6. ********************************************************************/
   
7. void Send_Hex(unsigned char *p,unsigned char num)
   
8. {
   
9.        while(num--)   //剩余发送的字符数
   
10.     {
    
11.         SBUF = *p; //将要发送的数据赋给串口缓冲寄存器
    
12.             while(!TI);//等待发送结束
    
13.             TI = 0;    //软件清零
    
14.             p++;       //指针加一
    
15.     }   
    
16. }
    
17. void main()       //函数功能：主函数
    
18. {      
    
19. 
    
20.     uchar AD_Up,AD_Down,AD_Left,AD_Right;
    
21.     uchar i,j,k;
    
22.     uchar Table[4];
    
23.     Delay_ms(2000);
    
24.     UART_Init();   
    
25.     while(1)
    
26.     {
    
27.         if(!ENTER)
    
28.         {
    
29.             Delay_ms(20);
    
30.             while(!ENTER);
    
31.             k++;   
    
32.         }
    
33.         if(k == 5)
    
34.         {
    
35.         LED1 = 1;
    
36.         LED2 = 0;
    
37.         for(i=0;i<8;i++)
    
38.         {
    
39.             switch(AD_CHANNEL)
    
40.             {
    
41.                 case 0: PCF8591_ISendByte(PCF8591,0x41);
    
42.                 AD_Up=PCF8591_IRcvByte(PCF8591)*2;  //ADC0 模数转换1
    
43.                 break;  
    
44.                
    
45.                 case 1: PCF8591_ISendByte(PCF8591,0x42);
    
46.                 AD_Down=PCF8591_IRcvByte(PCF8591)*2;  //ADC1  模数转换2
    
47.                 break;  
    
48.                 case 2: PCF8591_ISendByte(PCF8591,0x43);
    
49.                 AD_Left=PCF8591_IRcvByte(PCF8591)*2;  //ADC2 模数转换3
    
50.                 break;  
    
51.                
    
52.                 case 3: PCF8591_ISendByte(PCF8591,0x40);
    
53.                 AD_Right=PCF8591_IRcvByte(PCF8591)*2;  //ADC3  模数转换4
    
54.                 break;
    
55.             }
    
56. 
    
57.             Send_Hex(Table,4);
    
58.             if(++AD_CHANNEL>3)
    
59.             {
    
60.              AD_CHANNEL=0;
    
61.              Table[0] = AD_Up;
    
62.             Table[1] = AD_Down;
    
63.             Table[2] = AD_Left;
    
64.             Table[3] = AD_Right;
    
65.              }
    
66.         }
    
67.         }
    
68.         if(k%2 == 1)
    
69.         {
    
70.             LED1 = 0;
    
71.             LED2 = 1;
    
72.             AD_Up = 0;    //上
    
73.             AD_Down = 0;//下
    
74.             AD_Left = 0;//左
    
75.             AD_Right = 0;//右   
    
76.         }        
    
77.         ///////////////////////////
    
78.       
    
79.         if(((AD_Up<AD_Down)&&(AD_Down-AD_Up>10))||(!UP))//上转
    
80.         {
    
81.             for(i=0;i<10;i++)
    
82.             {
    
83.                 for(j=0;j<4;j++)
    
84.                 {
    
85.                     P2=Motor_Up[j];
    
86.                     Delay_ms(10);
    
87.                 }        
    
88.             }   
    
89.         }
    
90.         //////////////////////////////////////
    
91.         if(((AD_Up>AD_Down)&&(AD_Up-AD_Down>10))||(!DOWN))//下转
    
92.         {
    
93.             for(i=0;i<10;i++)
    
94.             {
    
95.                 for(j=0;j<4;j++)
    
96.                 {
    
97.                     P2=Motor_Down[j];
    
98.                     Delay_ms(10);
    
99.                 }        
    
100.             }
     
101.         }

复制代码

完整51单片机c源代码和Protues 仿真文件.zip (364.97 KB, 售价: 5 E币)

2021-6-20 02:43 上传

点击文件名下载附件

【必读】版权免责声明

1、本主题所有言论和内容纯属会员个人意见，与本论坛立场无关。2、本站对所发内容真实性、客观性、可用性不做任何保证也不负任何责任，网友之间仅出于学习目的进行交流。3、对提供的数字内容不拥有任何权利，其版权归原著者拥有。请勿将该数字内容进行商业交易、转载等行为，该内容只为学习所提供，使用后发生的一切问题与本站无关。 4、本网站不保证本站提供的下载资源的准确性、安全性和完整性;同时本网站也不承担用户因使用这些下载资源对自己和他人造成任何形式的损失或伤害。 5、本网站所有软件和资料均为网友推荐收集整理而来，仅供学习用途使用，请务必下载后两小时内删除，禁止商用。6、如有侵犯你版权的，请及时联系我们（电子邮箱1370723259@qq.com）指出，本站将立即改正。