Realy Simple Point of Sale Program with QBASIC

Hi guys,

This is maybe the simplest Point of Sale ever. This code i made to complete my home work even my studying at Nahdlatul Ulama University. Built on top of QBASIC programming language, the very old programming language, but i think this language is effective to learn basic programming. Because all programming language has same characteristics.

So, guys, this is the code:

’’ —————————————————————————-
’’ PROGRAM KASIR SEDERHANA
’’ QBASIC
’’ —————————————————————————-

’’ Clear Screen
CLS

’’
’’ Deklarasi Variable
’’
DIM TRANSAKSI%(100)
DIM PRODUK%(5)

TOTALHARGA& = 0
TOTALITEM% = 0

’’ Data Produk
PRODUK%(1) = 1000
PRODUK%(2) = 1100
PRODUK%(3) = 1200
PRODUK%(4) = 1300
PRODUK%(5) = 1400

’’ Main Menu
1 CLS
 PRINT “Menu:”
 PRINT “1. Produk”
 PRINT “2. Laporan”
 PRINT “3. Transaksi”
 PRINT “4. Keluar”

 INPUT “Pilih Menu:”, menu

 SELECT CASE menu
  CASE 1
   GOTO 10
  
  CASE 2
   GOTO 20

  CASE 3
   GOTO 30
  
  CASE 4
   END

 END SELECT
’’ Data produk
10 CLS
 PRINT “—————————————————“
 PRINT “ DATA PRODUK
 PRINT “—————————————————“

 FOR I = 1 TO 5
  PRINT “KODE: “; I, “HARGA: “; PRODUK%(I)
 NEXT I

 PRINT “”
 PRINT “Menu:”
 PRINT “1. Kembali”
 PRINT “4. Keluar”

 INPUT “Pilih Menu: “, menu

 SELECT CASE menu
  CASE 1
   GOTO 1
  CASE 4
   END
  CASE ELSE
   GOTO 10
 END SELECT

’’ Laporan Transaksi
20 CLS
 PRINT “—————————————————“
 PRINT “ LAPORAN
 PRINT “—————————————————“
 PRINT “”
 PRINT “TOTAL Penjualan: ”, TOTALITEM%, “ ITEM”
 PRINT “TOTAL Pendapatan: ”, TOTALHARGA&
 PRINT “”
 PRINT “”

 PRINT “Menu:”
 PRINT “1. Kembali”
 PRINT “4. Keluar”
 INPUT “Pilih Menu: ”, menu

 SELECT CASE menu
  CASE 1
   GOTO 1
  CASE 4
   END
  CASE ELSE
   GOTO 20
 END SELECT

’’ Proses Transaksi
30  CLS
 PRINT ““
 PRINT “    TRANSAKSI
 PRINT “=======================================“
 PRINT “KODE PRODUK    HARGA”
 PRINT “=======================================”
 
 FOR I = 0 TO TOTALITEM% 
  IF I > 0 THEN
   PRINT TRANSAKSI%(I),”  ”, PRODUK%(TRANSAKSI%(I))
  END IF
 NEXT I

 PRINT “=======================================“
 PRINT “   TOTAL HARGA :”; TOTALHARGA&
 PRINT “=======================================”
 PRINT “”
 
 PRINT “Menu:”
 PRINT “0.  Menu utama”
 PRINT “9.  Keluar”
 PRINT “1-5 (Kode Produk)”
 INPUT “Masukkan Kode Menu / Kode Produkt:”, kode%

 SELECT CASE kode%
  CASE 0
   GOTO 1
  CASE 9
   END
  CASE 1 TO 5
   TOTALITEM% = TOTALITEM% + 1
   TRANSAKSI%(TOTALITEM%) = kode%
   TOTALHARGA& = TOTALHARGA& + PRODUK%(kode%)
   GOTO 30
  CASE ELSE
   GOTO 30
 END SELECT
“================================“
“  SELESAI    “
“================================“

If you get something errors with these code, please leave a comment.