PROGRAM PERULANGAN PADA
DELPHI
Delphi adalah tools dalam
pengembangan aplikasi visual yang yang
berbasis objek. Praktikum ini saya membuat aplikasi dari Delphi yaitu
perulangan dan segitiga. Berikut adalah contoh sederhana program perulangan dan
segitiga menggunakan Delphi.
1.
List Program 1
Program
ini di buat untuk latihan membuat program menggunakan Delphi. Versi yang di
gunakan pada program ini adalah Delphi 7. Pada program ini kita menggunakan Form
yang terdapat pada Delphi. Di sini kita akan membuat program untuk perulangan.
Jika
ingin membuat program dengan output seperti itu, maka kita dapat menggunakan 6
CommandButton yang kita buat untuk for to do, repeat until, for downto do,
while, baru, dan exit serta 1 TextBox untuk mengisi angka, dan membuat 2 label
untuk masukkan angka, dan Judulnya.
Pada
list program command button pertama atau for to do terdapat sintaks ” var a,b:integer;c:string;”, perintah ini digunakan untuk
mendeklarasikan a dan b sebagai integer dan c sebagai string.
Pada
list sintaks berikutnya terdapat sintaks
” begin c:=’ ‘; b:=
strtoint(Edit1.Text);”, ini berarti bahwa variable b berisi
spasi kosong dan variable b umutk mengkonversi variable dari string ke integer
pada textbox 1 .
Pada
list sintaks berikutnya terdapat sintaks “For
a:=1 to b do ; begin c:= c+inttostr(a)+ ' '; end ; ListBox1.Items.Add(c); end;”
untuk a sama dengan 1 sampai b kemudian melakukannya, outputnya berbentuk
horizontal, kemudian menambahkan
outputnya di listbox 1, dan tutup program dengan end.
Pada
list sintaks command button for downto do berikutnya hanya berbeda di list
sintaks “b:= 1; For a:=
strtoint(Edit1.Text) downto b do”, variabel b dibatasi hanya sampai 1 dan
untuk a diubah dari string menjadi integer pada textbox 1 dan turun sampai
batas b dan melakukannya.
Pada
list sintaks command button repeat until berikutnya hanya berbeda di list
sintaks “a:=1; repeat c:= c+inttostr(a)+'
'; a:=a+1 until a>b;”, a dibatasi nilainya minimum 1 kemudian mengulang
variabel c untuk outputnya horizontal dan a ditambah 1 sampai a lebih besar
dari b.
Pada
list sintaks command button while do berikutnya hanya berbeda di list sintaks “b:= 1; while
a >= b do begin c:= c+inttostr(a)+' '; a:=a-1”,
variabel b dibatasi dimulai dari satu kemudian jika a lebih besar sama dengan b
kemudian mulai c output horizontal dan a dikurang 1.
Pada list sintaks command button baru
berikutnya terdapat list sintaks “ListBox1.Clear;
Edit1.Clear;”, ini akan menghapus output yang berada pada textbox 1 dan
listbox 1.
Pada
list sintaks command button exit yang terakhir terdapat list sintaks “Application.Terminate;”, ini akan menghentikan aplikasi yang
sedang berjalan.
Berikut adalah seluruh sintaks dari Program 1
:
procedure
TForm1.Button1Click(Sender: TObject);
var
a,b:integer;
c:string;
begin
c:=
'';
b:=
strtoint(Edit1.Text);
For
a:=1 to b do
begin
c:=
c+inttostr(a)+ ' ';
end;
ListBox1.Items.Add(c);
end;
procedure
TForm1.Button2Click(Sender: TObject);
var
a,b:integer;
c:string;
begin
c:=
'';
b:=
1;
For
a:= strtoint(Edit1.Text) downto b do
begin
c:=
c+inttostr(a)+' ';
end;
ListBox1.Items.Add(c);
end;
procedure
TForm1.Button3Click(Sender: TObject);
var
a,b:integer;
c:string;
begin
a:=1;
c:='';
b:=
strtoint(Edit1.Text);
repeat
c:=
c+inttostr(a)+' ';
a:=a+1
until
a>b;
ListBox1.Items.Add(c);
end;
procedure
TForm1.Button4Click(Sender: TObject);
var
a,b:integer;
c:string;
begin
a:=
strtoint(Edit1.Text);
b:=
1;
c:=
'';
while
a >= b do
begin
c:=
c+inttostr(a)+' ';
a:=a-1
end;
ListBox1.Items.Add(c);
end;
procedure
TForm1.Button5Click(Sender: TObject);
begin
ListBox1.Clear;
Edit1.Clear;
end;
procedure
TForm1.Button6Click(Sender: TObject);
begin
Application.Terminate;
end;
end.
Program
ini di buat untuk latihan membuat program menggunakan Delphi. Versi yang di
gunakan pada program ini adalah Delphi 7. Pada program ini kita menggunakan
Form yang terdapat pada Delphi. Di sini kita akan membuat program untuk
perulangan diamond 1/2.
Jika
ingin membuat program dengan output seperti itu, maka kita dapat menggunakan 3
CommandButton yang kita buat untuk check, clear , dan exit, 1 TextBox untuk
mengisi angka, 1 ListBox untuk tempat outputnya dan membuat 2 label untuk
masukkan angka, dan Judulnya.
Pada
list program command button pertama atau check terdapat sintaks ” var a,b,c: integer; bintang
: string;”, perintah ini digunakan
untuk mendeklarasikan a, b, c sebagai integer dan bintang sebagai string.
Pada
list sintaks berikutnya terdapat sintaks
” begin
bintang := '*'; b := StrToInt (Edit1.Text);”,
ini berarti bahwa akan memulai bintang berisi varibael “*” dan b dikonversi
dari string menjadi integer yang diinputkan pada textbox 1.
Pada
list sintaks berikutnya terdapat sintaks “for
a:= 0 to b do begin ListBox1.Items.Add
(bintang); bintang := bintang + '*'; end;” untuk a sama dengan 0 sampai b
kemudian melakukannya, outputnya berbentuk vertical dan memanggil variabel
bintang diatas, kemudian menambahkan
outputnya di listbox 1, dan tutup program dengan end.
Pada
list sintaks berikutnya terdapat sintaks “for
a:= b downto 0 do begin bintang := ' '; for c:= 0 to a do begin bintang :=
bintang + '*'; end; ListBox1.Items.Add
(bintang); end; end;” untuk a sama dengan b kemudian turun sampai 0 kemudian, bintang berisi spasi
kosong untuk menghapus dulu dari program for pertama diatas.
Kemudian
untuk c sama dengan 0 sampai a kemudian memulai bintang sama dengan memanggil
bintang dan outputnya berbentuk vertical, dan tutup program dengan end.
Pada list sintaks command button clear
berikutnya terdapat list sintaks “ListBox1.Clear;
Edit1.Clear;”, ini akan menghapus output yang berada pada textbox 1 dan
listbox 1.
Pada
list sintaks command button exit yang terakhir terdapat list sintaks
“Application.Terminate;”, ini akan
menghentikan aplikasi yang sedang berjalan.
Berikut adalah seluruh sintaks dari Program 2
:
procedure
TForm1.Button1Click(Sender: TObject);
var
a,b,c: integer;
bintang
: string;
begin
bintang
:= '*';
b :=
StrToInt (Edit1.Text);
for
a:= 0 to b do
begin
ListBox1.Items.Add (bintang);
bintang := bintang + '*';
end;
for
a:= b downto 0 do
begin
bintang
:= '';
for c:= 0 to a do
begin
bintang := bintang + '*';
end;
ListBox1.Items.Add (bintang);
end;
end;
procedure
TForm1.Button2Click(Sender: TObject);
begin
ListBox1.Clear;
Edit1.Clear;
Edit1.SetFocus;
end;
procedure
TForm1.Button3Click(Sender: TObject);
begin
Application.Terminate;
end;
end.
5.
Output Program 1 & 2
FOR TO DO dan REPEAT UNTIL
FOR DOWNTO DO dan WHILE DO
