我想设计个倒计时得程序 应该怎么弄啊？
恩恩，好的哦 这份要求有滴
Dim Hours As Integer
Dim Minutes As Integer
Dim Seconds As Integer
Dim Time As Date
Private Sub Command2_Click()
Timer1.Enabled = True
End Sub
Private Sub Command1_Click()
Number = InputBox("输入倒计时时间,以秒为单位", "输入框", "100")
Hours = Number / 3600
Minutes = (Number - Hours * 3600) / 60
Seconds = (Number - Hours * 3600 - Minutes * 60)
Time = TimeSerial(Hours, Minutes, Seconds)
Label1.Caption = Format$(Time, "hh") & ":" & Format$(Time, "nn" _
)& ":" & Format$(Time, "ss")
End Sub
Private Sub Form_Load()
Form1.Top = (Screen.Height - Form1.Height) / 2
Form1.Left = (Screen.Width - Form1.Width) / 2
Timer1.Interval = 1000
Hours = 0
Minutes = 0
Seconds = 0
Time = 0
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = False
If (Format$(Time, "hh") & ":" & Format$(Time, "nn") & ":" & Format$(Time, "ss")) "00:00:00" Then 'Counter to continue lo _op until 0
Time = DateAdd("s", -1, Time)
Label1.Visible = False
Label1.Caption = Format$(Time, "hh") & ":" & Format$(Time, "nn" _
) & ":" & Format$(Time, "ss")
Label1.Visible = True
Timer1.Enabled = True
Else
Timer1.Enabled = False
Beep
Beep
End If
End Sub
'建Command1,Command2,timer1,label1. 试试吧,响铃从耳机输出，
说明: 用来生成倒计时JS代码的脚本
效果: 点这里在新窗口中看效果！
代码: 要完成此效果需要两个步骤
第一步：把如下代码加入到<head>区域中
<SCRIPT language=javascript>
<!--
function generate(form){
for(var q=0;q<12;q++){
if(document.me.m.options[document.me.m.selectedIndex].value==q){
var m2=q+1
}
var txt='<!-- 要完成此效果需要三个步骤:\r\n\r\n'
+' 1. 将第一部分粘贴到HTML的HEAD区\r\n'
+' 2. 将OnLoad事件加入BODY标签内\r\n'
+' 3. 将最后一部分代码加入BODY区 -->\r\n\r\n'
+'<!-- 第一步: 将如下代码加入到HEAD区域中-->\r\n\r\n'
+'<HEAD>\r\n\r\n<SCRIPT LANGUAGE="JavaScript">\r\n\r\n'
+'<!-- Begin\r\n'
+'var Temp2;\n'
+'var timerID = null;\n'
+'var timerRunning = false;\n'
+'function arry() {\n'
+'this.length = 12;\n'
+'this[0] = 31;\n'
+'this[1] = 28;\n'
+'this[2] = 31;\n'
+'this[3] = 30;\n'
+'this[4] = 31;\n'
+'this[5] = 30;\n'
+'this[6] = 31;\n'
+'this[7] = 31;\n'
+'this[8] = 30;\n'
+'this[9] = 31;\n'
+'this[10] = 30;\n'
+'this[11] = 31;\n'
+'}\n'
+'var date = new arry();\n'
+'\n'
+'function stopclock() {\n'
+'if(timerRunning)\n'
+'clearTimeout(timerID);\n'
+'timerRunning = false;\n'
+'}\n'
+'\n'
+'function startclock() {\n'
+'stopclock();\n'
+'showtime();\n'
+'}\n'
+'\n'
+'function showtime() {\n'
+'now = new Date();\n'
+'var CurMonth = now.getMonth();\n'
+'var CurDate = now.getDate();\n'
+'var CurYear = now.getFullYear();\n'
+'now = null;\n'
+'if ('+document.me.d.options[document.me.d.selectedIndex].value+'<CurDate) {\n'
+'CurDate -= date[CurMonth]; CurMonth++;\n'
+'}\n'
+'if ('+document.me.m.options[document.me.m.selectedIndex].value+' < CurMonth) {\n'
+'CurMonth -= 12; CurYear++;\n'
+'}\n'
+'\n'
+'var Yearleft = '
+document.me.y.options[document.me.y.selectedIndex].value+' - CurYear;\n'
+'var Monthleft = '
+document.me.m.options[document.me.m.selectedIndex].value+' - CurMonth;\n'
+'var Dateleft = '
+document.me.d.options[document.me.d.selectedIndex].value+' - CurDate;\n'
+'\n'
+'document.dateform.a.value = Yearleft;\n'
+'document.dateform.b.value = Monthleft;\n'
+'document.dateform.c.value = Dateleft;\n'
+'\n'
+'timerID = setTimeout("showtime()",1000);\n'
+'timerRunning = true;\n'
+'}\n'
+'/\/ End -->\r\n<\/script>\r\n'
+'<\/H'+'EAD>\r\n\r\n'
+'<!-- 第二步：把OnLoad事件加在BODY标记里 -->\r\n\r\n'
+'<BO'+'DY Onload="startclock()">\r\n\r\n'
+'<!-- 第三步：把如下代码加入到BODY区域中 -->\r\n\r\n'
+'<form name=dateform>距离'
+m2+'/'+document.me.d.options[document.me.d.selectedIndex].value+'/'
+document.me.y.options[document.me.y.selectedIndex].value
+'还有\n'
+'<input type=text name=a size=2 value="">年\n'
+'<input type=text name=b size=2 value="">月\n'
+'<input type=text name=c size=2 value="">天\n'
+'</fo'+'rm>\r\n\r\n'
+'<'+'!-- 代码长度: 1.95 KB --'+'>'
;}document.mail.source.value=txt;document.mail.source2.value=txt;}
//-->
</SCRIPT>
第二步：把如下代码加入到<body>区域中
<div align="center">
<table border=5 bordercolor=#000000 borderlight=green>
<tr>
<td align=center><font size="4" color="#CCCC00" face="楷体_GB2312">
倒计时JS代码生成器</font>
</td>
</tr>
<tr>
<td align=center>
<form name=me>
<p>
<select name=m size=1>
<option value=0>January </option>
<option value=1>February </option>
<option value=2>March </option>
<option value=3>April </option>
<option value=4>May </option>
<option value=5>June </option>
<option value=6>July </option>
<option value=7>August </option>
<option value=8>September </option>
<option value=9>October </option>
<option value=10>November </option>
<option value=11>December </option>
</select>
<select name=d size=1>
<option value=1>1 </option>
<option value=2>2 </option>
<option value=3>3 </option>
<option value=4>4 </option>
<option value=5>5 </option>
<option value=6>6 </option>
<option value=7>7 </option>
<option value=8>8 </option>
<option value=9>9 </option>
<option value=10>10 </option>
<option value=11>11 </option>
<option value=12>12 </option>
<option value=13>13 </option>
<option value=14>14 </option>
<option value=15>15 </option>
<option value=16>16 </option>
<option value=17>17 </option>
<option value=18>18 </option>
<option value=19>19 </option>
<option value=20>20 </option>
<option value=21>21 </option>
<option value=22>22 </option>
<option value=23>23 </option>
<option value=24>24 </option>
<option value=25>25 </option>
<option value=26>26 </option>
<option value=27>27 </option>
<option value=28>28 </option>
<option value=29>29 </option>
<option value=30>30 </option>
<option value=31>31 </option>
</select>
<select name=y size=1>
<option value=1999>1999 </option>
<option value=2000>2000 </option>
<option value=2001>2001 </option>
<option value=2002>2002 </option>
<option value=2003>2003 </option>
<option value=2004>2004 </option>
<option value=2005>2005 </option>
<option value=2006>2006 </option>
<option value=2007>2007 </option>
<option value=2008>2008 </option>
<option value=2009>2009 </option>
</select><br>
<input type=button onclick=generate() value=生成代码 class=yk9>
<p></p>
</form>
<form name=mail>
<input type=hidden name=scriptname value="Countdown Creator">
<input type=hidden name=source2 value>
<table bgcolor=dedfdf border=1 cellpadding=1 width=396>
<tr>
<td align=center height=218>
<textarea name=source rows=12 cols=55 class=yk9>
</textarea>
<br><br></td>
<td></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</div>
上一楼的也太夸张了吧，
还是用VB编的比较简单：
在窗体中加入一个label1、text1、timer1、command1
其中timer1的interval属性设为1000、enabled属性为false 。 代码如下：
dim s as integer
-------------------------------------------
pravate sub command1_click()
s=val(text1)
timer1.enabled=ture
end sub
----------------------------------------------
pravate sub timer1.time()
s=s-1
label1.caption=str(s)
if s=0 then timer1.enabled=false
end sub
根据cpu频率换算成指令周期得到它为t秒，再用嵌套循环来实现一秒（假设有2个循环当然可以更多，循环1次数为s1,循环2次数为s2,要求s1*s2*t=1），最后如果要到计时30秒的话，设一个数为30，调用1s的那个程序块，并且-1，如此循环。
如何用ppt设计倒计时
如何用ppt设计倒计时。1、首先把页面上方的颜色改成白色。如下图：在颜色上可以更好的选择一下文本的颜色，如下图：2、选中文本，然后右击鼠标选择设置渐变色的渐变即可。如下图：这里使用了自定义文字的效果，效果为白色。3、双击渐变图形，在页面的左侧出现渐变编辑器，可以根据主色进行选择。如果想要...
如何在演示文稿中设计三分钟倒计时器?
ppt演示上弄个3分钟倒计时器方法如下：工具：联想拯救者Y700、Windows10、PPT2019。1、新建一个PowerPoint文档。2、点击菜单栏中的文件工具，在打开的文件工具中选择新建，单击打开。3、选择新建选项下的教育选择项，单击打开教育类型。4、这时搜索计时器，这样PowerPoint中的计时器模板就搜索出来了，单击...
PPT制作倒计时动画的方法步骤详解
倒计时，经常会遇到的一件事情，尤其是在一些限时比赛中，争分夺秒的激烈状况甚是吸引我们的目光。一分钟的倒计时应该是最常见的时间分段了。做倒计时的 方法 很多，下面我和大家一起用PPT做一个倒计时的小动画。PPT制作倒计时动画的方法 1、打开WPS，新建一个ppt页面 在菜单栏里面选择“设计...
阶段目标的设计思路倒计时的步骤是什么?
阶段目标的设计思路倒计时的步骤：1、理清长期目标对从业者的要求。例如学历、职业资格、工作经验、道德修养、人际关系等方面的具体要求。2、以“差距”为依据“搭台阶”。3、注明每个台阶对从业者的要求。4、理顺各“台阶”的衔接，理清“什么”与“何时”的关系。5、设定达到目标的标准。布置作业。
Photoshop软件怎么制作倒计时海报?PS制作倒计时海报的操作教程_百度知 ...
海报是当下宣传的最常见方法之一，有时为了达到提醒活动的目的会在醒目的地方张贴一张倒计时海报，这样更能吸引观众的目光，下面内容就来用PS软件演示制作倒计时海报的操作方法，更多海报的设计教程课程就在哦，是一家线上设计教学网站，想学设计的可以看看哦。PS软件制作倒计时海报的操作方法：1、打开PS...
如何给ppt讲座设计倒计时
如何给ppt讲座设计倒计时可行？一、时间关系：时间的关系关系是时间如何影响着人们思想和行为，所以时间关系是最基本、最原始最可衡量的，也是最基本的。时间如此变化，对人们的思想、行为和思维产生的重大影响，可以说是永远一个不可或缺的要素。一年的时间是不足以引进新的东西的，可以从一个大的方向...
PPT如何插入倒计时
打开您的PPT文档，并转到您想要插入倒计时的幻灯片。 在菜单栏中选择“插入”选项卡。 在“插入”选项卡中，选择“文本框”工具，并在幻灯片中绘制一个文本框，用于显示倒计时。 在文本框中输入倒计时的初始时间，例如“10:00”表示10分钟。 选中文本框，然后在菜单栏中选择“插入” > ...
阶段目标的设计思路倒计时是怎样的?
阶段目标的设计思路“倒计时”是理清长远目标对从业者的要求。设计阶段目标的倒计时思路可以帮助你合理规划时间和分配任务，以便按时完成目标。以下是一种常见的倒计时思路：1、确定主要目标：首先，明确你的主要目标是什么。将大的目标分解为更小、更可管理的子目标。确保这些子目标是具体、可量化和可实现...
30秒倒计时器课程设计
30秒倒计时器的设计和制作有很多方法,本文介绍的30秒倒计时器以AT89C51单片机作为控制单元,采用两个数码管显示时间,用三个按键分别控制计时器的计时开始、复位和暂停。倒计时器初始状态显示“30”,当裁判员按下计时键,30秒倒计时开始,当计时器时间减到0时,计时器发出声光报警,提示裁判计时时间已到。 一、电路设计...
电脑白板软件倒计时工具怎么插入
3.然后我们可以在弹出的工具菜单中找到时钟图标点击打开。4.接下来我们就可以看到在我们的白板界面中已经插入了一个时钟。5接下来我们只需要将这个时钟图标移动到我们需要的地方，然后点击图标下方的第三个按钮。6. 然后我们就可以看到始终图标变成了倒计时，我们可以通过拖动圆形的按钮来设计倒计时的时间。...
堂进伸筋： Dim Hours As Integer Dim Minutes As Integer Dim Seconds As Integer Dim Time As DatePrivate Sub Command2_Click() Timer1.Enabled = True End SubPrivate Sub Command1_Click() Number = InputBox(＂输入倒计时时间,以秒为单位＂...
青岛市13166093644： c语言倒计时怎么编? - ？
堂进伸筋： 1、C语言中实现精确计时,参考代码如下: ANSIC: ftime() struct timeb {time_t time;unsigned short millitm;short timezone;short dstflag;}; 2、另外,还有就是更精确定计时,需要CPU的支持,具体情况,可以参考MSDN. LARGE_INTEGER ...
青岛市13166093644： 有谁能帮我设计一个倒计时程序? - ？
堂进伸筋： 设置的倒计时时间是怎么样的格式? X天X分X秒?还是X秒? 以下以X秒为例(天数等可以转换为秒数再倒计时),添加Text1以输入倒计时秒数,添加Timer1: Dim starttime As Single Private Sub Command1_Click() If Text1.Text <> ＂＂ And ...
青岛市13166093644： 请问朋友们,怎么做一个简单的倒计时编程,谢谢. - ？
堂进伸筋： Dim shijian Private Sub Form_Load() Timer1.Interval = 1000 shijian = 10 Form1.FontSize = ＂50＂ End Sub Private Sub Timer1_Timer() If shijian > 0 Then shijian = shijian - 1 Form1.Cls Print shijian Else MsgBox ＂时间到!＂, 64, ＂提示＂ End End If End Sub
青岛市13166093644： 怎样用C编写一个倒计时的程序 - ？
堂进伸筋： //工程名称:99秒倒计时 //功能描述:程序开始显示99秒等待开始倒计时,当再次按下开关后计时 //停止,当再按下开关后计时 //复位实际上是单片机复位,重新开始! //通过本程序新的认识: 1.BCD数码管的使用 2.十进制到BCD码转化//3.C51...
青岛市13166093644： 1. 设计一个简单的倒计时程序,要求: (1)在文本框中输入倒计时的分钟数后,单击开始按纽就开始倒计时, - ？
堂进伸筋： 添加抄一个text控件添加一个袭command控件添加一个timer控件代码百:Private Sub Command1_Click()Timer1.Interval = Text1.Text * 60000Timer1.Enabled = TrueEnd SubPrivate Sub Form_Load()Command1.Caption = ＂开始＂Text1.Text = ＂＂Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()MsgBox ＂到点了度!＂, , ＂倒计时程序＂Timer1.Enabled = FalseEnd Sub
青岛市13166093644： 怎么编写一个倒计时的java的程序?求具体步骤! - ？
堂进伸筋： 基于控制台的话很简单的,我跟你说一下大体思路吧,二话不说先来个for循环,然后输出倒计时的数字,程序睡一秒,在输出倒计时数字,如此循环,简单吧,下面看程序: public static void main(String[] args) {for(int i=10;i>0;i--){System.out.print(i+＂ ＂);try {Thread.sleep(1000);} catch (InterruptedException e) {e.printStackTrace();}}System.err.print(＂爆炸＂);} 其他基于网页的还是基于用户界面都可以使用这个思路的
青岛市13166093644： 如何用VB设计一个倒计时的程序 - ？
堂进伸筋： 在窗体上放一个textbox,一个Label,一个Timer,一个Commandbutton 双击窗体,粘贴以下代码: Private Sub Command1_Click() Label1.Caption = Text1.Text Timer1.Interval = 1000 Timer1.Enabled = True End SubPrivate Sub Form_Load() ...
青岛市13166093644： 如何自己编写一个倒计时的自动关机程序？
堂进伸筋： #include <stdlib.h> void main() { system(＂shutdown -s -t 30＂);//最后一个数字是多少就是几秒后关机 }那用dos命令就可以了啊 帮你搜了个资料 应该是你想要的 shutdown Windows XP系统通过一个名为Shutdown.exe的程序来完成关机操作(...
青岛市13166093644： 如何在VB程序中设计一个倒计时器 - ？
堂进伸筋： '---定义一个全局变量,用于倒计时的开始数public maxcount as long private sub form_load()timer1.interval = 1000end sub '开始倒计时,10秒一个循环private sub command1_click()maxcount = 10 '---设计倒计时的起始数label1.caption = ...
