Ndji Reza Rivai
56413371
1IA16
E01
Pada praktikum kedua kali ini, Masih dalam program Delphi, Delphi merupakan bahasa pemrograman yang hampir sama dengan Visual basic, melakukan pendekatan visual untuk merancang interface dalam bentuk form. Kodingannya pun tidak terlalu jauh dengan Visual Basic, hanya beberapa saja yang membedakan. Hal lain yang membedakan Visual Basic dan Delphi yaitu pada Delphi saat di save atau disimpan program yang telah dibuat akan menjadi Apllication, sedangkan di Visual Basic tidak.
Dalam program kali ini menggunakan
metode perulangan For... To..Do, For...downTo, dan Repeat Until
Dibawah ini merupakan tampilan
programnya :
Tampilan Form Program
Program pertama ini membuat tentang
perulangan For..To..Do, For...downTo, dan Repeat Until. Program ini membuat
banyak perulangan dalam satu form. Dalam perulangan For...To...Do akan
mengeluarkan angka berurut ketika kita memasukkan angka, pada perulangan
For..downTo akan mengeluarkan output terbalik ketika kita memasukkan angka. Dan
Repeat Until mengeluarkan output yang hampir sama dengan For...To..Do.
Dibawah
ini merupakan koding dari For...To...Do
var
i:Integer;
begin
for
i:=1 to StrToInt(edit1.text) do
begin
listbox1.items.add(IntToStr(i));
end;
end;
Logika
:
Pertama
mendeklarasikan variabel i sebagai Integer. Kemudian melakukan perulangan untuk
i yang ditulis 1 merubah semua tipe data dari String ke Integer yang batasnya
ditulis didalam edit1.text. Dan hasilnya ditampilkan didalam Listbox, yaitu “listbox1.items.add(IntToStr(i));”
Dibawah ini merupakan koding
dari For...downTo
procedure TForm1.Button2Click(Sender: TObject);
var
i,j:Integer;
begin
i:=1;
for j:=StrToInt(edit1.text) downto i do
begin
listbox1.items.add(IntToStr(j));
end;
end;
Logika
:
Pertama
mendeklarasikan variabel i dan j sebagai Integer. Dan mendeklarasikan i=1. Untuk
variabel j yang ditulis di edit1.text menurun dari j ke i dan merubah semua
tipe data dari String ke Integer. Dan apa yang ditulis di edit1.text
ditampilkan di listbox1.
Dibawah ini merupakan koding
dari Repeat....Until
procedure
TForm1.Button3Click(Sender: TObject);
var
a,b:integer;
begin
a:=0;
b:=StrToInt(Edit1.Text);
repeat
a:=a+1;
begin
listbox1.Items.Add(IntToStr(a));
end;
until
b<=a;
end;
end.
Logika :
Mendeklarasikan variabel a,b sebagai integer. a=0 dan b yang
ditulis didalam edit1.text merubah semua tipe data string ditulis ke dalam
edit1.text ke tipe data Integer. Kemudian mengulangi ke fungsi berikutnya
a:=a+1 dan mengulangi sampai b<=a. Hasilnya ditulis didalam listbox1.
Dibawah ini merupakan koding
dari button Clear
procedure
TForm1.Button4Click(Sender: TObject);
begin
edit1.Clear;
listbox1.Clear;
end;
Logika:
Pada
saat button clear di klik, apa yang ada dalam di inputan(edit1.text) dan yang
ada di output(Listbox1). Sehingga apapun yang ditulis di inputan dan output
akan dihapus. Kembali ke keadaan kosong.
Inilah merupakan output dari
program ketika di Running :
For..To..Do
For...downTo
Repeat...Until
Clear
(mengembalikan kepada keadaan kosong)
