Membuat Tabel Gaji Karyawan Pada QBasic

Saya akan mempostingkan bagaimanacara membuat tabel gaji karyawan menggunakan QBasic..
Apakah kalian sudah tau apa itu QBasic ? Kalau belum lakukan Search ke mbah google terlebih dahulu hahaha ....

Berikut ini adalah coding yang akan diisi :

CLS

FOR  i = 1 to 10

                INPUT  “Masukan Nama Anda”  : “,n$(i)

                INPUT “Masuakan Golongan” : “,g$(i)

                INPUT “Masukan Masa Kerja”: “, masa(i)

NEXT  i

CLS

PRINT TAB(23); “DAFTAR GAJI KARYAWAN”

PRINT “______________________________________________________________”

PRINT TAB(1); “NO”; TAB(5); “NAMA” TAB(22); “GOLONGAN”; TAB(35) “MASA KERJA”; TAB(50); “TOTAL GAJI”

PRINT “______________________________________________________________”

FOR I = 1 TO 10

SELECT CASE g$(i)

                CASE “a”

                GAJI = 1000000

                CASE “b”

                GAJI = 1200000

                CASE “c”

                GAJI = 1500000

                CASE ELSE

                GAJI = 1800000

                END SELECT

IF masa (i) >5 THEN tunj = GAJI * (20 / 100) ELSE tunj = 0

TOTAL =GAJI + tunj

PAJAK = TOTAL * (5 / 100)

Totgaji = TOTAL – PAJAK

PRINT TAB(1); i; TAB(5); n$(i); TAB(22); g$(i); TAB(35); masa(i); TAB (49); totgaji

NEXT i

PRINT “_______________________________________________________________”

END

Beriku ini adalah hasil screenshot :