PROGRAM PENGHITUNGAN GAJI MENGGUNAKAN (IF THEN DAN GO SUB)

          Di Sini ada sebuah Program yang saya buat menggunakan Program Qbasic dengan statement if then dan sub routine. if then adalah kondisi bersyarat pada qbasic sedangkan sub routine adalah kumpulan baris program yg di panggil dengan menggunakan go sub.
berikut ini adalah contoh program yang menggunakan statement if then dan sub routine:

PROGRAM MENGHITUNG GAJI

MULAI:

CLS

INPUT "ada berapa data=", e

FOR B = 1 TO e

    PRINT "data ke="; B

    INPUT "NIP=", NIP$(B)

    INPUT "NAMA=", NM$(B)

    INPUT "JUMLAH ANAK=", JA(B)

    INPUT "JAM LEMBUR=", JL(B)

    INPUT "APAKAH ADA YANG SALAH=", T$

    IF T$ = "Y" OR T$ = "y" THEN

        GOTO MULAI:

    END IF

    10 IF LEFT$(NIP$(B), 2) = "01" THEN GOSUB 150

    IF LEFT$(NIP$(B), 2) = "02" THEN GOSUB 170

    IF LEFT$(NIP$(B), 2) = "03" THEN GOSUB 190

    IF LEFT$(NIP$(B), 2) = "04" THEN GOSUB 200

    IF LEFT$(NIP$(B), 2) = "05" THEN GOSUB 210

NEXT B

CLS

PRINT TAB(30); "PT JAYAABADI"

PRINT TAB(20); "DAFTAR GAJI PEGAWAI",

PRINT

PRINT "_____________________________________________________________________________________"

PRINT "NIP"; TAB(10); "NAMA"; TAB(20); "JABATAN"; TAB(40); "JUM ANAK";

PRINT TAB(50); "LEMBUR"; TAB(60); "GAJI BERSIH"

PRINT "________________________________________________________________________________"

FOR B = 1 TO e

    TA = 50000 * JA(B)

    GATOR = GAPOK(B) + LEMBUR(B) + TA

    PAJAK = GATOR * .1

    GASIH = GATOR - PAJAK

    PRINT NIP$(B); TAB(10); NM$(B); TAB(20); JABATAN$(B); TAB(40); JA(B); TAB(50); JL(B);      TAB(60); GASIH

    PRINT

NEXT B

PRINT "___________________________________________________________________________"

END

150:

JABATAN$(B) = "DIREKTUR"

GAPOK(B) = 2000000

LEMBUR(B) = 20000 * JL(B)

RETURN

170:

JABATAN$(B) = "MANAGER"

GAPOK(B) = 150000

LEMBUR(B) = 15000 * JL(B)

RETURN

190:

JABATAN$(B) = "SUPERVISOR"

GAPOK(B) = 1000000

LEMBUR(B) = 10000 * JL(B)

200:

JABATAN$(B) = "OPERATOR"

GAPOK(B) = 500000

LEMBUR(B) = 5000 * JL(B)

RETURN

210:

JABATAN$(B) = "CLEANING SERVICE"

GAPOK(B) = 300000

LEMBUR(B) = 3000 * JL(B)

RETURN

dari codding di atas akan di tampilkan output seperti ini:

saya memasukkan 3 data untuk input program di atas, maka akan muncu tampilan output seperti ini :

itulah contoh program yang saya buat menggunakan statement if then dan sub routine. memang masih kurang sempurna ouputnya karna saya masih beginner programers. copyright @ekarivky