0

Labotatorium Teknik Informatika (LABTI) Universitas Gunadarma : Timer Pada Delphi

LAPORAN AKHIR PRAKTIKUM


Mata Praktikum                    : Algoritma dan Pemograman 2
Kelas                                      : 1IA11
Praktikum ke-                        : 4
Tanggal                                 : 4 April 2016
Materi                                     : Timer Pada Delphi
NPM                                       : 53415436
Nama                                     : Irfan Sabdho Musthofa
Ketua Asisten                       : Budhi Utama
Paraf Asisten                                    :
Nama Asisten                       : Fifi
Jumlah Lembar                    : 21 Lembar





LABORATORIUM INFORMATIKA
UNIVERSITAS GUNADARMA
2016





LISTING PROGRAM
var
  Form1     : TForm1;
  a,b,c,d,e : integer;
  skor        : real;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Caption  := 'CLICK THE BUTTON';
skor                     := 0;
Label1.Caption := ''; Shape1.Visible := false; Button1.Visible := false;
Label2.Caption := ''; Shape2.Visible := false; Button2.Visible := false;
Label3.Caption := ''; Shape3.Visible := false; Button3.Visible := false;
Label4.Caption := ''; Shape4.Visible := false; Button4.Visible := false;
Label5.Caption := ''; Shape5.Visible := false; Button5.Visible := false;
Button1.Caption := 'RED';
Button2.Caption := 'YELLOW';
Button3.Caption := 'GREEN';
Button4.Caption := 'BLUE';
Button5.Caption := 'WHITE';
Button6.Caption := 'EXIT';
Button7.Caption := 'HELP';
Button8.Caption := 'START';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Shape1.Brush.Color = clRed then
begin
Label1.Caption := 'TRUE'; skor := skor+20.0;
end
else
begin
Label1.Caption := 'FALSE'; skor := skor;
end;
Timer1.Enabled := false;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if Shape2.Brush.Color = clYellow then
begin
Label2.Caption := 'TRUE'; skor := skor+20.0;
end
else
begin
Label2.Caption := 'FALSE'; skor := skor;
end;
Timer2.Enabled := false;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if Shape3.Brush.Color = clLime then
begin
Label3.Caption := 'TRUE'; skor := skor+20.0;
end
else
begin
Label3.Caption := 'FALSE'; skor := skor;
end;
Timer3.Enabled := false;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
if Shape4.Brush.Color = clBlue then
begin
Label4.Caption := 'TRUE'; skor := skor+20.0;
end
else
begin
Label4.Caption := 'FALSE'; skor := skor;
end;
Timer4.Enabled := false;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
if Shape5.Brush.Color = clWhite then
begin
Label5.Caption := 'TRUE'; skor := skor+20.0;
end
else
begin
Label5.Caption := 'FALSE'; skor := skor;
end;
Timer5.Enabled := false;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
ShowMessage ('Irfan Sabdho Musthofa, Skor Anda: ' +floattostr(skor));
Application.Terminate;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
ShowMessage ('This is Help button');
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
Button8.Caption:= 'RESTART'; Button7.Visible:= false;
Label1.Caption:=''; Shape1.Visible:= true; Button1.Visible:= true; Timer1.Enabled:= true;
Label2.Caption:=''; Shape2.Visible:= true; Button2.Visible:= true; Timer2.Enabled:= true;
Label3.Caption:=''; Shape3.Visible:= true; Button3.Visible:= true; Timer3.Enabled:= true;
Label4.Caption:=''; Shape4.Visible:= true; Button4.Visible:= true; Timer4.Enabled:= true;
Label5.Caption:=''; Shape5.Visible:= true; Button5.Visible:= true; Timer5.Enabled:= true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
a := random(5);
if a = 0 then Shape1.Brush.Color := clRed
else if a = 1 then Shape1.Brush.Color := clYellow
else if a = 2 then Shape1.Brush.Color := clLime
else if a = 3 then Shape1.Brush.Color := clBlue
else Shape1.Brush.Color := clWhite
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
b := random(5);
if b = 0 then Shape2.Brush.Color := clRed
else if b = 1 then Shape2.Brush.Color := clYellow
else if b = 2 then Shape2.Brush.Color := clLime
else if b = 3 then Shape2.Brush.Color := clBlue
else Shape2.Brush.Color := clWhite
end;


procedure TForm1.Timer3Timer(Sender: TObject);
begin
c := random(5);
if c = 0 then Shape3.Brush.Color := clRed
else if c = 1 then Shape3.Brush.Color := clYellow
else if c = 2 then Shape3.Brush.Color := clLime
else if c = 3 then Shape3.Brush.Color := clBlue
else Shape3.Brush.Color := clWhite
end;

procedure TForm1.Timer4Timer(Sender: TObject);
begin
d := random(5);
if d = 0 then Shape4.Brush.Color := clRed
else if d = 1 then Shape4.Brush.Color := clYellow
else if d = 2 then Shape4.Brush.Color := clLime
else if d = 3 then Shape4.Brush.Color := clBlue
else Shape4.Brush.Color := clWhite
end;

procedure TForm1.Timer5Timer(Sender: TObject);
begin
e := random(5);
if e = 0 then Shape5.Brush.Color := clRed
else if e = 1 then Shape5.Brush.Color := clYellow
else if e = 2 then Shape5.Brush.Color := clLime
else if e = 3 then Shape5.Brush.Color := clBlue
else Shape5.Brush.Color := clWhite
end;

end.






LOGIKA PROGRAM

Pada pertemuan ke-4 Praktikum Laboratorium Teknik Informatika dilakukan pembuatan sebuah Animasi dari komponen Timer pada Delphi yang menampilkan permainan (game) sederhana yaitu, menentukan warna. Penjelasan dari setiap langkah adalah sebagai berikut:
A.   PEMBUATAN FORM TAMPILAN
1.    Menambahkan komponen Timer yang terdapat di System sebanyak 5 buah komponen.

2.    Menambahkan komponen Shape yang terdapat di Additional sebanyak 5 buah komponen.

3.    Menambahkan komponen Label dan Button yang terdapat di Standard masing-masing sebanyak 5 buah komponen dan 8 buah komponen.

4.    Menyusun komponen-komponen tersebut menjadi seperti berikut.

B.   PEMBUATAN PROGRAM
Setelah dilakukan langkah-langkah diatas, proses pembuatan sebuah Animasi dari komponen Timer pada Delphi yang menampilkan permainan (game) sederhana selanjutnya adalah memasukan listing program yang digunakan untuk membuat akses cara kerja sebagai pemain agar program dapat dijalankan dan menampilkan permainan yang dibuat. Penjelasan dari sintaksnya adalah sebagai berikut:
·         var
Form1     : TForm1;
a,b,c,d,e : integer;
skor        : real;
implementation
{$R *.dfm}
-       Sintaks diatas merupakan pendeklarasian dari variabel a, b, c, d, dan e bertipe data integer dan variabel skor bertipe data real. Tipe data Integer adalah tipe data yang menyimpan array (larik), sedangkan tipe data real adalah tipe data berupa bilangan yang berisi titik desimal atau jenis bilangan pecahan.
·         procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Caption  := 'CLICK THE BUTTON';
skor                     := 0;
Label1.Caption := ''; Shape1.Visible := false; Button1.Visible := false;
Label2.Caption := ''; Shape2.Visible := false; Button2.Visible := false;
Label3.Caption := ''; Shape3.Visible := false; Button3.Visible := false;
Label4.Caption := ''; Shape4.Visible := false; Button4.Visible := false;
Label5.Caption := ''; Shape5.Visible := false; Button5.Visible := false;
Button1.Caption := 'RED';
Button2.Caption := 'YELLOW';
Button3.Caption := 'GREEN';
Button4.Caption := 'BLUE';
Button5.Caption := 'WHITE';
Button6.Caption := 'EXIT';
Button7.Caption := 'HELP';
Button8.Caption := 'START';
end;
-       Sintaks diatas merupakan pendeklarasian dari prosedur yang akan dipanggil saat program pertama kali dijalankan, dimana:
                                  I.        Form1.Caption:=’CLICK THE BUTTON’; berfungsi untuk mengubah judul dari Form1 menjadi bertuliskan ‘CLICK THE BUTTON’.
                                II.        skor := 0; berfungsi untuk memberikan nilai awalan dari variabel skor, yaitu 0 (nol).
                               III.        Label1.Caption :=’’; berfungsi untuk mengubah tampilan Label 1 menjadi kosong. Begitupun seterusnya.
                              IV.        Shape1.Visible := false; berfungsi untuk menyembunyikan Shape 1 agar tidak terlihat. Begitupun seterusnya.
                               V.        Button1.Visible := false; berfungsi untuk menyembunyikan Button 1 agar tidak terlihat. Begitupun seterusnya.
                              VI.        Button1.Caption := 'RED'; berfungsi untuk mengubah tampilan Button 1 menjadi bertuliskan ‘RED’ (merah). Begitupun seterusnya.
·         procedure TForm1.Button1Click(Sender: TObject);
begin
if Shape1.Brush.Color = clRed then
begin
Label1.Caption := 'TRUE'; skor := skor+20.0;
end
else
begin
Label1.Caption := 'FALSE'; skor := skor;
end;
Timer1.Enabled := false;
end;
-       Sintak diatas merupakan pendeklarasian dari prosedur Button 1 yang akan dipanggil saat program pertama kali dijalankan, dimana jika Shape 1 berwarna merah saat Button 1 diklik, maka Label 1 akan menampilkan tulisan ‘TRUE’ (benar) dengan kalkulasi nilai variabel skor menjadi skor=skor+20.0. Tetapi jika Shape 1 tidak berwarna merah saat Button 1 diklik, maka Label 1 akan menampilkan tulisan ‘FALSE’ (salah) dengan kalkulasi nilai variabel skor yang tidak berubah. Selain itu terdapat sintaks Timer1.Enabled:=false; yang berfungsi untuk menghentikan komponen Timer 1 ketika Button 1 sudah diklik.
·         procedure TForm1.Button2Click(Sender: TObject);
begin
if shape2.Brush.Color = clYellow then
begin
label2.Caption := 'TRUE'; skor := skor+20.0;
end
else
begin
label2.Caption := 'FALSE'; skor := skor;
end;
timer2.Enabled := false;
end;
-       Sintaks diatas merupakan pendeklarasian dari prosedur Button 2 yang akan dipanggil saat program pertama kali dijalankan, dimana jika Shape 2 berwarna kuning saat Button 2 diklik, maka Label 2 akan menampilkan tulisan ‘TRUE’ (benar) dengan kalkulasi nilai variabel skor menjadi skor=skor+20.0. Tetapi jika Shape 2 tidak berwarna kuning saat Button 2 diklik, maka Label 2 akan menampilkan tulisan ‘FALSE’ (salah) dengan kalkulasi nilai variabel skor yang tidak berubah. Selain itu terdapat sintaks Timer2.Enabled:=false; yang berfungsi untuk menghentikan komponen Timer 2 ketika Button 2 sudah diklik.
·         procedure TForm1.Button3Click(Sender: TObject);
begin
if shape3.Brush.Color = clLime then
begin
label3.Caption := 'TRUE'; skor := skor+20.0;
end
else
begin
label3.Caption := 'FALSE'; skor := skor;
end;
timer3.Enabled := false;
end;
-       Sintaks diatas merupakan pendeklarasian dari prosedur Button 3 yang akan dipanggil saat program pertama kali dijalankan, dimana jika Shape 3 berwarna hijau saat Button 3 diklik, maka Label 3 akan menampilkan tulisan ‘TRUE’ (benar) dengan kalkulasi nilai variabel skor menjadi skor=skor+20.0. Tetapi jika Shape 3 tidak berwarna hijau saat Button 3 diklik, maka Label 3 akan menampilkan tulisan ‘FALSE’ (salah) dengan kalkulasi nilai variabel skor yang tidak berubah. Selain itu terdapat sintaks Timer3.Enabled:=false; yang berfungsi untuk menghentikan komponen Timer 3 ketika Button 3 sudah diklik.
·         procedure TForm1.Button4Click(Sender: TObject);
begin
if shape4.Brush.Color = clBlue then
begin
label4.Caption := 'TRUE'; skor := skor+20.0;
end
else
begin
label4.Caption := 'FALSE'; skor := skor;
end;
timer4.Enabled := false;
end;
-       Sintaks diatas merupakan pendeklarasian dari prosedur Button 4 yang akan dipanggil saat program pertama kali dijalankan, dimana jika Shape 4 berwarna biru saat Button 4 diklik, maka Label 4 akan menampilkan tulisan ‘TRUE’ (benar) dengan kalkulasi nilai variabel skor menjadi skor=skor+20.0. Tetapi jika Shape 4 tidak berwarna hijau saat Button 4 diklik, maka Label 4 akan menampilkan tulisan ‘FALSE’ (salah) dengan kalkulasi nilai variabel skor yang tidak berubah. Selain itu terdapat sintaks Timer4.Enabled:=false; yang berfungsi untuk menghentikan komponen Timer 4 ketika Button 4 sudah diklik.
·         procedure TForm1.Button5Click(Sender: TObject);
begin
if shape5.Brush.Color = clWhite then
begin
label5.Caption := 'TRUE'; skor := skor+20.0;
end
else
begin
label5.Caption := 'FALSE'; skor := skor;
end;
timer5.Enabled := false;
end;
-       Sintaks diatas merupakan pendeklarasian dari prosedur Button 5 yang akan dipanggil saat program pertama kali dijalankan, dimana jika Shape 5 berwarna putih saat Button 5 diklik, maka Label 5 akan menampilkan tulisan ‘TRUE’ (benar) dengan kalkulasi nilai variabel skor menjadi skor=skor+20.0. Tetapi jika Shape 5 tidak berwarna putih saat Button 5 diklik, maka Label 5 akan menampilkan tulisan ‘FALSE’ (salah) dengan kalkulasi nilai variabel skor yang tidak berubah. Selain itu terdapat sintaks Timer5.Enabled:=false; yang berfungsi untuk menghentikan komponen Timer 5 ketika Button 5 sudah diklik.
·         procedure TForm1.Button6Click(Sender: TObject);
begin
ShowMessage ('Irfan Sabdho Musthofa, Skor Anda: ' +floattostr(skor));
Application.Terminate;
end;
-       Sintaks diatas merupakan pendeklarasian dari prosedur Button 6 yang akan dipanggil saat program pertama kali dijalankan, dimana jika Button 6 diklik akan mengakhiri berjalannya program. Tetapi sebelumnya akan ditampilkan pesan ‘Irfan Sabdho Musthofa, Skor Anda: (jumlah skor)’ dengan tombol OK dibawahnya yang jika diklik akan menutup pesan yang ditampilkan.
·         procedure TForm1.Button7Click(Sender: TObject);
begin
ShowMessage ('This is Help button');
end;
-       Sintaks diatas merupakan pendeklarasian dari prosedur Button 7 yang akan dipanggil saat program pertama kali dijalankan, dimana jika Button 7 diklik akan ditampilkan pesan “Skor Anda: (jumlah skor)” dengan tombol OK dibawahnya yang jika diklik akan menutup pesan yang ditampilkan.
·         procedure TForm1.Button8Click(Sender: TObject);
begin
Button8.Caption:= 'RESTART'; Button7.Visible:= false;
Label1.Caption:=''; Shape1.Visible:= true; Button1.Visible:= true; Timer1.Enabled:= true;
Label2.Caption:=''; Shape2.Visible:= true; Button2.Visible:= true; Timer2.Enabled:= true;
Label3.Caption:=''; Shape3.Visible:= true; Button3.Visible:= true; Timer3.Enabled:= true;
Label4.Caption:=''; Shape4.Visible:= true; Button4.Visible:= true; Timer4.Enabled:= true;
Label5.Caption:=''; Shape5.Visible:= true; Button5.Visible:= true; Timer5.Enabled:= true;
end;
-       Sintaks diatas merupakan pendeklarasian dari prosedur Button 8 yang akan dipanggil saat program pertama kali dijalankan dengan mengklik Button 8, dimana:
                                  I.        Button8.Caption:=’RESTART’; berfungsi untuk mengubah tampilan Button 8 menjadi bertuliskan ‘RESTART’.
                                II.        Button7.Visible:=false; berfungsi untuk menyembunyikan Button 7 agar tidak terlihat.
                               III.        Label1.Caption:=’’; berfungsi untuk mengubah tampilan Label 1 menjadi kosong. Begitupun seterusnya.
                              IV.        Shape1.Visible:=true; berfungsi untuk menampilkan Shape 1 agar terlihat. Begitupun seterusnya.
                               V.        Button1.Visible:=true; berfungsi untuk menampilkan Button 1 agar terlihat. Begitupun seterusnya.
                              VI.        Timer1.Enabled:=true; berfungsi untuk menjalankan Timer 2 agar berfungsi.
·         procedure TForm1.Timer1Timer(Sender: TObject);
begin
a := random(5);
if a = 0 then Shape1.Brush.Color := clRed
else if a = 1 then Shape1.Brush.Color := clYellow
else if a = 2 then Shape1.Brush.Color := clLime
else if a = 3 then Shape1.Brush.Color := clBlue
else Shape1.Brush.Color := clWhite
end;
-       Sintaks diatas merupakan pendeklarasian dari prosedur Timer 1 yang akan dipanggil saat prosedur Button 8 pertama kali diklik, dimana:
                                  I.        a := random(5); berfungsi untuk melakukan pengacakan nilai dari variabel a yang terdiri dari 5 nilai.
                                II.        if a = 0 then Shape1.Brush.Color := clRed berfungsi untuk melakukan pendeklarasian nilai variabel a = 0 dengan menampilkan Shape 1 berwarna merah.
                               III.        else if a = 1 then Shape1.Brush.Color := clYellow berfungsi untuk melakukan pendeklarasian nilai variabel a = 1 dengan menampilkan Shape 1 berwarna kuning.
                              IV.        else if a = 2 then Shape1.Brush.Color := clime berfungsi untuk melakukan pendeklarasian nilai variabel a = 2 dengan menampilkan Shape 1 berwarna hijau.
                               V.        else if a = 3 then Shape1.Brush.Color := clBlue berfungsi untuk melakukan pendeklarasian nilai variabel a = 3 dengan menampilkan Shape 1 berwarna biru.
                              VI.        else Shape1.Brush.Color := clWhite berfungsi untuk melakukan pendeklarasian nilai variabel a > 3 dengan menampilkan Shape 1 berwarna putih.
·         procedure TForm1.Timer2Timer(Sender: TObject);
begin
b := random(5);
if b = 0 then Shape2.Brush.Color := clRed
else if b = 1 then Shape2.Brush.Color := clYellow
else if b = 2 then Shape2.Brush.Color := clLime
else if b = 3 then Shape2.Brush.Color := clBlue
else Shape2.Brush.Color := clWhite
end;
-       Sintaks diatas merupakan pendeklarasian dari prosedur Timer 2 yang akan dipanggil saat prosedur Button 8 pertama kali diklik, dimana:
                                  I.        b := random(5); berfungsi untuk melakukan pengacakan nilai dari variabel b yang terdiri dari 5 nilai.
                                II.        if b = 0 then Shape2.Brush.Color := clRed berfungsi untuk melakukan pendeklarasian nilai variabel b = 0 dengan menampilkan Shape 2 berwarna merah.
                               III.        else if b = 1 then Shape2.Brush.Color := clYellow berfungsi untuk melakukan pendeklarasian nilai variabel b = 1 dengan menampilkan Shape 2 berwarna kuning.
                              IV.        else if b = 2 then Shape2.Brush.Color := clime berfungsi untuk melakukan pendeklarasian nilai variabel b = 2 dengan menampilkan Shape 2 berwarna hijau.
                               V.        else if b = 3 then Shape2.Brush.Color := clBlue berfungsi untuk melakukan pendeklarasian nilai variabel b = 3 dengan menampilkan Shape 2 berwarna biru.
                              VI.        else Shape2.Brush.Color := clWhite berfungsi untuk melakukan pendeklarasian nilai variabel b > 3 dengan menampilkan Shape 2 berwarna putih.
·         procedure TForm1.Timer3Timer(Sender: TObject);
begin
c := random(5);
if c = 0 then Shape3.Brush.Color := clRed
else if c = 1 then Shape3.Brush.Color := clYellow
else if c = 2 then Shape3.Brush.Color := clLime
else if c = 3 then Shape3.Brush.Color := clBlue
else Shape3.Brush.Color := clWhite
end;
-       Sintaks diatas merupakan pendeklarasian dari prosedur Timer 3 yang akan dipanggil saat prosedur Button 8 pertama kali diklik, dimana:
                                  I.        c := random(5); berfungsi untuk melakukan pengacakan nilai dari variabel c yang terdiri dari 5 nilai.
                                II.        if c = 0 then Shape3.Brush.Color := clRed berfungsi untuk melakukan pendeklarasian nilai variabel c = 0 dengan menampilkan Shape 3 berwarna merah.
                               III.        else if c = 1 then Shape3.Brush.Color := clYellow berfungsi untuk melakukan pendeklarasian nilai variabel c = 1 dengan menampilkan Shape 3 berwarna kuning.
                              IV.        else if c = 2 then Shape3.Brush.Color := clime berfungsi untuk melakukan pendeklarasian nilai variabel c = 2 dengan menampilkan Shape 3 berwarna hijau.
                               V.        else if c = 3 then Shape3.Brush.Color := clBlue berfungsi untuk melakukan pendeklarasian nilai variabel c = 3 dengan menampilkan Shape 3 berwarna biru.
                             VII.        else Shape3.Brush.Color := clWhite berfungsi untuk melakukan pendeklarasian nilai variabel c > 3 dengan menampilkan Shape 3 berwarna putih.
·         procedure TForm1.Timer4Timer(Sender: TObject);
begin
d := random(5);
if d = 0 then Shape4.Brush.Color := clRed
else if d = 1 then Shape4.Brush.Color := clYellow
else if d = 2 then Shape4.Brush.Color := clLime
else if d = 3 then Shape4.Brush.Color := clBlue
else Shape4.Brush.Color := clWhite
end;
-       Sintaks diatas merupakan pendeklarasian dari prosedur Timer 4 yang akan dipanggil saat prosedur Button 8 pertama kali diklik, dimana:
                                  I.        d := random(5); berfungsi untuk melakukan pengacakan nilai dari variabel d yang terdiri dari 5 nilai.
                                II.        if d = 0 then Shape4.Brush.Color := clRed berfungsi untuk melakukan pendeklarasian nilai variabel d = 0 dengan menampilkan Shape 4 berwarna merah.
                               III.        else if d = 1 then Shape4.Brush.Color := clYellow berfungsi untuk melakukan pendeklarasian nilai variabel d = 1 dengan menampilkan Shape 4 berwarna kuning.
                              IV.        else if d = 2 then Shape4.Brush.Color := clime berfungsi untuk melakukan pendeklarasian nilai variabel d = 2 dengan menampilkan Shape 4 berwarna hijau.
                               V.        else if d = 3 then Shape4.Brush.Color := clBlue berfungsi untuk melakukan pendeklarasian nilai variabel d = 3 dengan menampilkan Shape 4 berwarna biru.
                              VI.        else Shape4.Brush.Color := clWhite berfungsi untuk melakukan pendeklarasian nilai variabel d > 3 dengan menampilkan Shape d berwarna putih.
·         procedure TForm1.Timer5Timer(Sender: TObject);
begin
e := random(5);
if e = 0 then Shape5.Brush.Color := clRed
else if e = 1 then Shape5.Brush.Color := clYellow
else if e = 2 then Shape5.Brush.Color := clLime
else if e = 3 then Shape5.Brush.Color := clBlue
else Shape5.Brush.Color := clWhite
end;
-       Sintaks diatas merupakan pendeklarasian dari prosedur Timer 5 yang akan dipanggil saat prosedur Button 8 pertama kali diklik, dimana:
                                  I.        e := random(5); berfungsi untuk melakukan pengacakan nilai dari variabel e yang terdiri dari 5 nilai.
                                II.        if 3 = 0 then Shape5.Brush.Color := clRed berfungsi untuk melakukan pendeklarasian nilai variabel e = 0 dengan menampilkan Shape 5 berwarna merah.
                               III.        else if e = 1 then Shape5.Brush.Color := clYellow berfungsi untuk melakukan pendeklarasian nilai variabel e = 1 dengan menampilkan Shape 5 berwarna kuning.
                              IV.        else if e = 2 then Shape5.Brush.Color := clime berfungsi untuk melakukan pendeklarasian nilai variabel e = 2 dengan menampilkan Shape 5 berwarna hijau.
                               V.        else if e = 3 then Shape5.Brush.Color := clBlue berfungsi untuk melakukan pendeklarasian nilai variabel e = 3 dengan menampilkan Shape 5 berwarna biru.
                              VI.        else Shape5.Brush.Color := clWhite berfungsi untuk melakukan pendeklarasian nilai variabel e > 3 dengan menampilkan Shape e berwarna putih.
end.
-       Sintaks diatas menandakan berakhirnya seluruh sintaks dari program Delphi 7 dengan kode “end” yang diakhiri dengan tanda titik “.”


OUTPUT PROGRAM





irfan musthaf

Phasellus facilisis convallis metus, ut imperdiet augue auctor nec. Duis at velit id augue lobortis porta. Sed varius, enim accumsan aliquam tincidunt, tortor urna vulputate quam, eget finibus urna est in augue.

Tidak ada komentar:

Posting Komentar