Form ulasan materi delphi, , →
Untuk mengisi list pada combobox, aktifkan object combobox → properties → Items, ,
Saat diinput uang bayar dan ternyata uangnya kurang maka tampil messagebox seperti gambar dibawah:
Saat mau keluar tampilkan pilihan mau keluar atau tidak dengan menggunakan messagebox seperti gambar dibawah:
Berikut adalah listing/codingnya, , →
procedure TForm1.FormActivate(Sender: TObject); //Form→OnActivate
begin
etanggal.Text:=formatdatetime('dddd, dd-mm-yyyy',now); //memunculkan tanggal
epelanggan.SetFocus; //untuk menempatkan cursor pada edit pelanggan ketika project di running
end;
procedure TForm1.rtopClick(Sender: TObject); //RadioButton Top One
begin
eharga.Text:='35000';
end;
procedure TForm1.ragipClick(Sender: TObject); //RadioButton Agip
begin
eharga.Text:='30000';
end;
procedure TForm1.radvanceClick(Sender: TObject); //RadioButton Advance
begin
eharga.Text:='32500';
end;
procedure TForm1.cmbmontirChange(Sender: TObject); //ComboBox Montir
begin
if cmbmontir.Text='AND' then //syarat/ketentuan tidak menggunakan ":"
begin
enama.Text:='ANDRE'; //nilai atau statement harus menggunakan ":"
ebiayajasa.Text:='25000'; //nilai atau statement harus menggunakan ":"
end //baris sebelum ELSE tidak boleh ada ";"
else if cmbmontir.Text='PRT' then
begin
enama.Text:='PARTO';
ebiayajasa.Text:='20000';
end
else
begin
enama.Text:='SULE';
ebiayajasa.Text:='22500';
end;
end;
procedure TForm1.bhitungClick(Sender: TObject); //Button Hitung
begin
etotal.Text:=inttostr(strtoint(eharga.Text)+strtoint(ebiayajasa.Text));
end;
procedure TForm1.rjeniscustomerClick(Sender: TObject); //RadioGroup Customer
begin
if rjeniscustomer.ItemIndex=0 then
ediskon.Text:=floattostr(strtoint(etotal.Text)*0.2) //jika member maka diskon 20% dari total
else
ediskon.Text:='0';
egrandtotal.Text:=inttostr(strtoint(etotal.Text)-strtoint(ediskon.Text));
eubay.SetFocus;
end;
procedure TForm1.eubayKeyPress(Sender: TObject; var Key: Char);// Uang Bayar→KeyPress
begin
if key=#13 then
begin
if strtoint(eubay.Text)
begin
application.MessageBox('Duitnya Kurang','GUBRAG',mb_ok);
eubay.Clear;
end
else
eukem.Text:=inttostr(strtoint(eubay.Text)-strtoint(etotal.Text));
end;
end;
procedure TForm1.bkeluarClick(Sender: TObject); //Button Keluar
begin
if application.MessageBox('Yakin Mau Keluar?','WEEEIIITTTSS',mb_yesno+32)=idyes then
close;
end;
procedure TForm1.bbersihClick(Sender: TObject); //Button Bersih
begin
epelanggan.Clear;
rtop.Checked:=false;
ragip.Checked:=false;
radvance.Checked:=false;
eharga.Text:='0';
cmbmontir.Text:='Pilih Montir';
enama.Clear;
ebiayajasa.Text:='0';
etotal.Text:='0';
rjeniscustomer.ItemIndex:=-1; //untuk menghilangkan checked pada radiogroup
ediskon.Text:='0';
egrandtotal.Text:='0';
eubay.Text:='0';
eukem.Text:='0';
epelanggan.SetFocuse;
end;
☻,,perhatikan warna teks pada "begin" & "end",
☺,,lihat di bagian perhitungan, selalu ada konversi tipe data, karena tipe data yang dapat masuk ke dalam proses perhitungan hanya tipe data yang berupa int(interger→bilangan bulat) & float(floating→bilangan cacah/desimal), ketika kita merubah tipe data menjadi int/float untuk mencetak kembali kita harus mengembalikan tipe data menjadi str(string), contohnya seperti gambar dibawah ini:
Home
