19/07/2015

Program QBASIC Menu Sederhana untuk Menginput Data Mahasiswa (Laporan Akhir Lab. TI Dasar)

Nama  File : Yandra.BAS
Nama Program : QBASIC
Input / deklarasi : TYPE, DIM, FOR...NEXT, SELECT CASE, GOTO, IF...THAN, CLS, OPEN, CLOSE, INPUT, PRINT, END.

LISTING PROGRAM :
TYPE datmhs
   nama AS STRING * 15
   kelas AS STRING * 5
END TYPE

DIM dat AS datmhs
DIM cr AS STRING * 15
DIM pil AS INTEGER
DIM byk AS INTEGER
DIM i AS INTEGER

OPEN "D:\yandra.txt" FOR OUTPUT AS #1
CLOSE (1)
OPEN "D:\yandra.txt" FOR RANDOM AS #1
1 CLS
PRINT "====== Menu ======"
PRINT "1. Masukan data"
PRINT "2. Baca data"
PRINT "3. Cari mahasiswa"
PRINT "4. Keluar"
PRINT "=================="
INPUT "Masukan Pilihan [1-4] : ", pil
SELECT CASE pil
   CASE 1
CLS
INPUT "Masukan Banyak Mahasiswa :", byk
FOR i = 1 TO byk
     CLS
        PRINT "data ke-"; i
        INPUT "Nama : ", dat.nama
        INPUT "Kelas : ", dat.kelas
        PUT #1, i, dat
     NEXT i
     INPUT "<>", temp
     GOSUB 1
   CASE 2
     CLS
     FOR i = 1 TO byk
        GET #1, i, dat
        PRINT "DAtA ke-"; i
        PRINT "Nama :", dat.nama
        PRINT "Kelas :", dat.kelas
        PRINT "====================================="
     NEXT i
     INPUT "<>", temp
     GOTO 1
   CASE 3
     CLS
     INPUT "Masukan Nama Mahasiswa : ", cr
     FOR i = 1 TO byk
        GET #1, i, dat
        IF dat.nama = cr THEN
           PRINT "Mahasiswa berbada dikelas", dat.kelas
        END IF
     NEXT i
     INPUT "<>", temp
     GOSUB 1
   CASE 4
     GOSUB 2
   CASE ELSE
     CLS
     INPUT "pilihan Salah, Tekan enter", temp
     GOSUB 1
END SELECT

2 CLS
PRINT "TERIMA KASIH"
CLOSE (1)
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 MENU yang terdiri dari menginput nama dan kelas mahasiswa, membaca data inputan mahasiswa, dan juga mencari data inputan mahasiswa. Penjelasan program : pertama kita harus membuat struktur program BASIC yang diawali dengan pendeklarasian yang menggunakan tipe record (statement TYPE) selanjutnya adalah pendeklarasian variabel bertipe usertype dengan cara biasa dengan DIM.

Selanjutnya adalah membuat sebuah FILE pada MENU program. Untuk membuat file dengan BASIC bisa digunakan statement OPEN. Setelah sebuah file dibuat atau dibuka, kemudian file bisa ditutup dengan menggunakan statement CLOSE. Perintah PRINT digunakan untuk mencetak inputan pada layar monitor seperti mencetak Menu, Masukan data, Baca data, Cari mahasiswa, dan juga Keluar. Statement INPUT digunakan untuk memasukan pilihan pada menu yang akan dibuat.

Statement yang digunakan selanjutnya adalah statement SELECT...CASE. Statement selanjutnya adalah dengan menggunakan statement FOR...NEXT, GOTO dan juga IF...THAN. Statement CLS digunakan untuk membersihkan layar dan statement PRINT digunakan untuk mencetak hasil inputan. Sedangkan statement CLOSE digunakan untuk menutup menutup sebuah file.

HASIL PROGRAM QBASIC:
Gambar 1.
Program QBASIC Menu Sederhana untuk Menginput Data Mahasiswa (Laporan Akhir Lab. TI Dasar)
Gambar 2.
Program QBASIC Menu Sederhana untuk Menginput Data Mahasiswa (Laporan Akhir Lab. TI Dasar)
 Gambar 3.
Program QBASIC Menu Sederhana untuk Menginput Data Mahasiswa (Laporan Akhir Lab. TI Dasar)
 Gambar 4.
Program QBASIC Menu Sederhana untuk Menginput Data Mahasiswa (Laporan Akhir Lab. TI Dasar)

HASIL RUN PROGRAM QBASIC:
Gambar 1.
Program QBASIC Menu Sederhana untuk Menginput Data Mahasiswa (Laporan Akhir Lab. TI Dasar)
 Gambar 2.
Program QBASIC Menu Sederhana untuk Menginput Data Mahasiswa (Laporan Akhir Lab. TI Dasar)
 Gambar 3.
Program QBASIC Menu Sederhana untuk Menginput Data Mahasiswa (Laporan Akhir Lab. TI Dasar)
 Gambar 4.
Program QBASIC Menu Sederhana untuk Menginput Data Mahasiswa (Laporan Akhir Lab. TI Dasar)
 Gambar 5.
Program QBASIC Menu Sederhana untuk Menginput Data Mahasiswa (Laporan Akhir Lab. TI Dasar)
 Gambar 6.
Program QBASIC Menu Sederhana untuk Menginput Data Mahasiswa (Laporan Akhir Lab. TI Dasar)
 Gambar 7.
Program QBASIC Menu Sederhana untuk Menginput Data Mahasiswa (Laporan Akhir Lab. TI Dasar)
 Gambar 8.
Program QBASIC Menu Sederhana untuk Menginput Data Mahasiswa (Laporan Akhir Lab. TI Dasar)
 Gambar 9.
Program QBASIC Menu Sederhana untuk Menginput Data Mahasiswa (Laporan Akhir Lab. TI Dasar)

0 komentar :

Post a Comment