Cara membuat banyak perintah dengan 1 button

Cara membuat banyak perintah dengan 1 button

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:

1Tbutton dan 1Tlabel

Cara pembuatanya adalah

Klik 2x pada button dan masukan kode seperti di bawah ini

procedure TForm1.Button1Click(Sender: TObject);

begin

berubah:=berubah +1;

if berubah=1 then form1.Color := clred;

if berubah=2 then form1.Color := clwindowtext;

if berubah=3 then form1.Color := clgreen;

if berubah=4 then form1.Color := cllime;

if berubah=5 then form1.Color := clmaroon;

if berubah=6 then form1.Color := clteal;

if berubah=7 then form1.Color := clwindowframe;

if berubah=8 then form1.Color := clwindow;

if berubah=9 then form1.Color := cl3dlight;

if berubah=10 then form1.Color := cl3ddkshadow;

if berubah=11 then form1.Color := clscrollbar;

if berubah=12 then form1.Color := clnone;

if berubah=13 then form1.Color := clmenuhighlight;

if berubah=14 then form1.Color := clhotlight;

if berubah=15 then form1.Color := clblack;

if berubah=16 then form1.Color := clactivecaption;

if berubah=17 then form1.Color := claqua;

if berubah=18 then form1.Color := clfuchsia;

if berubah=19 then form1.Color := clyellow;

if berubah=20 then form1.Color := clolive;

if berubah=21 then form1.Color := clnavy;

if berubah=22 then form1.Color := clpurple;

if berubah=23 then form1.Color := clsilver;

label1.Caption:=inttostr(berubah)

end;

jika kita ingin membuat warnanya lebih banyak lagi maka tinggal kita tambahkan saja warna apa yang kitA Ingimkan.

Jangan lupa masukan berubah di bawah var seperti di bawah ini

var

  Form1: TForm1;

  berubah : integer;

selesai deh pembuatan program kita kali ini mudahkan karna hanya ada 2 komponen jdi lebih simpel saya yakin anda bisa mengembangkan sendiri bahkan lebih karna ini hanya pembuatan dasar.

Selamat mencoba,,,,,,,,

e_mail :joe_scout@ymail.com

g_mail :dprwscout717@gmail.com

blok     :designprogram717.blokspot.com

no hp  : 0853 6373 2389

              087805843717