Cara menampilka nama dari t edit dan chekbox ke label menggunakan delphi 2010

Cara menampilka nama dari t edit dan chekbox ke label menggunakan delphi 2010

Oleh:

JOKO TURWANTO

NIM : 2011.15.458.0016

JURUSAN TEKNIK INFORMATIKA

FAKULTAS TEKNIK

UNIVERSITAS WAHIDIYAH

Dalam pembuatan program kita kali ini sangat sederhana dan mudah untuk di fahami yang saya harapkan bgi pembaca bisa mengembangkan sendiri program ini adapun cara penbuatan program  menggunakan delphi antara lain yang pertama buka delphi 2010 kemudianbuar form baru  adapun komponenya antara  lain adalah:

2 buah Tedit caption -

1 button caption ok

1 ceckbox caption -

4 label label1 caption Nama label2 Caption Alamat label3 caption Aktivitas label4 caption-

yang terakhir 1Ttimer caption-

kemudian kil 2x pada button1 dan masukan kode

procedure TForm1.Button1Click(Sender: TObject);

begin

label4.Caption:=edit1.Text+','+ 'alamat' +','+ edit2.Text;

if CheckBox1.Checked then

  begin

    label4.Caption:=edit1.Text+','+'alamat'+','+edit2.text+','+'kuliah';

  end else

  begin

     label4.Caption:=edit1.Text+','+'alamat'+','+edit2.text+','+','+'pengangguran sukses';

  end;

end;

dan klik 2x pada timer1 kemudian masukan kode seperti di bawah ini

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if Label4.Left<-Label4.Width then

Label4.Left:=Width

else

label4.Left:=label4.Left-1;

Selesai deh program kita kali ini mudahkan karna hanya 2 komponen yang kita beri perintah / pengkodean

Selamat mencoba,,,,,,,,

g_mail   :dprwscout717@gmail.com

blok       :designprogram717.blokspot.com

no hp    : 082302577717