实验四 VB小综合

1、实验四小综合一倒计时牌实验要求：设计一个具有实际应用价值的动态倒计时牌。要求目标时间 （即倒计时截至时间）的年、月、日、时、分、秒和倒计时主题 可以根据不同主题由用户动态设定，并且在此设定基础上在屏幕 上显示距离相关主题到达之时还有n年、n天和n秒（其中的三 个n各不相同，且随着程序运行动态变化），以北京时间作为主 要显示板块。程序中除了刚运行时给出一次当前标准时间值（或 读出系统当前时间）外，在程序运行期间应在自己独立的用户时 钟控制下，而不受外界输入影响和系统时间的束缚。1）根据实验设计需要在窗体上放上若干所需的标签控件、 文本框控件、时钟控件、框架控件、组合框控件、命令按钮控件 等，并设

2、置各控件的必要属性值。2）在程序中用时钟控件不断触发系统时间与预设定时间时 间截止点的时间差:分别计算当前时间和预设定时间截止点之间 相差的整年数、当前时间到时间截止点还差的不足一年的天数和 当前时间到时间截止点之间相差的不足一天的秒数并分别显示 之。3 ）程序中调用系统时间综合使用了 “Now”函数和 “Format”函数，其完整形式为：Format （Now, “hh:mm:ss”）Format （Now，mm/dd/yy”）前者可以按照“小时：分钟：秒”的形式返回当前时间；后 者可以按照“月/日/年”的形式返回。4）为保证应用程序的灵活性，应在倒计时牌上设有暂停、 继续、时间校正和结束运

3、行等特殊要求的激发点。5）按照需要构筑程序框架并编写应用程序。实验四参考代码：Dim nYear As Long, nDay As Long, tYear As Long, tDay As LongDim nSec As Long, tSec As LongDim strNow1 As String, strNow2 As StringDim strEnd1 As String, strEnd2 As StringnYear,nDay,nSec为当前年和当前年距离年底的天数以 及当前天已经过去的秒数，tYear,tDay,tSec为预设定时间截止点的年，该年元月1日到时间截止点的天数以及时间截

4、止点当天零点到截止 时间的秒数Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Command3_Click()Timer1.Enabled = FalseLabel2.Caption = 0”Label4.Caption = 000Label6.Caption = 00000000End SubSub showDay()Label4.Caption = (tDay - nDay) Mod 365

5、End SubSub showYear()Label2.Caption = tYear - nYear - 1+ (tDay + nDay) 365End SubSub showSecond()+ 009 * (修 2puggs)耳明)pa 二源SI (修lpuQgs)P!W)*A + OS * (T - (Z ipu算is)耳町)林)二展皿 (压ipu算壮)叫如H) 1林 二1朗眼 :阜瓦+ 目 +修 E ipu算is)piw+曰 + 0 ipuRgs)耳明 + 由 + 压 ipuRgs)叫电H + 割邱= uond%i2q附 (/ (# :& 审:W):间仙不辱仙44阍Y瞒fL) $xo斡

6、ndui 二 zpuqgs (由目曰:W):旗目不彝仙44圄丫瞒蓑)$乂0斡ndui二IP昭珥s ()p*eoq_iujoj qng oatjj . qnS pug pug ONWICTVPUEwioo qns aATjj qnS pug oagu = uoiq.dj gpqeq .JI I + X*8(U 二 Xbqu .0098 -源su 二 阳su u叫L 0098 脆su ji ESi + O0SU - 00*98 二。筌11 Val(Mid(strEnd2, 4, 2) * 60 + Val(Right(strEnd2, 2)End SubPrivate Sub Timer1_Tim

7、er()strNow1 = Format(Now, mm/dd/yyyy)strNow2 = Format(Now, hh:mm:ss)nYear = Val(Right(strNow1, 4)If nYear Mod 4 = 0 And nYear Mod 100 0 Or nYear Mod 400 = 0 ThennDay = 366 - (Val(Left(strNow1, 2) - 1) * 30 + Val(Mid(strNow1, 4, 2)ElsenDay = 365 - (Val(Left(strNow1, 2) - 1) * 30 + Val(Mid(strNow1, 4, 2)End IfnSec = Val(Left