LAPORAN PEMROGRAMMAN VISUAL "LOGIKA PERULANGAN"
PROGRAM PIBONACCI
Assalamualaikum wr.wb
Dalam posting kali,saya akan membagikan program delphi yang telah diselesaikan untuk memenuhi praktikum 3 (Logika Percabangan) Pemrograman Visual, Prodi Ilmu Komputer Universitas Lambung Mangkurat. Asisten praktikum ini adalah Ka Wenie Hardianti dan Ka Anis Fairizza.
Program yang saya share kali ini adalah program Pibonacci serta program lampiran.
- Deskripsi Program
Program yang saya buat pada praktikum kali ini yaitu program Pibonacci. Seperti terlihat dari namanya, program ini berfungsi untuk menampilkan bilangan pibonacci, pibonacci sendiri adalah sebuah deretan angka sederhana yang terbentuk secara rekrusif. Program yang akan saya buat mempunyai 3 jenis program pibonacci ,yaitu: pibonacci standar, pibonacci standar, dan pibonacci non array dalam 1 form.
- Interface Program
- Source Code
Nama
Komponen
|
Event
|
Perintah
|
Bitbtn1
|
On Click
|
procedure
TForm1.BitBtn1Click(Sender: TObject);
var i,input :
integer;
begin
try
if trim(edit1.Text) <> '' then
input:=strtoint(trim(edit1.Text))
else
input:=-1;
except
exit;
end;
if input <= 0
then
begin
messagedlg('Input deret yang
valid',mtError,[MbOK],0);
exit;
end;
if input >=
31 then
begin
messagebox(self.Handle,'Peringatan. Input
data Berlebihan!!!','Input Maksimal 30',MB_OK + MB_ICONWARNING);
edit1.Clear;
edit1.SetFocus;
exit;
end;
for i:=1 to
input do
listbox1.Items.Add(floattostr(fiboIterasi(i)));
bitbtn1.Enabled:=false;
end;
|
Bitbtn2
|
On Click
|
procedure
TForm1.BitBtn2Click(Sender: TObject);
begin
edit1.Clear;
listbox1.Clear;
edit1.SetFocus;
bitbtn1.Enabled:=true;
end;
|
Speedbutton1
|
On click
|
procedure
TForm1.SpeedButton1Click(Sender: TObject);
var
a,b,c,z : longint;
deret: array[1..100] of integer;
begin
if (edit2.Text =
'') or (edit3.Text = '') or (edit4.Text = '') then
begin
messagedlg('Tolong Isi Input Terlebih
Dahulu!!!',mtError,[mbOk],0);
edit2.SetFocus;
edit2.Clear;
edit3.Clear;
edit4.Clear;
end else
begin
try
a:=strtoint(edit2.Text);
b:=strtoint(edit3.Text);
c:=strtoint(edit4.Text);
deret[1]:=a;
deret[2]:=b;
listbox2.Items.Add(inttostr(a));
listbox2.Items.Add(inttostr(b));
for z:=3 to c do
begin
deret[z]:=deret[z-1]+deret[z-2];
listbox2.Items.Add(inttostr(deret[z]));
end;
except
exit;
end;
end;
speedbutton1.Enabled:=false;
end;
|
Speedbutton2
|
On click
|
procedure
TForm1.SpeedButton2Click(Sender: TObject);
begin
edit2.clear;
edit3.clear;
edit4.clear;
listbox2.Clear;
edit2.SetFocus;
speedbutton1.Enabled:=true;
end;
|
Speedbutton3
|
On click
|
procedure
TForm1.SpeedButton3Click(Sender: TObject);
var
v,w,x,y,z:integer;
begin
if (edit5.Text =
'') or (edit6.Text = '') or (edit7.Text = '') then
begin
messagedlg('Tolong Isi Input Terlebih
Dahulu!!!',mtError,[mbOk],0);
edit5.SetFocus;
edit5.Clear;
edit6.Clear;
edit7.Clear;
end else
begin
try
v:=strtoint(edit5.Text);
w:=strtoint(edit6.Text);
x:=strtoint(edit7.Text);
listbox3.Items.Add(inttostr(v));
listbox3.Items.Add(inttostr(w));
for w:=0 to x-3 do
begin
z:=strtoint(listbox3.Items.Strings[listbox3.Items.count-1])+
(strtoint(listbox3.Items.Strings[listbox3.Items.count-2]));
listbox3.items.add(inttostr(z));
end;
except
exit;
end;
end;
speedbutton3.enabled:=false;
end;
|
Speedbutton4
|
On click
|
procedure
TForm1.SpeedButton4Click(Sender: TObject);
begin
edit5.clear;
edit6.clear;
edit7.clear;
listbox3.Clear;
edit5.SetFocus;
speedbutton3.Enabled:=true;
end;
|
- Output
Gambar 2 Tampilan saat Menginput Data
Gambar 3 Tampilan saat Menampilkan Hasil
bagi yang ingin download program
ini silah kan klik link dibawah ini :
download (via google drive)
download (via Dropbox)
untuk program lampiran
download (via Dropbox)
0 Response to "LAPORAN PEMROGRAMMAN VISUAL "LOGIKA PERULANGAN""
Posting Komentar