Laporan Praktikum Bahasa Pemrograman Komputer

KATA PENGANTAR
Puji syukur penulis sampaikan kepada Allah SWT sehingga penulis dapat
menyelesaikan tugas laporan praktikum Bahasa Pemrograman Komputer dengan studi kasus
Toko Sepatu terselesaikan dengan baik.
Dalam penyusunan laporan ini, penulis mengucapkan terimaksih sebesar-besarnya kepada

semua pihak yang telah membantu menyelesaikan laporan ini. Adapun pihak-pihak tersebut
antara lain:
1. Seluruh asisten dosen Laboratorium Sistem Informasi dan Keputusan (LSIK).

2. Keluarga Mahasiswa Tirtayasa (KAMAYSA) bandung.
3. Orang tua, sahabat, calon pacar, kerabat dan pihak-pihak lainnya yang tidak bisa penulis
sebutkan satu persatu.
Penulis menyadari bahwa laporan praktikum ini belumlah dikatakan sempurna. Untuk itu,
penulis dengan sangat terbuka menerima kritikan dan saran dari pembaca sekalian. Demikian,
dan apabila terdapat banyak kesalahan pada makalah ini penulis mohon maaf yang sebesar-
besarnya.
Bandung, 16 Januari 2018
Ifhal Kosasih
i
ABSTRAK
Dalam laporan praktikum penulis mengobservasi suatu kejanggalan dalam Toko Sepatu
Cibaduyut yang semakin banyak pelanggan setiap harinya, dan kejanggalan tersebut pada
sistem transaksi yang masih manual membuat tidak efektif dan efisien dalam kinerjanya.
Penulis membuat solusi untuk mengubah transaksi manual menjadi komputerisasi.
Dalam pelayananya selama ini Toko Sepatu Cibaduyut pernah mengalami kritikan
pedas oleh konsumen dalam pelayanan, yang membuat konsumen bosen untuk menunggu
proses transaksi selesai, dan juga pemilik toko pernah mengalami kehilangan data pemasukan
dan pengeluaran toko sepatu cibaduyut untuk mengevaluasi laba yang didapat.
Untuk itu penulis insiatif membuat program yang terkomputerisasi memanfaatkan

aplikasi Microsoft Excel, Free Pascal & Visual Basic 6.0, yang bertujuan untuk meningkatkan
pelayanan pada toko sepatu cibaduyut dan semoga tidak akan kehilangan data pemasukan
pengeluaran toko sepatu cibaduyut.
ii
DAFTAR ISI
LEMBAR PENGESAHAN
KATA PENGANTAR .................................................................................... i
ABSTRAK ...................................................................................................... ii
DAFTAR ISI ................................................................................................... iii
DAFTAR GAMBAR ...................................................................................... v
DAFTAR TABEL .......................................................................................... vii
Bab I Pendahuluan......................................................................................... I-1
I.1 Latar Belakang Masalah .................................................................... I-1
I.2 Identifikasi Masalah ........................................................................... I-2
I.3 Tujuan Pemecahan Masalah .............................................................. I-2
I.4 Asumsi dan Batasan Masalah ............................................................ I-2
I.5 Sistematika Penulisan ........................................................................ I-2
Bab II Deskripsi Studi Kasus
II.1 Gambaran Umum Studi Kasus........................................................... II-1
II.2 Struktur Organisasi Studi Kasus ........................................................ II-2
II.3 Job Description ................................................................................. II-2
II.4 Flow Process Activity ....................................................................... II-4
II.5 Data Permasalahan ............................................................................. II-5
Bab III Perancangan Sistem Informasi
III.1 Turbo Pascal .................................................................................. III-1
III.1.1 Modul Pengenalan Turbo Pascal dan Pengambilan Keputusan .. III-1
III.1.1.1 Identifikasi Komponen Program ............................................ III-1
III.1.1.2 Tabel Data ............................................................................. III-2
III.1.1.3 Algoritma .............................................................................. III-2
III.1.1.4 Flowchart Program ................................................................ III-5
III.1.1.5 Source Code Program ........................................................... III-8
III.1.1.6 Tampilan Output Program ..................................................... III-12
III.1.2 Modul Perulangan ........................................................................ III-13
iii
III.1.3 Modul Prosedur dan Fungsi ......................................................... III-26
III.1.4 Modul Array .................................................................................. III-42
III.1.5 Visual Basic 6.0............................................................................. III-60
III.1.5.1 Modul Pengenalan dan Struktur Kontrol Visual Basic 6.0 .... III-60
III.1.5.2 Design Visual ......................................................................... III-60
III.1.5.3 Source Code .......................................................................... III-61
Bab IV Analisis Hasil Perancangan ............................................................. IV-1

Bab V Penutup ............................................................................................... V-1
V.1 Kesimpulan ......................................................................................... V-1
V.2 Saran .................................................................................................... V-1
V.2.1 Saran untuk Materi ................................................................. V-1
V.2.2 Saran untuk Laboratorium ..................................................... V-1
V.2.3 Saran untuk Asisten ............................................................... V-2
DAFTAR PUSTAKA
LAMPIRAN
iv
DAFTAR GAMBAR
Gambar II.1.1 Struktur Organisasi Toko Sepatu Cibaduyut ............................ II-2
Gambar II.1.2 Flow Process Activity Toko Sepatu Cibaduyut ........................ II-4
Gambar II.1.3 Grafik Aktivitas Toko Sepatu Cibaduyut ................................. II-5
Gambar III.1.1.4 Flowchart Modul Pengenalan Turbo Pascal dan Pengambilan
Keputusan ......................................................................................................... III-7
Gambar III.1.1.6.1 Tampilan Running Input ................................................... III-12
Gambar III.1.1.6.2 Tampilan Running Output ................................................. III-13
Gambar III.1.2.4 Flowchart Modul Perulangan ............................................... III-20
Gambar III.1.3.4.1 Flowchart Program Utama Modul Prosedur dan Fungsi ... III-32
Gambar III.1.3.4.2 Flowchart Procedure Adidas ............................................ III-33
Gambar III.1.3.4.3 Flowchart Procedure Converse ......................................... III-34
Gambar III.1.3.4.4 Flowchart Procedure Reebok ............................................ III-35
Gambar III.1.3.4.5. Flowchart Procedure Tampilan ........................................ III-36
Gambar III.1.3.6.1 Tampilan Running Input .................................................. III-40
Gambar III.1.4.4.1 Flowchart Program Utama Modul Array .......................... III-48
Gambar III.1.4.4.2 Flowchart Procedure Adidas ............................................ III-49
Gambar III.1.4.4.3 Flowchart Procedure Converse ......................................... III-50
Gambar III.1.4.4.4 Flowchart Procedure Reebok ............................................ III-51
Gambar III.1.4.4.5. Flowchart Procedure Tampilan ........................................ III-52
v
Gambar III.2.1.1 Design Visual Menu Login .................................................. III-60
Gambar III.2.1.2 Design Visual Menu Transaksi ............................................ III-60
vi
DAFTAR TABEL
Tabel III.1.1.2 Tabel Data Modul Pengenalan Turbo Pascal dan Pengambilan
Keputusan ......................................................................................................... III-2
Tabel III.1.2.2 Tabel Data Modul Perulangan ................................................. III-14
Tabel III.1.3.2 Tabel Data Modul Prosedur dan Fungsi .................................. III-27
Tabel III.1.4.2 Tabel Data Modul Array .......................................................... III-43
vii
BAB I
PENDAHULUAN
I.1 Latar Belakang Penelitian

Fashion merupakan suatu bagian dari kehidupan sehari-hari yang tidak dapat
dipisahkan dalam aspek penampilan, saat ini fungsi fashion bukan lagi sekedar
penutup tubuh, namun menjadi suatu kebutuhan sebagai alat komunikasi untuk
menyampaikan identitas diri. Produk yang termasuk fashion tidak hanya pakaian
dan aksesori yang dikenakan, tetapi juga perhiasan dan sepatu. Salah satu produk
fashion yang berkembang dengan pesat adalah sepatu. Hal ini ditunjukkan oleh
semakin meningkatnya penjualan sepatu di pasar lokal. Dikutip dari:
(http://repository.upi.edu/17700/3/S_PSI_1002985_Chapter1.pdf).
Seperti toko sepatu yang ada di cibaduyut, pusat wisata belanja sepatu yang
ada di kota bandung, bisnis sepatu saat ini menyebabkan semakin kompetitifnya
persaingan, dimana produsen berlomba-lomba dan saling bersaing untuk
menciptakan suatu produk yang dapat menarik dan dapat diterima oleh konsumen.
Penulis menemukan masalah terhadap beberapa toko sepatu yang ada di cibaduyut
masih menggunakan transaksi produk secara manual yang membuat tidak efisenya
proses transaksi, di zaman serba teknologi kita bisa memanfaatkan suatu teknologi
untuk melakukan transaksi yang lebih efektif dan efisien, dengan memanfaatkan
teknologi secara komputerisasi semoga konsumen dan pemilik tokoh lebih nyaman
untuk melakukan transaksi pembelian. Penulis mengobservasi suatu permasalahan
untuk memecahkan permasalahan yang terjadi dengan mengandalkan ilmu-ilmu
yang diajarkan dikampus, semoga observasi ini bisa membuat toko sepatu didaerah
cibaduyut menjadi lebih baik lagi.
Universitas Pasundan menjadi wadah penulis dalam ilmu program studi
Teknik Industri, maka dari itu penulis sebagai insan akademis sangat antusias
terhadap tugas penelitian toko sepatu yang di tugaskan. Semoga penulis mempunyai
pengalaman terhadap bidang distribusi untuk membangun suatu usaha yang
bermanfaat bagi sekitar seperti contohnya toko sepatu cibaduyut.
I-1
Muhammad Ifhal Kosasih (16.10059) I-2
I.2 Identifikasi Masalah

Berdasarkan penguraian diatas, penulis dapat mengidentifikasikan masalah
masalah yang ada diantaranya:
1) Bagaimana cara mengatasi proses transaksi membuat konsumen
nyaman?
2) Bagaimana cara mengatasi pengolahan transaksi yang efektif dan
efisien?
I.3 Tujuan Pemecahan Masalah
1) Untuk membuat konsumen yang sebelumnya tidak nyaman menjadi
nyaman
2) Untuk membantu kosumen dan pemilik toko yang sebelumnya manual
menjadi komputerisasi
I.4 Asumsi dan Batasan Masalah
a) Asumsi
1) Pemilik toko memberikan instruksi kepada konsumen untuk duduk
di tempat yang disediakan
2) Seorang konsumen dan pemilik toko dikasih keterangan dalam
proses transaksi barang
b) Batasan Masalah
1) Batasan masalah di tokoh sepatu di Cibaduyut Bandung.
2) Batasan masalah instruksi kepada konsumen
3) Batasan masalah proses transaksi di toko sepatu cibaduyut
I.5 Sistematika Penulisan
Memaparkan pembahasan dari setiap bab secara rinci dan berurutan yang ada
pada Laporan Akhir Praktikum sesuai dengan Studi Kasus dari masing-masing
peneliti. Adapun isi dari sub-bab I.5 tentang Sistematika Penulisan ini adalah
sebagai berikut:
BAB I PENDAHULUAN
Berisikan tentang pemaparan dari sub-bab yang dibahas pada Bab I dimana
semua yang dipaparkan harus dikaitkan dengan Studi Kasus dari masing-masing
peneliti.
Praktikum Bahasa Pemrograman Komputer

Program Studi Teknik Industri Universitas Pasundan
2018
Muhammad Ifhal Kosasih (16.10059) I-3
BAB II DESKRIPSI STUDI KASUS

Berisikan tentang pemaparan dari sub-bab yang dibahas pada Bab II dimana
peneliti.
BAB III PERANCANGAN SISTEM INFORMASI
Berisikan tentang pemaparan dari sub-bab yang dibahas pada Bab III
dimana semua yang dipaparkan harus dikaitkan dengan Studi Kasus dari masing-
masing peneliti.
.BAB IV ANALISIS HASIL PERANCANGAN
Berisikan tentang pemaparan dari hal yang dibahas pada Bab IV dimana
peneliti.
BAB V PENUTUP
Berisikan tentang pemaparan dari sub-bab yang dibahas pada Bab V dimana
peneliti.

2018
BAB II
DESKRIPSI STUDI KASUS
II.1 Gambaran Umum Toko Sepatu Cibaduyut
Cibaduyut Bandung sebagai sentra kerajinan sepatu dimulai pada tahun 1920
dimana sebagian warga setempat merupakan pekerja pada pabrik sepatu di
Bandung. Namun akhirnya mereka memutuskan untuk berhenti bekerja dari pabrik
tersebut. Berbekal dari pengalaman mereka bekerja pada pabrik sepatu, mereka
mulai merintis usaha pembuatan dan penjualan produk alas kaki sederhana di
lingkungan rumah dengan melibatkan anggota keluarga sebagai tenaga kerjanya.
Salah satunya Toko Sepatu Cibaduyut, yang berlokasi di pinggiran Jl. Cibaduyut
Raya, toko tersebut mulai merintis pada tahun 2000-an. mengandalkan pengalaman
di pabrik sepatu yang dulu pernah menjadi rutinitas sehari-harinya mereka
memberanikan diri untuk keluar dari pabrik sepatu dan membuat usaha kecil untuk
bertahan hidup. Toko kecil sederhana dengan nama toko Sepatu Cibaduyut-pun
memamerkan daganganya dari sepatu kulit, canvas, pantofel, denim dll.
Sekarang, toko Sepatu Cibaduyut mempunyai sepatu yang menjadi ciri khas
dari toko tersebut, yaitu sepatu kulit mengandalkan kulit-kulit hewan seperti buaya,
ular, sapi, menjadi bahan material yang sangat baik untuk pembuatan sepatu. desain
dan kenyaman yang tidak kalah dengan toko sepatu besar yang ada dibandung
menjadi favorit bagi kaum laki-laki dan perempuan dan tidak jarang juga toko
Sepatu Cibaduyut mengekspor produknya keluar negeri misalnya, laos, malaysia,
vietnam dll.
II-1
Muhammad Ifhal Kosasih (16.10059) II-2
II.1.1 Struktur Organisai Toko Sepatu Cibaduyut
1) Pemilik Perusahaan
2) Penjaga Toko
3) Bagian Gudang
PEMILIK TOKO
PENJAGA TOKO BAGIAN GUDANG
(Gambar II.1.1 Struktur Organisasi)
II.1.2 Job Description
1. Pemilik perusahaan
1) Memutuskan dan menentukan peraturan.
2) Bertanggung jawab atas kerugian ataupun kerusakan produk yang
dihadapi perusahaan termasuk juga keuntungan perusahaan.
3) Memenejemen seluruh karyawan.
4) Menerima laporan data dari penjaga toko
2. Penjaga Toko
1) Melakukan pencatatan atas semua transaksi

2018
2) Membantu pelanggan dalam memberikan informasi mengenai

produk sepatu
3) Melakukan proses transaksi pelayanan jual beli serta melakukan

pembungkusan
3. Bagian Gudang
1) Memastikan barang terjaga dengan baik
2) Memastikan barang terhitung dengan baik
3) Memastikan pengiriman bisa sampai tepat waktu
4) Menjaga dan memelihara kebersihan gudang.
5) Melakukan list jenis sepatu

2018
II.2 Flow Process Activity
LABORATORIUM SISTEM INFORMASI DAN KEPUTUSAN

PROGRAM STUDI TEKNIK INDUSTRI
FAKULTAS TEKNIK
UNIVERSITAS PASUNDAN
BANDUNG
2018
Flow Proces Activity Toko Sepatu Cibaduyut
Nama : Muhammad Ifhal Kosasih
NRP : 16.10059
Grup : BPK-14
Shift :Senin / 10.00-12.00
Asisten : Hartana Erlangga
Pelanggan Admin Pelayanan Pemilik
(Gambar II.2 Process Activity)

2018
II.3 Data Permasalahan

Penulis mengobservasi pada Toko Sepatu Cibaduyut, Bandung, masih ada
beberapa permasalahan yang terjadi pada toko sepatu tersebut, yaitu:
1. Permasalahan Perusahaan
Waktu
No Aktivitas
(Detik)
1 Pelayan mengecek ketersediaan barang 20
2 Pelayan melakukan proses transaksi 15
3 Pelayan membuat laporan keuangan 120
4 Pelayan menyerahkan laporan 10
Waktu (Detik)
140 120
120
100
80
60
40 20 15 10
20
0
Pelayan mengecek Pelayan melakukan Pelayan membuat Pelayan
ketersediaan barang proses transaksi laporan keuangan menyerahkan
laporan
(Gambar II.3 Grafik Aktivasi)
2. Penjelasan Permasalah Perusahaan
Kinerja pelayanan belum efisen dalam prosesnya jadi penulis akan

menjelaskan prosedur kerja yang sudah penulis buat dalam grafik diatas
yaitu:
1) Sebelumnya pelayan mengecek ketersediaan barang hampir 10

menit dan konsumen menunggu dalam waktu yang lumayan
membosankan, penulis merekomendasikan untuk pengecekan
ketersediaan barang 15 detik dalam prosesnya.

2018
2) Pelayan transaksi sebelumnya memang tidak di permasalahkan

dalam perosesnya tapi penulis merekomendasikan 5 detik
untuk prosesnya.
3) Pembuat laporan keuangan memang sangat penting salah

satunya untuk mengetahui penjualan barang yang sudah terjual
dan harus efektif, tapi penulis merekomendasikan waktu 120
detik dalam pembuatanya.
4) Penulis merekomendasikan dalam penyerahan laporan kepada

pemilik 10 detik.
3. Saran Penulis
Penulis mengobservasi kembali dalam toko sepatu cibaduyut ada

beberapa permasalahan dalam aktivitas pelayanan yang membuat tidak
efisienya kinerja dalam pelayanan, kita bisa lihat dari grafik dan penjelasan
yang sudah penulis buat untuk menjadi gambaran kinerja yang lebih efektif
dan efisien dalam proses pelayanan. Semoga dengan gambaran tersebut
pelayan toko lebih maksimal terhadap waktu yang ditentukan dan lebih
mengahrgai waktu sebagi mestinya.

2018
BAB III
PERANCANGAN SISTEM INFORMASI
III.1 Turbo Pascal

III.1.1 Modul Pengenalan Turbo Pascal dan Pengambilan Keputusan
III.1.1.1 Identifikasi Komponen Program
a. Input
1. Masukkan Nama Pembeli (nma)
2. Masukkan Kode Sepatu (kode)
3. Masukkan Kode Tipe Sepatu (typ)
4. Masukkan Jumlah Sepatu yang Dibeli (jml)
5. Masukkan Uang Tunai (byr)
b. Proses
1. Total Harga (totl) = jumlah yang dibeli (jml)*harga sepatu (hrg);
2. Diskon (dskon) = total harga (totl)*10%/jml;
3. Total Harga Akhir (totlA) = total harga (totl)-diskon (dskon);
4. Kemabalian (kmbli) = uang tunai (byr)-total harga akhir (totlA);
c. Output
1. Tampilkan Nama Pembeli (nma)
2. Tampilkan Merek Sepatu (mereks)
3. Tampilkan Kode Sepatu (kode)
4. Tampilkan Kode Type Sepatu (typ)
5. Tampilkan Jumlah Sepatu yang Dibeli (jml)
6. Tampilkan Uang Tunai (byr)
7. Tampilkan Harga Sepatu (hrg)
8. Tampilkan Total Harga (totl)
9. Tampilkan Diskon (dskon)
10. Tampilkan Total Harga Akhir (totlA)
11. Tampilkan Kembalian (kmbli)
III-1
Muhammad Ifhal Kosasih (16.10059) III-2
III.1.1.2 Tabel Data

Tabel III.1.1.2 Tabel Data
No Nama Variabel Variabel Tipe Data

1 Nama Pembeli nma String
2 Merek Sepatu mereks String
3 Kode Sepatu kode String
4 Kode Tipe Sepatu typ String
5 Jumlah Sepatu yang Dibeli jml Byt
6 Uang Tunai byr Real
7 Harga Sepatu hrg Real
8 Total Harga totl Real
9 Diskon dskon Real
10 Total Harga Akhir totlA Real
11 Kembalian kmbli Real
III.1.1.3 Algoritma
1. Mulai.
2. Masukkan Nama Pembeli.
3. Masukkan Kode Sepatu.
3.1 Jika Kode sama dengan L1 maka Merek Sepatu sama
dengan ‘Adidas’.
3.1.1 Masukan Kode Tipe sepatu
3.1.1.1 Jika kode sama dengan 1 maka sepatu
sama dengan ‘Adidas (Eq 91/18)’ dan
harga sama dengan 2.500.000.
sama dengan ‘Adidas (Orginal Camp)’
dan harga sama dengan 1.400.000.
sama dengan ‘Adidas (Gazelle Shoes)’
dan harga sama dengan 1.4400.000.

2018

dengan ‘Converse’.
3.2.1.1 Jika Kode sama dengan 1 maka sepatu sama
dengan ‘Converse (Jack Purcell)’ dan harga
sama dengan 750.000.
dengan ‘Converse (Chuck Tylor)’ dan harga
dengan ‘Converse (Star Player)’ dan harga
sama dengan 1.400.000.
dengan ‘Reebok’.
dengan ‘Reebok (Plus Lite)’ dan harga sama
dengan 700.000.
dengan ‘Reebok (Royal Nova)’ dan harga
dengan ‘Reebok (Royal Complete)’ dan
harga sama dengan 400.000.
4. Masukkan Jumlah Sepatu yang Dibeli.
5. Hitunglah Total Harga sama dengan Jumlah Sepatu yang Dibeli
dikali Harga Sepatu.
6. Hitunglah nilai Diskon sama dengan Total Harga dikali 10% dibagi
Jumlah Sepatu yang Dibeli.
7. Hitunglah Total Harga Akhir sama dengan Total Harga dikurangi
Diskon.
8. Masukkan nilai Uang Tunai yang Harus Dibayar.

2018
9. Hitung nilai Kembalian sama dengan Uang Tunai yang harus

Dibayar dikurangi Total Harga Akhir.
10. Tampilkan Nama Pembeli.
11. Tampilkan Merek Sepatu.
12. Tampilkan Tipe Sepatu.
13. Tampilkan Jumlah Sepatu.
14. Tampilkan Harga Sepatu.
15. Tampilkan Total Harga.
16. Tampilkan Diskon.
17. Tampilkan Total Harga Akhhir.
18. Tampilkan Uang Kembalian.
19. Selesai.

2018
III.1.1.4 Flowchart Program
Mulai
Mereks, kode, typ, nma, kmbalian,

byr, hrg, totl, totlA, jml
Nma = ?
Kode = ?
Merek Sepatu
Kode = L1 T
:= Adidas ;
Typ = ?
mereks := Adidas (Eqt

Typ = 1 T Support 91/18) ;
Hrg := 2500000;
F
F
mereks := Adida Original
Typ = 2 T Campus ;
Hrg := 1400000;
mereks := Adidas Gazelle

Typ = 3 T Shoes ;
Hrg :=1440000;
A B

2018
A B
Merek Sepatu
Kode = L2 T
:= Converse ;
Typ = ?
mereks := Converse (Jack

Typ = 1 T Purcell) ;
Hrg :=750000;
F
F
mereks := Converse (Chuck
Typ = 2 T Tylor) ;
Hrg :=600000;
mereks := Converse (Star

Typ = 3 T Player) ;
Hrg :=900000;
C D

2018
C D
Merek Sepatu
Kode = L3 T
:= Reebok ;
Typ = ?
mereks := Reebok (Plus

Typ = 1 T Lite) ;
F Hrg :=700000;
mereks := Reebok (Royal

Typ = 2 T Nova) ;
Hrg :=600000;

Typ = 3 T Complete) ;
Hrg :=400000;
Salah Input
F
Jml = ?
totl := jml*hrg;
dskon := totl*0.1/jml;
totlA := totl-dskon;
kmbali := byr-totlA;
Nma,
mereks,
Kode;
typ,
jml,
hrg,
totl,
dskon,
totlA,
byr,
kmbli
End
Gambar III.1.1.4 Flowchart Program

2018
III.1.1.5 Source Code Program
program TokoSepatu;
uses crt;
var
mereks,nma,kode, typ :string;
kmbli,byr,hrg,dskon,totl, totlA :real;
jml :byte;
begin
clrscr;
textcolor (15);
writeln ('=========================================');
writeln (' TOKO SEPATU CIBADUYUT ');
writeln ('=========================================');
writeln (' Kode | Merek Sepatu ');
writeln ('=========================================');
writeln (' L1 | Adidas ');
writeln (' L2 | Converse ');
writeln (' L3 | Reebok ');
writeln ('=========================================');
textcolor (14);
writeln ('NB: Pembelian Sepatu Di Toko Cibaduyut diskon 10% All
Item ');
writeln;
textcolor (15);
write ('Nama Pembeli :');readln (nma);
write ('Masukan Kode Sepatu :');readln (kode);
clrscr;
textcolor (13);
if kode = 'L1' then
begin
mereks:= 'Adidas';
writeln ('==========================================');
writeln (' DAFTAR SEPATU ADIDAS ');
writeln ('==========================================');
writeln (' Kode | Tipe Adidas | Harga ');
writeln ('==========================================');
writeln (' 1 | Adidas (Eq 91/18) | 2.500.000 ');

2018
writeln (' 2 | Adidas (Orgin Camp) | 1.400.000 ');

writeln (' 3 | Adidas (Gazelle Shoes)| 1.440.000 ');
writeln ('==========================================');
write ('Masukan Kode Tipe Sepatu :');readln (typ);
write ('Jumlah Sepatu yang Dibeli :');readln (jml);
case typ of
'1' :
begin
typ := 'Adidas (Eq 91/18)';
hrg := 2500000;
end;
'2' :
begin
typ := 'Adidas (Orgin Camp)';
hrg := 1400000;
end;
'3' :
begin
typ := 'Adidas (Gazelle Shoes)';
hrg := 1440000
end;
end;
end
else if kode = 'L2' then
begin
mereks:= 'Converse';
writeln ('==========================================');
writeln (' DAFTAR SEPATU CONVERSE ');
writeln ('==========================================');
writeln (' Kode | Tipe Converse | Harga ');
writeln ('==========================================');
writeln (' 1 | Converse (Jack Purcell)| 750.000 ');
writeln (' 2 | Converse (Chuck Tylor) | 600.000 ');
writeln (' 3 | Converse (Star Player) | 1.440.000');
writeln ('==========================================');
case typ of
'1' :

2018
begin
typ := 'Converse (Jack Purcell)';
hrg := 750000;
end;
'2' :
begin
typ := 'Converse (Chuck Tylor)';
hrg := 600000;
end;
'3' :
begin
typ := 'Converse (Star Player)';
hrg := 1440000;
end;
end;
end
begin
mereks:= 'Reebok';
writeln ('==========================================');
writeln (' DAFTAR SEPATU REEBOK ');
writeln ('==========================================');
writeln (' Kode | Tipe Reebok | Harga ');
writeln ('==========================================');
writeln (' 1 | Reebok (Plus Lite) | 700.000 ');
writeln (' 2 | Reebok (Royal Nova) | 600.000 ');
writeln (' 3 | Reebok (Royal Complete)| 400.000 ');
writeln ('==========================================');
case typ of
'1' :
begin
typ := 'Reebok (Plus Lite)';
hrg := 700000;
end;
'2' :
begin
typ := 'Reebok (Royal Nova)';

2018
hrg := 600000;
end;
'3' :
begin
typ := 'Reebok (Royal Complete)';
hrg := 400000;
end;
end;
end
else write ('Salah Input');
totl:=jml*hrg;
clrscr;
textcolor (11);
writeln ('|____________________________________________|');
writeln ('| TOKO SEPATU CIBADUYUT |');
writeln ('|____________________________________________|');
writeln (' Nama Pembeli : ',nma);
writeln (' Merek Sepatu : ',mereks);
writeln (' Tipe Sepatu : ',typ);
writeln (' Jumlah Sepatu : ',jml);
writeln (' Harga Sepatu : RP. ',hrg:9:2);
writeln ('|____________________________________________|');
writeln (' Total Harga : Rp. ',totl:9:2);
dskon :=totl*0.1/jml;
writeln (' Diskon : Rp. ',dskon:9:2);
totlA :=totl-dskon;
writeln (' Total Harga Akhir : RP. ',totlA:9:2);
writeln ('|____________________________________________|');
write (' Masukan Uang Tunai : Rp. ');readln (byr);
kmbli:=byr-totlA;
writeln (' Kembalian : Rp. ',kmbli:9:2);
writeln ('|____________________________________________|');
writeln ('| TERIMAKASIH SUDAH BELANJA DI TOKO KAMI |');
writeln ('|____________________________________________|');
readln;
end.

2018
III.1.1.6 Tampilan Output Program
III.1.1.6.1 Tampilan Running Input
Gambar III 1.1.6.1 Tampilan Running Input
Gambar III 1.1.6.1. Tampilan Running Input

2018
III.1.1.6.2 Tampilan Running Output
Gambar III 1.1.6.2 Tampilan Output

2018
III.1.2 Modul Perulangan

a. Input
2. Masukkan Kode Sepatu (kode)
3. Masukkan Kode Tipe Sepatu (typ)
6. Apakah Ada Transaksi (Y/T) (jwb)
b. Proses
c. Output
3. Tampilkan Kode Sepatu (kode)
4. Tampilkan Kode Type Sepatu (typ)

2018

Tipe
No Nama Variabel Variabel
Data
3 Kode Sepatu kode String
4 Kode Type Sepatu typ String
9 Diskon dskon Real
12 Apakah Ada Transaksi Lagi (Y/T) jwb Char
III.1.2.3 Algoritma
1. Mulai.
2. Masukkan Nama Pembeli.
3. Masukkan Kode Sepatu.
3.1 Jika Kode Sepatu sama dengan ‘L1’ atau ‘L2’ atau ‘L3’
maka lanjutkan ke poin ke selanjutnya, selain itu ulangi
poin 3.
3.2 Jika kode sepatu sama dengan L1 maka Merek Sepatu sama
dengan ‘Adidas’.
3.1.1.1 Jika Kode Tipe sepatu sama dengan ‘1’
atau ‘2’ atau ‘3’ maka lanjutkan ke poin
selanjutnya, selain itu ulangi poin 3.1.1.
3.1.1.1.1 Jika Kode Tipe sepatu sama
dengan 1 maka sepatu sama
dengan ‘Adidas (Eq 91/18)’
dan harga sama dengan
2.500.000.

2018

dengan ‘Adidas (Orginal
Camp)’ dan harga sama
dengan 1.400.000.

dengan ‘Adidas (Gazelle
Shoes)’ dan harga sama
dengan 1.4400.000.
3.3 Jika Kode Sepatu sama dengan L2 maka Merek Sepatu

sama dengan ‘Converse’.


dengan ‘Converse (Jack
Purcell)’ dan harga sama
dengan 750.000.
3.1.2.1.2 Jika Kode Sepatu sama dengan

2 maka sepatu sama dengan
‘Converse (Chuck Tylor)’ dan
3.1.2.1.3 Jika Kode Tipe sama dengan 3

maka sepatu sama dengan
‘Converse (Star Player)’ dan
harga sama dengan 1.400.000.

2018
3.4 Jika Kode Sepatu sama dengan L3 maka Merek Sepatu

sama dengan ‘Reebok’.
3.1.3 Masukan kode sepatu
‘Reebok (Plus Lite)’ dan harga
‘Reebok (Royal Nova)’ dan
‘Reebok (Royal Complete)’
maka harga sama dengan
400.000.
Diskon.
8. Masukkan nilai Uang Tunai yang Harus di Bayar
8.1 Jika nilai Uang Tunai yang Harus di Bayar lebih atau pas
maka lanjut ke poin selanjutnya, selain itu ulangi ke poin
8.

2018

19. Apakah ada transaksi lagi? (Y/T)
19.1 Jika tidak ada transaksi lagi? (Y/T) sama dengan ‘T’ maka
akan terhenti, dan selain itu berulang ke poin 2.
20. Selesai.

2018

Mulai
Mereks, kode, typ, nma,

kmbalian, byr, hrg, totl, totlA,
jml
Nma = ?
Jwb = Y ;
Jwb = Y Selesai
F Kode = ?
Kode = L1 or =L2
or =L3;
Merek
Kode = L1 T Sepatu :=
Adidas ;
F
Typ = ?
Typ = 1 or =2 or =3;
mereks := Adidas (Eqt

F Typ = 1 T Support 91/18) ;
Hrg := 2500000;
mereks := Adida Original

Typ = 2 T Campus ;
Hrg := 1400000;
mereks := Adidas Gazelle

Typ = 3 T Shoes ;
Hrg :=1440000;
A B C

2018
A B C
Merek
Converse ;
F
Typ = ?
Typ = 1 or =2 or =3;
mereks := Converse (Jack

Typ = 1 T Purcell) ;
F Hrg :=750000;
mereks := Converse
Typ = 2 T (Chuck Tylor) ;
Hrg :=600000;
mereks := Converse (Star

Typ = 3 T Player) ;
Hrg :=900000;
E F G

2018
E F G
Merek
Reebok ;
Typ = ?
Typ = 1 or =2 or =3;
F
mereks := Reebok (Plus
Typ = 1 T Lite) ;
Hrg :=700000;

Typ = 2 T Nova) ;
Hrg :=600000;

Typ = 3 T Complete) ;
Hrg :=400000;
Salah Input F
Jml = ?
totl := jml*hrg;
Nma,
mereks,
typ,
jml,
hrg,
totl,
dskon,
totlA,
byr,
kmbli
Apakah Ada Transaksi Lagi (Y/

T);
End
Gambar III 1.2.4 Flowchart

2018
program TokoSepatu;
uses crt;
var
mereks,nma,kode, typ :string;
kmbli,byr,hrg,dskon,totl, totlA :real;
jml :byte;
jwb : char;
begin
clrscr;
Jwb := 'Y';
While Jwb = 'Y' do
begin
textcolor (15);
writeln ('=========================================');
writeln (' TOKO SEPATU CIBADUYUT ');
writeln ('=========================================');
writeln (' Kode | Merek Sepatu ');
writeln ('=========================================');
writeln (' L1 | Adidas ');
writeln (' L2 | Converse ');
writeln (' L3 | Reebok ');
writeln ('=========================================');
textcolor (14);
writeln ('NB: Pembelian Sepatu Di Toko Cibaduyut diskon 10% All
Item ');
writeln;
textcolor (15);
write ('Nama Pembeli :');readln (nma);
repeat
write ('Masukan Kode Sepatu :');readln (kode);
until (kode = 'L1' ) or (kode = 'L2') or (kode = 'L3');
clrscr;
textcolor (13);
if kode = 'L1' then
begin
mereks:= 'Adidas';
writeln ('==========================================');
writeln (' DAFTAR SEPATU ADIDAS ');
writeln ('==========================================');
writeln (' Kode | Type Adidas | Harga ');
writeln ('==========================================');
writeln (' 1 | Adidas (Eq 91/18) | 2.500.000 ');
writeln (' 2 | Adidas (Orgin Camp) | 1.400.000 ');
writeln (' 3 | Adidas (Gazelle Shoes)| 1.440.000 ');
writeln ('==========================================');
repeat
write ('Masukan Kode Type Sepatu :');readln (typ);
until (typ = '1') or (typ = '2') or (typ = '3');
case typ of
'1' :
begin
typ := 'Adidas (Eq 91/18)';
hrg := 2500000;
end;
2018
'2' :
begin
typ := 'Adidas (Orgin Camp)';
hrg := 1400000;
end;
'3' :
begin
typ := 'Adidas (Gazelle Shoes)';
hrg := 1440000
end;
end;
end
begin
mereks:= 'Converse';
writeln ('==========================================');
writeln (' DAFTAR SEPATU CONVERSE ');
writeln ('==========================================');
writeln (' Kode | Type Converse | Harga ');
writeln ('==========================================');
writeln (' 1 | Converse (Jack Purcell)| 750.000 ');
writeln (' 2 | Converse (Chuck Tylor) | 600.000 ');
writeln (' 3 | Converse (Star Player) | 1.440.000');
writeln ('==========================================');
repeat
case typ of
'1' :
begin
typ := 'Converse (Jack Purcell)';
hrg := 750000;
end;
'2' :
begin
typ := 'Converse (Chuck Tylor)';
hrg := 600000;
end;
'3' :
begin
typ := 'Converse (Star Player)';
hrg := 1440000;
end;
end;
end
begin
mereks:= 'Reebok';
writeln ('==========================================');
writeln (' DAFTAR SEPATU REEBOK ');
writeln ('==========================================');
writeln (' Kode | Type Reebok | Harga ');
writeln ('==========================================');
writeln (' 1 | Reebok (Plus Lite) | 700.000 ');
writeln (' 2 | Reebok (Royal Nova) | 600.000 ');
writeln (' 3 | Reebok (Royal Complete)| 400.000 ');
writeln ('==========================================');
repeat
2018

case typ of
'1' :
begin
typ := 'Reebok (Plus Lite)';
hrg := 700000;
end;
'2' :
begin
typ := 'Reebok (Royal Nova)';
hrg := 600000;
end;
'3' :
begin
typ := 'Reebok (Royal Complete)';
hrg := 400000;
end;
end;
end
else write ('Salah Input');
totl:=jml*hrg;
clrscr;
textcolor (11);
writeln ('|____________________________________________|');
writeln ('| TOKO SEPATU CIBADUYUT |');
writeln ('|____________________________________________|');
writeln (' Nama Pembeli : ',nma);
writeln (' Merek Sepatu : ',mereks);
writeln (' Type Sepatu : ',typ);
writeln (' Jumlah Sepatu : ',jml);
writeln (' Harga Sepatu : RP. ',hrg:9:2);
writeln ('|____________________________________________|');
writeln (' Total Harga : Rp. ',totl:9:2);
dskon :=totl*0.1/jml;
writeln (' Diskon : Rp. ',dskon:9:2);
totlA :=totl-dskon;
writeln (' Total Harga Akhir : RP. ',totlA:9:2);
writeln ('|____________________________________________|');
repeat
write (' Masukan Uang Tunai : Rp. ');readln (byr);
until ( totlA <= byr );
kmbli:=byr-totlA;
writeln (' Kembalian : Rp. ',kmbli:9:2);
writeln ('|___________________________________________|');
writeln ('| TERIMAKASIH SUDAH BELANJA DI TOKO KAMI |');
writeln ('|____________________________________________|');
writeln;
textcolor (12);
write (' Apakah Ada Transaksi Lagi (Y/T)?:'); readln (jwb);
jwb := Upcase (jwb);
clrscr;
end;
readln;
end.

2018

2018
Gambar III 1.2.6.2 Tampilan Running Output

2018
III.1.3 Modul Prosedur dan Fungsi

a. Input
1. Pilih Menu (kode)
3. Masukkan Kode Tipe Sepatu (kodtip)
6. Apakah Ada Transaksi (Y/T) (pil)
b. Proses
c. Output
3. Tampilkan Tipe Sepatu (typ)
4. Tampilkan Kode Pilih Menu (kode)
5. Tampilkan Kode Tipe Sepatu (kodtip)

2018

Tabel III 1.3.2 Tabel Data
Tipe
Data
3 Kode Pilih Menu kode String
4 Tipe Sepatu typ String
5 Kode Tipe Sepatu kodtip Char
10 Diskon dskon Real
13 Apakah Ada Transaksi Lagi (Y/T) pil Char
III.1.3.3 Algoritma
III.1.3.3.1 Algoritma Program Utama
1. Mulai.
2. Masukkan Pilih Menu.
2.1 Jika Kode Pilih Menu lebih besar sama dengan L0 dan lebih
kecil sama dengan L4 maka lanjutkan ke poin ke selanjutnya,
selain itu ulangi poin 2.
2.1.1 Jika Pilih Menu sama dengan L1 maka, Merek
Sepatu sama dengan Adidas.
Sepatu sama dengan Converse.
Sepatu sama dengan Reebok.

2018

akan terhenti dan selain itu akan berulang ke poin 2.
13. Selesai.
III.1.3.3.2 Algoritma Procedure Adidas
1. Mulai
2. Masukan Nama pembeli
3. Masukan Kode Sepatu
3.1 Jika kode Tipe sepatu sama dengan 1 maka sepatu sama
dengan ‘Adidas (Eq 91/18)’ dan harga sama dengan 2.500.000.
3.2 Jika Kode Tipe sepatu sama dengan 2 maka sepatu sama
dengan ‘Adidas (Orginal Camp)’ dan harga sama dengan
1.400.000.
dengan ‘Adidas (Gazelle Shoes)’ dan harga sama dengan
1.4400.000.
Diskon.
8.1 Jika nilai Uang Tunai yang Harus di Bayar lebih atau pas maka
lanjut ke poin selanjutnya, selain itu ulangi ke poin 8.

2018
10. Retrun.
III.1.3.3.3 Algoritma Procedure Converse
1. Mulai
dengan ‘Converse (Jack Purcell)’ dan harga sama dengan
750.000.
dengan ‘Converse (Chuck Tylor)’ dan harga sama dengan
600.000.
dengan ‘Converse (Star Player)’ dan harga sama dengan
1.4400.000.
Diskon.
10. Retrun.

2018
III.1.3.3.4 Algoritma Procedure Reebok

1. Mulai
dengan ‘Reebok (Plus Lite)’ dan harga sama dengan 700.000.
dengan ‘Reebok (Royal Nova)’ dan harga sama dengan
600.000.
dengan ‘Reebok (Royal Complete)’ dan harga sama dengan
400.000.
Diskon.
10. Retrun.

2018
III.1.3.3.5 Algoritma Tampilan

1. Tampilkan Nama pembeli
2. Tampilkan Merek Sepatu
3. Tampilkan Tipe Sepatu
4. Tampilkan Jumlah Sepatu yang Dibeli
5. Tampilkan Harga Sepatu
6. Tampilkan Total Harga
7. Tampilkan Diskon
8. Tampilkan Total Harga Akhir
9. Tampilkan Uang Pembayaran
11. Return.

2018

III.1.3.4.1 Flowchart Program Utama
Mulai
Mereks,pil, kode, kodtip, typ, nma,

kmbali, byr, hrg, totl, totlA, jml
Kode:=?
Kode:= L1 ADIDAS Return
Kode:= L2 CONVERSE Return
F Kode:= L3 REEBOK Return
Jml:= ?
TAMPILKAN
Pil:= T ;
Selesai
Gambar III.1.3.4.1 Flowchart Program Utama.

2018
III.1.3.4.2 Flowchart Procedure Adidas
ADIDAS
Mereks, pil, kode, typ, nma, kmbalian,

nma:=?
Typ:=?
mereks := Adidas (Eqt Support 91/

Typ:=1 18)
Hrg := 2500000
mereks := Adidas Original

Typ:=2 Campus
Hrg := 1400000
mereks := Adidas Gazelle Shoes

Typ:=3
Hrg :=1440000
Return
Gambar III.1.3.4.2 Flowchart Adidas.

2018
III.1.3.4.3 Flowchart Procedure Converse
CONVERSE
Mereks, pil, kode, typ, nma, kmbalian,

nma:=?
Typ:=?
mereks := Converse (Jack Purcell)

Typ:=1
Hrg :=750000
mereks := Converse (Chuck Tylor)

Typ:=2
Hrg :=600000
mereks := Converse (Star Player)

Typ:=3
Hrg :=900000
Return
Gambar III 1.3.4.3 Flowchart Converse.

2018
III.1.3.4.4 Flowchart Procedure Reebok
REEBOK
Mereks,pil, kode, typ, nma, kmbalian,

nma:=?
Typ:=?
mereks := Reebok (Plus Lite)

Typ:=1
Hrg :=700000
mereks := Reebok (Royal Nova)

Typ:=2
Hrg :=600000

Typ:=3 Complete)
Hrg :=400000
Return
Gambar III 1.3.4.4 Flowchart Reebok.

2018
III.1.3.4.5 Flowchart Tampilkan
TAMPILKAN
Mereks,pil, kode, typ, nma, kmbali,

totl := jml*hrg;
Nma;
mereks;
typ;
jml;
hrg;
totl;
dskon;
totlA;
byr;
kmbli;
Return
Gambar III 1.3.4.5 Flowchart Tampilan.

2018
PROGRAM TOKOSEPATU;
USES CRT;
VAR
MEREKS,NMA,TYP,PIL,KODE :STRING;
KMBLI,BYR,HRG,TOTL,TOTLA,DSKON:REAL;
JML:BYTE;
KODTIP:CHAR;
PROCEDURE ADIDAS;
BEGIN
MEREKS:= 'ADIDAS';
CLRSCR;
TEXTCOLOR (13);
WRITELN ('==========================================');
WRITELN (' DAFTAR SEPATU ADIDAS ');
WRITELN ('==========================================');
WRITELN (' Kode | Tipe Adidas | Harga ');
WRITELN ('==========================================');
WRITELN (' 1 | Adidas (Eq 91/18) | 2.500.000 ');
WRITELN (' 2 | Adidas (Orgin Camp) | 1.400.000 ');
WRITELN (' 3 | Adidas (Gazelle Shoes)| 1.440.000 ');
WRITELN ('==========================================');
WRITE ('NAMA PEMBELI : ');READLN(NMA);
REPEAT
WRITE ('PILIH KODE TIPE SEPATU : ');READLN(KODTIP);
UNTIL (KODTIP>'0') AND (KODTIP<'4');
CASE KODTIP OF
'1' : BEGIN
TYP:='Adidas (Eq 91/18)';
HRG:= 2500000; END;
'2' : BEGIN
TYP:='Adidas (Orgin Camp)';
HRG:=1400000; END;
'3' : BEGIN
TYP:='Adidas (Gazelle Shoes)';
HRG:= 1440000; END;
END;
WRITE ('JUMLAH SEPATU YANG DIBELI : ');READLN(JML);
TOTL:=HRG*JML;
WRITELN ('TOTAL HARGA :Rp. ',TOTL:9:2);
DSKON:=TOTL*0.1/JML;
WRITELN ('DISKON :Rp. ',DSKON:9:2);
TOTLA:=TOTL-DSKON;
WRITELN ('TOTAL HARGA AKHIR :Rp. ',TOTLA:9:2);
WRITELN ('______________________________________________');
REPEAT
WRITE ('UANG PEMBAYARAN :Rp. ');READLN(BYR);
UNTIL (TOTLA<=BYR);
KMBLI:=BYR-TOTLA;
WRITELN ('UANG KEMBALIAN :Rp. ',KMBLI:9:2);
WRITELN ('_______________________________________________');
END;
PROCEDURE CONVERSE;
BEGIN
MEREKS:= 'CONVERSE';
2018
CLRSCR;
TEXTCOLOR (13);
WRITELN ('==========================================');
WRITELN (' DAFTAR SEPATU CONVERSE ');
WRITELN ('==========================================');
WRITELN (' Kode | Tipe Converse | Harga ');
WRITELN ('==========================================');
WRITELN (' 1 | Converse (Jack Purcell)| 750.000 ');
WRITELN (' 2 | Converse (Chuck Tylor) | 600.000 ');
WRITELN (' 3 | Converse (Star Player) | 1.440.000');
WRITELN ('==========================================');
REPEAT
CASE KODTIP OF
'1' : BEGIN
TYP:='Converse (Jack Purcell)';
HRG:= 750000; END;
'2' : BEGIN
TYP:='Converse (Chuck Tylor)';
HRG:= 600000; END;
'3' : BEGIN
TYP:='Converse (Star Player)';
HRG:= 1440000; END;
END;
WRITE ('JUMLAH SEPATU YANG DIBELI: ');READLN(JML);
TOTL:=HRG*JML;
TOTLA:=TOTL-DSKON;
WRITELN ('______________________________________________');
REPEAT
UNTIL (TOTLA<=BYR);
KMBLI:=BYR-TOTLA;
WRITELN ('_______________________________________________');
END;
PROCEDURE REEBOK;
BEGIN
MEREKS:= 'REEBOK';
CLRSCR;
TEXTCOLOR (13);
WRITELN ('==========================================');
WRITELN (' DAFTAR SEPATU REEBOK ');
WRITELN ('==========================================');
WRITELN ('==========================================');
WRITELN (' 1 | Reebok (Plus Lite) | 700.000 ');
WRITELN (' 2 | Reebok (Royal Nova) | 600.000 ');
WRITELN (' 3 | Reebok (Royal Complete)| 400.000 ');
WRITELN ('==========================================');
REPEAT
2018

CASE KODTIP OF
'1': BEGIN
TYP:='Reebok (Plus Lite) ';
HRG:= 700000; END;
'2': BEGIN
TYP:='Reebok (Royal Nova)';
HRG:= 600000; END;
'3': BEGIN
TYP:='Reebok (Royal Complete)';
HRG:= 400000; END;
END;
WRITE ('JUMLAH SEPATU YANG DIBELI: ');READLN(JML);
TOTL:=HRG*JML;
TOTLA:=TOTL-DSKON;
WRITELN ('______________________________________________');
REPEAT
UNTIL (TOTLA<=BYR);
KMBLI:=BYR-TOTLA;
WRITELN ('_______________________________________________');
END;
PROCEDURE TAMPILKAN;
BEGIN
CLRSCR;
TEXTCOLOR (11);
WRITELN ('______________________________________________');
WRITELN (' TOKO SEPATU CIBADUYUT ');
WRITELN ('______________________________________________');
WRITELN ('NAMA PEMBELI : ',NMA);
WRITELN ('MEREK SEPATU : ',MEREKS);
WRITELN ('TIPE SEPATU : ',TYP);
WRITELN ('JUMLAH SEPATU : ',JML:2);
WRITELN ('HARGA SEPATU :Rp. ',HRG:9:2);
TOTL:=HRG*JML;
TOTLA:=TOTL-DSKON;
WRITELN ('_______________________________________________');
WRITE (' TERIMAKASIH SUDAH BELEANJA DITOKO KAMI ');
WRITELN;
TEXTCOLOR (12);
WRITE ('APAKAH ADA TRANSAKSI LAGI (Y/T)?:');READLN(PIL);
END;
BEGIN
REPEAT
CLRSCR;
TEXTCOLOR(15);
WRITELN ('================================');
WRITELN (' PILIH MENU ');
2018
WRITELN ('================================');
WRITELN (' L1 | ADIDAS ');
WRITELN (' L2 | CONVERSE ');
WRITELN (' L3 | REEBOK ');
WRITELN ('================================');
TEXTCOLOR (14);
WRITELN ('NB: Pembelian Sepatu Di Toko Cibaduyut diskon 10% All
Item ');
WRITELN;
TEXTCOLOR (15);
REPEAT
WRITE ('PILIH MENU SEPATU : ');READLN(KODE);
UNTIL (KODE >'L0') AND (KODE <'L4');
CASE KODE OF
'L1' : BEGIN ADIDAS; END;
'L2' : BEGIN CONVERSE; END;
'L3' : BEGIN REEBOK; END;
END;
BEGIN TAMPILKAN; END;
PIL :=UPCASE(PIL);
UNTIL PIL ='T';
END.


2018
Gambar III 1.3.6.3. Tampilan Running Output.

2018
III.1.4 Modul Array

a. Input
1. Pilih Menu (kode)
3. Masukkan Kode Tipe Sepatu (kodtip)
6. Apakah Ada Transaksi (Y/T) (pil)
7. Tekan enter untuk melihat Rekapitulasi Pendapatan (pil)
b. Proses
5. Sub Total (subtotl) = sub total (subtotl) + total harga akhir
(totlA);
c. Output
3. Tampilkan Tipe Sepatu (typ)
4. Tampilkan Kode Pilih Menu (kode)
5. Tampilkan Kode Tipe Sepatu (kodtip)
13. Tampilkan Rekapitulasi Pendapatan (subtotl)

2018

Tipe
Data
3 Kode Pilih Menu kode String
4 Tipe Sepatu typ String
5 Kode Tipe Sepatu kodtip Char
10 Diskon dskon Real
13 Apakah Ada Transaksi Lagi (Y/T) pil Char
14 Variabel Array a,b Integer
15 Sub Total subtotl Real
III.1.4.3 Algoritma
III.1.4.3.1 Algoritma Program Utama
1. Mulai.
2. Rekapitulasi Pendapatan sama denga 0 (nol).
3. Nyatakan A sama dengan A tambah 1 (satu).
4. Masukkan Pilih Menu.
2.1 Jika Kode Pilih Menu lebih besar sama dengan L0 dan lebih
kecil sama dengan L4 maka lanjutkan ke poin ke selanjutnya,
selain itu ulangi poin 2.
Sepatu sama dengan Adidas.
Sepatu sama dengan Converse.
Sepatu sama dengan Reebok.
2018

akan terhenti dan selain itu akan berulang ke poin 2.
15. Selesai.
III.1.4.3.2 Algoritma Procedure Adidas
1. Mulai
dengan ‘Adidas (Eq 91/18)’ dan harga sama dengan 2.500.000.
dengan ‘Adidas (Orginal Camp)’ dan harga sama dengan
1.400.000.
dengan ‘Adidas (Gazelle Shoes)’ dan harga sama dengan
1.4400.000.
Diskon.

2018
10. Retrun.
III.1.4.3.3 Algoritma Procedure Converse
1. Mulai
dengan ‘Converse (Jack Purcell)’ dan harga sama dengan
750.000.
dengan ‘Converse (Chuck Tylor)’ dan harga sama dengan
600.000.
dengan ‘Converse (Star Player)’ dan harga sama dengan
1.4400.000.
Diskon.
10. Retrun.

2018
III.1.4.3.4 Algoritma Procedure Reebok

1. Mulai
dengan ‘Reebok (Plus Lite)’ dan harga sama dengan 700.000.
dengan ‘Reebok (Royal Nova)’ dan harga sama dengan
600.000.
dengan ‘Reebok (Royal Complete)’ dan harga sama dengan
400.000.
Diskon.
10. Retrun.

2018
III.1.4.3.5 Algoritma Tampilan

1. For B = 1 to A
2. Tampilkan Nama pembeli
3. Tampilkan Merek Sepatu
4. Tampilkan Tipe Sepatu
5. Tampilkan Jumlah Sepatu yang Dibeli
6. Tampilkan Harga Sepatu
7. Tampilkan Total Harga
8. Tampilkan Diskon
9. Tampilkan Total Harga Akhir
10. Tampilkan Uang Pembayaran
12. Tekan enter untuk melihat Rekapitulasi Pendapatan.
13. Return.

2018

III.1.4.4.1 Flowchart Program Utama
Mulai
Mereks,pil, kode, kodtip, typ, nma,

Subtotl := 0
A := A + 1
Kode:=?
Kode:= L1 ADIDAS Return
Kode:= L2 CONVERSE Return
Kode:= L3 REEBOK Return
Jml[A]:= ?
TAMPILKAN
Pil:= T ;
Selesai
Gambar III.1.4.4.1 Flowchart Program Utama.

2018
III.1.4.4.2 Flowchart Procedure Adidas
ADIDAS
Mereks, pil, kode,kodtip, typ, nma,

kmbalian, byr, hrg, totl, totlA, jml
Nma[A]:=?
kodtip:=?
Typ[A] := Adidas (Eqt Support 91/

kodtip:=1 18)
Hrg[A] := 2500000
Typ[A] := Adidas Original

kodtip:=2 Campus
Hrg[A] := 1400000
Typ[A] := Adidas Gazelle Shoes

kodtip:=3
Hrg[A] :=1440000
Return
Gambar III.1.4.4.2 Flowchart Adidas.

2018
III.1.4.4.3 Flowchart Procedure Converse
CONVERSE
Mereks, pil, kode,kodtip, typ, nma,

Nma[A]:=?
kodtip:=?
Typ[A] := Converse (Jack

kodtip:=1 Purcell)
Hrg[A] :=750000
Typ[A] := Converse (Chuck Tylor)

kodtip:=2
Hrg[A] :=600000
Typ[A] := Converse (Star Player)

kodtip:=3
Hrg[A] :=900000
Return
Gambar III.1.4.4.3 Flowchart Converse.

2018
III.1.4.4.4 Flowchart Procedure Reebok
REEBOK
Mereks,pil, kode,kodtip, typ, nma,

Nma[A]:=?
kodtip:=?
Typ[A]:= Reebok (Plus Lite)

kodtip:=1
Hrg[A] :=700000
Typ[A] := Reebok (Royal Nova)

kodtip:=2
Hrg[A] :=600000
Typ[A]:= Reebok (Royal

kodtip:=3 Complete)
Hrg[A] :=400000
Return
Gambar III.1.4.4.4 Flowchart Reebok.

2018
III.1.3.4.1 Flowchart Tampilkan
TAMPILKAN
Mereks,pil, kode,kodtip, typ, nma,

For B := 1 to A
Totl[B] := jml[B]*hrg[B];
Dskon[B] := totl[B]*0.1/jml[B];
totlA[B] := totl[B]-dskon[B];
Kmbali[B] := byr[B]-totlA[B];
Nma[B];
mereks[B];
typ[B];
jml[B];
hrg[B];
totl[B];
dskon[B];
totlA[B];
byr[B];
kmbli[B];
Return
Gambar III.1.4.4.5 Flowchart Tampilan.

2018
PROGRAM TOKOSEPATU;
USES CRT;
var
MEREKS,TYP :ARRAY [1..50] OF STRING;
PIL,KODE,NMA : STRING;
KMBLI,BYR,HRG,TOTL,TOTLA,DSKON:ARRAY [1..50] OF REAL;
JML :ARRAY [1..50] OF BYTE;
A,B:INTEGER;
SUBTOTL:REAL;
KODTIP: CHAR;
PROCEDURE ADIDAS;
BEGIN
SUBTOTL :=0;
A :=A+1;
MEREKS[A] := 'ADIDAS';
CLRSCR;
TEXTCOLOR (13);
WRITELN ('==========================================');
WRITELN (' DAFTAR SEPATU ADIDAS ');
WRITELN ('==========================================');
WRITELN (' Kode | Tipe Adidas | Harga ');
WRITELN ('==========================================');
WRITELN (' 1 | Adidas (Eq 91/18) | 2.500.000 ');
WRITELN (' 2 | Adidas (Orgin Camp) | 1.400.000 ');
WRITELN (' 3 | Adidas (Gazelle Shoes)| 1.440.000 ');
WRITELN ('==========================================');
REPEAT
CASE KODTIP OF
'1' : BEGIN
TYP[A]:='Adidas (Eq 91/18)';
HRG[A]:= 2500000; END;
'2' : BEGIN
TYP[A]:='Adidas (Orgin Camp)';
HRG[A]:=1400000; END;
'3' : BEGIN
TYP[A]:='Adidas (Gazelle Shoes)';
HRG[A]:= 1440000; END;
END;
WRITE ('JUMLAH SEPATU YANG DIBELI : ');READLN(JML[A]);
TOTL[A]:=HRG[A]*JML[A];
WRITELN ('TOTAL HARGA :Rp. ',TOTL[A]:9:2);
DSKON[A] :=TOTL[A]*0.1/JML[A];
WRITELN ('DISKON :Rp. ',DSKON[A]:9:2);
TOTLA[A] :=TOTL[A]-DSKON[A];
WRITELN ('TOTAL HARGA AKHIR :Rp. ',TOTLA[A]:9:2);
WRITELN
('_______________________________________________');
2018
END;
PROCEDURE CONVERSE;
BEGIN
SUBTOTL :=0;
A :=A+1;
MEREKS[A] := 'CONVERSE';
CLRSCR;
TEXTCOLOR (13);
WRITELN ('==========================================');
WRITELN (' DAFTAR SEPATU CONVERSE ');
WRITELN ('==========================================');
WRITELN ('==========================================');
WRITELN (' 1 | Converse (Jack Purcell)| 750.000 ');
WRITELN (' 2 | Converse (Chuck Tylor) | 600.000 ');
WRITELN (' 3 | Converse (Star Player) | 1.440.000');
WRITELN ('==========================================');
REPEAT
CASE KODTIP OF
'1' : BEGIN
TYP[A]:='Converse (Jack Purcell)';
HRG[A]:= 750000; END;
'2' : BEGIN
TYP[A]:='Converse (Chuck Tylor)';
HRG[A]:= 600000; END;
'3' : BEGIN
TYP[A]:='Converse (Star Player)';
HRG[A]:= 1440000; END;
END;
WRITE ('JUMLAH SEPATU YANG DIBELI: ');READLN(JML[A]);
WRITELN
('_______________________________________________');
END;
PROCEDURE REEBOK;
BEGIN
SUBTOTL :=0;
A :=A+1;
MEREKS[A] := 'REEBOK';
CLRSCR;
TEXTCOLOR (13);
WRITELN ('==========================================');
WRITELN (' DAFTAR SEPATU REEBOK ');
2018
WRITELN ('==========================================');
WRITELN ('==========================================');
WRITELN (' 1 | Reebok (Plus Lite) | 700.000 ');
WRITELN (' 2 | Reebok (Royal Nova) | 600.000 ');
WRITELN (' 3 | Reebok (Royal Complete)| 400.000 ');
WRITELN ('==========================================');
REPEAT
CASE KODTIP OF
'1' : BEGIN
TYP[A]:='Reebok (Plus Lite) ';
HRG[A]:= 700000; END;
'2' : BEGIN
TYP[A]:='Reebok (Royal Nova)';
HRG[A]:= 600000; END;
'3' : BEGIN
TYP[A]:='Reebok (Royal Complete)';
HRG[A]:= 400000; END;
END;
WRITE ('JUMLAH SEPATU YANG DIBELI: ');READLN(JML[A]);
WRITELN
('_______________________________________________');
END;
PROCEDURE TAMPILKAN;
BEGIN
CLRSCR;
TEXTCOLOR (11);
WRITELN
('==============================================');
WRITELN (' TOKO SEPATU CIBADUYUT
');
WRITELN
('==============================================');
WRITELN ('NAMA PEMBELI : ',NMA);
FOR B := 1 TO A DO
BEGIN
WRITELN ('MEREK SEPATU : ',MEREKS[B]);
WRITELN ('TIPE SEPATU : ',TYP[B]);
WRITELN ('JUMLAH SEPATU : ',JML[B]:2);
WRITELN ('HARGA SEPATU :Rp. ',HRG[B]:9:2);
TOTL[B]:=HRG[B]*JML[B];
WRITELN ('TOTAL HARGA :Rp. ',TOTL[B]:9:2);
DSKON[B] :=TOTL[B]*0.1/JML[B];
2018
WRITELN ('DISKON :Rp. ',DSKON[B]:9:2);

TOTLA[B] :=TOTL[B]-DSKON[B];
WRITELN ('TOTAL HARGA AKHIR :Rp. ',TOTLA[B]:9:2);
SUBTOTL:= SUBTOTL+TOTLA[B];
WRITELN ('----------------------------------------------
');
END;
WRITELN ('SUBTOTAL ',NMA,' :
Rp. ',SUBTOTL:9:2);
REPEAT
WRITE ('UANG PEMBAYARAN :
Rp. ');READLN(BYR[B]);
UNTIL (TOTLA[B]<=BYR[B]);
KMBLI[B]:=BYR[B]-SUBTOTL;
WRITELN ('UANG KEMBALIAN :
Rp. ',KMBLI[B]:9:2);
WRITELN
('==========================================================
=============================');
END;
BEGIN
CLRSCR;
TEXTCOLOR(15);
WRITELN ('=======================================');
WRITELN (' TOKO SEPATU CIBADUYUT ');
WRITELN ('=======================================');
TEXTCOLOR (14);
BEGIN
A:=0;
REPEAT
CLRSCR;
TEXTCOLOR(15);
WRITELN ('================================');
WRITELN (' PILIH MERK SEPATU ');
WRITELN ('================================');
WRITELN (' L1 | ADIDAS ');
WRITELN (' L2 | CONVERSE ');
WRITELN (' L3 | REEBOK ');
WRITELN ('================================');
TEXTCOLOR (14);
WRITELN ('NB: Pembelian Sepatu Di Toko Cibaduyut diskon
10% All Item ');
WRITELN;
TEXTCOLOR (15);
REPEAT
WRITE ('PILIH MERK SEPATU : ');READLN(KODE);
UNTIL (KODE >'L0') AND (KODE <'L4');
CASE KODE OF
'L1' : BEGIN ADIDAS; END;
'L2' : BEGIN CONVERSE; END;
'L3' : BEGIN REEBOK; END;
2018
END;
PIL :=UPCASE(PIL);
UNTIL PIL ='T';
BEGIN TAMPILKAN; END;

END;
END.

Gambar III.1.4.6.5 Tampilan Running Input

2018

2018
Gambar III.1.4.6.6. Tampilan Running Output

2018
III.2 Visual Basic 6.0

III.2.1 Modul Pengenalan dan Struktur Kontrol Visual Basic 6.0
III.2.1.1 Design Visual
Gambar 2.1.1 Design Visual Menu Login
Gambar 2.1.2 Design Visual Menu Transaction
Didalam Visual Basic pada saat meng-inputkan penulis menggunakan

komponen toolbox Label untuk Username, Password (Form Login), Nama
Pembeli, Alamat, Merk Sepatu, Tipe Sepatu, Jumlah Sepatu, Harga, Total Harga,
Judul dan Alamat Tempat (Form Transaction), sedangkan untuk kotak inputanya
penulis menggunakan TexBox, terkecuali kotak inputan Merk Sepatu dan Tipe

2018
Sepatu menggunakan Combo Box. Adapun beberapa kotak perintah penulis buat
seperti kotak perintah Ok, Exit (Form Login),Total Harga, Bersihkan dan Keluar
(Form Transaction), penulis memanfaatkan komponen dari Visual Basic 6.0 yaitu
Command Button.
Sedangkan untuk Variabel penulis menyesuaikan pada Captionnya, contoh

Caption Alamat dengan Variabel TextAlamat, penulis menambahkan kata Text
pada Caption. Selanjutnya akan dilakukan coding pada area tertentu antara lain
Tombol Ok, Exit (Form Login), Total Harga, Bersihkan, Keluar, Merk Sepatu dan
Tipe Sepatu (Form Trancation).
III.2.1.2 Source Code

III.2.1.2.1 Menu Login
Private Sub Commandexit_Click()
pesan = MsgBox("Tutup Aplikasi ?", vbYesNo)
If pesan = vbYes Then End
End Sub
Private Sub Commandok_Click()
If TextUserName.Text = "Admin" And TextPass.Text = "111"

Then
Transaksi.Show
Else
MsgBox "Login Salah", vbOKCancel
End If
End Sub

2018
III.2.1.2.2 Menu Transaksi
Private Sub Commandbersihkan_Click()
Textnamapembeli.Text = ""
Textalamat.Text = ""
Combomerksepatu.Text = ""
Combotipesepatu.Text = ""
Textjumlah.Text = ""
Textharga.Text = ""
Texttotalharga.Text = ""
End Sub
Private Sub Commandkeluar_Click()
pesan = MsgBox("Tutup Aplikasi ?", vbYesNo)
If pesan = vbYes Then End
End Sub
Private Sub Commandhargatot_Click()
If Combotipesepatu.Text = "Adidas Eqt Support 91/18" Then
harga = "2500000"
ElseIf Combotipesepatu.Text = "Adidas Original Campus" Then
harga = "1400000"
ElseIf Combotipesepatu.Text = "Adidas Gazelle Shoes" Then
harga = "1440000"
ElseIf Combotipesepatu.Text = "Converse Jack Purcell" Then
harga = "750000"

2018
ElseIf Combotipesepatu.Text = "Converse Chuck Tylor" Then
harga = "600000"
ElseIf Combotipesepatu.Text = "Converse Star Player" Then
harga = "900000"
ElseIf Combotipesepatu.Text = "Reebok Plus Lite" Then
harga = "700000"
ElseIf Combotipesepatu.Text = "Reebok Royal Nova" Then
harga = "600000"
ElseIf Combotipesepatu.Text = "Reebok Royal Complete" Then
harga = "400000"
End If
Textharga = harga
Texttotalharga = (Val(Textjumlah.Text)) * (Val(harga))
End Sub
Private Sub Form_Load()
Combomerksepatu.AddItem "Adidas"
Combomerksepatu.AddItem "Converse"
Combomerksepatu.AddItem "Reebok"
Combotipesepatu.AddItem "Adidas Eqt Support 91/18"
Combotipesepatu.AddItem "Adidas Original Campus"

2018
Combotipesepatu.AddItem "Adidas Gazelle Shoes"
Combotipesepatu.AddItem "Converse Jack Purcell"
Combotipesepatu.AddItem "Converse Chuck Tylor"
Combotipesepatu.AddItem "Converse Star Player"
Combotipesepatu.AddItem "Reebok Plus Lite"
Combotipesepatu.AddItem "Reebok Royal Nova"
Combotipesepatu.AddItem "Reebok Royal Complete"
End Sub

2018
BAB IV
ANALISIS HASIL PERANCANGAN
Toko Sepatu Cibaduyut, berlokasi di pinggiran Jl. Cibaduyut Raya. No.88,

toko tersebut mulai merintis pada tahun 2000-an mengandalkan pengalaman di
pabrik sepatu yang dulu pernah menjadi rutinitas sehari-harinya. Toko sepatu
cibaduyut sampai sekarang masih menggunakan sistem transaksi secara manual
sehingga dalam pembuatan rekapitulasi dan pelayanan konsumen menjadi lama
dan tidak efektif. Maka dari itu penulis mencoba untuk memecahkan
permasalahan dengan mengubah proses transaksi manual menjadi
terkomputerisasi yang mengandalkan aplikasi Microsoft Excel, Turbo Pascal dan
Visual Basic 6.0.
Pada bab ini, penulis akan menguraikan satu per satu mengenai
penggunaan aplikasi yang sudah penulis buat yang memberikan solusi pada
permasalahan toko sepatu tersebut, diantaranya:
1. Microsoft Excel
Microsoft Excel adalah program aplikasi spreedsheet canggih yang

populer dan banyak digunakan untuk membantu menghitung, memproyeksi,
menganalisa dan mempresentasikan data. Maka dari itu penulis memanfaatkan
kelebihan microsoft excel untuk membantu mendata rekapitulasi penjualan
dengan tujuan meng-efektifkan waktu rekapan dan menghilangkan potensi
kehilangan data, seperti berikut:
IV-1
Muhammad Ifhal Kosasih (16.10059) IV-2
NO NAMA PEMBELI KODE JENIS SEPATU HARGA JUMLAH DISKON TOTAL HARGA HADIAH
1 Muhammad Naufal Pratama L5|28Pcs L5 Rp 859,000 28 20% Rp 687,200 Bros
2 Ravi Julyana L1|12Pcs L1 Rp 559,000 12 5% Rp 531,050 Tali Sepatu
3 Diki Ahmad Potabuga L4|3 Pcs L4 Rp 900,000 3 0% Rp 900,000 Gantungan
4 Lutfi Nugraha Y L4|4 Pcs L4 Rp 900,000 4 0% Rp 900,000 Gantungan
5 Muhammad Fachri Ramadhan L1|3 Pcs L1 Rp 559,000 3 0% Rp 559,000 Tali Sepatu
6 Muhammad Ramdani L5|13Pcs L5 Rp 859,000 13 5% Rp 816,050 Bros
7 Irfan F Laminja L3|6 Pcs L3 Rp 700,000 6 0% Rp 700,000 Stiker
8 Nizaar Azhari L1|18Pcs L1 Rp 559,000 18 5% Rp 531,050 Tali Sepatu
9 Hanrival Aprian L1|4 Pcs L1 Rp 559,000 4 0% Rp 559,000 Tali Sepatu
10 Saeful Sugiri L4|10 Pcs L4 Rp 900,000 10 5% Rp 855,000 Gantungan
11 Muhammad Ammar L2|25 Pcs L2 Rp 899,000 25 20% Rp 719,200 Kaos Kaki
12 Nur Bahriah L2|7 Pcs L2 Rp 899,000 7 0% Rp 899,000 Kaos Kaki
13 Muhammad Rafa Setiawan L4|10Pcs L4 Rp 900,000 10 5% Rp 855,000 Gantungan
14 Muhammad Ifhal Kosasih L5|14Pcs L5 Rp 859,000 14 5% Rp 816,050 Bros
15 Muhammad Sandika L4|30Pcs L4 Rp 900,000 30 20% Rp 720,000 Gantungan
TOTAL PENDAPATAN Rp 11,047,600
2. Turbo Pascal
Turbo Pascal menjadi solusi dalam proses transaksi yang tidak efektif dan
efisien dengan memanfaatkan bahasa pemrograman turbo pascal penulis mencoba
membuat koding dalam prosesnya Diantaranya proses Array, untuk membantu
menginputkan secara terkomputerisasi dan efisien, seperti berikut:
Gambar 1 Pengambilan Keputusan Turbo Pascal.

2018
Gambar 2 Pengambilan Keputusan Turbo Pascal

2018
3. Visual Basic 6.0
Visual Basic 6.0 sama seperti bahasa pemrograman Turbo Pascal cuman
penulis ingin lebih sempurna dalam tampilan proses transaksinya, maka dari itu
penulis memanfaatkan bahasa pemrograman Visual Basic 6.0 untuk memberikan
daya tarik pada tampilan transaksi toko sepatu, diantaranya seperti berikut:
Gambar 2 Design Visual Menu Login.
Gambar 2 Design Visual Menu Transaction.
Setelah membantu menerapkan sistem baru yang terkomputerisasi Toko

Sepatu Cibaduyut mempunyai keutungan yang didapat, diantaranya memberikan
proses transaksi yang lebih cepat dengan desain menarik, mempermudah
menyimpan rekapitulasi penjualan dan mengurangi potensi kehilangan data.

2018
BAB V
PENUTUP
V.1 Kesimpulan
Toko Sepatu Cibaduyut adalah toko yang masih sederhana dalam ruang
lingkup pusat perbelanjaan sepatu yang ada dibandung, sehingga produktivitas
penjualanya bisa dibilang kurang mumpuni. Penulis mengobservasi apa yang
membuat produktivas penjualanya kurang diminati konsumen, diantaranya dalam
proses pelayanan transaksi yang lambat dan tidak efektif membuat konsumen engah
masuk kedalam toko, dengan permasalahan proses transaksi penulis mencoba
memberikan solusi dengan membuatkan suatu koding yang memanfaatkan software
Turbo Pascal dan Visual Basic 6.0 dalam prosesnya.
Dengan itu, semoga selesainya program penulis buat, pelayanan pada toko
sepatu cibaduyut lebih cepat dan akurat, sehingga pendapatan pada toko sepatu
semakin meningkat dari sebelumnya. Akan tetapi, mungkin karyawan kebingungan
dengan perubahan sistem baru, maka dari itu penulis akan menjelaskan secara rinci
dalam prosesnya sampai bisa dan semoga dengan berjalnya waktu karyawan terbisa
mengoprasikanya.
V.2 Saran
V.2.1 Saran Untuk Materi
Materi yang diberikan kepada praktikan kurang dimengerti dan dipahami

dikarenakan singkatnya dalam sesi tanya jawab, tapi dengan adanya sesi
pemaparan lalu praktek membuat mudah apa maksud dari pemaparan materi
tersebut.
V.2.2 Saran Untuk Laboratorium
Laboratorimu LSIK sangatlah tegas dalam sistemnya sehingga praktikan

harus membiasakan dan mengikuti sistemnya, praktikam banyak mendapatkan
poin-poin positif dalam prosesnya. Akan tetapi dalam sistem penugasan mungkin
bisa dikurangi sedikit seperti mengganti tugas pendahuluan tulis tangan dengan
memanfaatkan microsoft word, dll. Dikarenakan dijaman teknologi sayang kalau
V-1
Muhammad Ifhal Kosasih (16.10059) V-2
kita tidak memnfaatkanya, dengan perubahan sistem penugasan akan lebih rapih
dan lebih efisen dalam prosesnya dan juga akan mengangkat reputasi
Laboratorium LSIK dalam sistem.
Fasilitas Laboratorium LSIK sudah memenuhi standar, akan tetapi pada

komputer pernah terjadi error tiba-tiba dan mungkin umur komputer sudah
terlalu tua juga. Sebaiknya komputer diganti dengan yang baru untuk tidak terjadi
sesuatu yang diinginkan, dan juga mencegah kritikan-kritikan dari mahasiswa
sebagai praktikan.
V.2.3 Saran Untuk Asisten
Pertama-tama penulis mengucapkan terimakasih kepada seluruh asisten

dosen terutama kang Hartana Erlangga selaku asisten dosen yang salalu sabar
membina penulis sampai terselesaikanya laporan ini. Mungkin saran penulis
kepada asisten cuma jangan lewatkan sholat 5 waktu, tetap jaga pola makan dan
tidur secukupnya, terimakasih.

2018

Laporan Praktikum Bahasa Pemrograman Komputer

Diunggah oleh

Hak Cipta:

Laporan Praktikum Bahasa Pemrograman Komputer

Diunggah oleh

Informasi Dokumen

Deskripsi Asli:

Hak Cipta

Bagikan dokumen Ini

Bagikan atau Tanam Dokumen

Opsi Berbagi

Apakah menurut Anda dokumen ini bermanfaat?

Apakah konten ini tidak pantas?

Hak Cipta:

Laporan Praktikum Bahasa Pemrograman Komputer

Diunggah oleh

Hak Cipta:

KATA PENGANTAR

Dalam penyusunan laporan ini, penulis mengucapkan terimaksih sebesar-besarnya kepada

1. Seluruh asisten dosen Laboratorium Sistem Informasi dan Keputusan (LSIK).

Bandung, 16 Januari 2018

Untuk itu penulis insiatif membuat program yang terkomputerisasi memanfaatkan

Bab IV Analisis Hasil Perancangan ............................................................. IV-1

Gambar II.1.1 Struktur Organisasi Toko Sepatu Cibaduyut ............................ II-2

Gambar II.1.3 Grafik Aktivitas Toko Sepatu Cibaduyut ................................. II-5

Gambar III.1.1.4 Flowchart Modul Pengenalan Turbo Pascal dan Pengambilan

Keputusan ......................................................................................................... III-7

Gambar III.1.1.6.1 Tampilan Running Input ................................................... III-12

Gambar III.1.1.6.2 Tampilan Running Output ................................................. III-13

Gambar III.1.2.4 Flowchart Modul Perulangan ............................................... III-20

Gambar III.1.2.6.1 Tampilan Running Input ................................................... III-24

Gambar III.1.2.6.2 Tampilan Running Output ................................................. III-25

Gambar III.1.3.4.2 Flowchart Procedure Adidas ............................................ III-33

Gambar III.1.3.4.3 Flowchart Procedure Converse ......................................... III-34

Gambar III.1.3.4.4 Flowchart Procedure Reebok ............................................ III-35

Gambar III.1.3.4.5. Flowchart Procedure Tampilan ........................................ III-36

Gambar III.1.3.6.1 Tampilan Running Input .................................................. III-40

Gambar III.1.3.6.2 Tampilan Running Output ................................................. III-41

Gambar III.1.4.4.1 Flowchart Program Utama Modul Array .......................... III-48

Gambar III.1.4.4.2 Flowchart Procedure Adidas ............................................ III-49

Gambar III.1.4.4.3 Flowchart Procedure Converse ......................................... III-50

Gambar III.1.4.4.4 Flowchart Procedure Reebok ............................................ III-51

Gambar III.1.4.4.5. Flowchart Procedure Tampilan ........................................ III-52

Gambar III.1.4.6.2 Tampilan Running Output ................................................. III-59

Gambar III.2.1.1 Design Visual Menu Login .................................................. III-60

Gambar III.2.1.2 Design Visual Menu Transaksi ............................................ III-60

I.1 Latar Belakang Penelitian

I.2 Identifikasi Masalah

Praktikum Bahasa Pemrograman Komputer

BAB II DESKRIPSI STUDI KASUS

Praktikum Bahasa Pemrograman Komputer

DESKRIPSI STUDI KASUS

II.1 Gambaran Umum Toko Sepatu Cibaduyut

II.1.1 Struktur Organisai Toko Sepatu Cibaduyut

PENJAGA TOKO BAGIAN GUDANG

(Gambar II.1.1 Struktur Organisasi)

II.1.2 Job Description

Praktikum Bahasa Pemrograman Komputer

2) Membantu pelanggan dalam memberikan informasi mengenai

3) Melakukan proses transaksi pelayanan jual beli serta melakukan

Praktikum Bahasa Pemrograman Komputer

II.2 Flow Process Activity

LABORATORIUM SISTEM INFORMASI DAN KEPUTUSAN

(Gambar II.2 Process Activity)

Praktikum Bahasa Pemrograman Komputer

II.3 Data Permasalahan

(Gambar II.3 Grafik Aktivasi)

2. Penjelasan Permasalah Perusahaan

Kinerja pelayanan belum efisen dalam prosesnya jadi penulis akan

1) Sebelumnya pelayan mengecek ketersediaan barang hampir 10

Praktikum Bahasa Pemrograman Komputer

2) Pelayan transaksi sebelumnya memang tidak di permasalahkan

3) Pembuat laporan keuangan memang sangat penting salah

4) Penulis merekomendasikan dalam penyerahan laporan kepada

Penulis mengobservasi kembali dalam toko sepatu cibaduyut ada

Praktikum Bahasa Pemrograman Komputer

PERANCANGAN SISTEM INFORMASI

III.1 Turbo Pascal

III.1.1.2 Tabel Data

No Nama Variabel Variabel Tipe Data