vb倒计时程序怎么写

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倒计时程序怎么写

转载请注明出处育才学习网 » vb倒计时程序怎么写

知识

microsoft账户名怎么写

阅读(295)

本文主要为您介绍microsoft账户名怎么写,内容包括microsoft账户名可以填哪些,创建microsoft账户怎么填写账户名,microsoft账户名是什么。注册 Microsoft 帐户1.转到 Microsoft 帐户注册 网页,然后点击或单击“立即注册”。2.输入自己的姓和

知识

啟的篆体字怎么写

阅读(274)

本文主要为您介绍啟的篆体字怎么写,内容包括启的篆体字的写法,启动的启字怎么写,启字的繁体字怎么写。之的篆体字写法如下图:

知识

卖房启示怎么写

阅读(279)

本文主要为您介绍卖房启示怎么写,内容包括售房启示怎么写售房启示的常见范本,卖房启示怎么写,房屋转让启示如何写。1.要写明房屋的格局,几居室. 2.位置在哪儿. 3.性质.是商品房,还是已购公房. 4.房子的情况:总高几层,在第几层,面积,板楼还是

知识

柳条的诗歌怎么写

阅读(266)

本文主要为您介绍柳条的诗歌怎么写,内容包括写柳树的诗歌,描写柳条的诗词,描写柳树、柳条的词语、段落、诗歌等内容。柳树属于杨柳科,品种繁多,据知有三千多种,遍布世界各地。我国的柳树品种也多达五十余种,尤以垂柳、河柳、旱柳、杞柳、黄花柳

知识

核酸分子式怎么写

阅读(271)

本文主要为您介绍核酸分子式怎么写,内容包括DNA的分子式怎么写,DNA的分子式怎么写,核酸的化学结构式是什么。这个问题没有直接的答案。蛋白质和核酸都是生物大分子,并没有一个统一的化学式。 首先说核酸,就目前而言,核酸一共有两大类:脱氧核糖

知识

二氧化硅分子式怎么写

阅读(295)

本文主要为您介绍二氧化硅分子式怎么写,内容包括二氧化硅的分子式是什么,二氧化硅的分子式SiO2,,二氧化硅的化学方程式怎么写。化学式SiO2,式量60.08。也叫硅石,是一种坚硬难溶的固体。它常以石英、鳞石英、方石英三种变体出现。从地面往下16

知识

村党支部牌子怎么写

阅读(429)

本文主要为您介绍村党支部牌子怎么写,内容包括村党支部牌子怎么写,党支部村委会牌子如何悬挂,制作党支部委员会牌子的规格如何规定的。按照进门方向,左边钉村党支部牌子,右边钉村委会牌子。可在两侧分开钉挂,也可并列钉挂;也有些说“中国传统是

知识

拼音本上g的格式怎么写

阅读(619)

本文主要为您介绍拼音本上g的格式怎么写,内容包括汉语拼音g的笔顺怎么写,拼音g在生字本上怎么写g在生字本上怎么写啊麻烦拍张照,谢谢啦,,拼音g在生字本上怎么写。汉语拼音g分两笔写成,第一笔左半圆,第二笔竖左弯。具体写法如下:

知识

扔的笔画顺序怎么写的

阅读(310)

本文主要为您介绍扔的笔画顺序怎么写的,内容包括扔的笔画顺序怎么写,扔的笔顺怎么写,扔的笔画顺序怎么写。扔的笔顺:横、竖钩、提、横折折折钩/横撇弯钩、撇

知识

我的幼师梦作文怎么写

阅读(276)

本文主要为您介绍我的幼师梦作文怎么写,内容包括高一作文我的幼师梦300字以上,我的梦想作文600字幼师,幼儿园口头作文我的梦怎么描写。梦想是什么?梦想是从不言弃、努力拼搏的精神支柱,伴随着我们每一个人。上帝没有给我们翅膀,却给了我们一颗

知识

牙医的音标怎么写

阅读(325)

本文主要为您介绍牙医的音标怎么写,内容包括牙医的英语怎么写,牙医的英文读音,牙医英文怎么读音。牙医的英文:dentistdentist 读法 英 [dentɪst] 美 [dɛntɪst] 作名词的意思是:牙科医生;牙医诊所短语:

知识

报告内容要点怎么写

阅读(287)

本文主要为您介绍报告内容要点怎么写,内容包括报告的种类及写作要点,写总结报告的要点是什么,报告单的格式怎么写。报告是向上级机关汇报工作、反映情况、提出意见或者建议,答复上级机关的询问时使用的公文。报告的类别及功用1.例行报告(日报

知识

书信格式怎么写快

阅读(282)

本文主要为您介绍书信格式怎么写快,内容包括书信格式怎么写,快,书信格式怎么写,快,书信的格式怎么写。书信一般由称谓、问候语、正文、结尾、署名、日期所构成。 我们以刘星给强强的一封信为例作简单讲析。1 .称谓在首行顶格的位置写称谓,后

知识

酒店新开业怎么写宣传

阅读(292)

本文主要为您介绍酒店新开业怎么写宣传,内容包括饭店新开业朋友圈宣传语模版,新开业一个酒店怎么去做宣传,和营销,饭店开业的宣传单怎么写。专致专注,品质服务。2、主随客变,如您所愿。3、烛光闪耀度圣诞,美酒佳肴迎新年。4、真心出美味,真诚遇

知识

vba查询代码怎么写

阅读(267)

本文主要为您介绍vba查询代码怎么写,内容包括EXCELVBA中关于查询代码如何编写,VBA要写一个在数据库查询的代码,要如何修改才是正确的写法搜狗,ExcelExcel2007版用VBA实现多条件查询并显示代码怎么写。问题太笼统,给你个例子看吧Public Sub d

知识

vbfunction怎么写

阅读(332)

本文主要为您介绍vbfunction怎么写,内容包括VB如何用function自定义函数格式怎么写,vb用function怎样自定义函数格式怎么写举个例子,比如inputbox,VB函数function的用法。用function自定义函数,跟一般的子程序基本相同。不同的是,function需

知识

液晶电视万能驱动板怎么写程序

阅读(579)

本文主要为您介绍液晶电视万能驱动板怎么写程序,内容包括液晶电视万能驱动板怎么写程序,液晶电视万能驱动板怎么写程序,怎样给驱动板写程序我想知道给液晶电视驱动板写程序的操作过程。需要准备一个U盘就可以更换所有的LVDS接口的液晶屏程

知识

在电脑里怎么写eprom里面的程序

阅读(343)

本文主要为您介绍在电脑里怎么写eprom里面的程序,内容包括外部存储器EPROM,里面有程序时,把它插在专用编程器上面,就能,在proteus里面,怎样往Eprom里面写入数据啊,用STEP57.0怎样把EPROM里的程序拷到PLC和电脑。EPROM是要高电压编程的,不知

知识

怎么写建议安卓程序

阅读(257)

本文主要为您介绍怎么写建议安卓程序,内容包括android程序中的意见反馈是怎么编写的,安卓软件怎么写,如何在androidstudio编写一个建议。打开软件,在菜单中选择file-》new project打开创建向导。配置项目,确定各个名称和存放项目存放路径;Appl

知识

程序怎么写数据库相对路径

阅读(289)

本文主要为您介绍程序怎么写数据库相对路径,内容包括c#程序怎么写数据库相对路径,winform中怎样写数据库的相对路径,c#程序怎么写数据库相对路径。这个需要的超链接指向文件在服务器的绝对路径,即下面获取到的文件的编译路径 :/*** 获取当前

知识

应用程序接口怎么写

阅读(283)

本文主要为您介绍应用程序接口怎么写,内容包括应用程序接口是什么意思,怎么写App接口设计方案,编写程序时的接口是什么意思。PHP是编程语言和应用程序服务器的结合。PHP和其它的编程语言类似,使用变量存储临时数值,使用操作符处理变量。PHP的

知识

vb实训报告怎么写

阅读(270)

本文主要为您介绍vb实训报告怎么写,内容包括求一篇VB实训报告范文,如何写vb实验报告步骤,如何写VB实验报告。一周实训时间转瞬即逝,在这段短暂的时间里,为了完成一个不起眼的小程序,我们可以说是绞尽脑汁,终于,在不懈的奋斗下,在老师的帮助下,在辛

[/e:loop]