單片機LCD12864萬年歷+溫度計+鬧鐘Proteus仿真代碼

ID:924706 · 發表于 2021-11-24 11:13

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

單片機源程序如下:

/****************************文件包含*************************************/
#include < reg52.h >
#include < character.h >
#include < lcd.h >
#include < clock.h >
#include < sensor.h>
#include < calendar.h >
#include < key.h >
/*****************************預定義**************************************/
#define uchar unsigned char
#define uint unsigned int
/****************************************************************************/
sbit bell = P2 ^ 0; //定義蜂鳴器端口
/*****************************************************************************
* 名稱: Timer0_Service() inturrupt 1
* 功能: 中斷服務程序整點報時 3聲嘟嘟的聲音
* 入口參數:
* 出口參數:
*****************************************************************************/
void Timer0_Service() interrupt 1
{
static uchar count = 0;
static uchar flag = 0; //記錄鳴叫的次數
count = 0;
TR0 = 0; //關閉Timer0
TH0 = 0x3c;
TL0 = 0XB0; //延時 50 ms
TR0 = 1 ; //啟動Timer0
count ++;
if( count == 20 ) //鳴叫 1 秒
{
bell = ~ bell;
count = 0;
flag ++;
}
if( flag == 6 )
{
flag = 0;
TR0 = 0; //關閉Timer0
}
}
/*****************************************************************************
* 名稱: Timer2_Servie() interrupt 5
* 功能: 中斷服務程序整點報時一分鐘
* 入口參數:
* 出口參數:
*****************************************************************************/
uchar HexNum_Convert(uchar HexNum)/*時間存儲個位和十位的方式與我們用的十進制不一樣，你懂的，呵呵--BB車*/
{
uchar Numtemp;
Numtemp=(HexNum>>4)*10+(HexNum&0X0F);
return Numtemp;
}
/******************************************************************************
* 函數名稱：main()
* 功能：
* 入口參數：
* 出口參數：
********************************************************************************/
void main( void )
{
uchar clock_time[6] = {0X00,0X59,0X23,0X09,0X04,0X11}; //定義時間變量秒分時日月年
uchar alarm_time[2] = { 10, 06}; //鬧鐘設置 alarm_time[0]: 分鐘 alarm_time[1] :小時
uchar temperature[2]; //定義溫度變量 temperature[0] 低8位 temperature[1] 高8位
Lcd_Initial(); //LCD初始化
Clock_Fresh( clock_time ); //我把時間刷新放在這里，proteus會調用當前系統時間，別問為什么，經驗，呵呵
Clock_Initial( clock_time ); //時鐘初試化
/***********************中斷初始化***************************/
EA = 1; //開總中斷
ET0 = 1; //Timer0 開中斷
ET2 = 1; //Timer2 開中斷
TMOD = 0x01 ; //Timer0 工作方式 1
RCAP2H = 0x3c;
RCAP2L = 0xb0; //Timer2 延時 50 ms
while( 1 )
{
switch( Key_Scan() )
{
case up_array:
{
Key_Idle();
}
break;
case down_array:
{
Key_Idle();
}
break;
case clear_array:
{
Key_Idle();
}
break;
case function_array:{
Key_Function( clock_time, alarm_time );
}
case null:
{
Clock_Fresh( clock_time ); //時間刷新
Lcd_Clock( clock_time ); //時間顯示
Sensor_Fresh( temperature ); //溫度更新
Lcd_Temperture( temperature ); //溫度顯示
Calendar_Convert( 0 , clock_time );
Week_Convert( 0, clock_time );
//整點報時
if( ( * clock_time == 0x59 ) && ( * ( clock_time + 1 ) == 0x59 ) )
{
bell = 0;
TR2 = 1; //啟動Timer2
}
//鬧鐘報警
if( * alarm_time == HexNum_Convert(* ( clock_time + 1 ) )) //分鐘相吻合
if( * ( alarm_time + 1 ) == HexNum_Convert(*( clock_time + 2 )) ) //小時相吻合
{
bell = 0;
TR2 = 1; //啟動Timer2
}
}
break;
}
}
}

復制代碼

所有資料51hei附件下載:

12864萬年歷+溫度計+鬧鐘.7z (109.93 KB, 下載次數: 445)

ID:414845 · 發表于 2021-12-4 15:46

ID:414845 · 發表于 2021-12-4 15:47

樓主請問重新編譯后顯示不完全是怎么回事

ID:262 · 發表于 2021-12-4 19:37

三毛囧發表于 2021-12-4 15:47
樓主請問重新編譯后顯示不完全是怎么回事

我用Keil5+Proteus7.5 重新編譯后依然是一樣的呢,沒有你上圖的問題,你是不是改動程序了?

ID:982172 · 發表于 2021-12-5 12:00

樓主，問一下這個要怎么解決

ID:262 · 發表于 2021-12-5 17:07

嘀嘀嘀嘀嘀發表于 2021-12-5 12:00
樓主，問一下這個要怎么解決

這個是你缺少頭文件,代碼不要放Proteus里面編譯,,Keil的編譯器更好

ID:977804 · 發表于 2021-12-8 14:55

樓主，這個編譯好30k，能燒錄到什么單片機的

ID:165498 · 發表于 2021-12-8 16:15

at89c51如何燒錄程序

ID:977804 · 發表于 2021-12-10 20:18

滿腹經綸發表于 2021-12-8 16:15
at89c51如何燒錄程序

這個程序1萬多字節，我的89c52都燒不下，你的51更不行，要上更大rom的芯片

ID:990917 · 發表于 2021-12-11 16:02

如果芯片不夠大，咋燒錄哈大佬們

ID:991204 · 發表于 2021-12-28 18:30

怎么燒到STC89C52RC中呢？

ID:1011411 · 發表于 2022-3-18 21:24

資料下載后怎么打開啊，用記事本和word都不行欸

ID:262 · 發表于 2022-3-18 21:43

zijian0209 發表于 2022-3-18 21:24
資料下載后怎么打開啊，用記事本和word都不行欸

記事本和word怎么能打開Proteus仿真呢? 解壓后肯定要用Proteus8.8版本才行啊

ID:529213 · 發表于 2022-3-28 21:24

請問大佬，這塊12864屏，是帶字庫還是不帶字庫的，謝謝

ID:796012 · 發表于 2022-4-7 12:11

hnxtlxx 發表于 2022-3-28 21:24
請問大佬，這塊12864屏，是帶字庫還是不帶字庫的，謝謝

不帶字庫的，要多兩個引腳接XY,帶字庫只是花屏。用STC12C5A60S2可以燒錄運行，STC89C52RC也可以燒錄但是運行不了

ID:941205 · 發表于 2022-4-7 15:52

正在研究DS1302，下來學習一下。多謝樓主。

ID:1112603 · 發表于 2024-4-29 09:32

下載用Proteus8.9能運行，但提示：在激活模式的錯誤”BUZ1“，請問下這是什么原因？

ID:259035 · 發表于 2024-9-5 16:56

謝謝分享，有沒有串行通迅的程序

ID:437129 · 發表于 2025-1-3 14:42

樓主老師好，分別測試了2024年2月28日和2025年2月28日，都是到23：59分后停止運行，喇叭長鳴。
麻煩指導。
謝謝！

ID:437129 · 發表于 2025-1-3 14:46

樓主老師好，測試了2024年2月28日和2025年2月28日，都是運行到23：59后就停止，喇叭長鳴。
麻煩指導。
謝謝！ 2025年2月28日測試錯誤.jpg

帳號		自動登錄	找回密碼
密碼			立即注冊

久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

單片機LCD12864萬年歷+溫度計+鬧鐘Proteus仿真代碼

評分