ATmega16读取RTC和ADC显示在LCD1602，同时串口输出，并写入EEPROM Proteus仿真程序

介绍mikroPascal for AVR 写的ATmega16读取RTC和ADC显示在LCD1602，同时串口输出，并写入EEPROM的程序。附带仿真文件。mikro编译器分为c，basic，pascal三种，除了语法有所区别外，使用和功能基本一样。有8051，AVR，PIC，ARM等版本，界面和语法都一样。学会一种芯片花很少时间就可以转到另一种芯片。自带常用库，帮助文件中例子很多，基本不需要其他文档就可以开始学习了。
仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）


单片机源程序如下:

1. program RTC_Read;
   
2. 
   
3. var seconds, minutes, hours, day, month, year : byte;    // Global date/time variables
   
4. var adc_rd : word;
   
5. 
   
6. // Software I2C connections
   
7.    var Soft_I2C_Scl_Output    : sbit at PORTC0_bit;
   
8.        Soft_I2C_Sda_Output    : sbit at PORTC1_bit;
   
9.        Soft_I2C_Scl_Input     : sbit at PINC0_bit;
   
10.        Soft_I2C_Sda_Input     : sbit at PINC1_bit;
    
11.        Soft_I2C_Scl_Direction : sbit at DDC0_bit;
    
12.        Soft_I2C_Sda_Direction : sbit at DDC1_bit;
    
13. // End Software I2C connections
    
14. 
    
15. // LCD pinout definition
    
16. var LCD_RS : sbit at PORTD2_bit;
    
17. var LCD_EN : sbit at PORTD3_bit;
    
18.     LCD_D4 : sbit at PORTD4_bit;
    
19.     LCD_D5 : sbit at PORTD5_bit;
    
20.     LCD_D6 : sbit at PORTD6_bit;
    
21.     LCD_D7 : sbit at PORTD7_bit;
    
22. 
    
23. var LCD_RS_Direction : sbit at DDD2_bit;
    
24.     LCD_EN_Direction : sbit at DDD3_bit;
    
25.     LCD_D4_Direction : sbit at DDD4_bit;
    
26.     LCD_D5_Direction : sbit at DDD5_bit;
    
27.     LCD_D6_Direction : sbit at DDD6_bit;
    
28.     LCD_D7_Direction : sbit at DDD7_bit;
    
29. // end LCD pinout definitions
    
30. 
    
31. 
    
32. 
    
33. //--------------------- Reads time and date information from RTC (PCF8583)
    
34. procedure Read_Time();
    
35.   begin
    
36.     Soft_I2C_Start();               // Issue start signal
    
37.     Soft_I2C_Write(0xA0);           // Address PCF8583, see PCF8583 datasheet
    
38.     Soft_I2C_Write(2);              // Start from address 2
    
39.     Soft_I2C_Start();               // Issue repeated start signal
    
40.     Soft_I2C_Write(0xA1);           // Address PCF8583 for reading R/W=1
    
41.     seconds := Soft_I2C_Read(1);    // Read seconds byte
    
42.     minutes := Soft_I2C_Read(1);    // Read minutes byte
    
43.     hours := Soft_I2C_Read(1);      // Read hours byte
    
44.     day := Soft_I2C_Read(1);        // Read year/day byte
    
45.     month := Soft_I2C_Read(0);      // Read weekday/month byte
    
46. 
    
47.     Soft_I2C_Stop();                // Issue stop signal
    
48.   end;
    
49. 
    
50. //-------------------- Formats date and time
    
51. procedure Transform_Time() ;
    
52.   begin
    
53.     seconds  :=  ((seconds and 0xF0) shr 4)*10 + (seconds and 0x0F);  // Transform seconds
    
54.     minutes  :=  ((minutes and 0xF0) shr 4)*10 + (minutes and 0x0F);  // Transform months
    
55.     hours    :=  ((hours and 0xF0)  shr 4)*10  + (hours and 0x0F);    // Transform hours
    
56.     year     :=   (day and 0xC0) shr 6;                               // Transform year
    
57.     day      :=  ((day and 0x30) shr 4)*10    + (day and 0x0F);       // Transform day
    
58.     month    :=  ((month and 0x10)  shr 4)*10 + (month and 0x0F);     // Transform month
    
59.   end;
    
60. 
    
61. //-------------------- Output values to LCD
    
62. procedure Display_Time();
    
63.   begin
    
64.      Lcd_Chr(1, 9, (day / 10)   + 48);    // Print tens digit of day variable
    
65.      Lcd_Chr(1, 10, (day mod 10)   + 48);  // Print oness digit of day variable
    
66.      Lcd_Chr(1, 6, (month / 10) + 48);
    
67.      Lcd_Chr(1,7, (month mod 10) + 48);
    
68.      //Lcd_Chr(1,15, (year mod 10)  + 48);    // Print year vaiable
    
69.      
    
70.      UART1_Write_Text('Time: ');
    
71.      Lcd_Chr(2, 6, (hours / 10)   + 48);
    
72.      Lcd_Chr(2, 7, (hours mod 10)   + 48);
    
73.      UART1_Write(hours/10+48); UART1_Write(hours mod 10 + 48); UART1_Write(':');
    
74.      Lcd_Chr(2, 9, (minutes / 10) + 48);
    
75.      Lcd_Chr(2,10, (minutes mod 10) + 48);
    
76.      UART1_Write(minutes/10+48); UART1_Write(minutes mod 10 + 48); UART1_Write(':');
    
77.      Lcd_Chr(2,12, (seconds / 10) + 48);
    
78.      Lcd_Chr(2,13, (seconds mod 10) + 48);
    
79.      UART1_Write(seconds/10+48); UART1_Write(seconds mod 10 + 48); UART1_Write(' ');
    
80.      //UART1_Write(13);UART1_Write(10);
    
81.      
    
82.      Lcd_Chr(1,13,(adc_rd/1000) + 48);
    
83.      Lcd_Chr(1,14,((adc_rd mod 1000)/100) + 48);
    
84.      Lcd_Chr(1,15,(adc_rd mod 100)/10 + 48);
    
85.      Lcd_Chr(1,16,(adc_rd mod 10) + 48);
    
86.      UART1_Write_Text('Volt: ');
    
87.      UART1_Write((adc_rd/1000) + 48);
    
88.      UART1_Write((adc_rd mod 1000)/100 + 48);
    
89.      UART1_Write((adc_rd mod 100)/10 + 48);
    
90.      UART1_Write((adc_rd mod 10) + 48);
    
91.      UART1_Write(13);UART1_Write(10);
    
92.   end;
    
93. 
    
94. //------------------ Performs project-wide init
    
95. procedure Init_Main();
    
96.   begin
    
97.     UART1_Init(2400);                         // Initialize UART module at 9600 bps
    
98.     Delay_ms(100);                            // Wait for UART module to stabilize
    
99.     UART1_Write_Text('Start');
    
100.     UART1_Write(13);UART1_Write(10);
     
101. 
     
102.     Lcd_Init();                              // Initialize LCD
     
103.     Lcd_Cmd(_LCD_CLEAR);                     // Clear display
     
104.     Lcd_Cmd(_LCD_CURSOR_OFF);                // Cursor off
     
105.     //Lcd_Out(1, 1, 'Key  :');                 // Write message text on LCD
     
106.     //Lcd_Out(2, 1, 'Times:');
     
107.     //delay_ms(1000);
     
108. 
     
109.     //Lcd_Init();                // Initialize LCD
     
110.     //Lcd_Cmd(_LCD_CLEAR);       // Clear LCD display
     
111.     //Lcd_Cmd(_LCD_CURSOR_OFF);  // Turn cursor off
     
112. 
     
113.     LCD_Out(1,1,'Date:');      // Prepare and output static text on LCD
     
114.     LCD_Chr(1,8,'-');
     
115.     //LCD_Chr(1,11,'-');
     
116.     LCD_Out(2,1,'Time:');
     
117.     LCD_Chr(2,8,':');
     
118.     LCD_Chr(2,11,':');
     
119.     LCD_Out(1,12,'V');
     
120.    
     
121.     Soft_I2C_Init();           // Initialize Soft I2C communication
     
122.   end;
     
123. 
     
124. //----------------- Main procedure
     
125.   begin
     
126. 
     
127.    Init_Main();                // Perform initialization
     
128. 
     
129.     while TRUE do              // Endless loop
     
130.       begin
     
131.         Read_Time();           // Read time from RTC(PCF8583)
     
132.         Transform_Time();      // Format date and time
     
133.         adc_rd := ADC_Read(0);  // get ADC value from 2nd channel
     
134.         Display_Time();        // Prepare and display on LCD
     
135.         if (seconds = 0) then
     
136.             EEPROM_Write(minutes,adc_rd/4);   // Write some data at address
     
137. 
     
138.         delay_ms(1000);
     
139.       end;
     
140.   end.
     

复制代码

所有资料51hei提供下载:
MikroPascalAVR.zip (28.8 KB, 下载次数: 50)

2020-4-30 02:42 上传

点击文件名下载附件
下载积分: 黑币 -5

这个源码的工程文件要如何打开啊？