1.用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 Sub
Private Sub Command2_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
m = m - 1
If m = 0 Then
If f > 0 Then
f = f - 1: m = 60
Else
Timer1.Enabled = False
Label1.Caption = "时间到!"
Exit Sub
End If
End If
Label1.Caption = f & ":" & m
End Sub
效果图:请验证!符合要求就请上分。
2.如何用VB编写一个倒计时的程序
请参考: 或者: 新建 工程,1个按钮,1个timer,和1个文本框 在文本框内输入时间(秒数),点按钮就开始倒计时了: Dim i% Private Sub Command1_Click() Command1.Caption = IIf(Command1.Caption = "开始计时", "停止计时", "开始计时") Timer1.Enabled = Not Timer1.Enabled i = 0 End Sub Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 1000 Command1.Caption = "开始计时" Text1 = "" End Sub Private Sub Timer1_Timer() If Text1 = "" Then Exit Sub Cls If Val(Text1) - i = 0 Then Print "时间到!!!" Timer1.Enabled = False Exit Sub End If Print "现在还剩下" & Val(Text1) - i & "秒了!!" i = i + 1 End Sub。
3.怎么用vb编写倒计时的程序
用VB6.0写的,运行时单击“设置”按钮,弹出Inputbox输入框供用户输入倒计时的时间(以分钟为单位)。单击“开始”按钮则在文本框内显示剩余的时间数(以时:分:秒的格式),同时滚动条上的滚动块同步随时间自左向右移动。dim shi as long
dim fen as long
dim miao as long
Private Sub form_load()
fen=val(0)
miao=val(0)
shi=val(0)
end sub
Private Sub command2_click()
fen=inputbox("时间","输入","")
if fen>=val(60) then shi=val(shi)+val(1)
end sub
Private Sub command1_click()
Timer1.Enabled=true
end sub
Private Sub Timer1_timer()
if miao<>val(0) then
miao=miao-1
end if
if miao=val(0) and fen <>val(0) then
fen=fen-1
miao=60-1
end if
if miao=val(0) and fen =val(0) and shi <>val(0) then
shi=shi-1
fen=60-1
miao=60-1
end if
if miao=val(0) and fen =val(0) and shi =val(0) then
msgbox("时间用尽了!")
timer1.Enabled=False
end if
text1.text="还剩" & shi &; "时" & fen &; "分" & miao &; "秒"
end sub
4.如何用VB编写一个倒计时的程序
请参考: 编程中国-北京2008年奥运会倒计时 或者: 新建 工程,1个按钮,1个timer,和1个文本框 在文本框内输入时间(秒数),点按钮就开始倒计时了: Dim i% Private Sub Command1_Click() Command1.Caption = IIf(Command1.Caption = "开始计时", "停止计时", "开始计时") Timer1.Enabled = Not Timer1.Enabled i = 0 End Sub Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 1000 Command1.Caption = "开始计时" Text1 = "" End Sub Private Sub Timer1_Timer() If Text1 = "" Then Exit Sub Cls If Val(Text1) - i = 0 Then Print "时间到!!!" Timer1.Enabled = False Exit Sub End If Print "现在还剩下" & Val(Text1) - i & "秒了!!" i = i + 1 End Sub。
5.怎样用VB编一个倒计时程序
楼上的代码这么长,还简单?
无语
我给你写了一个,这个才是真正的简单实用,呵呵!
加个TIMER控件 把Interval 属性调成 1000 毫秒 也就是 1秒
在加两个 TEXT
text1.text=3
text2.text=00
在加个按钮 开始倒计时
就行了
程序代码如下:
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
If (Text2.Text <= 0) Then
Text2.Text = 59
Text1.Text = Text1.Text - 1
Else
Text2.Text = Text2.Text - 1
End If
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
如果有什么地方不懂,欢迎联系我!
6.如何用VB设计一个倒计时的程序
在窗体上放一个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
'使用时在文本输入倒计时的秒数,点按钮开始倒计时
7.VB倒计时程序
窗体上放一个label,一个HScrollbox,三个Commandbutton,一个timer
双击窗体,删掉别的代码,粘贴下面代码:
Dim Minute, Second As Long
Private Sub Command1_Click()
Minute = InputBox("输入分钟数", "倒计时时间")
Second = 60 * Minute
Label1.Caption = "倒计时时间为" & Minute & "分钟"
Command2.Enabled = True
Command3.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Command3_Click()
Timer1.Enabled = False
Label1.Caption = "已结束倒计时"
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
End Sub
Private Sub Timer1_Timer()
If Second < 0 Then
Timer1.Enabled = False
Else
Label1.Caption = IIf(Second \ 3600 = 0, "00", IIf(Second \ 3600 < 10, "0" & Second \ 3600, Second \ 3600)) & ":" & IIf(Second \ 60 Mod 60 = 0, "00", IIf(Second \ 60 Mod 60 < 10, "0" & Second \ 60 Mod 60, Second \ 60 Mod 60)) & ":" & IIf(Second Mod 60 Mod 60 = 0, "00", IIf(Second Mod 60 Mod 60 < 10, "0" & Second Mod 60 Mod 60, Second Mod 60 Mod 60))
HScroll1.Value = (60 * Minute - Second) / (60 * Minute) * HScroll1.Max
Second = Second - 1
End If
End Sub
8.如何用VB编写一个天数倒计时的程序
新建 工程,1个按钮,1个timer,和1个文本框 在文本框内输入时间(秒数),点按钮就开始倒计时了: Dim i% Private Sub Command1_Click() Command1.Caption = IIf(Command1.Caption = “开始计时“, “停止计时“, “开始计时“) Timer1.Enabled = Not Timer1.Enabled i = 0 End Sub Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 1000 Command1.Caption = “开始计时“ Text1 = ““ End Sub Private Sub Timer1_Timer() If Text1 = ““ Then Exit Sub Cls If Val(Text1) - i = 0 Then Print “时间到!!!“ Timer1.Enabled = False Exit Sub End If Print “现在还剩下“ & Val(Text1) - i & “秒了!!“ i = i + 1 End Sub。
9.用VB编写倒计时程序
Private Sub Command1_Click()
Me.Caption = "今天是:" & FormatDateTime(Date, 1) &; ",距离情人节还有" & DateDiff("d", Date, "2012-02-14") &; "天"
End Sub
在窗体上添加一个Command1控件,直接复制以上代码,
效果:今天是2012年1月29日,距离情人节还有16天.
转载请注明出处育才学习网 » vb倒计时程序怎么写