Pengolahan Data Bab 4.docx

BAB IV PENGOLAHAN DATA 4.1 Flowchart MULAI

INPUT Id,Pass

T

Y

Id:=Jeremy Pass:=12345678

INPUT Nama,Alama t

INPUT A

Y

Kasus A

1

Y

PROCEDURE KURSOR

T

2

1

3

IV-14

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

2

R-34

1

2

3

Y

PROCEDURE PERALATAN DAPUR

Y

PROCEDURE PERALATAN KAMAR

Y

PROCEDURE PERALATAN ELEKTRONIK

T

3

T

4

T

A=4

OUTPUT Nama, Alamat, Total

4

Bab 4 Pengolahan Data

IV-15

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

4

INPUT no

KASUS JENIS

1

1

OUTPUT Bayar saat barang sampai

2

OUTPUT Trasfer

3

OUTPUT KREDIT

T

2

T

3

c

T

OUTPUT Metode Pembayaran Tidak tersedia

SELESAI

Gambar 4.1 Flowchart Program Utama

Bab 4 Pengolahan Data

IV-16

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

PROCEDURE KURSOR (Kiri,atas,baris)

INPUT KEY

IF #72

Y

IF PILIH 1 THEN

y

T

T

ELSE#80

Pilih BARIS

PILIH-1

Y

IF1 THEN

Y

T

T

5

Bab 4 Pengolahan Data

6

7

IV-17

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

5

R-34

6

7

BARIS

PILIH+1

OUTPUT >

Selesai

Gambar 4.2 Flowchart Procedure kursor

Bab 4 Pengolahan Data

IV-18

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

PROCERUDE PERALATAN ELEKTRONIK

INPUT J

Ulangi 1 dari 1 sampai j

With Pembelian [i] do

INPUT No

Jika No=1

Y

Jenis Mesin Cuci Harga 2.500.000' Kode MC

Y

Jenis Televisi Harga 20.000.000' Kode TV

T

Jika No=2

T

10

Bab 4 Pengolahan Data

8

9

IV-19

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

10

R-34

8

Jika no=3

9

Y

Jenis Kipas Angin Harga 150.000' Kode KA

Y

Jenis Setrika Harga 100.000' Kode ST

Y

Jenis Penanak Nasi Harga 500.000 Kode PN

Y

Jenis Dispenser Harga 500.000' Kode DS

Y

Jenis Vacum Cleaner Harga 1.000.000' Kode< VC

T

Jika no=4

T

Jika no=5

T

Jika no=6

T

Jika no=7

T

13

Bab 4 Pengolahan Data

11

12

IV-20

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

13

R-34

11

Jika no=8

12

Y

Jenis DVD Harga< 10.000.00 0' Kode VD

Y

Jenis Radio Harga 500.000 Kode RA

Y

Jenis Oven Harga 25.000.000 Kode OV

Y

Jenis Blender Harga 780.000' Kode BR

Y

Jenis Komputer Harga 10.000.000 ' Kode KP

T

Jika no=9

T

Jika no=10

T

Jika no=11

T

Jika no=12

T

16

Bab 4 Pengolahan Data

14

15

IV-21

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

16

R-34

14

Jika no=13

15

Y

Jenis Mixer Kue Harga 650.00' Kode MK

Y

Jenis Kulkas Harga 2.450.000' Kode KK

T

Jika no=14

T

OUTPUT Harga Total, Kode

Selesai

Gambar 4.3 Flowchart Procedure peralatan elektronik

Bab 4 Pengolahan Data

IV-22

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

PROCERUDE PERALATAN DAPUR

INPUT J

Ulangi 1 dari 1 sampai j

With Pembelian [i] do

INPUT No

Jika No=1

Y

Jenis Pisau Harga 20.000' Kode PS

Y

Jenis Panci Harga 100.000' Kode PC

T

Jika No=2

T

19

Bab 4 Pengolahan Data

17

18

IV-23

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

19

R-34

17

Jika no=3

18

Y

Jenis Spatula Harga 99.000' Kode SP

Y

Jenis Kompor Harga 2.000.000' Kode KP

Y

Jenis Piring Harga 20.000' Kode PG

Y

Jenis Gelas Harga 10.000' Kode GS

Y

Jenis Sendok Harga 15.000' Kode< SK

T

Jika no=4

T

Jika no=5

T

Jika no=6

T

Jika no=7

T 22

Bab 4 Pengolahan Data

20

21

IV-24

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

22

R-34

20

Jika no=8

21

Y

Jenis Garpu Harga 15.00' Kode GP

Y

Jenis Sapu Harga 100.000' Kode SU

Y

Jenis Keset Harga 50.000' Kode KT

Y

Jenis Talenan Harga 50.000' Kode TN

Y

Jenis Tudung Saji Harga 15.000' Kode TS

T

Jika no=9

T

Jika no=10

T

Jika no=11

T

Jika no=12

T

25

Bab 4 Pengolahan Data

23

24

IV-25

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

25

R-34

23

Jika no=13

24

Y

Jenis Rak Cuci Piring Harga 150.000' Kode< RCP

T

OUTPUT Harga Total, Kode

Selesai

Gambar 4.4 Flowchart Procedure peralatan dapur

Bab 4 Pengolahan Data

IV-26

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

PROCERUDE PERALATAN KAMAR

INPUT J

Ulangi 1 dari 1 sampai j

With Pembelian [i] do

INPUT No

Jika No=1

Y

Jenis Kasur Harga 500.000' Kode KS

Y

Jenis Selimut Harga 125.000' Kode SL

T

Jika No=2

T

28

Bab 4 Pengolahan Data

26

27

IV-27

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

28

R-34

26

Jika no=3

27

Y

Jenis Seprai Harga 50.000' Kode SR

Y

Jenis Lampu Tidur Harga 200.000' Kode LT

Y

Jenis Bantal Harga 250.000' Kode BL

Y

Jenis Lemari Baju Harga 5.000.000' Kode LB

Y

Jenis Cermin Harga 600.000' Kode< CN

T

Jika no=4

T

Jika no=5

T

Jika no=6

T

Jika no=7

T

31

Bab 4 Pengolahan Data

29

30

IV-28

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

31

R-34

29

Jika no=8

30

Jenis Gantunga Baju Harga 100.000' Kode GT

T

Jika no=9

Jenis Guling Harga 250.000' Kode GL

T

Jika no=10

Jenis Lemari Buku Harga 2.500.00'' Kode LB

T

Jika no=11

Jenis Kursi Harga 20.00' Kode KS

T

Jika no=12

Jenis Meja Belajar Harga 800.000' Kode MB

T

34

Bab 4 Pengolahan Data

32

33

IV-29

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

34

R-34

32

Jika no=13

33

Y

Jenis Karpet Harga 540.00' Kode KT

T

OUTPUT Harga Total, Kode

Selesai

Gambar 4.5 Flowchart Procedure peralatan kamar

Bab 4 Pengolahan Data

IV-30

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

4.2 Pseudocode Program Market_Online {Program ini di gunakan untuk menjual barang peralatan rumah tangga.Program ini pembeli harus log in terlebih dahulu.Masukan: id, pass. Proses akan diulang hingga (id=Jeremy) dan (pass=12345678) keluaran Selamat datang kembali.program ini menggunakan kursor dimana kursor di pake saat program ini memilih semua perosedure yang ada di silahkan tekan. Program ini juga menggunakan procedure merupakan suatu program terpisah dalam blok tersendiri sebgai subprogram yang di panggil sewaktu-waktu.Danprogram ini juga menggunakangabungan array record yang di coumpond kan supaya pembeli bisa memilih jumlah barang yang mau di beli dan jumlah peralatan yang mau di beli juga .Program ini untuk memilih bebrapa list metode pembayaran. Program ini uga menggunakan file dimana hasil pembelian barang akan langasung keluar ke notepad.} Deklarasi Type Namaperalatan=record Pembelian:array[1..10]of namaperaltan jumlah,A,j,i:integer; Nama,Alamat:String; Jenis:STRING; no:char; Menu:string; id,pass:string; Dekripsi Algoritma procedure kursor (kiri, atas,baris:integer;var pilih:nteger) mulai pilih=1 key=#0 ulangi gotoxy(kiri,atas+pilih);tulis(‘ ‘) jika key=#72 maka jika pilih>1 lainnya pilih=baris jika key=#80 maka jikab pilih’) gotoxy(1,25) key=readkey until key=#13 selesai Procedure Peralatandapur Mulai Baca(j) Untuki1 sampai j lakukan Dengan pembelian [i] Mulai Baca(i) Baca(‘Masukan Nama Obat’) Baca(‘Masuikan Jumlah yang ingin di beli) Jika no=’1’ maka Mulai NamaPeralatan='Pisau'; Harga='20000'; Kode='PS';

Bab 4 Pengolahan Data

IV-31

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

total=jumlah*20000; Selesai Jika no=’2’ maka mulai NamaPeralatan='Panci'; Harga='100000'; Kode='PC’; total=jumlah*1000000; Selesai Jika no=’3’ maka mulai NamaPeralatan='Spatula'; Harga='99000'; Kode=’SP'; total=jumlah*99000; Selesai Jika no=’4’ maka mulai NamaPeralatan='Kompor'; Harga='2000000'; Kode='PS'; total=jumlah*2000000; Selesai Jika no=’5’ maka mulai NamaPeralatan='Piring'; Harga='20000'; Kode='PG'; total=jumlah*20000; Selesai Jika no=’6’ maka mulai NamaPeralatan='Gelas'; Harga='10000'; Kode='GS'; total=jumlah*10000; Selesai Jika no=’7’ maka mulai NamaPeralatan='Sendok'; Harga='15000'; Kode='PS'; total=jumlah*15000; Selesai Jika no=’8’ maka Mulai NamaPeralatan='Garpu'; Harga='20000'; Kode='GP'; total=jumlah*20000; Selesai Jika no=’9’ maka mulai NamaPeralatan='Sapu'; Harga='100000'; Kode='PS'; total=jumlah*100000; Selesai

Bab 4 Pengolahan Data

IV-32

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

Jika no=’10’ maka mulai NamaPeralatan='Keset'; Harga='50000'; Kode='PS'; total=jumlah*50000; selesai jika no='11' maka mulai NamaPeralatan='Talenan'; Harga='50000'; Kode='TL'; total=jumlah*50000; selesai jika no='12' maka mulai NamaPeralatan:='Tedung saji'; Harga='15000'; Kode='TS'; total=jumlah*15000; selesai jika no='13' maka mulai NamaPeralatan:='Rak Cuci piring'; Harga:='150.000'; Kode:='RK'; total:=jumlah*150000; selesai selesai mulai Untuk i 1sampai j lakukan Dengan pembelian [i] lakukan Penamaan berkas’,memotxt’) Tambah(berkasteks) Tulis(berkasteks’,bareng ke-) Tulis(berkasteks,nama peralatan) Tulis(berkasteks,harga) Tulis(berkasteks,kode) Tulis(berkasteks,total) Tulis(berkasteks,nama anda) Tulis(berkasteks,alamat) Selesai Tutup(berkas,teks) Untuk i 1sampai j lakukan Dengan pembelian [i] lakukan Penamaan berkas’,memotxt’) Tambah(berkasteks) Tulis(berkasteks’,bareng ke-) Tulis(berkasteks,nama peralatan) Tulis(berkasteks,harga) Tulis(berkasteks,kode) Tulis(berkasteks,total) Tulis(berkasteks,nama anda) Tulis(berkasteks,alamat) Selesai Selesai Selesai

Bab 4 Pengolahan Data

IV-33

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

Procedure Peralatanelektronik Mulai Baca(j) Untuki1 sampai j lakukan Dengan pembelian [i] Mulai Baca(i) Baca(‘Masukan Nama Obat’) Baca(‘Masuikan Jumlah yang ingin di beli) Jika no=’1’ maka Mulai NamaPeralatan='Mesin cuci'; Harga='2500000'; Kode=’MC'; total=jumlah*2500000; Selesai Jika no=’2’ maka mulai NamaPeralatan='Televisi'; Harga='20000000'; Kode='TV’; total=jumlah*20000000; Selesai Jika no=’3’ maka mulai NamaPeralatan='Kipas angin'; Harga='150000'; Kode=’KA'; total=jumlah*150000; Selesai Jika no=’4’ maka mulai NamaPeralatan='Setrika'; Harga='100000'; Kode='ST'; total=jumlah*100000; Selesai Jika no=’5’ maka mulai NamaPeralatan='Penanak Nasi'; Harga='500000'; Kode='PN'; total=jumlah*500000; Selesai Jika no=’6’ maka mulai NamaPeralatan='Dispenser'; Harga='500000'; Kode='DS'; total=jumlah*500000; Selesai Jika no=’7’ maka mulai NamaPeralatan='Vacum Cleaner'; Harga='1000000'; Kode='VC'; total=jumlah*1000000;

Bab 4 Pengolahan Data

IV-34

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

Selesai Jika no=’8’ maka mulai NamaPeralatan='Radio'; Harga='500000'; Kode='RA'; total=jumlah*500000; Selesai Jika no=’9’ maka mulai NamaPeralatan='DVD Player'; Harga='10000000'; Kode='VD'; total=jumlah*10000000; Selesai Jika no=’10’ maka mulai NamaPeralatan='Oven'; Harga='2500000'; Kode='PS'; total=jumlah*2500000; Selesai Jika no='11' maka mulai NamaPeralatan='Blender'; Harga='780000'; Kode='BL'; total=jumlah*780000; selesai jika no='12' maka mulai NamaPeralatan='Komputer'; Harga='10000000'; Kode='KP'; total=jumlah*10000000; selesai jika no='13' maka mulai NamaPeralatan='Mixer Kue'; Harga='650000'; Kode='MK'; total=jumlah*650000; selesai jika no='14' maka mulai NamaPeralatan='Kulkas'; Harga='2450000'; Kode='KL'; total=jumlah*2450000; selesai selesai Selesai mulai Untuk i 1sampai j lakukan Dengan pembelian [i] lakukan Penamaan berkas’,memotxt’)

Bab 4 Pengolahan Data

IV-35

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

Tambah(berkasteks) Tulis(berkasteks’,bareng ke-) Tulis(berkasteks,nama peralatan) Tulis(berkasteks,harga) Tulis(berkasteks,kode) Tulis(berkasteks,total) Tulis(berkasteks,nama anda) Tulis(berkasteks,alamat) Selesai Selesai selesai Procedure Peralatankamar Mulai Baca(j) Untuki1 sampai j lakukan Dengan pembelian [i] Mulai Baca(i) Baca(‘Masukan Nama Obat’) Baca(‘Masuikan Jumlah yang ingin di beli) Jika no=’1’ maka Mulai NamaPeralatan='Kasur'; Harga='500000'; Kode='KS'; total=jumlah*500000; Selesai Jika no=’2’ maka mulai NamaPeralatan='Selimut'; Harga='125000'; Kode='SR’; Total=jumlah*125000; Selesai Jika no=’3’ maka Mulai NamaPeralatan='Seprai'; Harga='50000'; Kode=’KA’; total=jumlah*50000; Selesai Jika no=’4’ maka mulai NamaPeralatan='Bantal'; Harga='250000'; Kode='BL'; total=jumlah*250000; Selesai Jika no=’5’ maka mulai NamaPeralatan='Leamri Baju'; Harga='5000000'; Kode='LB'; total=jumlah*5000000; Selesai Jika no=’6’ maka mulai NamaPeralatan='Cermin';

Bab 4 Pengolahan Data

IV-36

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

Harga='600000'; Kode='CN'; total=jumlah*600000; Selesai Jika no=’7’ maka mulai NamaPeralatan='Gantung'; Harga='100000'; Kode='GT'; total=jumlah*100000; Selesai Jika no=’8’ maka mulai NamaPeralatan='Guling'; Harga='250000'; Kode='GL'; total=jumlah*2500000; Selesai Jika no=’9’ maka mulai NamaPeralatan='Lampu Tidur'; Harga='200000'; Kode='LT'; total=jumlah*200000; Selesai Jika no=’10’ maka mulai NamaPeralatan='Lemari Buku'; Harga='2500000'; Kode='PS'; Total=jumlah*2500000; Selesai Jika no='11' maka mulai NamaPeralatan='Kursi'; Harga='20000'; Kode='KU'; total=jumlah*20000; selesai if no='12' then mulai NamaPeralatan='Meja Belajar'; Harga='800000'; Kode='LB'; total=jumlah*800000; selesai jika no='13' then mulai NamaPeralatan='Karpet'; Harga='540000'; Kode='LB'; total=jumlah*540000; selesai mulai Untuk i 1sampai j lakukan Dengan pembelian [i] lakukan Penamaan berkas’,memotxt’) Tambah(berkasteks)

Bab 4 Pengolahan Data

IV-37

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

Tulis(berkasteks’,bareng ke-) Tulis(berkasteks,nama peralatan) Tulis(berkasteks,harga) Tulis(berkasteks,kode) Tulis(berkasteks,total) Tulis(berkasteks,nama anda) Tulis(berkasteks,alamat) Selesai Selesai selesai Procedure Metodepembayran Mulai Baca(‘Pilih Metode Pembayaran ‘);baca(menu); Kasus jenis dari ‘1’:tulis(‘Tunai Bayar saat sampai’); ‘2’:tulis(‘Transfer’); ‘3’tulia(‘kredit); Lainnya tulis(‘Metode Pembayaran tidak tersedia) Selesai Selesai Dekripsi algoritma Mulai Textcolor(blue) Textbackgroud(7) Ulangi Baca (id) Baca(pass) Sampai id ’Jeremy’ dan pass ‘12345678’ Mulai Baca(Nama) Baca(Alamat) Ulangi Tulis(Daftar) Tulis(silahkan pilih) Tulis(1.peraltan dapur) Tulis('2. Peralatan Elektronik ') Tulis('3. Peralatan Kamar') Tulis('4. Metode Pembayaran') Tulis('5.keluar') Baca(masukan angla yang di pilih) Peralatan dapur Peraltanelektronik Peraltankamar Metodepembayaran Selesai Selesai

Bab 4 Pengolahan Data

IV-38

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

4.3 Source code Program program marketonline_rumahtangga; uses crt,lconvencoding; type namap=record namaperalatan,harga,kode:string; total:integer; end; Var pembelian:array[1..14] of namap; berkasteks:text; jumlah,j,i:integer; Nama,Alamat:String; key:char; pilih:integer; no:char; Menu:string; id,pass:string; procedure kursor (kiri,atas,baris:integer;var pilih:integer); begin pilih:=1; key:=#0; repeat gotoxy(kiri,atas+pilih); write(' '); if key=#72 then if pilih>1then pilih:=pilih-1 else pilih:=baris; if key=#80 then if pilih'); gotoxy(1,25); key:=readkey; until key=#13; end;

Bab 4 Pengolahan Data

IV-39

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

procedure Peralatandapur;

begin gotoxy(20,3);writeln(UTF8ToCP866 ('╔═══════════════════════════╗' )); gotoxy(20,4);writeln(UTF8ToCP866 ('║

List barang

║' ));

gotoxy(20,5);writeln(UTF8ToCP866 ('║

Peralatan Dapur

║' ));

gotoxy(20,6);writeln(UTF8ToCP866 ('║───────────────────────────║' )); gotoxy(20,7);writeln(UTF8ToCP866 ('║JP ━KODE ━Nama Barang

━Harga

║'));

gotoxy(20,8);writeln(UTF8ToCP866 ('║1. ━PS

━Pisau

━20.000

║'));

gotoxy(20,9);writeln(UTF8ToCP866 ('║2. ━PC

━Panci

━100.000

║'));

gotoxy(20,10);writeln(UTF8ToCP866('║3. ━SP

━Spatula

━99.000

║'));

gotoxy(20,11);writeln(UTF8ToCP866('║4. ━KP

━Kompor

━2.000.000 ║'));

gotoxy(20,12);writeln(UTF8ToCP866('║5. ━PG

━Piring

━20.000

║'));

gotoxy(20,13);writeln(UTF8ToCP866('║6. ━GS

━Gelas

━10.000

║'));

gotoxy(20,14);writeln(UTF8ToCP866('║7. ━SK

━Sendok

━15.000

║'));

gotoxy(20,15);writeln(UTF8ToCP866('║8. ━GP

━Garpu

━15.000

║'));

gotoxy(20,16);writeln(UTF8ToCP866('║9. ━SU

━Sapu

━100.000

║'));

gotoxy(20,17);writeln(UTF8ToCP866('║10.━KT

━Keset

━50.000

║'));

gotoxy(20,18);writeln(UTF8ToCP866('║11.━TL

━Talenan

━50.000

║ '));

gotoxy(20,19);writeln(UTF8ToCP866('║12.━TS

━Tudung saji

━15.000

║ '));

gotoxy(20,20);writeln(UTF8ToCP866('║13.━RK

━Rak cuci piring

━150.000

║ '));

gotoxy(20,21);writeln(UTF8ToCP866('║

║ '));

gotoxy(20,22);writeln(UTF8ToCP866('╚═══════════════════════════╝ ')); readln; begin write('masukan jumlah yang akan di beli:');readln(j); for i:=1 to j do with pembelian[i]do begin Writeln('Barang ke-',i); Writeln('Masukan nomor barang:');readln(no); Writeln('masukan jumlah peralatan yang mau di beli:');readln(jumlah); readln; if no='1' then begin

Bab 4 Pengolahan Data

IV-40

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

NamaPeralatan:='Pisau'; Harga:='20000'; Kode:='PS'; total:=jumlah*20000; end; if no='2' then begin NamaPeralatan:='Panci'; Harga:='100000'; Kode:='PC'; total:=jumlah*100000; end; if no='3' then begin NamaPeralatan:='Spatula'; Harga:='99000'; Kode:='SP'; total:=jumlah*99000; end; if no='4' then begin NamaPeralatan:='Kompor'; Harga:='2000000'; Kode:='KP'; total:=jumlah*2000000; end; if no='5' then begin NamaPeralatan:='Piring'; Harga:='20000'; Kode:='PG'; total:=jumlah*20000; end; if no='6' then begin NamaPeralatan:='Gelas'; Harga:='10000'; Kode:='GS'; total:=jumlah*10000; end; if no='7' then begin

Bab 4 Pengolahan Data

IV-41

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

NamaPeralatan:='Sendok'; Harga:='15000'; Kode:='SK'; total:=jumlah*15000; end; if no='8' then begin NamaPeralatan:='Garpu'; Harga:='20000'; Kode:='GP'; total:=jumlah*20000; end; if no='9' then begin NamaPeralatan:='Sapu'; Harga:='100000'; Kode:='GP'; total:=jumlah*100000; end; if no='10' then begin NamaPeralatan:='Keset'; Harga:='50000'; Kode:='GP'; total:=jumlah*50000; end; if no='11' then begin NamaPeralatan:='Talenan'; Harga:='50000'; Kode:='TL'; total:=jumlah*50000; end; if no='12' then begin NamaPeralatan:='Tedung saji'; Harga:='15000'; Kode:='TS'; total:=jumlah*15000; end; if no='13' then begin

Bab 4 Pengolahan Data

IV-42

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

NamaPeralatan:='Rak Cuci piring'; Harga:='150.000'; Kode:='RK'; total:=jumlah*150000; end; readln; end; begin begin for i:= 1 to j do with pembelian[i]do begin assign(berkasteks,'memo.txt'); append(berkasteks); Writeln(berkasteks,'Barang ke-',i); Writeln(berkasteks,'NamaPeralatan:',Namaperalatan); Writeln(berkasteks,'Harga',harga); Writeln(berkasteks,'Kode:',kode); writeln(berkasteks,'total:',total); Writeln(berkasteks,'Nama Anda: ',nama:2); Writeln(berkasteks,'Alamat: ',alamat:2); readln; close(berkasteks); end; begin for i:= 1 to j do with pembelian[i]do begin Writeln('Barang ke-',i); Writeln('NamaPeralatan:',Namaperalatan); Writeln('Harga',harga); Writeln('Kode:',kode); writeln('total:',total); Writeln('Nama Anda: ',nama:2); Writeln('Alamat: ',alamat:2); readln; end; end; end; end; end; end;

Bab 4 Pengolahan Data

IV-43

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

procedure PeralatanElektronik; begin gotoxy(20,3);writeln(UTF8ToCP866 ('╔═════════════════════════╗')); gotoxy(20,4);writeln(UTF8ToCp866 ('║ gotoxy(20,5);writeln(UTF8ToCP866 ('║

║'));

List barang

║'));

Peralatan Elektronik

gotoxy(20,6);writeln(UTF8ToCP866 ('║─────────────────────────║')); gotoxy(20,7);writeln(UTF8ToCP866 ('║JP ━KODE ━Nama Barang

━Harga

║'));

gotoxy(20,8);writeln(UTF8ToCP866 ('║1. ━MC

━Mesin Cuci

gotoxy(20,9);writeln(UTF8ToCP866( '║2. ━TV

━Televisi

━100.000║'));

gotoxy(20,10);writeln(UTF8ToCP866('║3. ━KA

━Kipas Angin

━99.000 ║'));

gotoxy(20,11);writeln(UTF8ToCP866('║4. ━ST

━Setrika

━2.000.000║'));

gotoxy(20,12);writeln(UTF8ToCP866('║5. ━PN

━Penanak Nasi

━20.000 ║'));

gotoxy(20,13);writeln(UTF8ToCP866('║6. ━DS

━Dispenser

━10.000 ║'));

gotoxy(20,14);writeln(UTF8ToCP866('║7. ━VC

━Vacum Cleaner ━15.000 ║'));

gotoxy(20,15);writeln(UTF8ToCP866('║8. ━RA

━Radio

━15.000 ║'));

gotoxy(20,16);writeln(UTF8ToCP866('║9. ━VD

━DVD Player

━100.000 ║'));

gotoxy(20,17);writeln(UTF8ToCP866('║10.━OV

━Oven

━25.000.000║'));

gotoxy(20,18);writeln(UTF8ToCP866('║11.━BL

━Blender

━780.000 ║'));

gotoxy(20,19);writeln(UTF8ToCP866('║12.━KP

━Komputer

━10.000.000║'));

gotoxy(20,20);writeln(UTF8ToCP866('║13.━MK

━Moxer Kue

━650.000 ║'));

gotoxy(20,21);writeln(UTF8ToCP866('║14.━KL

━Kulkas

━2.450.000║'));

gotoxy(20,22);writeln(UTF8ToCP866('║

━20.000 ║'));

║ '));

gotoxy(20,23);writeln(UTF8ToCP866('╚═════════════════════════╝ ')); readln; begin write('masukan jumlah yang akan di beli:');readln(j); for i:=1 to j do with pembelian[i]do

Bab 4 Pengolahan Data

IV-44

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

begin Writeln('Barang ke-',i); Writeln('Masukan nomor barang:');readln(no); Writeln('masukan jumlah peralatan yang mau di beli:');readln(jumlah); readln; if no='1' then begin NamaPeralatan:='Mesin Cuci'; Harga:='2500000'; Kode:='MC'; total:=jumlah*20000; end; if no='2' then begin NamaPeralatan:='Televisi'; Harga:='20000000'; Kode:='TV'; total:=jumlah*2000000; end; if no='3' then begin NamaPeralatan:='Kipas Angin'; Harga:='150000'; Kode:='KA'; total:=jumlah*150000; end; if no='4' then begin NamaPeralatan:='Setrika'; Harga:='100000'; Kode:='ST'; total:=jumlah*100000; end; if no='5' then begin NamaPeralatan:='Penanak Nasi'; Harga:='500000'; Kode:='PN'; total:=jumlah*500000; end; if no='6' then begin

Bab 4 Pengolahan Data

IV-45

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

NamaPeralatan:='Dispenser'; Harga:='500000'; Kode:='DS'; total:=jumlah*500000; end; if no='7' then begin NamaPeralatan:='Vacum Cleanner'; Harga:='1000000'; Kode:='VC'; total:=jumlah*1000000; end; if no='8' then begin NamaPeralatan:='Radio'; Harga:='500000'; Kode:='RA'; total:=jumlah*500000; end; if no='9' then begin NamaPeralatan:='DVD Player'; Harga:='10000000'; Kode:='VD'; total:=jumlah*10000000; end; if no='10' then begin NamaPeralatan:='Oven'; Harga:='25000000'; Kode:='OV'; total:=jumlah*25000000; end; if no='11' then begin NamaPeralatan:='Blender'; Harga:='780000'; Kode:='BL'; total:=jumlah*780000; end; if no='12' then begin

Bab 4 Pengolahan Data

IV-46

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

NamaPeralatan:='Komputer'; Harga:='10000000'; Kode:='KP'; total:=jumlah*10000000; end; if no='13' then begin NamaPeralatan:='Mixer Kue'; Harga:='650000'; Kode:='MK'; total:=jumlah*650000; end; if no='14' then begin NamaPeralatan:='Kulkas'; Harga:='2450000'; Kode:='KL'; total:=jumlah*2450000; end; readln; end; for i:= 1 to j do with pembelian[i]do begin clrscr; assign(berkasteks,'memo.txt'); append(berkasteks); Writeln(berkasteks,'Barang ke-',i); Writeln(berkasteks,'NamaPeralatan:',Namaperalatan); Writeln(berkasteks,'Harga',harga); Writeln(berkasteks,'Kode:',kode); writeln(berkasteks,'total:',total); Writeln(berkasteks,'Nama Anda: ',nama:2); Writeln(berkasteks,'Alamat: ',alamat:2); readln; close(berkasteks); end; for i:=1 to j do with pembelian[i]do begin Writeln('Barang ke-',i); Writeln('NamaPeralatan:',Namaperalatan);

Bab 4 Pengolahan Data

IV-47

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

Writeln('Harga',harga); Writeln('Kode:',kode); writeln('total:',total); Writeln('Nama Anda: ',nama:2); Writeln('Alamat: ',alamat:2); readln; end; end; end; procedure PeralatanKamar; begin gotoxy(20,3);writeln(UTF8ToCP866 ('╔══════════════════════════╗')); gotoxy(20,4);writeln(UTF8ToCP866 ('║ gotoxy(20,5);writeln(UTF8ToCP866 ('║

List barang

║'));

Peralatan Kamar

║'));

gotoxy(20,6);writeln(UTF8ToCP866 ('║────────────────────────── ║')); gotoxy(20,7);writeln(UTF8ToCP866 ('║JP ━KODE ━Nama Barang ━Harga

║'));

gotoxy(20,8);writeln(UTF8ToCP866 ('║1. ━KS

━Kasur

━500.000

║'));

gotoxy(20,9);writeln(UTF8ToCP866 ('║2. ━SL

━Selimut

━125.000

║'));

gotoxy(20,10);writeln(UTF8ToCP866('║3. ━SR

━Seprai

━50.000

║'));

gotoxy(20,11);writeln(UTF8ToCP866('║4. ━BL

━Bantal

━250.000

║'));

gotoxy(20,12);writeln(UTF8ToCP866('║5. ━LB

━Lemari Baju

━5.000.00

║'));

gotoxy(20,13);writeln(UTF8ToCP866('║6. ━CN

━Cermin

━600.000

║'));

gotoxy(20,14);writeln(UTF8ToCP866('║7. ━GT

━Gantungan

━100.000

║'));

gotoxy(20,15);writeln(UTF8ToCP866('║8. ━GL

━Guling

━250.000

║'));

gotoxy(20,16);writeln(UTF8ToCP866('║9. ━LT

━Lampu Tidur

━200.000

║'));

gotoxy(20,17);writeln(UTF8ToCP866('║10.━LB

━Lemari Buku

━2.500.000

║'));

gotoxy(20,17);writeln(UTF8ToCP866('║11.━KU

━Kursi

━20.000

║'));

gotoxy(20,17);writeln(UTF8ToCP866('║12.━MB

━Meja Belajar

━800.000

║'));

gotoxy(20,17);writeln(UTF8ToCP866('║13.━KA

━Karpet

━540.000

║'));

gotoxy(20,18);writeln(UTF8ToCP866('║ gotoxy(20,19);writeln(UTF8ToCP866

║ '));

('╚═══════════════════════════╝ '));

readln; begin write('masukan jumlah yang akan di beli:');readln(j); for i:=1 to j do

Bab 4 Pengolahan Data

IV-48

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

with pembelian[i]do begin Writeln('Barang ke-',i); Writeln('Masukan nomor barang:');readln(no); Writeln('masukan jumlah peralatan yang mau di beli:');readln(jumlah); readln; if no='1' then begin NamaPeralatan:='Kasur'; Harga:='500000'; Kode:='KS'; total:=jumlah*500000; end; if no='2' then begin NamaPeralatan:='Selimut'; Harga:='125000'; Kode:='SR'; total:=jumlah*125000; end; if no='3' then begin NamaPeralatan:='Seprai'; Harga:='50000'; Kode:='SR'; total:=jumlah*50000; end; if no='4' then begin NamaPeralatan:='Bantal'; Harga:='250000'; Kode:='BL'; total:=jumlah*250000; end; if no='5' then begin NamaPeralatan:='Leamari Baju'; Harga:='5000000'; Kode:='LB'; total:=jumlah*5000000; end; if no='6' then

Bab 4 Pengolahan Data

IV-49

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

begin NamaPeralatan:='Cermin'; Harga:='600000'; Kode:='CN'; total:=jumlah*600000; end; if no='7' then begin NamaPeralatan:='Gantungan'; Harga:='100000'; Kode:='GT'; total:=jumlah*100000; end; if no='8' then begin NamaPeralatan:='Guling'; Harga:='250000'; Kode:='GL'; total:=jumlah*250000; end; if no='9' then begin NamaPeralatan:='Lampu Tidur'; Harga:='200000'; Kode:='LT'; total:=jumlah*200000; end; if no='10' then begin NamaPeralatan:='Lemari Buku'; Harga:='2500000'; Kode:='LB'; total:=jumlah*2500000; end; if no='11' then begin NamaPeralatan:='Kursi'; Harga:='20000'; Kode:='KU'; total:=jumlah*20000; end; if no='12' then

Bab 4 Pengolahan Data

IV-50

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

begin NamaPeralatan:='Meja Belajar'; Harga:='800000'; Kode:='LB'; total:=jumlah*800000; end; if no='13' then begin NamaPeralatan:='Karpet'; Harga:='540000'; Kode:='LB'; total:=jumlah*540000; end; readln; end; begin for i:= 1 to j do with pembelian[i]do begin assign(berkasteks,'memo.txt'); append(berkasteks); Writeln(berkasteks,'Barang ke-',i); Writeln(berkasteks,'NamaPeralatan:',Namaperalatan); Writeln(berkasteks,'Harga',harga); Writeln(berkasteks,'Kode:',kode); writeln(berkasteks,'total:',total); Writeln(berkasteks,'Nama Anda: ',nama:2); Writeln(berkasteks,'Alamat: ',alamat:2); readln; close(berkasteks); end; begin for i:= 1 to j do with pembelian[i]do begin Writeln('Barang ke-',i); Writeln('NamaPeralatan:',Namaperalatan); Writeln('Harga',harga); Writeln('Kode:',kode); writeln('total:',total); Writeln('Nama Anda: ',nama:2); Writeln('Alamat: ',alamat:2);

Bab 4 Pengolahan Data

IV-51

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

readln; end; end; end; end; end;

procedure Metodepembayaran; begin Writeln('Pilih Metode Pembayaran'); Writeln('1.Tunai Bayar saat barang sampai'); Writeln('2.Trasfer'); Writeln('3.Kredit'); Write('Masukan Metode Pembayaran: ');readln(menu); case menu of '1':writeln('Tunai Bayar saat barang sampai');

'2':writeln('Trasfer');

'3':writeln('Kredit');

else writeln('Metode Pembayaran tidak Tersedia'); end; readln; begin end; end; begin //Program utama begin clrscr; textcolor(blue); textbackground(7); clrscr; repeat Writeln('^^^^^^^^^^SILAHKAN LOGIN^^^^^^^^^^'); write('ID: ');Readln(id); Write('Password: ');readln(pass); Until(id='jeremy')and(pass='12345678'); Writeln; Write('<<<<<<<<<<Selamat Datang Kembali>>>>>>>>>>'); Readln; clrscr;

Bab 4 Pengolahan Data

IV-52

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

end; begin writeln('----------Selamat Datang DOTA Funiture 2----------'); write('nama anda: ');readln(nama); write('Alamat: ');readln(alamat); clrscr; repeat clrscr; gotoxy(20,3);writeln(UTF8ToCP866('╔════════════════╗ ')); gotoxy(20,4);writeln(UTF8ToCP866('║

Dafatar

║ '));

gotoxy(20,5);writeln(UTF8ToCP866('╠════════════════╣ ')); gotoxy(20,6);writeln(UTF8ToCP866('║

Silahkan tekan

║ '));

gotoxy(20,7);writeln(UTF8ToCP866('║

1. Peralatan Dapur

║ '));

gotoxy(20,8);writeln(UTF8ToCP866('║

2. Peralatan Elektronik

║ '));

gotoxy(20,9);writeln(UTF8ToCP866('║

3. Peralatan Kamar

║ '));

gotoxy(20,10);Writeln(UTF8ToCP866('║

4. Metode Pembayaran ║ '));

gotoxy(20,11);Writeln(UTF8ToCP866('║

5.keluar

gotoxy(20,12);writeln(UTF8ToCP866('║

║ ')); ║ '));

gotoxy(20,13);writeln(UTF8ToCP866('╚════════════════╝ ')); kursor(18,6,5,pilih); if pilih=1then peralatandapur;//memanggil procedure if pilih = 2then peralatanelektronik;//memanggil procedure if pilih = 3then peralatankamar;//memanggil procedure if pilih = 4then Metodepembayaran;//memanggilprocedure until pilih =5 ; end; end.

Bab 4 Pengolahan Data

IV-53

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

4.4

R-34

Tampilan Program

Gambar 4.18 Login

Bab 4 Pengolahan Data

IV-54

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

Gambar 4.19 Masukan nama dan alamat

Gambar 4.20 Daftar barang

Bab 4 Pengolahan Data

IV-55

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

Gambar 4.21 Peralatan Dapur

Bab 4 Pengolahan Data

IV-56

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

Gambar 4.22 Peralatan Elektronik

Gambar 4.23 Peralatan Kamar

Gambar 4.24 Pemesanan

Bab 4 Pengolahan Data

IV-57

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

Gambar 4.25 Struk Pembelian Barang

Bab 4 Pengolahan Data

IV-58

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

Gambar 4.26 Metode Pembayaran

Gambar 4.27 Keluar dari Program

4.5

Skema Solusi

Bab 4 Pengolahan Data

IV-59

Laporan Akhir Praktikum Dasar Komputer & Pemgrogragam

R-34

Gambar 4.28 Skema Solusi

1. Pelanggan tidak perlu keluar rumah. Hanya tinggal menyalakan laptop, komputer, atau smartphone 2. Kemudian masuk aplikasi atau web toko online 3. Setelah itu pelanggan mencari dan memilih barang yang diinginkan 4. Kemudia barang akan di kirim oleh pihak penjual 5. Tunggu hingga barang tiba. 6. Barang tiba dan bisa menikmati barang tersebut.

Bab 4 Pengolahan Data

IV-60