18/07/2015

Program QBASIC Aplikasi Sederhana untuk Menginput Barang/Produk Baju (Laporan Akhir Lab. TI Dasar)

Nama  File : BAJU.BAS
Nama Program : QBASIC
Input / deklarasi : FOR...NEXT, SELECT CASE, DO...LOOP, IF...THAN, CLS, OPEN, INPUT, PRINT, END.

LISTING PROGRAM :
CLS
PRINT SPC(33); "GUNADARMA DISTRO"
PRINT "1. MASUKAN PRODUK"
PRINT "2. TAMPILKAN PRODUK"
PRINT "3. UPDATE PRODUK"
PRINT "4. EXIT"
INPUT "PILIH :"; X
SELECT CASE X

   CASE 1
      GOTO 10

   CASE 2
      GOTO 20

   CASE 3
      GOTO 30

   CASE 4
      GOTO 100
   CASE ELSE
      PRINT "Tidak ada Pilihan"

END SELECT

10 CLS
PRINT SPC(10); " Gunadarma Distro "
PRINT STRING$(44, "-")
OPEN "a.dat" FOR OUTPUT AS #1
INPUT "Banyak Data :"; BD
FOR i = 1 TO BD
   INPUT "Kategori ="; Jns$
   INPUT "Merek ="; Mrk$
   INPUT "Ukuran ="; Ukr$
   INPUT "Harga ="; Hrg
   PRINT STRING$(44, "-")
   WRITE #1, Jns$, Mrk$, Ukr$, Hrg
NEXT i
CLOSE
PRINT "BUTUH APA LAGI?"
PRINT "1.TAMPILKAN DATA"
PRINT "2.UPDATE DATA"
PRINT "3.EXIT"
INPUT "PILIH :", X
SELECT CASE X

   CASE 1
      GOTO 20

   CASE 2
      GOTO 30

   CASE 3
      GOTO 100

   CASE ELSE
      PRINT "Tidak ada Pilihan"
END SELECT                                                 20 CLS
PRINT SPC(33); "Gunadarma Distro"
PRINT STRING$(80, "-")
PRINT SPC(12); "Kategori"; SPC(11); "Merek"; SPC(11); "Ukuran"; SPC(11); "Harga"
PRINT STRING$(80, "-")
items$ = " \ \ \ \ \ \ ########"
OPEN "a.dat" FOR INPUT AS #1
DO UNTIL EOF(1)
   INPUT #1, Jns$, Mrk$, Ukr$, Hrg
   PRINT USING items$; Jns$; Mrk$; Ukr$; Hrg
LOOP
PRINT STRING$(80, "-")
CLOSE
PRINT "BUTUH APA LAGI?"
PRINT "1.MASUKAN PRODUK"
PRINT "2.UPDATE PRODUK"
PRINT "3.EXIT"
INPUT "PILIH :", X
SELECT CASE X
   CASE 1
      GOTO 10

   CASE 2
      GOTO 30
   CASE 3
      GOTO 100

   CASE ELSE
      PRINT "Tidak ada Pilihan"

END SELECT

30 CLS
OPEN "a.dat" FOR APPEND AS #1
Jns$ = "xxx"
DO UNTIL Jns$ = ""
   PRINT "Enter for End"
   INPUT "Kategori = "; Jns$
   IF Jns$ = "" THEN EXIT DO
   INPUT "Merek ="; Mrk$
   INPUT "Ukuran ="; Ukr$
   INPUT "Harga ="; Hrg
   PRINT STRING$(44, "-")
   WRITE #1, Jns$, Mrk$, Ukr$, Hrg
LOOP
CLOSE
PRINT "BUTUH APA LAGI?"
PRINT "1.MASUKAN PRODUK"
PRINT "2.TAMPILKAN PRODUK"
PRINT "3.EXIT"
INPUT "PILIH :", X
SELECT CASE X

   CASE 1
      GOTO 10

   CASE 2
      GOTO 20

   CASE 3
      GOTO 100

   CASE ELSE
      PRINT "Tidak ada Pilihan"

END SELECT

100 END

LOGIKA PROGRAM :
Program yang dipakai ini adalah salah satu program bahasa dari pemograman basic yaitu QBASIC. Operasi progam ini bertujuan untuk menampilkan hasil inputan berupa Kategori, Merek, Ukuran serta Harga suatu baju yang diinginkan. Penjelasan program : pertama kita harus membuat struktur program BASIC yang diawali dengan memasukan statement CLS yaitu untuk membersihkan layar, selanjutnya adalah memasukan statement PRINT yaitu untuk menampilkan atau mencetak bilangan atau string ke layar monitor dan yang terakhir adalah memasukan statement INPUT yaitu untuk memasukkan nilai variabel dengan keyboard oleh user.

Selanjutnya adalah menempatkan statement SELECT CASE. Ekspresi-list adalah daftar ekspresi yang dibandingkan nilainya dengan ekspresi yang dites. Ekspresi adalah nilai yang akan dibandingkan dengan nilai tiap-tiap ekspresi_list. Jika terpenuhi atau menghasilkan nilai benar maka akan melaksanakan blok statement di bawahnya. Jika tidak sesuai dengan semua ekspresi_list yang ada maka akan melaksanakan blok statementn (di bawah CASE ELSE) dan statement ini diakhiri dengan END SELECT.

Setelah itu kita menggunakan statement FOR...NEXT. Statement FOR..NEXT merupakan perulangan dimana akan berhenti yaitu saat nilai pencacah mencapai nilai akhir yang diinginkan tanpa ada proses penyeleksian. Kita bisa mengetahui berapa kali terjadi perulangan yaitu (nilai_akhir - nilai_awal) * kenaikan. Selanjutnya kita menggunakan statement PRINT, INPUT, GOTO, SELECT CASE dan bila data adalah salah maka menggunakan CASE ELSE lalu di akhiri dengan END SELECT. 

Statement DO...LOOP. Perulangan DO..LOOP terus dilaksanakan saat kondisi tertentu terpenuhi atau bernilai benar, jika tidak maka proses perulangan akan berhenti. Penyeleksian kondisi dilakukan setelah kata DO atau LOOP. Kemudian statement DO...LOOP. Pada statement ini juga kita menggunakan perintah CLS, PRINT serta OPEN dan di akhir menggunakan LOOP.

Statement PRINT dan INPUT serta menggunakan statement SELECT CASE. Pada statement SELECT CASE selalu diakhiri dengan END SELECT. Selanjutnya kita menggunakan statement CLS, OPEN, PRINT, INPUT,, IF...THAN yang kondisi ini berupa suatu ekspresi yang menghasilkan nilai benar (-1) atau salah (0) saja. Ekspresi biasanya menggunakan relational operator atau logic operator dan yang terakhir kita juga menggunakan statement DO...LOOP.

Pada bagan terakhir kita memasukan perintah PRINT, INPUT, dan juga memasukan statement SELECT CASE. Langkah terkhir adalah meletakan statement END yang merupakan akhir dari sebuah program. Save atau save as program QBASIC yang tadi telah dibuat kemudian klik RUN dan pilih start atau dengan menekan tombol F5 yang terdapat di keyboard. 

Pada program output ini kita dapan memasukan produk di “MASUKAN PRODUK”. Selanjutnya kita dapat memasukan Banyak Data, Kategori, Merek, Ukuran serta Harga. Pada layar screen terdapat perintah nomor 1 yaitu Tampilkan Data lalu tekan enter, maka data yang telah kita input tadi akan di tampilkan kembali di layar monitor atau screen. Selanjutnya kita dapat memilih nomor 3 jika ingin exit / keluar.

HASIL PROGRAM QBASIC:
Gambar 1. 
Program QBASIC Aplikasi Sederhana untuk Menginput Barang/Produk Baju (Laporan Akhir Lab. TI Dasar)

Gambar 2.
Program QBASIC Aplikasi Sederhana untuk Menginput Barang/Produk Baju (Laporan Akhir Lab. TI Dasar)

Gambar 3.
Program QBASIC Aplikasi Sederhana untuk Menginput Barang/Produk Baju (Laporan Akhir Lab. TI Dasar)

Gambar 4.
Program QBASIC Aplikasi Sederhana untuk Menginput Barang/Produk Baju (Laporan Akhir Lab. TI Dasar)

Gambar 5.
Program QBASIC Aplikasi Sederhana untuk Menginput Barang/Produk Baju (Laporan Akhir Lab. TI Dasar)

Gambar 6.
Program QBASIC Aplikasi Sederhana untuk Menginput Barang/Produk Baju (Laporan Akhir Lab. TI Dasar)

Gambar 7.
Program QBASIC Aplikasi Sederhana untuk Menginput Barang/Produk Baju (Laporan Akhir Lab. TI Dasar)

Gambar 8.

HASIL RUN PROGRAM QBASIC:
Gambar 1.
Program QBASIC Aplikasi Sederhana untuk Menginput Barang/Produk Baju (Laporan Akhir Lab. TI Dasar)

Gambar 2.
Program QBASIC Aplikasi Sederhana untuk Menginput Barang/Produk Baju (Laporan Akhir Lab. TI Dasar)

Gambar 3.
Program QBASIC Aplikasi Sederhana untuk Menginput Barang/Produk Baju (Laporan Akhir Lab. TI Dasar)

0 komentar :

Post a Comment