欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

標題: ATmega16讀取RTC和ADC顯示在LCD1602，同時串口輸出，并寫入EEPROM Proteus仿真程序 [打印本頁]
作者: hotpet    時間: 2020-4-30 02:42
標題: 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;

  3. var seconds, minutes, hours, day, month, year : byte;    // Global date/time variables
  4. var adc_rd : word;

  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

  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;

  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



  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

  47.     Soft_I2C_Stop();                // Issue stop signal
  48.   end;

  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;

  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;

  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);

  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);

  109.     //Lcd_Init();                // Initialize LCD
  110.     //Lcd_Cmd(_LCD_CLEAR);       // Clear LCD display
  111.     //Lcd_Cmd(_LCD_CURSOR_OFF);  // Turn cursor off

  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;

  124. //----------------- Main procedure
  125.   begin

  127.    Init_Main();                // Perform initialization

  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

  138.         delay_ms(1000);
  139.       end;
  140.   end.
復制代碼

所有資料51hei提供下載:
MikroPascalAVR.zip (28.8 KB, 下載次數: 50)


作者: zhangshuqiang    時間: 2020-6-26 21:13
這個源碼的工程文件要如何打開啊？



歡迎光臨 (http://www.raoushi.com/bbs/) Powered by Discuz! X3.1