Aplikasi Pengulangan dengan Delphi #39

andrypein.net : Masih dalam tema delphi sekarang kita buat aplikasi pengulangan sederhana, kali ini  fungsinya hanya cuma merubah ukuran caption label saja.

bentuknya form nya seperti ini :

lalu tambahkan 1 buah  combobox, 1 label dan 1 tombol untuk exit.

Sekarang kita mulai dengan listingnya!

1. klik from1 lalu di object inspectornya beri event pada form show dan beri listing seperti ini
ups lupa tambahkan variabel dgn nama “a,ulang” dengan tipe data integer di bawah

var form1:TForm1;
  a,ukuran:integer;

Procedure TForm1.FormShow(Sender: TObject);
begin
 for a:=8 to 30 do
  begin
   combobox1.Items.Add(IntToStr(a));
  end;
end;

maksud dari kode diatas adalah saat form tampil, pada combobox1 akan tampil angka dari 8 sampai 30

2. Untuk merubah ukuran label1, pilih event pada combobox1 dengan event change.

lalu beri listing seperti ini :

Procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 ukuran:=StrToInt(Combobox1.Text);
 if (ukuran <=1) or (ukuran >= 200) then
  begin
   combobox1.ItemIndex:=0;
  end;
 label1.font.size:=ukuran;
end;

maksud dari kode tersebut adalah pada saat kita pilih2 angka di combobox1 maka otomatis ukuran label dalam form akan berubah.

3. Selesai, compile, dan run lalu lihat hasilnya dengan mengganti angka2 pada combobox.!

sekian artikel aplikasi pengulangan sederhana dengan delphinya, glhf.

*AFK