用vs2005编写的《闹钟》程序

Vs2005设计《倒计时提醒》程序时新建有3个form窗体文件：界面截图如下： Form1：主界面

在Form1界面上点击“设置倒计时”菜单，就会弹出form2

Form2：设置倒计时界面

在form1界面上点击“音乐路径”菜单，就会弹出form3设置音乐路径界面 Form3：音乐路径界面

弹窗提醒截图：

第三章 详细设计

3.1控件功能及属性

Form1控件 控件类型 module button Name Module1 Button1 Button2 Button3 label Menustrip1 Lable1 Lable2 MenuItem1 MenuItem2 MenuItem3 Form2控件 控件类型 button Name Button1 Button2 Lable Lable2 Lable3 Textbox TextBox2 TextBox3

空 空 TextBox1 分钟 秒钟 空 Lable1 Text 开始 关闭 小时 Text Module1.vb 开始 继续 停止 倒计时 空 设置倒计时 退出 音乐路径 Form3控件： 控件类型 Lable1 Button1 TextBox1 模块module1： 模块类型 Module1

Name Lable1 Button1 TextBox1 Text 音乐路劲 完成 空 Name Module1.vb Text 3.2模块程序代码

Module1.vb模块代码： Module Module1

' 这是在模块中添加的代码

Public hours As Short Public minutes As Short

Public seconds As Short Public revtime As Date

'此API函数用来使某个窗口位于所有窗口之上

Public Declare Function SetWindowPos Lib \"user32\" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer End Module

Form1窗体代码：

Public Class Form1

Private Sub Form1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DoubleClick

Me.Close() ’双击窗体关闭

End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Me.TopMost = True ’打开窗体时，位于所有窗体的最前面

End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick ’设置时间空间

If seconds > 0 Then '当秒钟大于时

seconds = seconds – 1 '秒钟做减法

End If

If seconds < 1 And minutes > 0 Then '当秒钟<1和分钟>0 minutes = minutes – 1’分钟做减法

seconds = 60'秒钟重新计数

End If

If minutes < 1 And seconds = 0 And hours > 0 Then’当秒钟<1和分钟=0并且时钟=0 hours = hours – 1 '小时做一次减法 minutes = 60 ’分钟重新计数

End If

If hours < 0 Then ’ 不能让小时小于零，所以当小时<0 hours = 0 ’小时重新赋值为0

End If

If minutes < 0 Then ’不能让分钟小于零，所以当分钟<0 minutes = 0 ’分钟重新赋值为0

End If

’下面一行为显示倒计时时间

Label2.Text = CStr(hours) + \"：\" + CStr(minutes) + \"：\" + CStr(seconds)

If seconds = 0 And minutes = 0 And hours = 0 Then’如果时钟、分钟、秒钟同时等于0 Timer1.Enabled = False ’那倒计时停止

PlaySound(Form3.TextBox1.Text, 0, SND_LOOP Or SND_ASYNC)’开始播放提醒音乐

End If End Sub

’下面一行为菜单栏中点击弹出《设置倒计时》窗体

Private Sub MenuItem1_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuItem1.Click

Form2.ShowDialog() ’弹出Form2窗体

End Sub

Private Sub MenuItem2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuItem2.Click

Me.Close() ’“退出”菜单

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Timer1.Enabled = False ’Button控件，属性为停止

MsgBox(\"当前倒计时为：\" & Label2.Text) ’自动弹窗显示当前倒计时

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

MsgBox(\"请先设置倒计时！\") ’当开始单击button2时，弹出提示“请先设置倒计时”

Form2.ShowDialog() ’弹出form2窗体 End Sub

’下面几行为播放音乐功能的代码

Public Declare Function PlaySound Lib \"winmm.dll\" (ByVal lpszSoundName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer Const SND_FILENAME As Integer = &H20000 Const SND_ALIAS As Integer = &H10000 Const SND_SYNC As Integer = &H0

Const SND_ASYNC As Integer = &H1 Const SND_LOOP As Integer = &H8

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Timer1.Enabled = True ’开始

End Sub

Private Sub 音乐路径ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 音乐路径ToolStripMenuItem.Click

Form3.ShowDialog() ’form3窗体弹出，设置音乐路径 End Sub End Class

Form2窗体代码： ’下面是form2窗体的代码 Public Class Form2

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.TopMost = True ’当打开此窗体时，位于所有窗体最前面 End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

hours = CInt(TextBox1.Text) '这里是将分隔的小时赋给变量“hours” minutes = CInt(TextBox2.Text) '这里是将分隔的分钟赋给变量“minutes” seconds = CInt(TextBox3.Text) '这里是将分隔的秒钟赋给变量“seconds” Form1.Label2.Text = CStr(hours) + \"：\" + CStr(minutes) + \"：\" + CStr(seconds) Form1.Timer1.Enabled = True

Me.Hide() ’完成上面命令时，隐藏窗体 End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

Me.Close() ’窗体关闭 End Sub End Class

Form3窗体代码：

Public Class Form3

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.Hide() ’窗体隐藏

End Sub

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.TopMost = True ’处于所有窗体最前面 End Sub End Class

生成安装程序步骤

使用vs2005来生成安装程序：

第一步：在“解决方案资源管理器”中单击“倒计时”项目。

第二步：单击“文件”菜单---“添加”---“新建项目”

在弹出的“添加新建项目”中选择“其他项目类型”---“安装与部署”，设置要安装程序的“名称”及“位置”，单击“确定”。

第三步：在“解决方案资源管理器”中选择“倒计时”项目。在“文件系统编辑器”中，选择“应用程序文件夹”节点。

第四步：在“操作”菜单上指向“添加”，然后单击“项目输出”。在“添加项目输出组”对话框中，从“项目”下拉列表中选择“倒计时”。从列表中选择“主输出”组。在“配置”框中，选择“(活动)”。单击“确定”关闭对话框。

第五步：为应用程序创建快捷方式。在“文件系统编辑器”中，选中“来自“倒计时”的主输出”节点。并右键点击，创建快捷方式。并为此快捷方式重命名为你所希望出现在用户桌面上的名称。同时把些快捷方式拖拽至左部的“用户桌面”文件夹中。

第六步：也是最后一步，在“生成”菜单上选择“生成倒计时”，便可以分发给用户安装了。