Knowledges Weblog

BillingWarnet merupakan program prototype untuk menghitung biaya sewa (pemakaian) komputer pada sebuah warnet. Teknik yang sama juga bisa digunakan untuk perhitungan pada rental pengetikan komputer. Pada program ini diasumsikan komputer yang disewakan adalah lima buah, yang nantinya program ini dapat dimodifikasi sesuai kebutuhan.

Form – form dan komponen – komponen yang ada dalam Billing Warnet yaitu :

·        FBilling

·        FSetTarif

Cara penggunaan program

·        Yang kita lakukan pertama adalah mengeset tarif, yaitu dengan mengklik File|Setting Tarif. Setelah diisi tarif per menitnya klik tombol Ya!.

·        Apabila ada pengguna yang mulai menggunakan komputer, maka penjaga rental mengklik tombol mulai, bila telah selesai diklik tombol selesai, dst.

·        Apabila akan dicetak, maka klik tombol Cetak.

·        Klik tombol Hapus untuk menghapus isi pada ketiga editbox.

Prinsip Kerja Program

            Bagian paling penting dari program ini adalah

Pertama, mengkonversi dari format Time ke String untuk waktu akhir/selesainya pemakaian.

Edit2.Text := TimeToStr (Time);

Kedua, menghitung lama pemakaian sekaligus mendecode-nya menjadi Jam1, Menit1, Detik1, dan MDetik1.

DecodeTime(StrToTime(Edit2.Text)-StrToTime(Edit1.Text), Jam1, Menit1, Detik1, MDetik1);

Ketiga, menampilkan durasi/lama pemakaian.

Edit3.Text := IntToStr(Jam1)+’:'+IntToStr(Menit1)+’:'+ IntToStr(Detik1) + ‘:’ +IntToStr(MDetik1);

Keempat, menghitung biaya pemakaian sekaligus menampilkannya melalui caption LBBiaya.

LBBiaya1.Caption := FormatFloat(‘#,’,(((Jam1 * 60) + Menit1) * StrToInt(EdTarif.Text)));

Seperti biasa, learning by doing adalah cara yang terbaik untuk belajar pemrograman. OK!