編寫壹個vb公用電話計時收費程序？

字體大小自己設置：

Private Sub Command1_Click()

Command1.Enabled = False

Command2.Enabled = True

Text1 = Right(Now(), 8)

End Sub

Private Sub Command2_Click()

Command2.Enabled = False

Command1.Enabled = True

Text2 = Right(Now(), 8)

h1 = CInt(Left(Text1, 2))

m1 = CInt(Mid(Text1, 4, 2))

s1 = CInt(Right(Text1, 2))

h2 = CInt(Left(Text2, 2))

m2 = CInt(Mid(Text2, 4, 2))

s2 = CInt(Right(Text2, 2))

t = 60 * (h2 - h1) + m2 - m1 + (s2 - s1) / 60

If t <= 3 Then

y = 0.5

Else

y = 0.5 + 0.15 * Int(t - 3 + 0.999)

End If

Text3 = y

If Left(Text3, 1) = "." Then Text3 = "0" & Text3

End Sub

Private Sub Form_Load()

Label1.Caption = "開始時間"

Label2.Caption = "結束時間"

Label3.Caption = "通話費用"

Text1 = ""

Text2 = ""

Text3 = ""

Command1.Caption = "通話開始"

Command2.Enabled = False

Command2.Caption = "通話結束"

End Sub

上一篇:怎樣讓listView控件的其中壹列在點擊的時候編程可編輯狀態

下一篇:電動機的具體繞線方法