hallo guys . . . gimana kabarnuya nih . . . ???
oke...kali ini saya akan meposting program delphi yang saya buat selama 2 hari. program yang saya buat ini membuat saya nggak bisa tidur selama 2 hari, dan akhirnya program ini selesai meskipun ini hanya program yang biasa - biasa aja.
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
