VB 用vb编写一个简单的计费器，希望高手帮忙

Question

比如点击Command1 在 text1中显示 00:00 然后开始计时 最后00是分钟, 挨着 后面接着显示费用,费率是1小时 6元(60分钟,我算了下,每10分钟增长1,到60分钟正好6元 )

希望高手帮忙,谢谢.

Answer 1

Public x1, x2, x3, c
Private Sub Form_Load()
x1 = 100
x2 = 100
x3 = 100
c = "0.0"
Label1.Caption = "时间:00:00:00" & vbCrLf & "费用:" & c
Label1.AutoSize = 1
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
x1 = x1 + 1
If Right(x1, 2) >= 60 Then x2 = x2 + 1: x1 = 100: z = 1
If Right(x2, 2) >= 60 Then x3 = x3 + 1: x2 = 100
v = Right(x1, 2)
y = Right(x2, 2)
x = Right(x3, 2)
If z = 1 Then z = 0: c = c + Val(0.1)
Label1.Caption = "时间:" & x & ":" & y & ":" & v & vbCrLf & "费用:" & Format(c, "0.0")
End Sub
'最高99小时,更高的数字自己判断吧 一个timebox 一个label

Answer 2

Dim a, b, c, d As Integer
Dim e As Currency '货币类型

Private Sub Command1_Click()
a = 0: b = 0: c = 0: d = 0: e = 0
Timer1.Interval = 60000 '一分钟一次计时
Timer1.Enabled = Not Timer1.Enabled
Command1.Caption = IIf(Command1.Caption = "开始计时", "停止计时", "开始计时")
End Sub

Private Sub Timer1_Timer()
d = d + 1: e = e + 0.1
If d = 10 Then c = c + 1: d = 0
If c = 6 Then b = b + 1: c = 0
If b = 10 Then a = a + 1: b = 0
Text1 = a & b & ":" & c & d & " " & "费用：" & e & "元"
End Sub