每天长时间用电脑，弄得身体不适，想自己编一个闹钟程序，每半小时提示一次，起身活动一下，语音或音乐及动画提示都可，最好能在最小化后就在系统的托盘里的。本人不是想不劳而获，只是希望高手能给点提示和编程思路，谢谢！！

太简单了吧？
弄个Timer，每隔一段时间检测系统时间。

我正在写这样一个程序，写好了把代码贴出来给你看

Private Sub Timer1_Timer()
static a as integer,b as integer
a=a+1
if a=60 then
    b=b+1
    a=0
     if b=30 then
        msgbox "你该休息了！",vbokonly,"提示"
        b=0
     endif
 endif
End Sub

呵呵..楼上的朋友,问一下,要是把Timer的时间设置成1分钟,就不用b哪个变量了,不是更好吗?

呵呵,简单问题复杂化.

朋友，interval设置长了并不是好事。不信你试试看。

[此贴子已经被作者于2005-6-16 16:39:47编辑过]

大家说的都有理！各自喜欢怎么写就怎么写吧

4楼朋友的方法还行，我试了，我试着再加上提示时能放音乐的代码，还有能设置提示时间自定义的，也就是加一个输入界面，这样作为一个实用小程序也是不错的，呵呵。。。

我自己把程序编好了，发上来给各位参考，请多指教。 代码如下： Dim fn As String

Private Sub Command1_Click() 'CancelError 为 True。 On Error GoTo ErrHandler '设置过滤器。 CommonDialog1.Filter = "All Files (*.*)" '指定缺省过滤器。 CommonDialog1.FilterIndex = 2

'显示“打开”对话框。 CommonDialog1.ShowOpen '调用打开文件的过程。 fn = CommonDialog1.FileName Label2.Caption = fn Exit Sub ErrHandler: '用户按“取消”按钮。 Exit Sub End Sub

Private Sub Command2_Click() MMControl1.Command = "close" End Sub

Private Sub Timer1_Timer() tsy = Text2.Text keep = Text1.Text Static a As Integer, b As Integer a = a + 1 If a = 60 Then b = b + 1 a = 0 If b = keep Then MMControl1.FileName = fn MMControl1.Command = "open" MMControl1.Command = "play" MsgBox tsy, vbOKOnly, "提示" b = 0 End If End If

End Sub 窗体界面倒是可以根据自己喜好设定。