vb 闹钟程序中的问题

来源：百度知道 编辑：UC知道 时间：2024/07/07 08:57:09
我想设计个闹钟程序 只是刚刚接触VB 希望各位给我中肯的回答
闹钟程序是很简单 可是比如我想在每天都 的早上6点 中午12点 下午 5点
都响起的话 这3个时间应该保存在哪里 用什么方法保存 中间电脑可能关闭 如果只是在程序上设置的话 必定不会保存下来 这样在开启程序的时候还要重新输入 很麻烦 请各位高手一定要帮帮忙 尽量详细一点 因为我是新手 太深奥看不懂 最好是举例说明 先谢谢各位 不管有没有留下脚印的 我问的问题主要是闹钟时间用什么方法保存 即使程序退出 在重新启动也不会变没 除非中间改动 并不是闹钟程序 因为这样的例子太多了 就不浪费各位时间了 我现在只有20分 全给了 希望各位帮忙啦

再添加一个Timer控件，添加如下代码：
Dim H As Integer, M As Integer, S As Integer

Private Sub Form_Load()
Timer2.Enabled = True
Timer2.Interval = 1000
End Sub

Private Sub Timer2_Timer()
H = Hour(Time)
M = Minute(Time)
S = Second(Time)
If (H = 6 Or H = 12 Or H = 19) And M = 0 And S = 0 Then
'调用响铃音乐
'................你需要调用的音响代码
'调用计算机喇叭音
For i = 1 To 5
Beep
Next i
End If
End Sub
这样，不用保存，程序在任何时间调用的是系统时间，响铃时间为1秒钟。

两种方法：
1，写一个配置文件，将报时时间存在文件中，下次打开时读取就好了。
配置文件的扩展名是.INI文件
API函数是
读
GetPrivateProfileInt
写
WritePrivateProfileSection
WritePrivateProfileString
WritePrivateProfileStruct
WriteProfileSection
WriteProfileString
用法如下：
'*******************************************
' API函数声明
'*******************************************
Priva