精品1个小时出一次 上品半个小时 良品20分钟 评论
求一个QQ华夏永久免费的BOSS计时器
我很久没玩了本人发个加速齿轮给你，你可以中间去下个，倍速调到1.23就可以了太高会数据同步的 追问：
QQ空间爱情计时器
取一颗甜心巧克力进行加温，且每个温度计每天限领一颗。 如需快速加温，提前成为空间沸腾速度最快的情侣，使用浓情巧克力为您的爱情加温吧 到这 http://imgcache.qq.com/qzone/mall/v3/act/act08love/index.htm 评论
vb 倒计时器代码 修改
Dim h, m, s
Private Sub Command1_Click()
h = Int(Text1.Text)
m = Int(Text2.Text)
s = Int(Text3.Text)
Command1.Enabled = False
Command2.Enabled = True
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Command2.Enabled = True
Command1.Enabled = False
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
Command1.Caption = "开始"
Command2.Caption = "停止"
Command2.Enabled = False
Command3.Caption = "退出"
Text1.Text = "0"
Text2.Text = "0"
Text3.Text = "0"
frame1.Caption = "时间设置"
Form1.Caption = "倒计时器"
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = "当前时间:"
Label7.Caption = "倒计时:"
Timer1.Enabled = False
End Sub
Private Sub Text2_Click()
Text2.Text = ""
End Sub
Private Sub Text1_Click()
Text1.Text = ""
End Sub
Private Sub Text3_Click()
Text3.Text = ""
End Sub
Private Sub Timer1_Timer()
Label5.Caption = Time()
If Command1.Enabled = False Then
If s > 0 Then
s = s - 1
Label4.Caption = Str(h) + ":" + Str(m) + ":" + Str(s)
ElseIf s < 1 And m > 0 Then
m = m - 1
s = 59
Label4.Caption = Str(h) + ":" + Str(m) + ":" + Str(s)
ElseIf s < 1 And m < 1 And h > 0 Then
h = h - 1
m = 59
s = 59
Label4.Caption = Str(h) + ":" + Str(m) + ":" + Str(s)
Else
Command1.Enabled = True
Command2.Enabled = False
Timer1.Enabled = False
Label4.Caption = "倒计时完成"
End If
Else
End If
End Sub
帮你修改后的代码！删掉timer2控件，用一个足够了。
补充：打点计时器的加速度怎么求
那要看是精确计算还是粗略计算了
精确计算 就是 用后n段S的和-前n段S的和 除以 n(kT)2 其中是你一段S里含的点数
粗略计算 就是 随便取两段 S 相减 在除以 n (kT)2 k的定义和上个一样 n就是你隔的段数加一的值
补充：关于VB计时器
看不到你的图，所以只能自己做，如下：
在窗体上画5个Command控件、一个Timer1控件和一个Label控件，其中Command1表示启动，Command2表示停止,Command3表示重启,Command4表示继续，Command5表示重设。Label控件用于显示秒。
Option Explicit
Private Sub Command1_Click()
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Command1.Enabled = False
Command2.Enabled = False
End Sub
Private Sub Command4_Click()
Timer1.Enabled = True
Command2.Enabled = True
Command1.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
End Sub
Private Sub Command5_Click()
Label1.Caption = 0
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
End Sub
Private Sub Form_Load()
Label1.Caption = ""
Label1.FontSize = 25
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Val(Label1.Caption) + 1
End Sub
欢乐英雄