baik kita langsung saja pada latihan pertama membuat program perkenalan.
1. buka program delphi7
Perhatikan gambar diatas dimana 1 label, 2. edittext dan 3 button
masukkan:
6 buah label
5 buah text edit
dan 2 buah button
desai form seperti dibawah ini
ganti seting nama dan caption pada object inspector sebagai berikut:
jika sudah selesai mari kita memasukan coding perintah pada button, klik dua kali button 1 lalu masukan coding berikut
procedure Tfekenal.b1Click(Sender: TObject);
begin
Enama.Text:='Muhammad Abdurrahman';
Ealamat.Text:='Jl. Angah Komp. Mekar Indah, No.32 RT.35';
Ettl.Text:='Banjarmasin, 22 April 1995';
Estatus.Text:='Lajang';
Ekerja.Text:='Mahasiswa';
end;
dan kemudian ganti caption button menjadi &Kenal, selanjutnya klik dua kali pada button 2.
kemudian masukkan coding berikut.
procedure Tfekenal.b2Click(Sender: TObject);
begin
Close;
end;
lalu save project dan unit dalam satu folder, setelah itu jalankan dan klik tombol "Kenal" maka akan tampak seperti ini.
hmmm.. bagaimana selamat mencoba,, untuk sesi selanjutnya saya akan membuat applikasi menggukanakan operator logika., sampai jumpa, ^_^.






0 komentar:
Posting Komentar