用vs2005编写的《闹钟》程序

倒计时提醒程序设计时实用vs2005编写的界面截图

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

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

Form2：设置倒计时界面

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

弹窗提醒截图：

第三章详细设计3.1控件功能及属性

Form1控件

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" (ByV al hwnd As Integer, ByV al

hWndInsertAfter As Integer, ByV al X As Integer, ByV al Y As Integer, ByV al cx As Integer, ByV al cy As Integer, ByV al wFlags As Integer) As Integer

End Module

Form1窗体代码：

Public Class Form1

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

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

End Sub

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

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

End Sub

Private Sub Timer1_Tick(ByV al sender As Object, ByV al 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 m inutes < 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(ByV al sender As Object, ByV al e As System.EventArgs) Handles MenuItem1.Click

Form2.ShowDialog() ’弹出Form2窗体

End Sub

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

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

End Sub

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

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

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

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

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

Form2.ShowDialog() ’弹出form2窗体

End Sub

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

Public Declare Function PlaySound Lib "winmm.dll" (ByV al lpszSoundName As String, ByV al hModule As Integer, ByV al 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(ByV al sender As System.Object, ByV al e As System.EventArgs) Handles Button3.Click

Timer1.Enabled = True ’开始

End Sub

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

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

End Sub

End Class

Form2窗体代码：

’下面是form2窗体的代码

Public Class Form2

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

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

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

hours = CInt(TextBox1.Text) '这里是将分隔的小时赋给变量“hour s”

minutes = CInt(TextBox2.Text) '这里是将分隔的分钟赋给变量“minute s”

seconds = CInt(TextBox3.Text) '这里是将分隔的秒钟赋给变量“second s”

https://www.360docs.net/doc/124738288.html,bel2.Text = CStr(hours) + "：" + CStr(minutes) + "：" + CStr(seconds)

Form1.Timer1.Enabled = True

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

End Sub

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

Me.Close() ’窗体关闭

End Sub

End Class

Form3窗体代码：

Public Class Form3

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

Me.Hide() ’窗体隐藏

End Sub

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

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

End Sub

End Class

生成安装程序步骤

使用vs2005来生成安装程序：

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

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

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

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

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

第五步：为应用程序创建快捷方式。在“文件系统编辑器”中，选中“来自“倒计时”

的主输出”节点。并右键点击，创建快捷方式。并为此快捷方式重命名为你所希望出现在用户桌面上的名称。同时把些快捷方式拖拽至左部的“用户桌面”文件夹中。

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