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
