请教一个新问题，任务，timer
主题：一个任务程序
需求：
游戏开始时间 每天的9:00开始
每轮游戏时间 12分钟------------》这里面的时间生命周期只有12分钟
游戏结束时间 每天的22:00结束
当软件启动时，任意时间开启
如果 系统当前时间为 < 9:00 显示：游戏未开始
如果 时间在9:00和22:00之间 那么
判断 当前时间在12分钟内己经进行了多少,例如：游戏己经进行了一分钟10秒：显示：距离游戏结束还有 10:50秒
如果时间在12分结束，则启动下一轮游戏。
要求：贴出源代码，谢谢，这50分只给一个人哈。。。
''' <summary>
''' 计数器
''' </summary>
''' <remarks></remarks>
Private Sub TimerTick()
'如果 系统当前时间为 < 9:00 显示：游戏未开始
'如果 时间在9:00和22:00之间 那么
'判断 当前时间在12分钟内己经进行了多少,例如：游戏己经进行了一分钟10秒：显示：距离游戏结束还有 10:50秒
'如果时间在12分结束，则启动下一轮游戏。
If CInt(DateTime.Now.ToString("HHmm")) > 900 AndAlso CInt(DateTime.Now.ToString("HHmm")) < 2200 Then
Me.lblState.Text = "游戏已经开始"
'显示当前的系统时间
Me.lblNowTime.Text = DateTime.Now
Dim d As TimeSpan = Now.AddHours(21 - Now.Hour()).Subtract(Now)
'距离游戏结束还有
lblGameOver.Text = d.Hours & "小时" & 60 - Now.Minute() & "分钟" & 60 - Now.Second() & "秒"
'距离当前局结束还剩下
Me.lblCurrTime.Text = (11 - (DateTime.Now.Minute Mod 12)) & "分" & (60 - (DateTime.Now.ToString("ss"))) & "秒"
Dim HCount As Integer
'当前的局数
HCount = DateDiff("n", "9:00", DateTime.Now.ToString("HH:mm")) \ 12
lblCount.Text = HCount
If DateTime.Now.ToString("mm") < 12 Then
'当前局进行了
Me.lblleftTime.Text = DateTime.Now.ToString("mm") & "分" & DateTime.Now.ToString("ss") & "秒"
Else
Me.lblleftTime.Text = (DateTime.Now.Minute Mod 12) & "分" & DateTime.Now.ToString("ss") & "秒"
End If
ElseIf CInt(DateTime.Now.ToString("HHmm")) > 2200 Then
Me.lblState.Text = "游戏已经结束"
Me.Timer1.Stop()
Else
Me.lblState.Text = "游戏未开始"
Me.Timer1.Stop()
End If
End Sub
Me.Timer1.Enabled = True
Me.Timer1.Interval = 1000
