如何用vb程序编辑公共电话计费的程序？我是菜鸟！初学的..

来源：百度知道 编辑：UC知道 时间：2024/06/24 11:15:33
编写某市公用电话收费程序。收费标准为：通话时间在3分钟以下，收费0.5元；3分钟以上，则每超过一分钟加收0.15元；在7:00～19:00之间通话，按上述收费标准全价收费，在其它时间通话者，一律按收费标准的半价收费。
要求程序运行后，点击“开始通话”按钮，在文本框text1中以hh:mm:ss的形式显示通话开始的时间，点击“结束通话”按钮，在文本框text2中，以hh:mm:ss的形式显示通话结束的时间，点击“计费”按钮，在text3中显示通话的 分钟数，在text4中显示通话的费用，点击“清楚”按钮，清楚全部数据。
我只做了窗口...不知道如何编...

'------------------------------------------
'本程序只考虑单次通话的时间在24小时以内的情况
'为了简化程序，以开始通话的时间为标准判定是否享受半价收费
'本程序至少需要Command1-Command4、Text1-Text4等若干控件
'Command1是开始通话，Command2是结束通话，Command3是计费，Command4是清除
'------------------------------------------

Dim telStart As Long, telEnd As Long, telSum As Long, telFee As Single
'依次为开始通话时间（单位：秒），结束通话时间（单位：秒），通话时长（单位：秒），通话费用（单位：元）

Private Sub Command1_Click()
telStart = Timer
Text1.Text = Time
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
telEnd = Timer
Text2.Text = Time
Command2.Enabled = False
Command3.Enabled = True
End Sub

Private Sub Command3_Click()
If telEnd >= telStart Then '考虑次日零点不在通话时间范围内
telSum = telEnd - telStart
Else '考虑次日零点在通话时间范围内
telSum = 24 * 3600# + telEnd - telStart
End If

Text3.Text = Int(telSum / 60