如何用VB制作四分钟倒计时? 在窗体上显示00:04:00 运行开始倒计时,到还剩00:00:30 提示
直接用标签控件排列好格式就好了,至于进入该页面后自动计时,那就直接在load中让计时器=true就是了。
图呢?如果想要显示1/10秒的话用一个计时器开始倒计时就好了嘛
添加四个label控件一个timer控件
代码:
Private Sub Form_Load()
Label1.Caption = "00:"
Label2.Caption = "04"
Label3.Caption = ":"
Label4.Caption = "00"
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
If Label2.Caption = "00" And Label4.Caption = "30" Then
Print "提示"
Beep
End If
If Label4.Caption = "00" Then
Label2.Caption = "0" & Label2.Caption - 1
Label4.Caption = 59
Else
Label4.Caption = Label4.Caption - 1
End If
End Sub
拉两个TEXT和一个COMMAND控件,复制下面代码
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim a As Integer
Dim b As Integer
Private Sub Command1_Click()
For i = 240 To 1 Step -1
Me.CurrentX = 0
Me.CurrentY = 0
'Print i
If i = 30 Then MsgBox "30's remaining, hurry up!"
End If
a = i \ 60
b = i Mod 60
Text1.Text = Str(a)
Text2.Text = Str(b)
Sleep 1000
DoEvents
Next i
End Sub
Dim a As Long
Dim b As Long
Private Sub Form_Load()
a = 60 * 4
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Me.Caption = a \ 60 & ":" & Format(b, "00")
a = a - 1
b = a Mod 60
If a = 0 And b = 0 Then Timer1.Enabled = False
End Sub
http://zhidao.baidu.com/question/268017286.html
计算机VB二级什么意思啊?
是一种可用于微软自家产品开发的语言。计算机等级考试二级上机考试时长120分钟,满分100分。计算机等级考试二级VB要求:1、熟悉Visual Basic集成开发环境。2、了解Visual Basic中对象的概念和事件驱动程序的基本特性。3、了解简单的数据结构和算法。4、 能够编写和调试简单的Visual Basic程序。
vb是什么
“Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言,是一种在计算技术发展历史上应用得最为广泛的语言。Visual Basic源自于BASIC编程语言。VB拥有图形用户界面(GUI)和快速应用程序开发(RAD)系统,可以轻易的使用DAO、RDO、ADO连接数据库。或者轻松的创建Active X控件,用于...
智力问答第四期,(本人的题都有一定难度,不够聪明者慎入)
设蜡烛熄灭时A燃烧掉的部分长Sa,B燃烧掉的部分为Sb,燃烧用时t,由题目可得:H-Sa=2(H-Sb)2Va-tVa=2(Vb-tVb)2Va-tVa=2(2Va-t2Va)2Va-tVa=4Va-4tVa 2-t=4-4t t=2\/3 即40min 这个貌似我没懂 因为等长,可以设两根蜡烛长度都是120,单位是Y。那么粗蜡烛每分钟燃烧1Y(两小时等于...
vb连接时间(年,月,日)
mm 当小于10时前面带0的月数(注:当用于时间时,也可以表时为带0的分钟)Format$(Now,"m") 返回值 05 Format$(Now,"hh:mm") 返回值 16:09 mmm 月份 Format$(Now,"mmm") 返回值 五月 q 一年中的第几季(1-4)Format$(Now,"q") 返回值 2 yy 两位数的年份(00-99)Format$(Now,"yy...
vb 高分求 文件操作锁定操作
“隔几天就会出现拷文件时该文本文件正在被生成,然后就会出现冲突,程序报错”,出现这种情况是因为使用timer控件时会因某些因素的中断而使计时不准确,你这里就是因为文件复制打断计时,不能完全隔5分钟取一次 我修改了一下你的程序,使用多一个timer控件,使计时更准确 希望对你有用 Private Sub Form_...
求vb课题!!!急,好的有追加分!!!把程序代码发上来!跪求!!!各位神级...
Command4.Visible = True Text1.SetFocus Text1.Text = ""Case 3 If i = 0 Then If j = 0 Then j = kk j = j - 1 Dir1.Path = ss Dir1.Path = Dir1.List(j)i = File1.ListCount End If i = i - 1 bool = True Case 4 st = Not (st)Case 5 If i = File1....
请教一个VB中保存文件文件速度的问题
这么海量的数据是不适合用文本文件来处理的,在任何软件中都不可能很快的(1000万个数据,假如每个数据10个字节,总长度就是10M多,你可以想象一下打开一个10M的文本文件是什么情景)。建议使用数据库。
怎样制作视频文件?
录像机要花费60分钟时间才能将60分钟的录像带节目重放并输出给MPEG压缩卡,MPEG压缩卡可实时地将模拟音频\/视频信号压缩为.MPG文件。对于4倍速CD-R刻录机,还需要15分钟时间才能将60分钟的.MPG文件刻录在CD-R光盘上。因此一般来说,制作一盘不经任何编辑的VCD光盘大约需要1小时25分钟(包括10分钟左右的准备时间)。 三...
VB如何调用DatePart函数
n 分钟 s 秒 firstdayofweek 参数的设定值如下:常数 值 描述 vbUseSystem 0 使用 NLS API 设置。vbSunday 1 星期日(缺省值)vbMonday 2 星期一 vbTuesday 3 星期二 vbWednesday 4 星期三 vbThursday 5 星期四 vbFriday 6 星期五 vbSaturday 7 星期六 firstweekofyear 参数的设定值如下:常数 ...
vb中format函数怎样定义的
vbUseSystem 0 使用 NLS API 设置。 VbSunday 1 星期日(缺省) vbMonday 2 星期一 vbTuesday 3 星期二 vbWednesday 4 星期三 vbThursday 5 星期四 vbFriday 6 星期五 vbSaturday 7 星期六 firstweekofyear 参数有下面设置:常数 值 说明 vbUseSystem 0 使用 NLS API 设置。 vbFirstJan1 1 从包含一月一...
漆映清胃: 拉两个TEXT和一个COMMAND控件,复制下面代码 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Dim a As Integer Dim b As Integer Private Sub Command1_Click() For i = 240 To 1 Step -1 Me.CurrentX = 0 Me....
鸠江区18486484779: VB中怎样制作一个计时器? 能够设置倒计时的时间,并进行倒计时 - ?
漆映清胃: 1、打开VB6.0,新建一个工程,在窗体中添加三个命令按钮,caption分别改为“设置倒计时”、“启动倒计时”、“继续”,将窗体Form1的caption属性改为“倒计时”,添加一个计时器控件,添加一个文本框. 2、将文本框的Text属性清...
鸠江区18486484779: 用vb制作倒数计时器 - ?
漆映清胃: 1、在窗体上添加一个label1控件 2、在窗体上添加一个command1控件 3、在窗体上添加一个timer1控件 4、复制如下代码,运行 Dim a As Long Private Sub Command1_Click() a = InputBox("请输入秒数") Label1.Caption = a Timer1....
鸠江区18486484779: 如何用VB设计一个倒计时的程序 - ?
漆映清胃: 在窗体上放一个textbox,一个Label,一个Timer,一个Commandbutton 双击窗体,粘贴以下代码: Private Sub Command1_Click() Label1.Caption = Text1.Text Timer1.Interval = 1000 Timer1.Enabled = True End SubPrivate Sub Form_Load() ...
鸠江区18486484779: 请问如何在VB中做一个倒数计时器? 比如我想按一下label1它就开始计100秒,时间完了以后就弹出"时间完"视窗?
漆映清胃: 在窗体上添加label1的基础上,再在窗体上添加1个timer1,即计时器控件. 具体代码如下 Private Sub Label1_Click() Timer1.Enabled = True Timer1.Interval = 100 '秒表运行间隔,这里设置为0.1秒 Label1.Caption = "100" '倒计时的秒数 End ...
鸠江区18486484779: VB中如何timer 控件进行倒计时 - ?
漆映清胃: 1、程序加载时操作: Private Sub Form_Load() '窗体加载时自动进行Timer1.Interval = 1000 '设置计时周期为1秒注意默认计时单位为毫秒,即1/1000秒2、定义一个时间变量.可以某控件的Caption属性代替,如Label12.Caption 3、拖放...
鸠江区18486484779: 怎样用vb做倒计时时钟 - ?
漆映清胃: 添加 三个CheckBox,Caption属性分别是“时”“分”“秒” 添加 三个ComboBox, 添加 两个CommandBotton,Caption属性分别是“输入”“倒计时时间” 添加 两个Timer,Interval值分别是1000,800 添加 一个TextBox,BackColor=&H0,...
鸠江区18486484779: Vb写一个倒计时器. - ?
漆映清胃: 创建2个按钮,1个timer,1个文本框,在文本框中输入时间如:23:00:00 然后点击按钮2开始倒计时!!Option Explicit Dim date1 As Date Private Sub Command1_Click() date1 = CDate(Text1) End Sub Private Sub Command2_Click() Timer1....
鸠江区18486484779: 大家帮忙用VB做一个倒计时器. - ?
漆映清胃: Dim i As Integer Private Sub Command1_Click() i = 20 Timer1.Enabled = True Command1.Enabled = False End Sub Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() i = i - 1 Me....
鸠江区18486484779: 利用VB时钟控件制作倒计时 - ?
漆映清胃: '另加一个label Dim timep As Integer Private Sub Command1_Click() Text1.Enabled = True Timer1.Enabled = True Timer1.Interval = 1000 timep = 120 End Sub Private Sub Timer1_Timer() timep = timep - 1 Label1.Caption = Format(timep \ 60, "...