草庐IT

34、基于STM32的电子时钟设计(DS1302)时钟、秒表、倒计时(Proteus仿真+程序)

单片机技能设计 2023-04-11 原文

编号:34

基于STM32的电子时钟设计(DS1302)时钟、秒表、倒计时

功能描述:

      本系统由STM32F103系统+LCD1602液晶显示+按键模块+DS1302时钟模块+声光报警模块组成。
1、使用LCD1602显示当前日期、时间、星期
2、具有闹钟、倒计时、计时功能,时间到达后通过声光报警模块报警
3、通过按键进行时间、日期的设置和调整
4、系统关闭以后能保持时间值不丢失

注意:只能使用Proteus8.11版本

视频演示链接:

34、基于STM32的电子时钟设计(DS1302)时钟、秒表、倒计时

仿真图:

 倒计时:

秒表:

 时间设定:

程序源码:

/***********************************************

***********************************************/
#include "delay.h"
#include "LCD1602.h" 
#include "key.h"
#include "TIMER.h"

#include "led.h"
#include "ds1302.h"


#include "stdio.h" 	
#include "stdlib.h" 	

extern _Bool flag_timer;			//定时时间到标志位

unsigned char Timer_star =0;		//开始启动秒表标志位
unsigned char RRTimer_star =0;		//开始启动秒表倒计时标志位


unsigned char DDhour = 0, DDmin = 0 ,DDsec = 0 ;		//计时时间

extern unsigned char RRhour ;		//默认倒计时
extern unsigned char RRmin ;
extern unsigned char RRSec ;

extern unsigned int RRtime;

int main(void)
{	
	unsigned char DDDec = 0;
	unsigned char RRRec = 0;
	_Bool Alarm = 0;
	_Bool DDAlarm = 0;
	_Bool RRAlarm = 0;
	
	unsigned char Dis_Mode = 0;
	
	unsigned char key_value = 0;					//按键返回值
	
	NVIC_PriorityGroupConfig(NVIC_PriorityGroup_2);	//设置中断优先级分组为组2:2位抢占优先级,2位响应优先级
	Lcd1602_Init();									//液晶1602初始化
	LED_Init();
	KEY_Init();										//初始化端口

	DS1302_Init();  			   					//DS1302初始化
	KEY_Init();
	TIM2_Int_Init(199,7199);
 	while(1)
	{	
		
		if(flag_timer==1)					    //200毫秒赋一次值 flag_timer是标志位
		{
			flag_timer = 0;					    //清除标志  等待下一次200ms
			
			DS1302_ReadTime();							//读取DS1302

		}
		if(Timer_star==1)				//启动计时
		{
			if(DDDec!=Timer_info.sec)	//时间走了一秒?
			{
				DDDec = Timer_info.sec;
				DDsec++;
				if(DDsec>=60)
				{
					DDsec = 0;
					DDmin++;
				}
				if(DDmin>=60)
				{
					DDmin = 0;
					DDhour = 0;
				}
				
			}	
		}
		

		key_value = KEY_Scan(0);		 			//按键单击
		switch(key_value)
		{
			case 1:
				KEY_Set();	
			break;
			case 2:
				BEEP = 1;						//取消报警
			break;
			
			case 4:
				KEY_Set_Alarm();				//设置闹钟	
			break;
			
			case 5:								//
				Lcd1602_Write_Com(0x01);    	//清除LCD的显示内容
				Lcd1602_String(0,0,"                 ");
				Lcd1602_String(0,1,"                 ");
				Dis_Mode++;
				if(Dis_Mode>2)
					Dis_Mode = 0;
			break;
				
			case 6:								//
				KEY_Set_DSS();					//设置倒计时
			break;

		}
		switch(Dis_Mode)
		{
			case 0:			//显示时钟
				DS1302_Time();
			break;
			case 1:			//计时功能
				Lcd1602_String(0,0,"Time:");			  		//显示时间
				Lcd1602_Write_Data(DDhour/10+0x30);
				Lcd1602_Write_Data(DDhour%10+0x30);
				Lcd1602_Write_Data(':');
				Lcd1602_Write_Data(DDmin/10+0x30);
				Lcd1602_Write_Data(DDmin%10+0x30);
				Lcd1602_Write_Data(':');
				Lcd1602_Write_Data(DDsec/10+0x30);
				Lcd1602_Write_Data(DDsec%10+0x30);
			
			
				if(KEY5==0)	   						//开始计时
				{
					while(KEY5==0);
					if(Timer_star==0||Timer_star==2)//如果没有开始计时 则打开计时
					{
						Timer_star = 1;				//开始计时
					}
					else if(Timer_star==1)
					{
						Timer_star = 2;				//暂停计时
					}	
						
				}
				if(KEY6==0)	   						//复位计时
				{
					while(KEY6==0);
					if(Timer_star==2)				//如果暂停计时了 就复位清零
					{
						Timer_star = 0;				//停止计时 
						DDhour = DDmin = DDsec = 0;	//清零
					}
					
						
				}	
			break;
				
				
			case 2:			//倒计时功能
				
				Lcd1602_String(0,0,"DTime:");			  		//显示时间
				Lcd1602_Write_Data(RRtime/3600/10+0x30);
				Lcd1602_Write_Data(RRtime/3600%10+0x30);
				Lcd1602_Write_Data(':');
				Lcd1602_Write_Data(RRtime/60/10+0x30);
				Lcd1602_Write_Data(RRtime/60%10+0x30);
				Lcd1602_Write_Data(':');
				Lcd1602_Write_Data(RRtime%60/10+0x30);
				Lcd1602_Write_Data(RRtime%60%10+0x30);
				if(RRTimer_star==1&&RRtime>0)					//D倒计时开始?
				{
					if(RRRec!=Timer_info.sec)	//时间走了一秒?
					{
						RRRec = Timer_info.sec;
						RRtime --;
						
						if(RRtime==0)
						{
							RRhour = RRmin = RRSec = 0;
							BEEP = 0;					//开报警
							RRTimer_star = 0;
						}
					}	
				}
				if(KEY5==0)	   						//开始计时
				{
					while(KEY5==0);
					if(RRTimer_star==0||RRTimer_star==2)//如果没有开始计时 则打开计时
					{
						RRTimer_star = 1;				//开始计时
					}
					else if(RRTimer_star==1)
					{
						RRTimer_star = 2;				//暂停计时
					}	
						
				}
				if(KEY6==0)	   							//复位计时
				{
					while(KEY6==0);
					if(RRTimer_star==2)					//如果暂停计时了 就复位清零
					{
						RRTimer_star = 0;				//停止计时 
						RRhour = RRmin = RRSec = 0;		//清零
					}
					
						
				}	
			break;
		}
		
		
		if(Timer_info.hou == Ahour&&Timer_info.min ==Amin )		//到达闹钟时间
		{
			if(Timer_info.sec==0)				//秒钟为0
			{
				if(Alarm==0)
				{
					Alarm = 1;
					BEEP = 0;					//开报警
			
				}
			}
			 
		}
		else
		{
			if(Alarm==1)
			{
				Alarm = 0;
				BEEP = 1;						//关报警
			
			}
		}
					
	}	
}

软件免费下载地址:

1、Proteus仿真软件
文件内容:Proteus7.8安装包、Proteus8.6安装包、Proteus.8.10安装包、Proteus Professional 8.11 SP0安装包

链接:https://pan.baidu.com/s/11LNUZ9BJXWvXf1C4dPc3_w 
提取码:2756 


3、KEIL5 MDK软件(STM32开发软件)
链接:https://pan.baidu.com/s/1t3eY-3yRdTa7jZMlijq_jg 

提取码:ab58 

文件下载:

https://pan.baidu.com/s/10m9aJg7G2V5Gou2u0WVHCA?pwd=u287

有关34、基于STM32的电子时钟设计(DS1302)时钟、秒表、倒计时(Proteus仿真+程序)的更多相关文章

  1. ruby-on-rails - rails : "missing partial" when calling 'render' in RSpec test - 2

    我正在尝试测试是否存在表单。我是Rails新手。我的new.html.erb_spec.rb文件的内容是:require'spec_helper'describe"messages/new.html.erb"doit"shouldrendertheform"dorender'/messages/new.html.erb'reponse.shouldhave_form_putting_to(@message)with_submit_buttonendendView本身,new.html.erb,有代码:当我运行rspec时,它失败了:1)messages/new.html.erbshou

  2. ruby-on-rails - 由于 "wkhtmltopdf",PDFKIT 显然无法正常工作 - 2

    我在从html页面生成PDF时遇到问题。我正在使用PDFkit。在安装它的过程中,我注意到我需要wkhtmltopdf。所以我也安装了它。我做了PDFkit的文档所说的一切......现在我在尝试加载PDF时遇到了这个错误。这里是错误:commandfailed:"/usr/local/bin/wkhtmltopdf""--margin-right""0.75in""--page-size""Letter""--margin-top""0.75in""--margin-bottom""0.75in""--encoding""UTF-8""--margin-left""0.75in""-

  3. ruby - 检查 "command"的输出应该包含 NilClass 的意外崩溃 - 2

    为了将Cucumber用于命令行脚本,我按照提供的说明安装了arubagem。它在我的Gemfile中,我可以验证是否安装了正确的版本并且我已经包含了require'aruba/cucumber'在'features/env.rb'中为了确保它能正常工作,我写了以下场景:@announceScenario:Testingcucumber/arubaGivenablankslateThentheoutputfrom"ls-la"shouldcontain"drw"假设事情应该失败。它确实失败了,但失败的原因是错误的:@announceScenario:Testingcucumber/ar

  4. ruby-on-rails - 迷你测试错误 : "NameError: uninitialized constant" - 2

    我遵循MichaelHartl的“RubyonRails教程:学习Web开发”,并创建了检查用户名和电子邮件长度有效性的测试(名称最多50个字符,电子邮件最多255个字符)。test/helpers/application_helper_test.rb的内容是:require'test_helper'classApplicationHelperTest在运行bundleexecraketest时,所有测试都通过了,但我看到以下消息在最后被标记为错误:ERROR["test_full_title_helper",ApplicationHelperTest,1.820016791]test

  5. ruby-on-rails - 相关表上的范围为 "WHERE ... LIKE" - 2

    我正在尝试从Postgresql表(table1)中获取数据,该表由另一个相关表(property)的字段(table2)过滤。在纯SQL中,我会这样编写查询:SELECT*FROMtable1JOINtable2USING(table2_id)WHEREtable2.propertyLIKE'query%'这工作正常:scope:my_scope,->(query){includes(:table2).where("table2.property":query)}但我真正需要的是使用LIKE运算符进行过滤,而不是严格相等。然而,这是行不通的:scope:my_scope,->(que

  6. 使用 ACL 调用 upload_file 时出现 Ruby S3 "Access Denied"错误 - 2

    我正在尝试编写一个将文件上传到AWS并公开该文件的Ruby脚本。我做了以下事情:s3=Aws::S3::Resource.new(credentials:Aws::Credentials.new(KEY,SECRET),region:'us-west-2')obj=s3.bucket('stg-db').object('key')obj.upload_file(filename)这似乎工作正常,除了该文件不是公开可用的,而且我无法获得它的公共(public)URL。但是当我登录到S3时,我可以正常查看我的文件。为了使其公开可用,我将最后一行更改为obj.upload_file(file

  7. ruby - 安装 Ruby 时遇到问题(无法下载资源 "readline--patch") - 2

    当我尝试安装Ruby时遇到此错误。我试过查看this和this但无济于事➜~brewinstallrubyWarning:YouareusingOSX10.12.Wedonotprovidesupportforthispre-releaseversion.Youmayencounterbuildfailuresorotherbreakages.Pleasecreatepull-requestsinsteadoffilingissues.==>Installingdependenciesforruby:readline,libyaml,makedepend==>Installingrub

  8. ruby - RVM "ERROR: Unable to checkout branch ."单用户 - 2

    我在新的Debian6VirtualBoxVM上安装RVM时遇到问题。我已经安装了所有需要的包并使用下载了安装脚本(curl-shttps://rvm.beginrescueend.com/install/rvm)>rvm,但以单个用户身份运行时bashrvm我收到以下错误消息:ERROR:Unabletocheckoutbranch.安装在这里停止,并且(据我所知)没有安装RVM的任何文件。如果我以root身份运行脚本(对于多用户安装),我会收到另一条消息:Successfullycheckedoutbranch''安装程序继续并指示成功,但未添加.rvm目录,甚至在修改我的.bas

  9. ruby - 如何关闭 ruby​​ gem "Spreadsheet?"中的文件 - 2

    下面的代码在我第一次运行它时就可以正常工作:require'rubygems'require'spreadsheet'book=Spreadsheet.open'/Users/me/myruby/Mywks.xls'sheet=book.worksheet0row=sheet.row(1)putsrow[1]book.write'/Users/me/myruby/Mywks.xls'当我再次运行它时,我会收到更多消息,例如:/Library/Ruby/Gems/1.8/gems/spreadsheet-0.6.5.9/lib/spreadsheet/excel/reader.rb:11

  10. ruby - Ruby 语法糖有 "rules"吗? - 2

    我正在学习Ruby的基础知识(刚刚开始),我遇到了Hash.[]method.它被引入a=["foo",1,"bar",2]=>["foo",1,"bar",2]Hash[*a]=>{"foo"=>1,"bar"=>2}稍加思索,我发现Hash[*a]等同于Hash.[](*a)或Hash.[]*一个。我的问题是为什么会这样。是什么让您将*a放在方括号内,是否有某种规则可以在何时何地使用“it”?编辑:我的措辞似乎造成了一些困惑。我不是在问数组扩展。我明白了。我的问题基本上是:如果[]是方法名称,为什么可以将参数放在括号内?这看起来几乎——但不完全是——就像说如果你有一个方法Foo.d

随机推荐