assallamu'allaikum.... ya sahabat programer disini saya akan berbagi cara membuat projek rumah makan cempaka (RM Cempaka) kita sama-sama belajar.
label 1 sampai 7
RM Cempaka
Pilih Makanan
Pilih Minuman
Harga
Harga
Uang Dibayar
Kembalian
Combobox1 saya kasih name cmakanan
Dengan Menggunakan Object Properties
Langkah – langkahnya
1. aktifkan combo box yang akan dipilih
2. pada properties pilih dan klik item, lalu klik command (…)
dan isi menu cmakanan:
Ayam Bakar + Nasi
Ayam Kalasan + Nasi
Mie Goreng
kemudian masukkan koding cmakanan:
procedure TForm1.cmakananChange(Sender: TObject);
begin
if cmakanan.Text = 'Ayam Bakar + Nasi' then e1.Text := '16000'
else
if cmakanan.Text = 'Ayam Kalasan + Nasi' then e1.Text := '19000'
else
if cmakanan.Text = 'Mie Goreng' then e1.Text := '10000'
else
e1.Text := '0'
end;
RadioButton1 dengan Caption Jus . isikan kodingnya dengan cara double klik
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
if RadioButton1.checked=true then
e2.Text:='7000';
if RadioButton1.Checked=false then
e2.Text:='0';
end;
RadioButton2 dengan Caption Air Minerali. isikan kodingnya dengan cara double klik
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
if RadioButton2.checked=true then
e2.Text:='3000';
if RadioButton2.Checked=false then
e2.Text:='0';
end;
Button
Hitung=Button3
Bersih=Button1
Keluar=Button2
Koding Hitung dengan cara double klik dan isikan kodingnya.
procedure TForm1.Button3Click(Sender: TObject);
var
a,b,c:integer;
begin
a:=strtoint(e1.Text);
b:=strtoint(e2.Text);
c:= a+b;
e3.Text:=inttostr(c);
end;
Koding Bersih dengan cara double klik dan isikan kodingnya.
procedure TForm1.Button1Click(Sender: TObject);
begin
cmakanan.Text := '';
e1.Text:='0';
e2.Text:='0';
e3.Text:='0';
e4.Text:='0';
e5.Text:='0';
end;
Koding Keluar dengan cara double klik dan isikan kodingnya.
procedure TForm1.Button2Click(Sender: TObject);
begin
if MessageDlg('Apakah Pian Yakin Ingin Keluar?????',mtinformation,[mbYES,mbNO],0)=mryes
then
close;
end;
Cara mendapatkan kembalian secara otomatis dengan memasukkan koding:
procedure TForm1.e4Change(Sender: TObject);
begin
e5.Text:=floattostr(strtofloat(e4.Text)-strtofloat(e3.Text));
end;
Edit(StdCtrls)
Dengan Name dan Captionya Hapus aja
e1
e2
e3
e4
e5
Tarammm Hasil Yang sudah Di RUN
Koding semuanya:
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
if RadioButton1.checked=true then
e2.Text:='7000';
if RadioButton1.Checked=false then
e2.Text:='0';
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
if RadioButton2.checked=true then
e2.Text:='3000';
if RadioButton2.Checked=false then
e2.Text:='0';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if MessageDlg('Apakah P Yakin Ingin Keluar?????',mtinformation,[mbYES,mbNO],0)=mryes
then
close;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
cmakanan.Text := '';
e1.Text:='0';
e2.Text:='0';
e3.Text:='0';
e4.Text:='0';
e5.Text:='0';
end;
procedure TForm1.cmakananChange(Sender: TObject);
begin
if cmakanan.Text = 'Ayam Bakar + Nasi' then e1.Text := '16000'
else
if cmakanan.Text = 'Ayam Kalasan + Nasi' then e1.Text := '19000'
else
if cmakanan.Text = 'Mie Goreng' then e1.Text := '10000'
else
e1.Text := '0'
end;
procedure TForm1.Button3Click(Sender: TObject);
var
a,b,c:integer;
begin
a:=strtoint(e1.Text);
b:=strtoint(e2.Text);
c:= a+b;
e3.Text:=inttostr(c);
end;
procedure TForm1.e4Change(Sender: TObject);
begin
e5.Text:=floattostr(strtofloat(e4.Text)-strtofloat(e3.Text));
end;
end.
Kalau ada masalah bisa Kita berbagi pelajaran id line : rahmansyahmalik