Senin, 28 Januari 2013

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.
Membuat Database Menggunakan Q Basic

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.

Jual Aneka Kemeja, Kaos, Polo Shirt Murah Berkualitas

Ditulis Oleh : Benny Dwi Hari: Senin, Januari 28, 2013 Kategori:

5 komentar:

  1. Terus terang saya belum faham sob, tapi trimakasih saya banyak belajar disini..

    BalasHapus
  2. gan Qbasic tu ada masternya sendiri apa udah jadi satu sama windows???

    BalasHapus
    Balasan
    1. sendiri gan, klo mau coba bisa download Q basic 32bit dilink ini
      http://wongzo.blogspot.com/2012/11/download-qbasic-untuk-windows.html

      Hapus
  3. Sudah tahu nih cara-cara buat Database
    thx

    BalasHapus

 

Followers

Blog Widget

DMCA.com
Future Google PR for wongzo.blogspot.com - 3.08 Free PageRank Checker Free counters! Free SEO Tools
IP review wongzo.blogspot.com on alexa.com Bloggers - Meet Millions of Bloggers