|
注册会员
- UID
- 29510
- 帖子
- 2
- 精华
- 0
- 积分
- 36
- K币
- 0
|
1#
大 中
小 发表于 2008-4-25 16:37 只看该作者
计时器 自己做的
自己做了个计时器，贴上来给大家看看！ 请大家多多指教！！ 
程序说明: 开机后打开程序！每过一个小时程序都会报时，点击保存按钮可以把你使用的时间记录在时间文本文档中！ 双击图片可以换取背景图片！
做法： 新建一个窗体！
按照下面表格在属性窗口中设置好控件的属性，参考图片放好位置，接着复制代码，利用窗体布局窗口去调整窗口起始位置！最后生成exe执行文件。
注意第一个要先添加图像框，其大小和窗体差不多
l1 l2 l 3分别表示 小时数 分钟数 秒数
Name
| Caption
| 其他属性设置
| 添加的控件类型
| Form1
| 计时器
| Maxbutton设置为 false
| Icon里设置喜欢的图标
| 窗体
| Command1
| 保存
| Font设置为粗体
Style=1
Backcolor设置成绿色
| 命令按钮
| Command2
| 隐藏
| 命令按钮
| L1
|
| Aliment设置成centre
Font设置为粗体
Forecolor设置成绿色
Backstyle设置成transparent
| 标签
| L2
|
|
| L3
|
|
| Label1
| 所用时间
|
| Label2
| 小时
|
| Label3
| 分
|
| Label4
| 秒
|
| Time1
|
| Interval设置为1000
| 计时器
| Image1
|
| 在loadpicture中加一副图片
建议黑色，不要太大
| Stretch设置成true
| 图像框
| cd1
|
| 从 工程—部件—控件 中找到
microsoft commondialog control6
添加到工具窗口。再添到窗口
| 对话框
| cd2
|
|
| 对话框
|
以下代码直接复制就可以！
Dim s
Dim t
Private Sub Command1_Click()
cd1.Filter = "文本文件(*.txt)|*.txt"
cd1.FilterIndex = 1
cd1.ShowSave
sa = cd1.FileName
If sa <> "" Then
Open sa For Append As #1
n = L1.Caption & "
小时
" & l2.Caption & "
分钟
" & L3.Caption & "
秒
"
Print #1, Date + Time, "您使用的时间已有", n
Close #1
End If
End Sub
Private Sub Command2_Click()
If Int(n / 2) <> n / 2 Then
Form1.WindowState = 0
Else
Form1.WindowState = 1
End If
End Sub
Private Sub Form_Load()
d = Date
l2.Caption = 0
L1.Caption = 0
End Sub
Private Sub Image1_DblClick()
cd2.Filter = "图片(*.gif)|*.gif|图片(*.jpg)|*.jpg|图片(*.bmp)|*.bmp|所有文件(*.*)"
cd2.FilterIndex = 4
cd2.ShowOpen
sa1 = cd2.FileName
If sa1 <> "" Then
Image1.Picture = LoadPicture(sa1)
End If
End Sub
Private Sub Timer1_Timer()
s = Val(L3.Caption)
s = s + 1
t = t + 1
Select Case s
Case 60
L3.Caption = 0
l2.Caption = Val(l2.Caption) + 1
Case Else
L3.Caption = s
Select Case l2.Caption
Case 60
L1.Caption = Val(L1.Caption) + 1
l2.Caption = 0
End Select
End Select
If t = 3600 Then
b = MsgBox("您已使用电脑达到一小时，请注意休息！", vbOKOnly + vbInformation + vbSystemModal, "友情提醒")
End If
If t = 7200 Then
b = MsgBox("您已使用电脑达到二小时，请注意休息！", vbOKOnly + vbInformation + vbSystemModal, "友情提醒")
End If
If t = 10800 Then
b = MsgBox("您已使用电脑达到三小时，请注意休息！", vbOKOnly + vbInformation + vbSystemModal, "友情提醒")
End If
If t = 14400 Then
b = MsgBox("您已使用电脑达到四小时，请注意休息！", vbOKOnly + vbInformation + vbSystemModal, "友情提醒")
End If
If t = 18000 Then
b = MsgBox("您已使用电脑达到五小时，请注意休息！", vbOKOnly + vbInformation + vbSystemModal, "友情提醒")
End If
End Sub
|
