PROGRAM QBASIC SEDERHANA

AGAR LEBIH JELAS LIHAT DULU GAMBAR DI ATAS

CLS
n = o: no = 0: h = 1: th = 0: tk = 0
10 PRINT
PRINT TAB(17); "DATA REKAP GAJI KARYAWAN"
PRINT
PRINT TAB(40); "HAL "; h
PRINT "-------------------------------------------------"
PRINT "NO", "NIK", "NAMA", "GAJI"
PRINT "-------------------------------------------------"
30 READ NIK$, NAMA$, JK
IF NIK$ = "0" THEN PRINT "------------------------------------------------": PRINT TAB(26); "TOTAL GAJI : Rp. "; th: PRINT TAB(19); "JUMLAH TOTAL GAJI : Rp. "; tk: END
G = JK * 100000 + 50000
n = n + 1
no = no + 1
th = th + G
tk = tk + th
PRINT no, NIK$, NAMA$, G
IF n = 2 THEN PRINT "------------------------------------------------": PRINT TAB(26); "TOTAL GAJI : Rp. "; th: INPUT "NEXT HAL (TEKAN ENTER) "; Y: CLS: n = 0: h = h + 1: th = 0: GOTO 10
GOTO 30

DATA 001,ACEP,12,002,DEWI,10,003,SRI,12
DATA 004,AMEL,14,005,MELA,20,0,000,00