设计一个电子闹钟程序

来源：百度知道 编辑：UC知道 时间：2024/06/04 11:58:34
4、 设计一个电子闹钟程序，具有如下功能：
（1） 按格式显示时间。
（2） 可进行闹时设定。
（3） 当处于“开闹钟”状态，时钟到达闹时时，“闹钟”图像（文件名clock.bmp）会闪烁。
（4） 当处于“关闹钟”状态，则原闪烁停止，闹时功能停止。
vb

Private Sub Form_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
End

End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()
Dim mydate As Date, x As Integer
mydate = Now - #3/23/2009 6:00:00 PM#
x = Val(Second(mydate))
If x Mod 2 = o Then
Form1.Picture = LoadPicture("d:\我的文档\下载的图片\200710300213568037.jpg") '当然这是我的电脑上的路径，你输入你想要的图片的绝对路径就OK了

Else
Form1.Picture = LoadPicture("")
End If
Label1 = Now

End Sub

VA可以吗？