VB实现的倒计时类代码详解
更新时间:2014年07月31日 10:36:09 投稿:shichen2014
这篇文章主要介绍了VB实现的倒计时类代码,非常实用的功能,需要的朋友可以参考下
(福利推荐:【腾讯云】服务器最新限时优惠活动,云服务器1核2G仅99元/年、2核4G仅768元/3年,立即抢购>>>:9i0i.cn/qcloud)
(福利推荐:你还在原价购买阿里云服务器?现在阿里云0.8折限时抢购活动来啦!4核8G企业云服务器仅2998元/3年,立即抢购>>>:9i0i.cn/aliyun)
本文所述为用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的32位程序在64位系统中出现文件和注册表自动转向的解决方法
这篇文章主要介绍了VB的32位程序在64位系统中出现文件和注册表自动转向的解决方法,需要的朋友可以参考下2014-07-07
最新评论