Arsip: Biaya pemakaian

more 15 years ago
pilot
mas/mba gimana cara menampilkan jam 00:00:00 (hh mm ss) pd panel 1,
kemudian apabila tombol start dipakai maka jam juga jalan, disisi lain
panel 2 menampilkan biayanya, jika diasumsikan 1 jam = 5000. seperti
program billing gitu. terima kasih.

more 15 years ago
DelphiExpert
uses DateUtils;
var StartTime: TDateTime;
procedure Start;
begin
StartTime:= Now;
end;
procedure TimerOnTimer(Sender: TObject);
const CostPerSec = 5000 / 60;
var TempCost: Float;
begin
Panel1.Caption:= FormatDateTime('hh:mm:ss', Now - Start);
TempCost:= SecondsBetween(Start, Now) * CostPerSec;
Panel2.Caption:= FormatFloat('Rp. 0.00', TempCost);
end;
kira-kira begitulah ... :mrgreen:
more 15 years ago
simba
Gak semudah itu, DE! :lol: Kalo ada yg dpt diskon, kalo hitungannya per 5 menit, kalo ada pembulatan waktu, kalo ada yg sekalian ngeprint, kalo yg pake anaknya yg punya, kalo ... silakan lanjut sendiri ... gimana dong? Huahuahuahuahua... :lol:

more 15 years ago
DelphiExpert
lah om pilot nanya'nya cuman gitu doank xixixi... ya ngga' ada pertimbangan lain yg dimasukkan pula huwakakak :mrgreen:

more 15 years ago
pilot
Sebelumnya terima kasih. saya coba dulu nti klo ada pertanyaan lagi mohon bantuannya. ya mas

more 15 years ago
dmay
@DelphiExpert: const CostPerSec = 5000 / 60kayaknya 5000/3600 bozz kalo itu cuman 1menit = 5000 dong :) mohon koreksi kalo salah :) ---sama - sama belajar mencari jati diri di dunia fana ini--
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 2 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 10 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 10 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 10 years ago
Random Topic
- Mysql
by saysansay in Tip n Trik Pemrograman more 17 years ago - rent a coder
by yohanesagusb in Hal umum tentang Pascal Indonesia more 13 years ago - Speech Engine
by clark in Hal umum tentang Pascal Indonesia more 16 years ago - form dan event OnClick Run Time
by mas_kofa in Hal umum tentang Pascal Indonesia more 16 years ago - website di delphi 2007
by IdrisZZ in Network, Files, I/O & System more 15 years ago - [?] Cara tambah property saat runtime
by danieljun in Tip n Trik Pemrograman more 15 years ago - Cara masukin data dari stream ke blobfield??
by bayzap in Hal umum tentang Pascal Indonesia more 15 years ago - .:AUTO REFRESH:.
by 3rei in Hal umum tentang Pascal Indonesia more 16 years ago - Ada yg punya componen devExpress yg doble klik ga??
by unggulresearch in Form Enhancement & Graphical Controls more 11 years ago - cash drawing untuk kasir
by ImanD in Enginering more 16 years ago