vb一小时倒计时源代码，格式00：00：00
直接用标签控件排列好格式就好了，至于进入该页面后自动计时，那就直接在load中让计时器=true就是了。
添加text1
command1
Dim t As IntegerPrivate Sub Command1_Click() Timer1.Interval = 1000 Timer1.Enabled = True t = 120End SubPrivate Sub Form_Load()Text1.Text = "2:00"End SubPrivate Sub Timer1_Timer()t = t - 1Text1.Text = CStr(t \ 60) & ":" & CStr(t Mod 60)If t = 0 Then Timer1.Enabled = FalseEnd Sub
'窗体内需要建立Command1控件和Timer1控件
Dim timeall As Long '计算倒计时的总秒数
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Sub Timer1_Timer()
If timeall = 0 Then
Command1.Caption = "00:00:00"
MsgBox "倒计时结束！"
Timer1.Enabled = False
Else
Command1.Caption = Format(timeall \ 3600, "00") & ":" & Format((timeall \ 60) Mod 60, "00") & ":" & Format(timeall Mod 60, "00")
timeall = timeall - 1
End If
End Sub
Private Sub Form_Activate()
Dim hh%, mm%, ss%
hh = 1: mm = 0: ss = 0 '指定倒计时的时间长度
Command1.Caption = Format(hh, "00") & ":" & Format(mm, "00") & ":" & Format(ss, "00")
timeall = hh * 3600& + mm * 60& + ss - 1
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub
Dim a, b, c As String
Private Sub Command1_Click()
a = 1
b = 1
c = 1
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Label1.Caption = "停止计时"
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
a = Format(a, "00")
b = Format(b, "00")
c = Format(c, "00")
Label1.Caption = a & ":" & b & ":" & c
If c = 0 Then
If b = 0 Then
If a = -1 Then
Timer1.Enabled = False
Label1.Caption = "倒计时完成"
Else
c = c - 1
b = 59
c = 59
End If
Else
b = b - 1
c = 59
End If
Else
c = c - 1
End If
End Sub
vb一小时倒计时源代码,格式00:00:00
给一个自己写的，篇幅更短，代码更简洁易懂的，允许自行指定24小时之内的倒计时。指定时，hh是小时数，赋值0-23，mm是分钟数，赋值0-59，ss是秒数，赋值0-59，但mm和ss通常为0。点击倒计时的按钮即可开始。'窗体内需要建立Command1控件和Timer1控件 Dim timeall As Long '计算倒计时的总秒数 P...
求C语言高手: 1小时倒计时程序怎么写 以下是我写的,但是不符合常规,总 ...
修改后的代码：#include <stdio.h>#include <stdlib.h>#include<windows.h>int main(){ int a,b,c; a=1; b=0; c=0; while(a>0) { system("cls"); printf("%d:%02d:%d%d\\n",a,b,c,0); a=a-1; b=59; c=59; while(a>=0 && b>=0) { Sl...
倒计时的flash怎么制作?
1.启动Flash，新建元件，命名为“倒计时”，行为中选择“影片剪辑”，确定后进入元件编辑窗口。2.点击文本工具，在属性中选择“静态文本”，划出一个文本框，设置好文本框的参数，输入内容“现在离还有”。3.点击文本工具，在属性中选择“动态文本”，划出一个文本框，设置好文本框的参数，变量设置为“...
谁有用java的application编写的倒计时钟代码?
是一个这样的倒计时钟:输入一个时间 比如120分钟 按开始后 倒计时开始.在中途可以选择暂停.在剩下1分钟时会有提示.要用application编写的哦.麻烦各位高手了.解析:package hello;import java.awt.*;import java.applet.*;import java.awt.event.*;import java.util.*;import java.awt.geom.*;public...
我想设计个倒计时得程序 应该怎么弄啊?
说明: 用来生成倒计时JS代码的脚本 效果: 点这里在新窗口中看效果！代码: 要完成此效果需要两个步骤 第一步：把如下代码加入到<head>区域中 <SCRIPT language=javascript> <!-- function generate(form){ for(var q=0;q<12;q++){ if(document.me.m.options[document.me.m.selectedIndex]....
地球一小时是什么时候
百度空间在空间的模块中置入了“地球一小时”倒计时的模块,该模块计划和专题页面一同上线,上线时间计划在3月19日持续到3月31日。[编辑本段]【活动意义】 2008年,悉尼全城在“地球一小时”内能源消耗下降了8.4%,相当于熄灭了160万只灯泡。新西兰唯一一个正式参加熄灯活动的城市克赖斯特彻奇,公布的数据显示,熄灯一小时...
求一个DW倒计时代码
} function update(num) { if(num == secs) { document.agree.agreeb.value =" 我 同 意 ";document.agree.agreeb.disabled=false;} else { printnr = secs-num;document.agree.agreeb.value = "请认真查看<服务条款和声明> (" + printnr +" 秒后继续)";} } \/\/--> <\/script> ...
php循环倒计时的代码
3. 在主框架上插入一子框架,子框架的源文件指向php文件 4. 在PHP源文件中插入适当代码.代码的作用主要分几部分,A.计算剩余时间 B.用于更新主页面的剩余时间对象的JS代码.C.适当设置页面刷新的时间(用JS或刷页刷新代码)部分代码:1.主框架(index.php)<form action="timer.php" method="post" name...
单片机时钟和倒计时器的汇编语言代码,哪位大侠能给出每个语句的注释解释...
MOV P1,20H；P1=11111101B MOV 40H,#10；（40H）=0AH SETB EA；开总中断 SETB ET0；开定时中断T0 MOV TMOD,#11H；设置T0工作于定时方式1 MOV TH0,#3CH；定时初值设置高位 MOV TL0,#0B0H；定时初值设置低位 SETB TR0；允许T0中断 LL: LCALL KEY；调用KEY LCALL KEYC；调用KEYC SJMP...
C语言高手看过来,2分钟倒计时代码例如2:00 1:59
include <stdio.h>#include <windows.h>int main(){ int i=120; for (; i>0; i--){ printf("%2d:%2d\\n",i\/60,i-i\/60*60); Sleep(1000); } printf("%2d:%2d\\n时间到!",0,0); getchar();} 实测可用。附截图：...
西夏中宝： 直接用标签控件排列好格式就好了,至于进入该页面后自动计时,那就直接在load中让计时器=true就是了.
泗洪县15654419445： vb一小时倒计时源代码,格式00:00:00 - ？
西夏中宝： 给一个自己写的,篇幅更短,代码更简洁易懂的,允许自行指定24小时之内的倒计时.指定时,hh是小时数,赋值0-23,mm是分钟数,赋值0-59,ss是秒数,赋值0-59,但mm和ss通常为0.点击倒计时的按钮即可开始. '窗体内需要建立...
泗洪县15654419445： 谁能给我一个VB计时器的代码啊? - ？
西夏中宝： 先在属性栏里把Timer的Interval属性改为非0,才会运行,如改为“1000”,其他的2楼正确.Private Sub Command1_Click()'开始 Timer1.Enabled = 1 End Sub Private Sub Command2_Click()'暂停 Timer1.Enabled = 0 End Sub Private Sub Timer1_Timer() Static i i = i + 1 Label1.Caption = Format(i \ 3600 & ＂:＂ & (i Mod 3600) \ 60 & ＂:＂ & i Mod 60, ＂hh:mm:ss＂) End Sub
泗洪县15654419445： VB计时器原代码 - ？
西夏中宝： Option Explicit Public Min%, Sec%Private Sub Command1_Click()Form1.Timer1.Enabled = Not Form1.Timer1.EnabledForm1.Command1.Caption = IIf(Form1.Timer1.Enabled, ＂暂停计时(&P)＂, ＂开始计时(&S)＂) End SubPrivate ...
泗洪县15654419445： vb怎么写个一小时倒计时,过了时间到了执行msgbox＂一小时到了＂ - ？
西夏中宝： 以前写的一个,你看看 Dim T As Long Private Sub Command1_Click()Timer1.Enabled = TrueLabel5.Caption = Val(Text1.Text \ 60)Label7.Caption = Val(Text1.Text Mod 60)End Sub Private Sub Form_Load() Label1.Caption = ＂00:00＂ Label5....
泗洪县15654419445： 求一段VB倒计时器代码 - ？
西夏中宝： '建立一个text1,一个label1,一个timer1,两个command1-2,不用设置任何属性.Option Explicit Dim M As Single, S As Long Private Sub Form_Load() form1.Width = 3800 form1.Height = 1800 form1.BackColor = RGB(150, 120, 80) Timer1....
泗洪县15654419445： 用VB程序设置倒计时源代码 - ？
西夏中宝： 1、使用Timer控件,其中设置间隔时间,每次激活时计时时间减少相应数值(使用简单,但是程序复杂的话,计时“非常”不准).2、使用系统时间来计时,Timer控件进行激活显示.如:设置开始时间如StartTime = Timer,Timer控件激活后,再次系统当前时间,将差值在显示中减去(比较准确的计时,推荐).3、更精确的计时,使用API函数,GetTickCount可以精确计时,Timer控件来激活计算.
泗洪县15654419445： 在vb中如何实现00:10:00的形式计时 - ？
西夏中宝： Private Sub Form_Load() Timer1.Enabled = True Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer() Label1.Caption = TimeEnd Sub张志晨
泗洪县15654419445： vb倒计时代码 - ？
西夏中宝： Dim s As Long Private Sub cmdSet_Click() Timer1.Enabled = False s = InputBox(＂请输入倒计时秒数:＂, ＂设置倒计时秒数＂, 5) Label1 = ＂倒计时: ＂ & s & ＂秒＂ cmdStop.Tag = s cmdStart.Tag = 0 cmdStart.Caption = ＂启动时间＂...
泗洪县15654419445： vb中编一个倒计时的程序其中format(a,00)的作用 - ？
西夏中宝： a=10(a,＂00＂) 输入为 10 a=9(a,＂00＂) 输入为 09----------------------- 返回 Variant (String),其中含有一个表达式,它是根据格式表达式中的指令来格式化的.语法 Format(expression[, format[, firstdayofweek[, firstweekofyear]]]) Format 函数的语法...
