VB实现的倒计时类代码详解
更新时间:2014年07月31日 10:36:09 投稿:shichen2014
这篇文章主要介绍了VB实现的倒计时类代码,非常实用的功能,需要的朋友可以参考下
本文所述为用VB制作倒计时程序用到的一个Module类代码,是基于控制台的倒计时程序,可供VB初学者或者VB爱好者参考学习,当然读者也可以将其拷贝代码到VB工程里面直接使用,不过需要自己创建相关的代码,对于初学者来说,也是很容易看懂的一段代码。
具体功能代码如下:
Module Module1
Sub Main()
Dim a As Date
Dim h, m, s As Integer
Dim n, i As Long
Dim x, z As Long
Dim y As Long
Console.WriteLine("本程序为倒计时程序,请分部输入需要倒数的小时数、分钟数、秒数")
Console.WriteLine("请输入计时的小时数(大于等于0的整数):")
h = Console.ReadLine()
Console.WriteLine("请输入计时的总分钟数(大于等于0并且小于60的整数):")
m = Console.ReadLine()
Console.WriteLine("请输入计时的秒数(大于等于0的并且小于60的整数):")
s = Console.ReadLine()
Console.WriteLine("当前系统时间为:{0}", h)
a = Now()
Console.WriteLine("当前系统时间为:{0}", a)
Console.WriteLine(" ")
Console.WriteLine(" **************倒计时开始***************** ")
Console.WriteLine(" **************倒计时开始***************** ")
Console.WriteLine(" **************倒计时开始***************** ")
Console.WriteLine(" **************倒计时开始***************** ")
z = 0
x = 60
For i = 0 To h * 3600 + m * 60 + s
For n = 0 To 6000000
For y = 0 To 25
z = z + 1
Next
Next
If (h <= 0) And (m <= 0) And (s <= 0) Then Exit For
If s > 0 Then
s = s - 1
Console.WriteLine(" 剩余:{0}小时{1}分{2}秒", h, m, s)
If (h <= 0) And (m <= 0) And (s <= 0) Then
Console.WriteLine("倒计时完毕,随意输入字符将退出程序:")
Exit For
End If
End If
If s = 0 Then
If m > 0 Then
m = m - 1
s = 59
Console.WriteLine(" 剩余:{0}小时{1}分{2}秒 ", h, m, s)
End If
If m = 0 And h > 0 And s = 0 Then
h = h - 1
m = 59
s = 59
Console.WriteLine(" 剩余:{0}小时{1}分{2}秒 ", h, m, s)
If (h <= 0) And (m <= 0) And (s <= 0) Then
Console.WriteLine("倒计时完毕,随意输入字符将退出程序:")
Exit For
End If
End If
End If
Next
Console.Read()
End Sub
End Module
相关文章
-
这篇文章主要介绍了VB实现的《QQ美女找茬游戏》作弊器,以一个完整实例形式分析了VB实现《QQ美女找茬游戏》作弊器的相关技巧,需要的朋友可以参考下2015-06-06
-
这篇文章主要介绍了VB使用shell函数打开外部exe程序的实现方法,是非常实用的一个功能,需要的朋友可以参考下2014-07-07
-
WMI是英文Windows Management Instrumentation的简写,它的功能主要是:访问本地主机的一些信息和服务,可以管理远程计算机(当然你必须要拥有足够的权限),比如:重启,关机,关闭进程,创建进程等2019-04-04
-
这篇文章主要介绍了VB简单实现防止文件被改写的方法,十分的简单实用,有需要的小伙伴可以参考下。2015-06-06
-
这篇文章主要介绍了VB键盘鼠标无动作调用程序的尝试,记录下整个思路和过程,有需要的小伙伴可以参考下。2015-06-06
-
这篇文章主要介绍了VB实现屏蔽文本框右键菜单的复制、粘贴等功能,是非常实用的一个功能,需要的朋友可以参考下2014-07-07
-
这篇文章主要介绍了VB使用ADO操作Access数据库的相关资料,需要的朋友可以参考下2015-06-06
-
WMI是一项行业推荐规范,旨在为访问企业环境中的管理信息而开发一种标准化技术。该信息包括系统内存的状态、当前安装的客户应用程序清单,以及有关客户端状态的其他数据2019-04-04
-
VB编程基础课教程...2007-03-03
-
这篇文章主要介绍了VB返回记录集结果到HTML表格的方法,实例分析了VB获取记录集与HTML表格生成的相关技巧,需要的朋友可以参考下2015-06-06
最新评论