Coba Anda buat project baru, tambahkan form, trus tambahkan 6 object textbox
,masing-masing beri nama txtbiaya, txtawal,
txtjamsistem,txtdurasi,txttotaldetik, txtbesaruang
Tambahkan juga satu buah timer
Tambahkan 2 buah commandbutton masing-masing beri nama cmdmulai dan cmdstop
Ketikan kode berikut pada jendela code form tersebut sebagai berikut:
Dim totaldetik As Long
Dim hh, mm, ss As Integer
Private Sub cmdMulai_Click()
Timer1.Enabled = True
txtAwal.Text = Time
txtBesarUang.Text = ""
cmdMulai.Enabled = False
cmdStop.Enabled = True
End Sub
Private Sub cmdStop_Click()
Timer1.Enabled = False
cmdStop.Enabled = False
cmdMulai.Enabled = True
txtBesarUang.Text = Format(txtTotalDetik * txtBiaya, "0,0")
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
txtJamSistem.Text = Time
If txtJamSistem.Text = "00:00:00" Then
txtDurasi.Text = Format(CDate("23:59:59") - CDate(txtAwal) +
CDate("00:00:01"), "hh:mm:ss")
Else
txtDurasi.Text = Format((CDate(txtJamSistem.Text) -
CDate(txtAwal.Text)), "hh:mm:ss")
End If
hh = Hour(txtDurasi)
mm = Minute(txtDurasi)
ss = Second(txtDurasi)
totaldetik = hh * 3600 + mm * 60 + ss
txtTotalDetik.Text = Format(totaldetik, "0,0")
End Sub
Untuk menjalankan programnya, sebelum klik tombol mulai, isikan dahulu
biayanya, biaya akan dikalikan total detik
Program tersebut sebagai ilustrasi aja, Semoga membantu
_____
From: [email protected] [mailto:[EMAIL PROTECTED] On
Behalf Of sherinalavenda
Sent: 16 Januari 2007 23:09
To: [email protected]
Subject: [indoprog-vb] selisih jam..
mohon pencerahan rekan milis..
saya sedang membuat semacam prog billing.
dan mengalami kesulitan dalam membuat selisih dua buah jam.
seumpama:
text1 berisi time saat sebuah command diclick(mis: 14:20:00)
saya ingin agar text2 berisi selisih waktu/remain yang telah
ditempuh mulai dari saat tombol diclik(mis: 00:10:00 (10 menit
kemudian)).
dan terakhir, text3 berisi hasil perkalian waktu/remain tsb
dgn sebuah text box lainnya(mis: 15.000).
dan perubahan text2 dan text3 itu selalu terjadi mengikuti pertambahan
waktu.
proses akan otomatis berhenti saat command lainnya diclick.
thanks for attention....
[Non-text portions of this message have been removed]
