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
赞 (0)

相关推荐

  • C#实现线程安全的简易日志记录方法

    C#实现线程安全的简易日志记录方法

    一般在实际项目的开发中,会要求涉及日志记录的问题,比较常用的有Log4Net,NLog等几个,而小项目小工具的话,则无需费此大驾.而譬如串口开发的话,需要记录串口过来的数据等等,这时候就要考虑日志记录上线程的问题.对此,为了方便后续使用,封装了下代码: using System; using System.Diagnostics; using System.IO; using System.Text; using System.Threading; namespace CSharpUtilHel

  • Delphi实现毫秒级别的倒计时实例代码

    本文以实例简述了Delphi实现毫秒级别倒计时的方法.一般来说可以获得系统的高性能频率计数器在一毫秒内的震动次数,如果时钟震动次数超过10毫秒的次数则刷新edit3的显示,显示从开始记数到记数实际经过的时间,具体实现代码如下: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, mmsystem; type

  • php+js实现倒计时功能

    js部分 复制代码 代码如下: setInterval("time_controller()",1000);function time_controller(){    $(".time_val").each(function(){         var time_id = "time_show_"+$(this).attr('for');         var time_val= $(this).attr('value');        

  • jquery实现倒计时代码分享

    html部分 复制代码 代码如下: <span class="time_wrap" value="1397145180" style="line-height:200%;"></span> js部分 复制代码 代码如下: <script type="text/javascript">        $(document).ready(function(){            setInt

  • C#与js实现去除textbox文本框里面重复记录的方法

    本文以实例形式展示了C#与js实现去除textbox文本框里面重复记录的方法!具体方法如下: 现有如下问题:页面有一个textbox文本框(是多行的),比如我在文本框里面输入:111,222,333,555当再输入111的时候会自动清除掉这个111,或者是在提交一个按钮前清除掉这个相同记录! 解决方案如下: 以逗号分割成一个数组 有一个Split()方法 然后比较 里面相等的就删除掉后面的那个 形成新的实例 再把新实例按格式输进来~ C#代码如下: string temp_str = "111,

  • timespan使用方法详解

    几点重要的用法: a 先来介绍几个方法 TimeSpan.Minutes(其他时间比如天数,小时数,秒数都一样的情况下得到的分钟数的差),其他的Hours,Second一样DateTime.Tick :是一个计时周期,表示一百纳秒,即一千万分之一秒,那么 Ticks 在这里表示总共相差多少个时间周期,即:9 * 24 *                    3600 * 10000000 + 23 * 3600 * 10000000 + 59 * 60 * 10000000 + 59 * 10

  • Android实现加载广告图片和倒计时的开屏布局

    这是一个android开屏布局的实例,可以用于加载广告图片和倒计时的布局.程序中设置的LayoutParams,划分额外空间比例为6分之5,具体权重比例可根据用户自己需求来自定义,异步加载广告图片,相关的Android代码. 具体实现代码如下: package cn.waps.extend; import android.app.Activity; import android.content.Context; import android.content.res.Configuration;

  • C#基于TimeSpan实现倒计时效果的方法

    C#基于TimeSpan实现倒计时效果的方法

    本文实例展示了C#基于TimeSpan实现倒计时效果的方法,比较实用的功能,对于初学者来说有一定的学习参考价值.具体实现方法如下: 示例代码如下: using System; using System.Threading; namespace ConsoleApplication29 { class Program { static void Main(string[] args) { try { DateTime _timeEnd = DateTime.Now.AddSeconds(62);

  • C#实现获取一年中是第几个星期的方法

    本文展示了C#实现获取一年中是第几个星期的方法,对初学者学习C#时间操作有一定的借鉴价值,具体实现代码如下: 主要功能代码如下: /// <summary> /// 获取日期是一年中第几个星期 /// </summary> /// <param name="date">需要计算的时间</param> /// <returns>一年中第几个星期</returns> public static int GetWeekN

  • 简单易用的倒计时js代码

    <!doctype html> <html> <head> <meta charset="utf-8"> <title>简单易用的倒计时js代码</title> <style> *{ margin:0; padding:0; list-style:none;} body{ font-size:18px; text-align:center;} .time{ height:30px; padding:20

随机推荐