Cara membuat banyak perintah kemudian kembali lagi ke awal

Cara membuat banyak perintah kemudian kembali lagi ke awal

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:

1timaga

1tedit text=-

1label caption=designprogram717

1timer

1button caption= next

Pengkodeanya adalah klik 2x pada button dan masukan kodenya seperti di bawah in-

procedure TForm1.Button1Click(Sender: TObject);

begin

  Edit1.Text := inttostr(tongsampah);

  tongsampah := tongsampah + 1;

  if tongsampah = 5 then tongsampah := 1;

  if tongsampah = 2 then color := clred;

  if tongsampah = 3 then color := clblue;

  if tongsampah = 4 then color := clgreen;

  if tongsampah = 1 then color := clBtnFace;

end;

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

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if Label1.Left<-Label1.Width then

Label1.Left:=Width

else

label1.Left:=label1.Left-1;

end;

yang terakhir jangan lupa masukan nama tongsampah di bawah var seperti di bawah ini

var

  Form1: TForm1;

  tongsampah: integer;

selesai dech program kita kali ini

Selamat mencoba,,,,,,,,

g_mail   :dprwscout717@gmail.com

blok       :designprogram717.blokspot.com

no hp    : 082302577717