单片机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后就停止，喇叭长鸣。
麻烦指导。
谢谢！

帐号		自动登录	找回密码
密码			立即注册

	沙发无效楼层，该帖已经被删除

	6^# 无效楼层，该帖已经被删除

	7^# 无效楼层，该帖已经被删除

	11^# 无效楼层，该帖已经被删除

单片机LCD12864万年历+温度计+闹钟Proteus仿真代码

评分