用汇编实现报时小闹钟：

来源：百度知道 编辑：UC知道 时间：2024/05/22 18:18:34
用图形方式画出图形时钟，钟表显示的时间为本机系统的时间。用按键控制改变钟的颜色，演奏音乐或铃声。q键退出程序.
我选的汇编课程设计题目。大虾给点建议哈

VB编写得，这个是

Option Explicit
Dim AlarmTime '申明变量（这个样子定义变量行吗？是什么类型？）
'将AlarmTime申明为变体型(Variant)

Private Sub Command1_Click()
Call dialog '调用dialog子程序
End Sub

Private Sub Form_Load()
Command3.Enabled = False '初始化时command3为不可用的
AlarmTime = "" '(这样的话不就是当成字符串的形式了么？
'此时AlarmTime为字符串型(String)
End Sub

Private Sub Command2_Click()
'AlarmTime = InputBox("请输入你想设定的时间,例如(19:12:00)", "小闹钟").
AlarmTime = InputBox("请输入你想设定的时间,例如(19:12:00)", "小闹钟")
'此时AlarmTime为字符串型(String)
'If AlarmTime = "Then Exit Sub"
If AlarmTime = "" Then Exit Sub
If Not IsDate(AlarmTime) Then
MsgBox "你所输入的不是时间格式,请重试!", , "Wrong"
Else
AlarmTime = CDate(AlarmTime)
'此时AlarmTime为日期型(Date)
End If
'判断输入的是否可转换成time格式
'isdate函数是判断输入的是否可转换成date格式
End