Jannah Theme License is not validated, Go to the theme options page to validate the license, You need a single license for each domain name.
DelphiPemrograman

Aplikasi Pengulangan dengan Delphi #39

telur asin rasanya asin

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 :

aplikasi pengulangan
hasil akhir

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

form design

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.!

last
sekian artikel aplikasi pengulangan sederhana dengan delphinya, glhf.

*AFK

Related Articles

One Comment

  1. mas kalau misalnya saya maw ubah nilai ke warna gimana carnya, misalnya nilai 2 saya ubah jadi tampilan menunjukkan warna cokelat tapi pakee edit bisa g

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button