Simple Generator Box

Assalamualaikum
Banyak teman” yang bertanya pada penulis, bagaimana cara membuat aplikasi seperti yang ada di postingan sebelumnya. Bagi teman” yang sudah menguasai hal ini mungkin tidak terlalu tertarik, namun bagi penulis dan teman” lainnya ini merupakan hal yang baru. Maklumlah, penulis juga masih belajar. 🙂

Nah, maka disini penulis akan menjabarkan beberapa pengertian dasarnya saja untuk membuat aplikasi semacam generator ini. Yuk mari..

Pertama-tama, buatlah form seperti gambar dibawah ini :

Atur propertiesnya, boleh mengikuti yang dibawah atau sesuai keinginan sendiri.

Komponen	Properties	Pengaturan
Edit1	Text	kosongkan
Button1	Caption	Generate
Label1	Caption	Hasilnya disini

Preview :

Sebelum beranjak ke codingnya, kalau mau diatur” lagi formnya, silahkan. Kalau sudah OK, yuk kita lanjut 🙂

dobel klik pada Button1, kemudian tulis code berikut :

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:= Edit1.Text;
end;

Penjelasan :
Kalau kita klik tombolnya, maka pada bagian Label1 akan sama dengan apa yang tertulis di Edit1.

Q : Bagaimana kalau kita tambah”in pada hasil generatenya, bisa gak?
A : Oh tentu saja bisa! Kira” begini nanti codenya :

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:= ‘Hasil :’+ Edit1.Text;
end;

Nah, untuk dasarnya sekian dulu. Tapi untuk kedepannya tinggal ditambahkan dengan logika IF, Case, dan lain-lain saja biar jadi multifungsi dan mudah 🙂

Untuk media pembelajaran, silahkan dipelajari yang satu ini :
[download id=”2″]

Wassalamualaikum.