VB制作倒计时程序
创建一个Timer控件:Timer1
设置Timer1的Interval属性为1000
创建一个显示倒计时的Lable:lblTime
代码:
dim i as long
private sub form_load()
i=60
endsub
private sub timer1_timer()
i=i-1
lblTime.caption="倒计时" & i
if i<=0 then
msgbox "倒计时结束,退出"
end
endif
end sub
在窗体上放一个textbox,一个Label,一个Timer,一个Commandbutton
双击窗体,粘贴以下代码:
Private Sub Command1_Click()
Label1.Caption = Text1.Text
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption - 1
If Label1.Caption = 0 Then
Timer1.Enabled = False
End If
End Sub
'使用时在文本输入倒计时的秒数,点按钮开始倒计时
Public a As Long, NoTime As Boolean
Private Sub Form_Load()
Command1.Caption= “开始” Command2.Caption = “暂停” Command3.Caption = “停止”
NoTime = False
a = 0
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub
Private Sub Command1_Click() Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Select Case Command2.Caption
Case “暂停”
Timer1.Enabled = False Command2.Caption = “继续”
Case “继续”
Timer1.Enabled = True Command2.Caption = “暂停”
End Select
End Sub
Private Sub Command3_Click()
Load Me
End Sub
Private Sub Timer1_Timer()
Select Case a
Case 0 To 299
If NoTime = False Then Label1.ForeColor = vbBlack
If NoTime <> True Then
a = a + 1
Label1.Caption = “倒计时还有” & 300 - a & “秒”
Else
a = a - 1
Label1.Caption = “正计时” & 300 - a & “秒”
End If
Case 300
NoTime = True
Label1.ForeColor = vbRed
a = a - 1
Label1.Caption = “正计时” & 300 - a & “秒”
End Select
End Sub
和官方回复库房就要看就看一个】
正计时多长时间?正计时完毕需要再次倒计时么?
用74LS192芯片构成30秒倒计时电路图是什么?
用74LS192芯片构成30秒倒计时电路图如下所示:采用74LS192芯片作为计数器,也是同步的加减计数器,其具有清除和置数的功能。选择两片74LS192作为分别作为30的十位和个位。本电路图中将作为十位的计数器输入端置为0011而将个位的输入端置为0000。将两片74LS192的置数端连出来与开关B相连,开关B控制置...
javascript编写一个10秒倒计时,带小数点后两位显示,谢谢了~
<div id="seconds"><\/div><button id="startBtn">开始<\/button><script>var maxTime=10,startTime;function timer(){var passTime=(new Date().valueOf()-startTime)\/1000;if(passTime>=10){passTime=10document.getElementById("seconds").innerText="0.00"}else{setTimeout(timer,20);...
单片机 60秒倒计时
我是用汇编语言做的,如果显示的速度不理想 你改下延时程序段的数值就OK了,课堂上这个60S倒计时的课题用了很多方法做过 ORG 0000H LJMP START ORG 0100H START:MOV R0, #59 MOV DPTR, #TABLE LOOP:LCALL DISPLAY DEC R0 CJNE R0,#0,LOOP JMP START DISPLAY:MOV ...
我想设计个倒计时得程序 应该怎么弄啊?
倒计时生成器JS脚本 说明: 用来生成倒计时JS代码的脚本 效果: 点这里在新窗口中看效果!代码: 要完成此效果需要两个步骤 第一步:把如下代码加入到<head>区域中 <SCRIPT language=javascript> <!-- function generate(form){ for(var q=0;q<12;q++){ if(document.me.m.options[document.me....
用EXCEL怎样做“倒计时牌”
要做倒计时显示就需要知道具体的到期时间,建国是2013年月10月1日,以及巴西世界杯举行时间为2014年6月13日。需要用的是函数是day和today两个函数名。(date是指具体到期时间,而today则是指今天的时间),现在开始制作倒计时牌。首先点选单元格。(倒计时日期=到期日期-今天的日期)在单元格编辑栏内...
dhtc3b多功能计时器使用方法
1、首先打开时钟,在标题栏可以看到它分为四个功能板块,分别是:闹钟、时钟、秒表、计时。2、第三个是计时,这里的计时指的是倒计时,在这里设置一段时间比如30分钟,点击开始后它便从30分钟开始倒计时,30分钟结束后发出声响提醒倒计时已结束。3、第一个是时钟,在这里可以看到世界各地在同一时刻的...
怎样在EXcel中做倒计时函数
TimeValue("04:59:59") Then [c4].Font.ColorIndex = 3 '小于5小时显示为红色 还要在“开始”宏中添加以下语句,以便看清倒计时:[c4].Interior.ColorIndex = 1 添加位置如图 貌似只能对24小时以内的时间进行倒计时 注:'后面的语句,即在编辑器中显示为绿色的语句为注释,可不必加入 望采纳 ...
求大神编一道51单片机实现多种倒计时功能
{h--;led=1;lad=1;}\/\/如果是状态 1 同时关闭两个LED } if(h==0&&led==0&&lad==0){led=1;lad=0;}\/\/此句防止数码管倒计时后两个LED继续同时点亮 } \/***\/
谁有用java的application编写的倒计时钟代码?
分类: 电脑\/网络 >> 程序设计 >> 其他编程语言 问题描述:是一个这样的倒计时钟:输入一个时间 比如120分钟 按开始后 倒计时开始.在中途可以选择暂停.在剩下1分钟时会有提示.要用application编写的哦.麻烦各位高手了.解析:package hello;import java.awt.*;import java.applet.*;import java.awt....
倒计时代码。JS高手请进!
给你一段我收藏倒计时功能的代码,复制了保存为html文件,亲测可用。<html><head><title>生日倒计时<\/title><b>今天距离2014年8月2日的生日还有<\/b><br><script language="JavaScript">var DifferHour = -1var DifferMinute = -1var DifferSecond = -1var Tday1 = new Date("2014-08-02"...
章光竹红: 在窗体上放一个textbox,一个Label,一个Timer,一个Commandbutton 双击窗体,粘贴以下代码: Private Sub Command1_Click() Label1.Caption = Text1.Text Timer1.Interval = 1000 Timer1.Enabled = True End SubPrivate Sub Form_Load() ...
涟水县19495467875: VB中怎样制作一个计时器? 能够设置倒计时的时间,并进行倒计时 - ?
章光竹红: 1、打开VB6.0,新建一个工程,在窗体中添加三个命令按钮,caption分别改为“设置倒计时”、“启动倒计时”、“继续”,将窗体Form1的caption属性改为“倒计时”,添加一个计时器控件,添加一个文本框. 2、将文本框的Text属性清...
涟水县19495467875: 用vb制作倒数计时器 - ?
章光竹红: 1、在窗体上添加一个label1控件 2、在窗体上添加一个command1控件 3、在窗体上添加一个timer1控件 4、复制如下代码,运行 Dim a As Long Private Sub Command1_Click() a = InputBox("请输入秒数") Label1.Caption = a Timer1....
涟水县19495467875: 如何在VB程序中设计一个倒计时器 - ?
章光竹红: '---定义一个全局变量,用于倒计时的开始数public maxcount as long private sub form_load()timer1.interval = 1000end sub '开始倒计时,10秒一个循环private sub command1_click()maxcount = 10 '---设计倒计时的起始数label1.caption = ...
涟水县19495467875: 如何用VB编写一个天数倒计时的程序?
章光竹红:新建 工程,1个按钮,1个timer,和1个文本框 在文本框内输入时间(秒数),点按钮就开始倒计时了: Dim i% Private Sub Command1_Click() Command1.Caption = IIf(Command1.Caption = “开始计时“, “停止计时“, “开始计时“) Timer1...
涟水县19495467875: 用VB编写一个倒计时的程序?
章光竹红: Dim t Dim start As Boolean Private Sub Command1_Click() If start = False Then t = Val(Text1) * 3600 + Val(Text2) * 60 + Val(Text3) start = True End If Timer1.Enabled = True Command3.Enabled = True End Sub Private Sub Command2_Click() ...
涟水县19495467875: 一个VB倒计时程序 - ?
章光竹红: '在vb窗口上加入Label1,timer1,command1,然后在代码窗口写入以下代码. Dim S, M, H Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Form_Load() Timer1.Enabled = False Label1.Caption = "0:02:00" 'Label1....
涟水县19495467875: 用VB作一个简单的倒计时?
章光竹红: 在表单上添加一个timer和和一个label控件 time控件的inteval设置为1000(即1秒) 然后在time的Timer()事件编写如下代码: label1.caption = trim(str(hour(time())))+"时"+trim(str(minute(time())))+"分"+trim(str(second(time())))+"秒" 就可以了
涟水县19495467875: 用VB编写个倒计时程序!在线等! - ?
章光竹红: 完整代码如下,可以解释. Private f As Integer, m As Integer Private Sub Command1_Click() Dim n As Integer Do n = Val(InputBox("请输入秒数:(小于3600)")) Loop Until (n < 3600) f = n \ 60: m = n Mod 60 Label1.Caption = f & ":" & m End ...
涟水县19495467875: vb 中怎么做倒计时? - ?
章光竹红: 是倒计时后 就关机不? on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 120 -c ""说我是猪,不说我是猪就两分钟关你机,不信,试试···"" ",0 ,true ...