Modul 4.docx

MODUL 4 “FILE,INTERFACE, DAN KURSOR”

Asisten Wali Ilham Darmawan Disusunoleh : Kelompok R-26 Sesi :1 (Senin, 17.00 –20.15) Akmal Rizki Huzaeni

2513181036

M.Zaein.Istnanudin.Bamsyam 2513181034

Nilai

LABORATORIUM OPTIMASI ANALITIK SISTEM INDUSTRI JURUSAN TEKNIK INDUSTRI FAKULTAS TEKNIK UNIVERSITAS JENDERAL ACHMAD YANI BANDUNG 2018

Dasar computer dan pemrograman

R-26

1. Deskripsi Sistem System ini dibuat untuk solusi para konsumen untuk pemecahan masalah yang terdapat dalam perancangan system penjualan dan sistem pembelian dengan barang yang terbatas dengan cara ini kami produsen mencari cara agar para konsumen lebih mudah membeli produk yang dijual ditoko kami.sistem market online yang pertama menentukan target pemasaran dengan menggunakan iklan disocial media.perkembangan furniture diindonesia terbilangan sangat pesat terlihat dengan target yang dilakukan oleh himpunan industry mebel. Sistem penjualan ditoko home sweet home kami ini kami menggunakan program Lazarus dengan bertujuan mempermudah konsumen kami untuk berbelanja ditoko kami konsumen diperintah dengan memasukan email dan pass untuk masuk kedalam program penjualan toko kami jika email dan pass konsumen salah maka program kami akan terus mengulang sampai email dan pass benar,sesudah konsumen memasukan email dan pass konsumen diberi list nama barang,harga barang,dan jumlah barang,dengan program ini konsumen akan tau mana barang yang tersedia dan barang yang tidak tersedia ditoko kami,sesuai dengan selogan kami ‘home sweet home’rumahku surgaku.kami memberikan barang barang furniture yang berkualitas dengan standar yang bagus. Lalu dalam membuat suatu program kami menggunakan aplikasi yang bernama Ms.Visio dan Lazarus. aplikasi Ms. Visio digunakan sebagai sebuah program aplikasi komputer yang sering digunakan untuk membuat diagram, diagram alir Flowchart. Kemudian Lazarus adalah Software untuk membuat suatu program yang bahasa pemrogramannya berbasis Bahasa Pascal dan Sourcecode yang dibuat pada Lazarus for Windows relatif dapat berjalan baik di Lazarus for Linux tetapi bisa juga Lazarus dijalankan pada Windows, Linux, Mac, WinCE Program kali ini kami menggunakan notepad pada program,program dapat tampil dengan warna background yang berbeda dalam tampilan program.Notepad juga dapat memanggil atau menyimpan data program dalam berkas,dalam tampilan program ini juga tampilan berbeda tampilan pada menu awal program dapat menggunakan kursor untuk mudah memilih menu yang di inginkan.

Laboratorium Optimasi Analisis Sistem Industri

Page 2

Dasar computer dan pemrograman

R-26

LAMPIRAN Nomor

Nama barang

Harga

Cermin

Rp.150.000

Ranjang

Rp.1.000.000

Meja belajar

Rp.500.000

Kursi

Rp.300.000

Foto

1.

2.

3.

4.

Laboratorium Optimasi Analisis Sistem Industri

Page 3

Dasar computer dan pemrograman

R-26

PROCEDURE PETUNJUK PEMAKAIAN

OUTPUT PETUNJUK

SELESAI

PROCEDURE STRUK

INPUT NAMA,ALAM AT,KODEPOS

PEMILIHANMENU,B ANK

OUTPUT NAMA,ALAM AT,KODE,ME NUBANK

SELESAI

Laboratorium Optimasi Analisis Sistem Industri

Page 4

Dasar computer dan pemrograman

0

R-26

P

Q

T

OUTPUT NAMABARA NG,HARGAB ARANG,JUML AHBARANG

ULANGI[I ]=1 SAMPAI J

Namabarang [i],Hargabara ng[i],Jumlahb arang[i]

TOTALTOTAL JUM LAH*HARGA

OUTPUT NAMABARA NG,HARGAB ARANG,JUML AHBARANG

SELESAI

Laboratorium Optimasi Analisis Sistem Industri

Page 5

Dasar computer dan pemrograman

R-26

program SourcecodeM4; uses crt,sysutils; type barang=record Kode,nama_barang,harga,status:string; jumlah,hrg:integer; end; var pembelian:array[1..40] of barang; nama,alamat,id,pass:string; no,i,j,total:integer; pil:char; procedure petunjuk; begin textcolor(4); textbackground(red); clrscr; writeln(' 1.masukkan id dan pasword '); writeln(' 2.pilih barang furniture yang akan anda pesan '); writeln(' 3.masukan jumlah barang yang akan anda pesan '); writeln(' 4.setelah memasan jumlah lihat struk pembayaran '); writeln(' 5.jika anda akan memesan lagi kembali keprogram awal '); writeln(' 6.jika tidak kembali memesan, masukan no 5 untuk keluar dari program '); end; procedure listbarang; var pesan:string; berkasteks:text; begin textcolor(4); textbackground(red); clrscr; Laboratorium Optimasi Analisis Sistem Industri

Page 6

Dasar computer dan pemrograman

R-26

assign(berkasteks,'note.txt'); reset(berkasteks); while not eof(berkasteks)do begin readln(berkasteks,pesan); writeln(pesan); end; close(berkasteks); readln; begin clrscr; writeln('

>>>>>>>>>>>>>>>>>>>>>>>>>>> Selamat Datang Di Toko HOME SWEET HOME

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '); writeln; writeln(' ╔════════════════════════════╦══════════════════════════════ ══════════╦══════════════════════════╗'); writeln('

║ Barang yang Tersedia Di HOME SWEET HOME║

║

║');

writeln(' ╠═════╦══════════════════════╬════════════════╦═══╦═════════ ══════════╬══════════════════════════╣'); writeln('

║ NO ║ BARANG FURNITURE

HARGA FURNITURE

║ HARGA FURNITURE║NO.║ BARANG FURNITURE ║

║');

writeln(' ╠═════╬══════════════════════╬════════════════╬═══╬═════════ ══════════╬══════════════════════════╣'); writeln('

║ 1. ║ Cermin

║ Rp. 150.000 ║21.║ meja telepon

writeln('

║ 2. ║ Ranjang

║ Rp. 1.000.000 ║22.║ meja rias

writeln('

║ 3. ║ Meja belajar

writeln('

║ 4. ║ Kursi

writeln('

║ 5. ║ Lemari baju

writeln('

║ 6. ║ Rak tv

writeln('

║ 7. ║ Sofa

║

║ Rp. 300.000 ║24.║ sketsel

║

║ Rp. 2.000.000 ║26.║ kursi kerja

Laboratorium Optimasi Analisis Sistem Industri

║ ║ ║

║'); ║');

Rp.700.000

Rp.400.000

║

║ Rp. 700.000 ║25.║ kaligrafi ║ Rp. 900.000 ║26.║ gazebo

Rp.400.000

║

║ Rp. 500.000 ║23.║ mimbar

Rp.500.000

Rp.500.000

║');

║'); ║');

Rp.1.000.000

║');

Rp.500.000

║'); Page 7

Dasar computer dan pemrograman

R-26

writeln('

║ 8. ║ Meja

║ Rp. 600.000 ║27.║ bufet

writeln('

║ 9. ║ Lemari asesoris

Rp.500.000

║

║ Rp. 300.000 ║28.║ kursi teras

║');

Rp.300.000

║

║'); writeln('

║ 10. ║ Rak sepatu

║ Rp. 100.000 ║29.║ meja rias

Rp.800.000

writeln('

║ 11. ║ Kitchen set

║ Rp. 900.000 ║30.║ kursi pelaminan ║

writeln('

║ 12. ║ Rak piring

║ Rp. 500.000 ║31.║ box bayi

writeln('

║ 13. ║ Lemari dapur

║ Rp. 600.000 ║32.║ souvenir

writeln('

║ 14. ║ Meja makan

║ Rp. 700.000 ║33.║ nakas

writeln('

║ 15. ║ Mini bar

║ Rp. 400.000 ║34.║ bale-bale

writeln('

║ 16. ║ Meja kecil

║ Rp. 300.000 ║35.║ almari jam

writeln('

║ 17. ║ Meja sedang

║

║');

Rp.900.000

║'); Rp.600.000

║

║');

Rp.300.000

║

║'); Rp.400.000

║

Rp.500.000

║

║'); ║');

Rp.600.000

║

║ Rp. 400.000 ║36.║ set kamar tidur ║

║');

Rp.700.000

║'); writeln('

║ 18. ║ Meja besar

║ Rp. 400.000 ║37.║ meja kantor

║

Rp.800.000

║ 19. ║ Meja tamu

║ Rp. 600.000 ║38.║ relief patung

║

Rp.900.000

║ 20. ║ Rak buku

║ Rp. 700.000 ║39.║ sangkar burung ║

║'); writeln(' ║'); writeln('

Rp.300.000

║'); writeln('

║

║

║

║40.║pintu jati

║

Rp.500.000

║');

writeln(' ╚═════╩══════════════════════╩════════════════╩═══╩═════════ ══════════╩══════════════════════════╝'); writeln; write(' masukan jumlah barang yg akan anda beli : ');readln(j); readln; end; begin for i:=1 to j do with pembelian [i] do begin writeln('barang ke-',i); Laboratorium Optimasi Analisis Sistem Industri

Page 8

Dasar computer dan pemrograman

R-26

write(' masukan kode yg akan di beli : ');readln(no); if no=1then begin; Nama_Barang:='Cermin'; Harga:='Rp.150.000'; hrg:=150000; end; if no=2then begin; Nama_Barang:='Ranjang'; Harga:='Rp.1.000.000'; hrg:=1000000; end; if no=3then begin; Nama_Barang:='Meja belajar'; Harga:='Rp.500.000'; hrg:=500000; end; if no=4then begin; Nama_Barang:='Kursi'; Harga:='Rp.300.000'; hrg:=300000; end; if no=5then begin; Nama_Barang:='Lemari baju'; Harga:='Rp.700.000'; hrg:=700000; end; if no=6then begin; Laboratorium Optimasi Analisis Sistem Industri

Page 9

Dasar computer dan pemrograman

R-26

Nama_Barang:='Rak tv'; Harga:='Rp.900.000'; hrg:=900000; end; if no=7then begin; Nama_Barang:='Sofa'; Harga:='Rp.2.000.000'; hrg:=2000000; end; if no=8then begin; Nama_Barang:='Meja'; Harga:='Rp.600.000'; hrg:=600000; end; if no=9then begin; Nama_Barang:='Lemari asesoris'; Harga:='Rp.300.000'; hrg:=300000; end; if no=10then begin; Nama_Barang:='Rak sepatu'; Harga:='Rp.100.000'; hrg:=100000; end; if no=11then begin; Nama_Barang:='Kitchen set'; Harga:='Rp.900.000'; hrg:=900000; Laboratorium Optimasi Analisis Sistem Industri

Page 10

Dasar computer dan pemrograman

R-26

end; if no=12then begin; Nama_Barang:='Rak piring'; Harga:='Rp.500.000'; hrg:=500000; end; if no=13then begin; Nama_Barang:='Lemari dapur'; Harga:='Rp.600.000'; hrg:=600000; end; if no=14then begin; Nama_Barang:='Meja makan'; Harga:='Rp.700.000'; hrg:=700000; end; if no=15then begin; Nama_Barang:='Mini bar'; Harga:='Rp.400.000'; hrg:=400000; end; if no=16then begin; Nama_Barang:='Meja kecil'; Harga:='Rp.300.000'; hrg:=300000; end; if no=17then begin; Laboratorium Optimasi Analisis Sistem Industri

Page 11

Dasar computer dan pemrograman

R-26

Nama_Barang:='Meja sedang'; Harga:='Rp.400.000'; hrg:=400000; end; if no=18then begin; Nama_Barang:='Meja besar'; Harga:='Rp.400.000'; hrg:=400000; end; if no=19then begin; Nama_Barang:='Meja tamu'; Harga:='Rp.600.000'; hrg:=600000; end; if no=20then begin; Nama_Barang:='Rak buku'; Harga:='Rp.700.000'; hrg:=700000; end; if no=21then begin; Nama_Barang:='meja telepon'; harga:='Rp.500.000'; hrg:=500000; end; if no=22then begin; Nama_Barang:='meja rias'; harga:='Rp.400.000'; hrg:=400000; Laboratorium Optimasi Analisis Sistem Industri

Page 12

Dasar computer dan pemrograman

R-26

end; if no=23then begin; Nama:='mimbar'; harga:='Rp.700.000'; hrg:=700000; end; if no=24then begin; Nama:='sketsel'; harga:='Rp.400.000'; hrg:=400000; end; if no=25then begin; Nama:='kaligrafi'; harga:='Rp.500.000'; hrg:=500000; end; if no=26 then begin; Nama:='gazebo'; harga:='Rp.1.000.000'; hrg:=1000000; end; if no=27then begin; Nama:='bufet'; harga:='Rp.500.000'; hrg:=500000; end; if no=28then begin; Laboratorium Optimasi Analisis Sistem Industri

Page 13

Dasar computer dan pemrograman

R-26

Nama:='kursi teras'; harga:='Rp.300.000'; hrg:=300000; end; if no=29then begin; Nama:='meja rias'; harga:='Rp.800.000'; hrg:=800000; end; if no=30then begin; Nama:='kursi pelaminan'; harga:='Rp.900.000'; hrg:=900000; end; if no=31then begin; Nama_Barang:='Box bayi'; Harga:='Rp.600.000'; hrg:=600000; end; if no=32then begin; Nama_Barang:='souvenir'; harga:='Rp.300.000'; hrg:=300000; end; if no=33then begin; Nama_Barang:='nakas'; harga:='Rp.400.000'; hrg:=400000; Laboratorium Optimasi Analisis Sistem Industri

Page 14

Dasar computer dan pemrograman

R-26

end; if no=34then begin; Nama:='bale-bale'; harga:='Rp.500.000'; hrg:=500000; end; if no=35then begin; Nama:='almarijam'; harga:='Rp.600.000'; hrg:=600000; end; if no=36then begin; Nama:='setkamartidur'; harga:='Rp.700.000'; hrg:=700000; end; if no=37then begin; Nama:='mejakantor'; harga:='Rp.800.000'; hrg:=800000; end; if no=38then begin; Nama:='reliefpatung'; harga:='Rp.900.000'; hrg:=900000; end; if no=39then begin; Laboratorium Optimasi Analisis Sistem Industri

Page 15

Dasar computer dan pemrograman

R-26

Nama:='sangkarburung'; harga:='Rp.300.000'; hrg:=300000; end; if no=40then begin; Nama:='pintujati'; harga:='Rp.500.000'; hrg:=500000; end; end; for i:=1 to j do with pembelian [i] do begin writeln('Nama barang:',nama); writeln('Harga barang:',harga); writeln('total : ');readln(jumlah); total:=total+(jumlah*hrg); end; readln; clrscr; for i:=1 to j do with pembelian [i] do begin writeln('Barang yg di pesan ke-',i); writeln(' ============================================='); writeln(' ============= Barang Yg Dipesan ============='); writeln(' ============================================='); writeln(' Nama Barang

: ',nama_barang);

writeln(' ============================================='); writeln(' Harga Barang : ',harga); writeln(' ============================================='); Laboratorium Optimasi Analisis Sistem Industri

Page 16

Dasar computer dan pemrograman

writeln(' Total

R-26

',total);

writeln(' ============================================='); readln; end; procedure struk; begin textcolor(4); textbackground(red); clrscr; writeln(' ============================================='); writeln(' ============== STRUK PEMBAYARAN ============='); writeln(' ============================================='); writeln(' Nama Pembeli

:',nama);

writeln(' ============================================='); writeln(' Alamat Pembeli :',alamat); writeln(' ============================================='); for i:=1 to j do readln; end; begin writeln(' Nama Barang

: ',nama_barang);

writeln(' ============================================='); writeln(' Harga Barang

: ',harga);

writeln(' ============================================='); writeln(' Jumlah

: ',jumlah);

writeln(' ============================================='); end; write(' Total Pembayaran :',total); end; writeln; writeln; writeln(' >>>>>>>Anda Melakukan Pembayaran Pada Tanggal ' ,datetimetostr(now)); writeln(' >>>>>>>TERIMA KASIH TELAH BERBELANJA DI TOKO HOME SWEET HOME<<<<<<'); Laboratorium Optimasi Analisis Sistem Industri

Page 17

Dasar computer dan pemrograman

R-26

writeln(' <<<<<<< (~_~) (~_~) (~_~) (~_~) (~_~) (~_~) (~_~) (~_~) >>>>>>'); readln; end; begin clrscr; textcolor(04); textbackground(red); clrscr; Repeat textcolor(4) textbackground(red); writeln('╔════════════════════════════════════════════╗')); writeln('║

Silahkan Login Terlebih Dahulu

║'));

writeln('╠════════════════════════════════════════════╣')); writeln('║ID

:'));readln(id')

║'));

writeln('║Katasandi :'));readln(pass')

║'));

writeln('╚════════════════════════════════════════════╝')); until(id='123')and(pass='123'); readln; end; program utama; begin Repeat textcolor(4); textbackground(red); clrscr; gotoxy(20,6);writeln(UTF8toCP866(' ╔══════════════════════════════╗ gotoxy(20,7);writeln(UTF8toCP866(' ║

list menu

║');

gotoxy(20,8);writeln(UTF8toCP866(' ╠══════════════════════════════╣'); gotoxy(20,9);writeln(UTF8toCP866(' ║ 1. petunjuk pembelian

║');

gotoxy(20,10);writeln(UTF8toCP866('╠══════════════════════════════╣'); gotoxy(20,11);writeln(UTF8toCP866('║ 2. listbarang Laboratorium Optimasi Analisis Sistem Industri

║'); Page 18

Dasar computer dan pemrograman

R-26

gotoxy(20,12);writeln(UTF8toCP866('╠══════════════════════════════╣'); gotoxy(20,13);writeln(UTF8toCP866('║ 3. Pemesanan

║');

gotoxy(20,14);writeln(UTF8toCP866('╠══════════════════════════════╣'); gotoxy(20,15);writeln(UTF8toCP866('║ 4. struk pembayaran

║');

gotoxy(20,16);writeln(UTF8toCP866('╠══════════════════════════════╣'); gotoxy(20,17);writeln(UTF8toCP866('║ 5. Keluar Dari Berbelanja ║'); gotoxy(20,18);writeln(UTF8toCP866('╚══════════════════════════════╝'); write ('Silahkan pilih menu : ');readln(pil); case pil of '1':petunjuk; '2':listbarang; '3':pemesanan; '4':struk; '5':write(' Anda keluar Berbelanja Ketik "OK" : '); else writeln('Belum Terdaftar'); end; until(pil='5'); readln; end; end.

Laboratorium Optimasi Analisis Sistem Industri

Page 19