Beranda » Algoritma » Komponen Radio Button dan Label

Komponen Radio Button dan Label

Selamat Datang

بِسْمِاللَّهِ الرَّحْمَنِ الرَّحِيمِ

Hai sahabat ... Selamat datang di Wisnurat's blog. Sedikit tulisan dan komentar yang mungkin asal-asalan, tapi mudah - mudahan deh bisa bermanfaat. Sebagai salam silaturahmi dengan senang hati kalau bisa tukaran link. Siapa tahu temen-teman yang lain juga ingin mampir ke blog sahabat. Terimakasih telah berkunjung. Jangan lupa mampir lagi ya... :)

Semua tulisan pada blog ini juga diposting pada blog okeguru.com

Masukkan alamat e-mail Anda untuk berlangganan blog ini dan menerima pemberitahuan tulisan-tulisan baru melalui email.

Bergabunglah dengan 13 pengikut lainnya

Blog Stats

  • 201,058 hits

Tamu

free counters

Traffic

Google PageRank Checker

MDL-03

Pendahuluan

Komponen RadioButton kerap kali digunakan untuk menuntun pengguna aplikasi program dalam menentukan salah satu pilihan dari beberapa pilihan yang disajikan, misal pilihan jenis kelamin (L atau P). Pengguna hanya dapat memilih salah satu dan tidak dapat memili keduanya.

Sedangkan komponen Label digunakan hanya untuk memberikan keterangan teks atau pemberian label pada komponen yang belum memiliki keterangan teks.

Sekarang kita coba membuat program aplikasi aritmatik dengan menggunakan 3 komponen RadioButton, 3 komponen Label dan 3 komponen Edit yang apabila RadioButton1 diklik akan menjumlahkan bilangan yang ada pada komponen Edit1 dan Edit2 serta hasilnya ditampilkan pada Edit3. Apabila komponen RadiButton2 yang diklik akan mengurangkan bilangan pada Edi1 dan Edit2. Komponen RadioButton3 digunakan untuk keluar dari aplikasi program.

Langkah kerja

1. Letakkan masing – masing 3 komponen Edit, RadioButton dan Label pada komponen Form1, seperti berikut ini !

radiolabel.jpeg

2. Karena dalam pembuatan program ini kita akan menggunakan operasi aritmatika, terlebih dahulu buat dulu 3 variabel yang diletakkan pada bagian identifier program. Tekan tombol F12 dan ketikan listing program berikut :

var

Form1: TForm1;

bil1, bil2,hsl,kode:integer;

SHsl:string;

implementation

{$R *.DFM}

Penjelasan : Varibel yang dibuat 5 variabel, yaitu bil1, bil2,hsl,kode dengan tipe data integer dan SHsl dengan tipe data string

3. Tekan kembali F12 untuk kembali ke mode Form dan klik dua kali pada RadioButton1 dan ketik list program berkut ini !

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

val(Edit1.text,bil1,kode);

val(Edit2.text,bil2,kode);

hsl:=bil1+bil2;

Str(hsl:5,SHsl);

Edit3.Text:=SHsl;

end;

4. Tekan kembali F12 dan klik dua kali pada RadioButton2 dan ketik list program berkut ini !

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

val(Edit1.text,bil1,kode);

val(Edit2.text,bil2,kode);

hsl:=bil1-bil2;

Str(hsl:5,SHsl);

Edit3.Text:=SHsl;

end;

5. Tekan kembali F12 dan klik dua kali pada RadioButton3 dan ketik list program berkut ini !

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

application.Terminate;

end;

6. Jalan program tersebut dengan menekan tombol F9 pada keyboard atau klik Run à Run pada menu bar.

Penjelasan listing program

val(Edit1.text,bil1,kode);

val(Edit2.text,bil2,kode);

val pada listing diatas berfungsi untuk mengubah (konversi) data teks yang tersimpan pada komponen Edit1.text dan Edit2.text dan kemudian hasilnya disimpan pada varibel bil1 dan bil2. Hal ini dilakukan karena data teks yang ada pada komponen Edit1 dan Edit2 akan diproses menggunakan operasi aritmatika.

hsl:=bil1+bil2;

Hasil konversi diproses dengan menggunakan persamaan aritmatik.

Str(hsl:5,SHsl);

Hasil dari proses perhitungan aritmatik akan ditampilkan pada komponen Edit3. Tentunya tidak bisa langsung ditampilkan karena komponen Edit hanya bisa membaca data teks. Fungsi Str adalah jawabannya. hsl:5 artinya data numerik dengan maksimal 5 karakter yang ditampilkan dan SHsl adalah variabel tempat menyimpan data hasil konversi dari data numerik ke string.

Edit3.Text:=SHsl;

Isi variabel SHsl dimasukkan ke Edit3.Text.

Tugas

Tambahkan fitur baru pada program di


5 Komentar

  1. Fiky mengatakan:

    Pak saya masih blm mengerti tentang fungsi val. apakah fungsi val sama seperti konversi inttostr gitu. Trus 1 lg variabel kode fungsinya bwt apa?

  2. wisnurat mengatakan:

    @Fiky
    1. val digunkan untuk mengambil nilai numerik/angka. Misal val(Edit2.text,bil2,kode); artinya mengambil nilai nemerik yang ada pada komponen Edit1 dan hasilnya disimpan pada variabel bil2.
    2. variabel yang mana ya..??

  3. Rina mengatakan:

    saya sedang membuat program untuk penjualan barang cash register, bisa bantu nga dimana ada total, stok, diskon, bayar dan uang kembali, jadi seperti beli barang di supermarket, program tahu saat ada yg beli barang stok berkurang, demikian jg dgn pembayaran lgsg show uang yg harus di kembalikan, dan juga set printernya, ma kasih

  4. John mengatakan:

    good article!

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Selamat Datang

بِسْمِاللَّهِ الرَّحْمَنِ الرَّحِيمِ

Hai sahabat ... Selamat datang di Wisnurat's blog. Sedikit tulisan dan komentar yang mungkin asal-asalan, tapi mudah - mudahan deh bisa bermanfaat. Sebagai salam silaturahmi dengan senang hati kalau bisa tukaran link. Siapa tahu temen-teman yang lain juga ingin mampir ke blog sahabat. Terimakasih telah berkunjung. Jangan lupa mampir lagi ya... :)

Semua tulisan pada blog ini juga diposting pada blog okeguru.com

Masukkan alamat e-mail Anda untuk berlangganan blog ini dan menerima pemberitahuan tulisan-tulisan baru melalui email.

Bergabunglah dengan 13 pengikut lainnya

%d blogger menyukai ini: