Membuat Database Menggunakan Q Basic

Assalamualaikum wr wb, tak lupa saya menyapa kalian untuk mengawali postingan hari ini wkwkw,
Hari ini yang akan di share tentang Cara Membuat Database Sederhana Menggunakan Q Basic, mungkin dari kalian sudah pernah mencoba membuat database tetapi menggunakan software-software khusus seperti MySQL dll.

Nah, berhubung saya baru dapet ilmu baru dari dosen langsung aja di share dimari biar yang butuh bisa baca-baca dan jadi ngerti cara buat databasenya.
Sebenernya sih yang saya lihat bukan database kya yang biasa pake aplikasi khusus ya, cuman disini fungsinya data bisa diinput, bisa diupdate, bisa dihapus (sesuai pilihan), bisa juga di buat baru databasenya.

Karena baru dapet tugas dan dapet contohnya langsung aja ane rubah dikit-dikit biar keliatan beda sama versi dosenya wkwk, disini database nya tentang PERPUSTAKAAN.

1. Buka Q Basic (saya pake windows 32)
2. Copy dan Paste Perintah dibawah ini
   

   menu:
   1 CLS
   PRINT "--------------------------------------------------------------------------------"
   PRINT "                           Menu Utama Perpustakaan                              "
   PRINT "--------------------------------------------------------------------------------"
   PRINT "1. MASUKAN BUKU BARU"
   PRINT "2. TAMPILKAN DAFTAR BUKU"
   PRINT "3. UPDATE DAFTAR BUKU"
   PRINT "4. HAPUS BUKU"
   PRINT "5. PINJAM BUKU"
   PRINT "6. KELUAR"
   INPUT "PILIH :"; s$
   SELECT CASE s$
   
       CASE "1"
       GOTO 10
       10 CLS
       PRINT "--------------------------------------------------------------------------------"
       PRINT "                                Tambah Buku Baru                                "
       PRINT "--------------------------------------------------------------------------------"
       OPEN "a.dat" FOR OUTPUT AS #1
       INPUT "Banyak Data :"; BD
       FOR i = 1 TO BD
       INPUT "Nama ="; nm$
       INPUT "Stok  ="; stk$
       INPUT "Penerbit  ="; pnb$
       INPUT "Kategoti ="; ktg$
       INPUT "Kode  ="; kd$
       PRINT STRING$(44, "-")
       WRITE #1, nm$, stk$, pnb$, ktg$, kd$
       NEXT i
       CLOSE
       goto menu
   
           CASE "2"
           GOTO 20
           20 CLS
           PRINT "--------------------------------------------------------------------------------"
           PRINT "                                Menu Daftar Buku                                "
           PRINT "--------------------------------------------------------------------------------"
           PRINT "     Nama            Stok              Penerbit         Kategori         Kode      "
           PRINT "--------------------------------------------------------------------------------"
           Item$ = "\         \          \  \             \             \"
           OPEN "a.dat" FOR INPUT AS #1
           DO UNTIL EOF(1)
           INPUT #1, nm$, stk$, pnb$, ktg$, kd$
           PRINT USING Item$; nm$, stk$, pnb$, ktg$, kd$
           LOOP
           PRINT STRING$(80, "-")
           CLOSE
           INPUT "Kembali Ke Menu Awal? [Y/N] ", m$
           IF m$ = "y" OR m$ = "Y" THEN GOTO menu:
           IF m$ = "n" OR m$ = "N" THEN GOTO 100:
   
   
       CASE "3"
       30 cls
       OPEN "a.dat" FOR APPEND AS #1
       ktg$ = "xxx"
       DO UNTIL nm$ = ""
       PRINT "Enter for End"
       INPUT "Nama = "; nm$
       IF nm$ = "" THEN EXIT DO
       INPUT "Stok  ="; stk$
       INPUT "Penerbit  ="; pnb$
       INPUT "Kategoti ="; ktg$
       INPUT "Kode  ="; kd$
       PRINT STRING$(44, "-")
       WRITE #1, nm$, stk$, pnb$, ktg$, kd$
       LOOP
       close
       goto menu
   
           CASE "4"
           GOSUB HAPUS:
           HAPUS:
           CLS
           OPEN "a.dat" FOR INPUT AS #1
           OPEN "c.dat" FOR OUTPUT AS #2
           DO UNTIL EOF(1)
           INPUT #1, nm$, stk$, pnb$, ktg$, kd$
           WRITE #2, nm$, stk$, pnb$, ktg$, kd$
           LOOP
           CLOSE 2
           CLOSE 1
   
           112 CLS
           PRINT "--------------------------------------------------------------------------------"
           PRINT "                                Menu Daftar Buku                                "
           PRINT "--------------------------------------------------------------------------------"
           PRINT "     Nama            Stok              Penerbit         Kategori         Kode      "
           PRINT "--------------------------------------------------------------------------------"
           Item$ = "\         \          \  \             \             \"
           OPEN "a.dat" FOR INPUT AS #1
           DO UNTIL EOF(1)
               INPUT #1, nm$, stk$, pnb$, ktg$, kd$
               PRINT USING Item$; nm$, stk$, pnb$, ktg$, kd$
           loop
           PRINT STRING$(80, "-")
           CLOSE
   
           PRINT " Baris berapa yg akan di hapus [0 utk abaikan]";
           INPUT ""; brs
           IF brs = 0 THEN GOTO 100
           IF brs > 0 THEN
           GOTO 111
           ELSE
           GOTO HAPUS
           END IF
           GOTO menu
   
               111 CLOSE 1
               BARIS = 0
               OPEN "c.dat" FOR INPUT AS #1
               OPEN "a.dat" FOR OUTPUT AS #2
               DO UNTIL EOF(1)
               INPUT #1, nm$, stk$, pnb$, ktg$, kd$
               BARIS = BARIS + 1
               IF BARIS <> brs THEN
               WRITE #2, nm$, stk$, pnb$, ktg$, kd$
               END IF
               LOOP
               CLOSE 2
               CLOSE 1
               KILL "c.dat"
               GOTO HAPUS:
       CASE "5"
       SEL5:
       40 CLS
       PRINT "--------------------------------------------------------------------------------"
       PRINT "                                Menu Pinjam Buku                                "
       PRINT "--------------------------------------------------------------------------------"
       PRINT "1. PINJAM BUKU
       PRINT "2. LIHAT DAFTAR PEMINJAM
       INPUT "PILIH :"; A$
       SELECT CASE A$
           CASE "1"
           cls
           PRINT "--------------------------------------------------------------------------------"
           PRINT "                                Data Pinjam Buku                                "
           PRINT "--------------------------------------------------------------------------------"
           OPEN "PINJAM.dat" FOR APPEND AS #1
           INPUT "Nama Peminjam ="; nm$
           INPUT "Jumlah  ="; jmlh$
           INPUT "Nama Buku  ="; nb$
           INPUT "Pengembalian [DD-MM-YYYY] ="; pgb$
           PRINT STRING$(44, "-")
           WRITE #1, nm$, jmlh$, nb$, pgb$
           CLOSE
           goto SEL5
          
           CASE "2"
           cls
           PRINT "--------------------------------------------------------------------------------"
           PRINT "                                Data Pinjam Buku                                "
           PRINT "--------------------------------------------------------------------------------"
           PRINT "Nama", "Jumlah", "Nama Buku", "Pengembalian"
           PRINT STRING$(80, "-")
           OPEN "PINJAM.dat" FOR INPUT AS #1
           DO UNTIL EOF(1)
                   INPUT #1, nm$, jmlh$, nb$, pgb$
                   PRINT nm$, jmlh$, nb$, pgb$
           LOOP
           CLOSE
           PRINT STRING$(80, "=")
           INPUT "Kembali ke Menu Awal? [Y/N] ", x$
           IF x$ = "y" OR x$ = "Y" THEN GOTO menu:
           IF x$ = "n" OR x$ = "N" THEN GOTO 100:
          
       end select       
   CASE "6"
   GOTO 100
   end select
   
   100 END

3. Langsung aja Paste di notepad terus SAVE pake ekstensi .bas
4. Buka SAVAan tadi, langsung RUN

Silahkan dicoba aja fungsi fungsinya, disitu ada menu per menu silahkan di coba satu per satu biar paham di mana letak letak perbedaannya.

NB : Saya pakai Windows 32, jadi klo kalian menggunakan Win64 bit cari dlu QB64 atau Dosbox nya (kaya semacem emulator).

Oke sekian dlu ilmu yang di share, saya terima kasih buat yang udh ngajarin caranya hehe,
Wassalamualaikum wr wb.