用VB编写一个闹钟程序

怎样用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 Sub

Private Sub Command3_Click()
Call deng
'调用deng子程序
End Sub

Private Sub Form_Click()
frmabout.Show
'显示关于对话框
End Sub

Private Sub Form_Resize()
If WindowState = 1 Then
Call mintime
Else
Caption = "小闹钟"
End If
'如果窗口被最小化,则调用mintime程序

End Sub
Private Sub mintime()
Caption = Format(Time, "long Time")
'使用长时间格式来显示时间
End Sub

Private Sub Timer1_Timer()
If lbltime.Caption <> CStr(Time) Then
lbltime.Caption = Time
End If
'显示时间每秒钟的变化
If Time >= AlarmTime Then
Call deng
End If
'判断如果现在的时间超过了设定的时间,则调用deng子程序
If WindowState = 1 Then
If Minute(CDate(Caption)) <> Minute(Time) Then
mintime
End If
End If
'最小化时显示时间每分钟的变化
End Sub

Sub dialog()
CommonDialog1.Flags = cdlCFBoth
CommonDialog1.ShowOpen
Label1.Caption = CommonDialog1.FileName
'If Label1 <> " Then
If Label1 <> "" Then
Command3.Enabled = -1
Else
Exit Sub
End If
'把打开的文件名给于label1
'如果label1不为空时,则command3即可用
End Sub

Sub deng()
Dim ss
ss = Shell(Label1.Caption, 1)
End
'启动指定的文件,并且结束小闹钟程序
End Sub

做一个简单的闹钟程序很简单的。我这里不用if语句。首先我们在窗体上添加一个标签控件，再画一个“闹钟”，将闹钟得interval属性改为1000，双击闹钟，进入闹钟的代码视图，编写代码
private
sub
timer1_timer（）
label1.caption
=
time
end
sub就行了。谢谢采纳

'在界面添加一个时间控件，把代码复制进去，运行就可以达到目的，在播放铃声处添加你想播放铃声的语句即可
Dim Ttime_S As Integer
Public Ttime_A As Integer

Private Sub Form_Load()
Ttime_A = 60 * 60 '初始为1个小时
End Sub

Private Sub Timer1_Timer()
If Me.Timer1.Enabled = True Then Ttime_S = Ttime_S + 1
If Ttime_S = Ttime_A Then
'播放铃声
If Ttime_A = 60 * 60 Then '一小时
Ttime_A = 15 * 60
ElseIf Ttime_A = 15 * 60 Then '15分钟
Ttime_A = 60 * 60
End If
Ttime_S = 0
End If
End Sub

用Timer控件，

因为他的计时不是很准，
可以记录起始的时间，然后，在事件中判断当前时间与起始时间的间隔，来决定是否响铃。另一个变量决定是间隔是15分钟，还是一个时，一个时响铃后，更新起始时间。

Dim T1 As Integer, T2 As Integer, F As Boolean
Private Sub Form_Load()
Timer1.Interval = 60000
Timer2.Interval = 1000
Timer3.Interval = 60000
Timer2.Enabled = False
Timer3.Enabled = False
T2 = 60
End Sub
Private Sub Timer1_Timer()
T1 = T1 + 1
If T1 >= T2 Then
F = Not F
If F Then T2 = 15 Else T2 = 60
T1 = 0
Timer2.Enabled = True
Timer3.Enabled = True
End If
End Sub
Private Sub Timer2_Timer()
Beep
End Sub
Private Sub Timer3_Timer()
Timer2.Enabled = False
Timer3.Enabled = False
End Sub

读取时间 检测

vb常用控件中有时间控件，可以解决时间间隔问题

---

济阳县15333355718： 用VB程序 如何编写一个电子闹钟程序 - ？
底斩盖尔： Dim a As IntegerPrivate Sub Command1_Click() a = Val(InputBox(＂请输入时间＂, , ＂提示＂)) End Sub Private Sub Timer1_Timer()n = 0 Timer1.Interval = 1000 n = n + 1 If n > a Then End IfEnd Sub

济阳县15333355718： 用VB编写一个闹钟程序 - ？
底斩盖尔： 两个text控件,一个按钮,一个timer控件 ,代码如下: Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = 10 End Sub Private Sub Timer1_Timer() If Timer = Text1.Text Then MsgBox Text2.Text, vbInformation, ＂提醒:＂ End If End Sub

济阳县15333355718： vb 程序设计闹钟 - ？
底斩盖尔： 在VB的MSDN的实例库里有一个alarm实例 就是闹钟 新建一工程,窗体名AlarmForm.放置一个Timer,名字为Timer1.放置一个Label,名字为lblTime 代码如下:Option Explicit Dim AlarmTime Const conMinimized = 1 Private Sub Form_Click() ...

济阳县15333355718： 怎样用vb编写一个闹钟 - ？
底斩盖尔： 加一个timer,label,commandOption Explicit Dim AlarmTime Private Sub Form_Load() AlarmTime = ＂＂ Timer1.Interval = 1000 End Sub Private Sub Command1_Click() AlarmTime = InputBox(＂输入启动闹钟的时间＂, ＂VB 闹钟＂, ...

济阳县15333355718： 用VB做一个闹钟程序 - ？
底斩盖尔： VB有2010的么~???????呵呵~~'///////////////////////////////// '小闹钟示例 'Written By griefforyou '在窗体中添加一个Timer控件,将Interval设为1000以下. '//////////////////////////////// Option ExplicitConst PI = 3.1415926 Dim BaseX As Integer, BaseY As ...

济阳县15333355718： vb 编写一个闹铃的程序 - ？
底斩盖尔： 一、拖一个TEXTBOX到窗体上, 二、拖一个timer到窗体上,并设置好时间. 三、在timer的事件中,判断当前时间与textbox的时间相不相等,相等就执行shell,打开某个文件.你试试,缺哪一步,再来问吧.四、如果象楼下那个大哥说的,你要打开一个非执行文件,那就用api函数ShellExecute,也很简单.当然如果你要画一动画,那就是1楼高人所回答的了,这个复杂,可整不来.

济阳县15333355718： 用VB设计一个闹钟小程序？
底斩盖尔： 先设计了个窗体,你要的是不是这样的?想要VB的还是VB.NET?先 发一下 Timer的吧Private sound As String Private Declare Function mciSendString Lib ＂winmm.dll＂ Alias ＂mciSendStringA＂ (ByVal lpstrCommand As String, ByVal ...

济阳县15333355718： 如何用VB做一个定时闹钟 - ？
底斩盖尔： 一个按钮,一个TIMER,两个TEXTBOX,timer的INTERVAL=1000,enabled=false,Command的Caption设成“开始/暂停”,其他都默认.在command1事件中:timer1.enabled = not timer1.enabled 在timer1事件中,if text1.text > 0 then text1=text1-1 else msgbox text2.text end if 至此完成.

济阳县15333355718： 如何用VB制作一个简易的闹钟 - ？
底斩盖尔： 两个text控件,一个按钮,一个timer控件 ,代码如下: Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = 10 End Sub Private Sub Timer1_Timer() If Timer = Text1.Text Then MsgBox Text2.Text, vbInformation, ＂提醒:＂ End If End Sub

济阳县15333355718： vb制作闹钟的代码 - ？
底斩盖尔： Label1.visable = True 应该是 Label1.Visible = True 只用1个计时器就行,那个多余,复制以下代码,Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() Timer1....