VB实现的倒计时类代码详解
本文所述为用VB制作倒计时程序用到的一个Module类代码,是基于控制台的倒计时程序,可供VB初学者或者VB爱好者参考学习,当然读者也可以将其拷贝代码到VB工程里面直接使用,不过需要自己创建相关的代码,对于初学者来说,也是很容易看懂的一段代码。
具体功能代码如下:
ModuleModule1 SubMain() DimaAsDate Dimh,m,sAsInteger Dimn,iAsLong Dimx,zAsLong DimyAsLong 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 Fori=0Toh*3600+m*60+s Forn=0To6000000 Fory=0To25 z=z+1 Next Next If(h<=0)And(m<=0)And(s<=0)ThenExitFor Ifs>0Then s=s-1 Console.WriteLine("剩余:{0}小时{1}分{2}秒",h,m,s) If(h<=0)And(m<=0)And(s<=0)Then Console.WriteLine("倒计时完毕,随意输入字符将退出程序:") ExitFor EndIf EndIf Ifs=0Then Ifm>0Then m=m-1 s=59 Console.WriteLine("剩余:{0}小时{1}分{2}秒",h,m,s) EndIf Ifm=0Andh>0Ands=0Then 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("倒计时完毕,随意输入字符将退出程序:") ExitFor EndIf EndIf EndIf Next Console.Read() EndSub EndModule