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
