(13)求，如何用Keil软件编写一个在STC89C52单片机上运行的有声的倒计时程序要求：1.时间可以自己设...

首先在KEIL窗口中找到一个小榔头一样的图标叫做Options of Target，点击它，跳出一个窗口。在这个窗口中写入你的单片机所使用晶振的频率，然后在OUTPut那个选项页中将“Creat Hex”打钩选中。这样你再编译程序（编译按键就在小榔头的左边第二个两个箭头的那个）就会产生一个HEX文件，所谓的程序下载也就是把这个HEX文件烧制到单片机中。

其次，是把HEX文件烧到单片机中。这里的方法很多，取决于你的单片机板子上用的下载口了。

一般最常看到的是使用单片机板上的串口下载，那么首先需要一条USB转串口线。然后你的电脑需要安装一个烧制软件叫做STC_ISP_V483。这个网上很多，可以下载一个然后安装。打开后你首先需要做的就是选择单片机型号，然后点击“打开程序文件”选择相应的HEX文件，然后选择COM口，这个可以在电脑的设备管理器中找到，你的串口线插到电脑上以后就会有的，当然你需要先安装串口线的驱动（USB转串口线插到电脑上后会自动跳出来要求安装），这个也可以在网上找到。在最高波特率那里你可以选择9600，不过我的是115200，也可以用我就懒得动它了。然后点击“DownLoad”就可以了，下面的窗口里出现“请给MCU上电”的信息时你再把板子的电源键打开，就可以了。

其实你可以去网上找一份郭天祥的《十天学会单片机》的视频资料，照着上面的学就可以了。基本上可以知道个大概。

今天小编要和大家分享的是利用C#实现倒计时的功能，希望对大家有所帮助。 本实例是通过使用timer组件来实现倒计时功能的，实现步骤如下：（1） 首先创建两个窗体，在Form1窗体上添加一个Button按钮和一个timer组件，用来执行倒计时功能；在Form2中添加一个Label控件，用于显示倒计时。（2） 在Form2窗体中定义一个公共变量curr_time，用于为Label控件赋值，代码如下：Public string curr_time{ Get { Return lable1Text; } Set { Label1Text=value; }}(3) 在Form1窗体中，首先定义一个TimeSpan类对象，用于设定初始值；其次在Button按钮的Click事件下，激活timer组件，使其开始计时；然后在timer组件的Tick事件下，使用TimeSpan类对象的Subtract方法，在指定时间间隔内循环减1，实现倒计时功能。主要代码如下：Private TimeSpan ts=new TimeSpan(0,5,0);Private Form2 frm=null;Private void button1_Click(object sender,SystemEventArgs e){ Timer1Enabled =true; Frm=new Form2(); FrmShowDialog(this);}Private void timer1_Tick(object sender,SystemEventArgs e){ String str=tsHoursToString()+”:”+tsMinutesToString()+”:”+tsSecondsToString();Frmcurr_time=str;Ts=tsSubtract(new TimeSpan(0,0,1));If(tsTotalSeconds<00){ Time1Enabled=false;} }转至 程序员之家 >

如果你没有编程经验的话，建议用易语言做，易语言是全中文编程，语法类似与VB，学起来简单，配合百度的话就算是零基础，一两天也能写出来。

在记事本上编程，无非是VBS脚本或者BAT批处理文件，我以前尝试过用bat来编写什么倒计时软件，但是效果不理想，程序设计上又很麻烦，不推荐采用。

在窗体上创建一个计时器Timer1，一个标签LabTime

Private Sub Form_Load()

Dim Days As Integer

Dim Times As Date

Timer1Enabled = True

Timer1Interval = 1000

End Sub

Private Sub Timer1_Timer()

Const date0 As Date = #10/1/2009 10:10:10 AM# '日期

Days = CInt(date0 - Now - 05) '取整数部分(天数)

Times = CDate(date0 - Now)

LabDayCaption = Days & "天" & Hour(Times) & "小时" & Minute(Times) & "分" & Second(Times) & "秒"

End Sub

原创！

Private Sub Timer1_Timer()

Dim timenow As Date

timenow = #4:00:00 PM# - Time

MeCls

Print "距离下午4点还有" & Hour(timenow) & "时" & _

Minute(timenow) & "分" & _

Second(timenow) & "秒"

If Time = #4:00:00 PM# Then

MsgBox "时间到"

End If

End Sub

但你要注意一点:进行时间相减就得出时间差来了,不过当现在的时间超过下午4点的时候 时间差就会一秒一秒的增加,在4点以前是一秒一秒的倒计时的

下面我写的这个程序 你会更加明白一些

Private DatNow As Date, Y As Integer

Private Sub Timer1_Timer()

MeCls

DatNow = #6/6/2012 7:30:50 PM# - Now

Y = 2012 - Val(Year(Now))

Print "距离 2012年6月6号下午7点30分50秒 还有 " & Y & "年" & _

Month(DatNow) & "月" & _

Day(DatNow) & "天" & _

Hour(DatNow) & "小时" _

; Minute(DatNow) & "分钟" _

; Second(DatNow) & "秒钟"

End Sub

都这么精确的回答了,希望给分哟~~o(∩_∩)o

判断步骤如下：

1、在PLC编程软件中，选择计时器命令，设置倒计时器的预设时间。

2、编写触发条件，在条件满足时开始计时器。例如，在某个开关被触发时，开始计时器。

3、在计时器进行倒计时时，对应的输出端口输出相应的信号。

4、在倒计时器计时结束时，执行相应的动作，例如控制某个设备关闭。

以上就是关于(1/3)求，如何用Keil软件编写一个在STC89C52单片机上运行的有声的倒计时程序要求：1.时间可以自己设...全部的内容，包括:(1/3)求，如何用Keil软件编写一个在STC89C52单片机上运行的有声的倒计时程序要求：1.时间可以自己设...、编写倒计时程序代码、如何在记事本上编写中考倒计时程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！