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 上傳

點擊文件名下載附件
售價: 5 E幣  [記錄]  [購買]

【必讀】版權免責聲明

1、本主題所有言論和內容純屬會員個人意見，與本論壇立場無關。2、本站對所發內容真實性、客觀性、可用性不做任何保證也不負任何責任，網友之間僅出于學習目的進行交流。3、對提供的數字內容不擁有任何權利，其版權歸原著者擁有。請勿將該數字內容進行商業交易、轉載等行為，該內容只為學習所提供，使用后發生的一切問題與本站無關。 4、本網站不保證本站提供的下載資源的準確性、安全性和完整性;同時本網站也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的損失或傷害。 5、本網站所有軟件和資料均為網友推薦收集整理而來，僅供學習用途使用，請務必下載后兩小時內刪除，禁止商用。6、如有侵犯你版權的，請及時聯系我們（電子郵箱1370723259@qq.com）指出，本站將立即改正。