Cara Membuat Program Penggajian QBasic

Assalamualaikum wr.wb, kali inii saya akan memberikan tutorial penggunaan QBasic yaitu membuat sebuah program penggajian dengan menggunakan statemen SELECT CASE, SELECT CASE adalah bentuk perintah kondisi dalam penggunaan QBasic selain IF-THEN, berikut adalah contohnya semoga bermanfaat

Contoh : buatlah program penggajian dengan data:

Nama: Muhamad Aditya, NIP : 13117748, Jumlah Anak : 2.,Tunjangan anak  : jum. Anak * 50.000,  dan Gaji Total: tunjangan + Gaji Pokok

11 CLS

REM "JUDUL"

PRINT TAB(30); "-------------------"

PRINT TAB(30); "DAFTAR GAJI PEGAWAI"

PRINT TAB(31); "ADITYA  SUPERINDO"

PRINT TAB(30); "-------------------": PRINT

REM "HOME"

1 INPUT " Masukkan Nama Anda               : "; nama$

2 INPUT " Masukkan NIP  Anda               : "; nip$

3 INPUT " Masukkan Jumlah Anak Anda        : "; anak

4 INPUT " Masukkan Kode Jabatan Anda [A-D] : "; KODE$: PRINT

5 INPUT " Apakah Anda Yakin ? [Y/N]        : "; BA$

IF BA$ = "Y" THEN GOTO 12

IF BA$ = "N" THEN GOTO 11

12 CLS

REM "DATA"

tunjangan = anak * 50000

111 SELECT CASE KODE$

    CASE "A"

        jabat$ = "DIREKTUR"

        gapok = 9181710

        gatot = gapok + tunjangan

    CASE "B"

        jabat$ = "MANAJER"

        gapok = 7181910

        gatot = gapok + tunjangan

    CASE "C"

        jabat$ = "SUPERVISOR"

        gapok = 5899235

        gatot = gapok + tunjangan

    CASE "D"

        jabat$ = "PEGAWAI BIASA"

        gapok = 4632000

        gatot = gapok + tunjangan

END SELECT

REM "OUTPUT"

PRINT TAB(30); "-------------------"

PRINT TAB(30); "DAFTAR GAJI PEGAWAI"

PRINT TAB(31); "ADITYA  SUPERINDO"

PRINT TAB(30); "-------------------": PRINT: PRINT

PRINT TAB(3); "NIP: "; nip$; TAB(66); "GOLONGAN : "; KODE$

PRINT "________________________________________________________________________________"

PRINT TAB(3); "NAMA"; TAB(23); "JABATAN"; TAB(37); "JUMLAH ANAK"; TAB(53); "GAJI POKOK"; TAB(68); "TOTAL GAJI"

PRINT "________________________________________________________________________________"

PRINT TAB(3); nama$; TAB(23); jabat$; TAB(41); anak; TAB(52); "Rp."; gapok: PRINT TAB(67); "Rp."; gatot

PRINT "________________________________________________________________________________"

PRINT "": PRINT: PRINT

PRINT TAB(56); "-------------------------"

PRINT TAB(56); "BY NAMA  : MUHAMAD ADITYA"

PRINT TAB(56); "   NPM   : 13117748"

PRINT TAB(56); "   KELAS : 1 KA 19"

PRINT TAB(56); "-------------------------"

PRINT ""

INPUT "HOME [Y/N] :"; BS$

IF BS$ = "Y" THEN GOTO 11

IF BS$ = "N" THEN GOTO 100

100 END

jika di QBasic akan seperti

 Beranda