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返回记录集结果到HTML表格的方法

    VB返回记录集结果到HTML表格的方法

    这篇文章主要介绍了VB返回记录集结果到HTML表格的方法,实例分析了VB获取记录集与HTML表格生成的相关技巧,需要的朋友可以参考下
    2015-06-06
  • VB关机恶搞小程序

    VB关机恶搞小程序

    本文给大家汇总了一些使用VB实现的关机恶搞小程序,大家娱乐一下就行了,千万别做坏事哦
    2015-09-09
  • VB简易记事本实现代码

    VB简易记事本实现代码

    VB简易记事本实现代码,需要的朋友可以参考下
    2012-10-10
  • VB的32位程序在64位系统中出现文件和注册表自动转向的解决方法

    VB的32位程序在64位系统中出现文件和注册表自动转向的解决方法

    这篇文章主要介绍了VB的32位程序在64位系统中出现文件和注册表自动转向的解决方法,需要的朋友可以参考下
    2014-07-07
  • VB实现按行读取文本文件的方法

    VB实现按行读取文本文件的方法

    这篇文章主要介绍了VB实现按行读取文本文件的方法,涉及使用VB操作文件读取的相关技巧,需要的朋友可以参考下
    2015-06-06
  • VB6.0 支持鼠标滚轮教程

    VB6.0 支持鼠标滚轮教程

    众所周知,VB6.0一个十分蛋疼的问题就是不支持鼠标滚轮,要自己一点点地拖动。微软怎么会这么傻逼呢,so,微软用VB6.0开发了一个让它支持鼠标滚轮的插件。
    2014-10-10
  • VB使用shell函数打开外部exe程序的实现方法

    VB使用shell函数打开外部exe程序的实现方法

    这篇文章主要介绍了VB使用shell函数打开外部exe程序的实现方法,是非常实用的一个功能,需要的朋友可以参考下
    2014-07-07
  • Basic求10000以内的完美数

    Basic求10000以内的完美数

    一个数的所有真因数加起来正好等于这个自然数本身,在数学上,具有这种性质的自然数叫做完全数。关键是求出该自然数k的所有因子。如果k%i为0,则i为k的因子,用循环语句求出k 的所有真因子(1<=i<=k/2),把它们求和,看是否等于k来判断。
    2015-05-05
  • VBA中操作Excel常用方法总结

    VBA中操作Excel常用方法总结

    这篇文章主要介绍了VBA中操作Excel常用方法总结,包含关闭工作簿、打开工作簿、切换工作表等,需要的朋友可以参考下
    2014-07-07
  • VBA数组用法案例详解

    VBA数组用法案例详解

    这篇文章主要介绍了VBA数组用法案例详解,本篇文章通过简要的案例,讲解了该项技术的了解与使用,以下就是详细内容,需要的朋友可以参考下
    2021-08-08

最新评论

?


http://www.vxiaotou.com