LAPORAN AKHIR PRAKTIKUM
MATA
PRAKTIKUM : ALGORITMA DAN PEMROGRAMAN
KELAS
: 1IA07
PRAKTIKUM KE-
: 1
TANGGAL
: 18 Maret 2016
MATERI
: PENGENALAN DAN
PERCABANGAN PADA
DELPHI
NPM
: 54415823
NAMA
: Muhammad Yunus
NAMA KETUA
ASISTEN : Grace
NAMA
ASISTEN : Faizal
PARAF
ASISTEN
:
JUMLAH
LEMBAR
: 10 LEMBAR
LABORATORIUM INFORMATIKA
UNIVERSITAS GUNADARMA
2016
LISTING PROGRAM
unit Unit1;
interface
uses
Windows,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,
StdCtrls;
type
TForm1 =
class(TForm)
ComboBox1:
TComboBox;
Edit1:
TEdit;
ComboBox2:
TComboBox;
ComboBox3:
TComboBox;
Edit2:
TEdit;
Edit3:
TEdit;
Button1:
TButton;
Button2:
TButton;
Edit4:
TEdit;
Edit5:
TEdit;
Button3:
TButton;
Label1:
TLabel;
Label2: TLabel;
Label3:
TLabel;
Label4:
TLabel;
procedure
ComboBox1Change(Sender: TObject);
procedure
ComboBox2Change(Sender: TObject);
procedure
ComboBox3Change(Sender: TObject);
procedure
FormCreate(Sender: TObject);
procedure
Button1Click(Sender: TObject);
procedure
Button2Click(Sender: TObject);
procedure
Label3Click(Sender: TObject);
private
{ Private
declarations }
public
{ Public
declarations }
end;
var
Form1:
TForm1;
harga1,harga2,harga3,tot,diskon:integer;
implementation
{$R *.dfm}
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if Combobox1.ItemIndex=0 then
harga1:=50000
else if Combobox1.ItemIndex=1 then
harga1:=64000
else if Combobox1.ItemIndex=2 then
harga1:=56000
else if Combobox1.ItemIndex=3 then
harga1:=45000;
Edit1.text := IntToStr(harga1);
end;
procedure TForm1.ComboBox2Change(Sender: TObject);
begin
if Combobox2.ItemIndex=0 then
harga2:=15000
else if Combobox2.ItemIndex=1 then
harga2:=16000
else if Combobox2.ItemIndex=2 then
harga2:=19000
else if Combobox2.ItemIndex=3 then
harga2:=14000;
Edit2.text := IntToStr(harga2);
end;
procedure TForm1.ComboBox3Change(Sender: TObject);
begin
if Combobox3.ItemIndex=0 then
harga3:=34000
else if Combobox3.ItemIndex=1 then
harga3:=38000
else if Combobox3.ItemIndex=2 then
harga3:=32000
else if Combobox3.ItemIndex=3 then
harga3:=36000;
Edit3.text := IntToStr(harga3);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Text := 'pilihan';
ComboBox2.Text := 'pilihan' ;
ComboBox3.Text := 'pilihan' ;
Edit1.Clear ;
Edit2.Clear ;
Edit3.Clear
;
Edit4.Clear
;
Edit5.Clear
;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
harga1:= StrToInt(Edit1.Text);
harga2:= StrToInt(Edit2.Text);
harga3:= StrToInt(Edit3.Text);
tot := (harga1 + harga2 + harga3);
Edit4.Text := IntToStr(tot);
tot := StrToInt (Edit4.Text);
If tot >=
100000 Then
diskon:=10000
else if tot >= 50000 Then
diskon:=5000;
Edit5.Text:= IntToStr (diskon);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ComboBox1.Text := 'pilihan';
ComboBox2.Text := 'pilihan' ;
ComboBox3.Text := 'pilihan' ;
Edit1.Clear ;
Edit2.Clear ;
Edit3.Clear
;
Edit4.Clear
;
Edit5.Clear
;
end;
procedure TForm1.Label3Click(Sender: TObject);
begin
end;
end.
LOGIKA PROGRAM
1. Analisa Progam
Pada program yang saya buat, yang berjudul “ TOKO BUKU SEJAHTERA”, membicarakan
tentang penjualan buku, nah program itu sendiri yang saya buat yang ketika di
running akan menghasilkan output daftar buku beserta harga buku tersebut.
Disini saya menggunakan beberapa menu yang ada pada toolbar program Delphi,
yaitu : Label, Edit text dan Combo box.
2. Penjelasan Program
Berikut penjelasan program yang saya buat, meskipun sederhana . ok langsung
saja saya akan menjelaskan langkah-langkahnya .
A. Pertama saya akan membuat 4 label, dimana satu untuk
menuliskan judul form dan yang lainnya menulisakan ‘nama-nama’ data yang akan
kita isikan yaitu buku pendidikan, buku
komik, dan buku majalah.
B. Kemudian saya menggunakan 5 Edit text, dengan berbeda-beda
fungsi yaitu edit1.text di gunakan untuk menampilkan harga dari buku sekolah,
edit2.text di gunakan untuk menampilkan harga dari buku komik, edit3.text di
gunakan untuk menampilkan harga dari buku majalah, edit4.text di gunakan untuk
menampilkan total harga buku yang dibeli dan edit5.text di gunakan untuk
menampilkan diskon harga buku yang dibeli.
C. Kemudian saya menggunakan
3 ComboBox, yaitu:
1.
ComboBox1 digunakan untuk
menampilkan daftar buku sekolah yaitu buku Matematika, Ipa, Ips dan Ekonomi.
sintaks nya yaitu:
if Combobox1.ItemIndex=0 then
harga1:=50000
else if Combobox1.ItemIndex=1 then
harga1:=64000
else if Combobox1.ItemIndex=2 then
harga1:=56000
else if Combobox1.ItemIndex=3 then
harga1:=45000;
Edit1.text := IntToStr(harga1);
2.
ComboBox2 digunakan untuk
menampilkan daftar buku komik yaitu buku naruto, doraemon, one piece dan
tsubasa. Sintaksnya yaitu:
if Combobox2.ItemIndex=0 then
harga2:=15000
else if Combobox2.ItemIndex=1 then
harga2:=16000
else if Combobox2.ItemIndex=2 then
harga2:=19000
else if Combobox2.ItemIndex=3 then
harga2:=14000;
Edit2.text := IntToStr(harga2);
3.
ComboBox3 digunakan untuk
menampilkan daftar buku majalah yaitu buku majalah genie, politik, Budaya dan
play boy. Sintaksnta yaitu:
if Combobox3.ItemIndex=0 then
harga3:=34000
else if Combobox3.ItemIndex=1 then
harga3:=38000
else if Combobox3.ItemIndex=2 then
harga3:=32000
else if Combobox3.ItemIndex=3 then
harga3:=36000;
Edit3.text := IntToStr(harga3);
D. Yang terakhir saya menggunkan 3 Button dengan fungsi
berbeda-beda, yaitu:
1.
Button1 digunakan untuk menghasilkan
output total harga buku yang dibeli.
Dengan sintaks:
procedure TForm1.Button1Click(Sender: TObject);
begin
harga1:= StrToInt(Edit1.Text);
harga2:= StrToInt(Edit2.Text);
harga3:= StrToInt(Edit3.Text);
tot := (harga1 + harga2 + harga3);
Edit4.Text := IntToStr(tot);
tot := StrToInt (Edit4.Text);
2.
Button2 digunakan untuk menghasilkan
output diskon dari buku yang dibeli.
Sintaksnya yaitu:
procedure TForm1.Button1Click(Sender: TObject);
begin
If tot >= 100000
Then
diskon:=10000
else if tot >= 50000 Then
diskon:=5000;
Edit5.Text:= IntToStr (diskon);
3.
Button3 digunakan untuk menampilkan
tampilan seperti semula(tampilan kosong).
Sintaksnya yaitu:
Edit1.Clear ;
Edit2.Clear ;
Edit3.Clear ;
Edit4.Clear ;
Edit5.Clear ;
end;
OUTPUT PROGRAM
EmoticonEmoticon