Program PDAM menggunakan "Delphi 7"

Postingan kali ini saya buat karena setiap awal pembelajaran bahasa pemrograman dosen saya sering menyinggung program tentang penghitungan rekening pembayaran PDAM,
Maka dari itu saya berusaha membuat program tersebut,dan seperti biasa supaya tidak lupa saya post aja ke blog ini. Sekalian share buat saudara-saudara,adik-adik,kakak-kakak.
dan mohon kritik yang membangung.
Maklumlah masih dalam tahap belajar :D
berikut penampakan program tersebut

Dan untuk bahasa programnya sebagai berikut :

• Pada kolom edit customer,alamat,pakai awal,pakai 10 pertama,10 kedua,selebihnya itu kita bisa kosongi.
• Pada kolom edit pakai akhir bisa kita isi bahasa program sebagai berikut

procedure TForm1.takhirChange(Sender: TObject);
VAR
A,B,C:integer;
begin
A:=strtoint(tawal.text);
B:=strtoint(takhir.Text);
c:=B-A;
tjumlah.Text:=floattostr(C);
end;

• Pada kolom edit jumlah

procedure TForm1.tjumlahChange(Sender: TObject);
VAR
A,B:integer;
C,D,E,F,G:real;
begin
 A:=StrToInt(tawal.Text);
 B:=StrToInt(takhir.text);


 C:=B-A;
 If C <= 10 then
 begin
 D:=C*1000;
 E:=0;
 F:=0;
end
 else

 if C <=20  THEN
begin
 D:=10*1000;
 E:=(C-10)*1500;
 F:= 0;
 end
 ELSE
 if C>=20 THEN
 begin
 D:=10*1000;
 E:=10*1500;
 F:=(C-20)*2000;
 END;

 G:=D+e+f;

 tpertama.Text:=floattostr(D);
 tkedua.Text:=floattostr(E);
 tlebih.Text:=floattostr(F);
 ttotal.Text:=floattostr(G);
end;

Nb : untuk value pada edit isi lagi bisa dikosongkan
       semua program tersebut berdasar pemikiran saya, karena ini kreatifitas maka dapat dikembangkan sendiri

Terimakasih telah mampir di blog saya :D