Teman-teman tolong perhatikan code dibawah ini :
 
Private Sub cmdMulai_Click()
    txtMulai.Text = "11:00:00" ' waktu mulai menggunakan komputer
End Sub
 
 
Private Sub cmdStop_Click()
    txtStop.Text = "11:04:12"  ' waktu selesai menggunakan komputer
    txtLamaPakai = (TimeValue(txtStop) - TimeValue(txtMulai)) * 24 * 60
    txtLamaPakai = Round(txtLamaPakai)
    txtBayar = 200 * Val(txtLamaPakai)  ' 200 merupakan harga pemakaian komputer per menit.
End Sub
 
 
Dengan code seperti diatas, akan menghasilkan program sederhana seperti yang saya attach bersama email ini.
 
 
Yang menjadi permasalahannya adalah:
1. Bagaimana code supaya pada txtLamaPakai.text = 00:04:12  atau dengan format HH:MM:DD.
2. Bagaimana rumusnya agar selama program ini berjalan, txtLamaPakai harus selalu menampilkan Durasi Waktu pemakaian komputer, dan txtBayar harus selalu menampilkan Biaya pemakaian komputer.
 
Sekian dan Terima kasih.


Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer




YAHOO! GROUPS LINKS




<<attachment: billing1.JPG>>

Kirim email ke