langsung saja kita bahasa
pertama
sebelum kita memberi perintah kita harus membuat form seperti gambar di bawah
ini adalah tampilan program yang sudah saya buat
"oh ya gan untuk membuat listbox kita masuk ke propertis pilih item setelah masuk kita buat sesuai dengan menu yang menjadi pilihan"
kedua
kita klik dua kali di listbox1 dan masukan coding di bawah ini
case listBox1.ItemIndex of
0 : begin
edit1.Text :='9000';
end;
1 : begin
edit1.Text :='12000';
end;
2 : begin
edit1.Text :='15000';
end;
end;
ketiga
kita klik lagi dua kali di listbox yang ke dua lalu copykan coding di bawah ini
case listBox2.ItemIndex of
0 : begin
edit3.Text :='1000';
end;
1 : begin
edit3.Text :='2000';
end;
2 : begin
edit3.Text :='3000';
end;
end;
end;
keempat
kita berpindah ke button proses lalu copykan coding di bawah ini
var a, b, c, d, t : real;
x, y, z :real;
o, f, k :real;
begin
a:= strtofloat(edit1.Text);
b:= strtofloat(edit2.Text);
c:= strtofloat(edit3.Text);
d:= strtofloat(edit4.Text);
t:= a * b + c * d;
edit5.Text:=floattostr(t);
edit7.Text:=floattostr(t);
begin
x:= strtofloat(edit5.text);
y:= 10;
z := x - y;
edit7.Text:=floattostr(z);
end;
edit8.Text;
begin
o:=strtofloat(edit5.Text);
f:=strtofloat(edit7.Text);
k:= o + f;
edit8.Text:=floattostr(k);
end;
end;
kelima
selanjut nya kita berpindah ke button ke dua untuk membuat tomol hapus setelah masuk klik dua kali dan masukan coding di bawah ini
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
end;
kita masuk ke button selanjutnya untuk membuat tombol keluar dari program
di tombol ini saya sudah membeikan kombinasi komentar ya atau tidak seperti di bawah ini
begin
if(messageDlg('anda yakin ingin keluar?',mtconfirmation,[mbYes,mbNo],0)=mrYes) then
begin
Application.Terminate;
end;
end;
sekian yang dapat saya berikan
jika ada pertanyaan silahkan tulis di kolom komentar di bawah ini
Share This :
0 comments