Gelandang Internet yang mencoba melewati lorong sempit tanpa batas ruang dan waktu
Joint Venture Adsense

Menjumlahkan Nilai CheckBox di Delphi

· · 2 comments
Assalamu'alaikum, wr.wb

Cara Membuat CheckBox Di Bahasa Delphi - CheckBox merupaka salah satu komponen dasar yang banyak digunakan para Programmer dalam merancang sebuah program menggunakan Borland Delphi. Dengan menggunakan CheckBox pada program Delphi, maka dengan mudah kita memilih sesuai dengan pilihan yang ditampilkan pada Form program. Kelebihan menggunakan CheckBox di Delphi adalah kita bisa melakukan pemilikan lebih dari satu.

Misalkan dalam memilih makanan kesukaan, nah.. bisa jadi kan setiap orang menyukai jenis makanan lebih dari satu. Atau dalam program pembiayaan, seperti biaya tambahan pada penjualan barang atau jasa. Dengan menggunakan CheckBox, kita bisa menjumlahkan nilai yang telah didefenisikan terlebih dahulu.

Untuk menjumlahkan nilai CheckBox, terlebih dahulu kita menyiapkan variabel untuk menampung nilai dari setiap CheckBox. Letakan Variabel diatas Begin dan dibawah procedure. Selanjutnya menambahkan variabel total penjumlahan dari setiap nilai CheckBox. Apakah rekan-rekan mengerti dengan penjelasan ini? jika tidak, berati tidak ada bedanya dunk dengan saya, hehe.

Langkah-langklah menjumlahkan nilai CheckBox di Delphi :

1. Desain Formnya seperti berikut :
2. Masukan mantera dibawah ini pada button hitung :

VAR f1, f2,f3,f4, ft:integer;
begin
if checkbox1.Checked = true then
f1:=5000000 else f1:=0;
if checkbox2.Checked = true then
f2:=4500000 else f2:=0;
if checkbox3.Checked = true then
f3:=3500000 else f3:=0;
if checkbox4.Checked = true then
f4:=1500000 else f4:=0;

//menghitung fasilitas tambahan
ft := f1+f2+f3+f4;
edit1.text := inttostr(ft);
end;
end.

Letakan variabel diatas begin. Tampilan program seteleh dijalankan.
Contoh penggunaannya pada program yang lebih lengkap seperti ini.
Demikian tutorial membuat dan menjumlahkan nilai CheckBox pada Bahasa Pemograman Delphi. Moga bermanfaat. Begitulah.

******

Baca juga Cara berpindah antar editbox menggunakan Enter di Delphi

2 comments:

  1. baca tulisan kayak gitu dah mumet saya mas, ternyata tidak semudah yang dibayangkan untuk belajar delphi itu

    ReplyDelete

- Komentar yang mengandung hujatan, negatif akan dianggap spam
- Komentar link akan dilaporkan ke posyandu terdekat & tidak akan ditampilkan