CONTOH PROGRAM QBASIC MENGGUNAKAN IF

REKAP GAJI KARYAWAN 

 SCREEN SHOT SOURCE CODE :

 OUTPUT:

LISTING PROGRAM

DIM nama AS STRING
DIM nip AS STRING
DIM status AS INTEGER
DIM Jumlah anak AS INTEGER
DIM grade AS INTEGER
DIM Gaji pokok AS DOUBLE
DIM Tunjangan suami istri AS DOUBLE
DIM Tunjangan anak AS DOUBLE
DIM Tunjangan jabatan AS DOUBLE
DIM Tunjangan transportasi AS DOUBLE
DIM Uang makan AS DOUBLE
DIM Jumlah tunjangan AS DOUBLE
DIM Gaji kotor AS DOUBLE
DIM Taspen AS DOUBLE
DIM Asuransi AS DOUBLE
DIM Pajak AS DOUBLE
DIM Gaji bersih AS DOUBLE

CLS

INPUT "Masukkan Nama: ", nama
INPUT "Masukkan NIP: ", nip
INPUT "Masukkan Status(0=tidak kawin/1=kawin): ", status
IF status = 1 THEN
INPUT "Masukkan Jumlah Anak: ", jlhanak
END IF

INPUT "Masukkan grade: ", grade
SELECT CASE grade
   CASE 1
   Gaji Pokok = 5000000
   Tunjangan jabatan = 1000000
   Tunjangan transport = 1000000
   Uang makan = 150000
   IF status = 1 THEN
      Tunjangan suami istri = 1500000
   IF Jumlah anak > 3 THEN
   Tunjangan anak = 3 * 500000
   ELSE
   Tunjangan anak = Jumlah anak * 500000
   END IF
   END IF
   CASE 2
   Gaji pokok = 3500000
   Tunjangan jabatan = 700000
   Tunjangan transportasi = 175000
   Umakan = 105000
   IF status = 1 THEN
      Tunjangan suami istri = 1350000
   IF Jumlah anak > 3 THEN
   Tunjangan anak = 3 * 350000
   ELSE
   Tunjangan anak = Jumlah anak * 350000
   END IF
   END IF
  
   CASE 3
   Gaji pokok = 2500000
   Tunjangan jabatan = 500000
   Tunjangan transportasi = 125000
   Uang makan = 75000
   IF status = 1 THEN
      Tunjangan suami istri = 750000
   IF Jumlah anak > 3 THEN
   Tunjangan anak = 3 * 250000
   ELSE
   Tunjangan anak = Jumlah anak * 250000
   END IF
   END IF

   CASE 4
   Gaji pokok = 2000000
   Tunjangan jabatan = 400000
   Tunjangan transportasi = 100000
   Uang makan = 60000
   IF status = 1 THEN
      tunjangan suami istri = 600000
   IF Jumlah anak > 3 THEN
   Tunjangan anak = 3 * 200000
   ELSE
   Tunjangan anak = jumlah anak * 200000
   END IF
   END IF

   CASE 5
   Gaji pokok = 1000000
   Tunjangan jabatan = 200000
   Tunjangan transportasi = 50000
   Uang makan = 30000
   IF status = 1 THEN
      Tunjangan suami istri = 300000
   IF jlhanak > 3 THEN
   Tunjangan anak = 3 * 100000
   ELSE
   Tunjangan = Jumlah anak * 100000
   END IF
   END IF
 

END SELECT 

Jumlah tunjangan = Tunjangan suami istri + Tunjangan anak + Tunjangan transportasi + Uang makan
Gaji kotor = Gaji pokok + Jumlah tunjangan
Taspen = Gaji kotor * 5 / 100
Asuransi = Gaji kotor * 2 / 100
Pajak = Gaji kotor * 15 / 100
Gaji bersih = Gaji kotor - Taspen - Asuransi - PajakPRINT "Nama Pegawai                       : ", nama
PRINT "NIP                                        : ", nip
PRINT "Gaji Pokok                             : ", "Rp"; gapok
PRINT "Tunjangan Istri suami           : ", "Rp"; tunjisum
PRINT "Tunjangan Anak                    : ", "Rp"; tunjanak
PRINT "Tunjangan Jabatan               : ", "Rp"; tunjjbt
PRINT "Tunjangan Transport            : ", "Rp"; tunjtrans
PRINT "Tunjangan Uang Makan         : ", "Rp"; tunjumk
PRINT "Jumlah Tunjangan                : ", "Rp"; jlhtunj
PRINT "Gaji Kotor                             : ", "Rp"; gator
PRINT "Taspen                                 : ", "Rp"; taspen
PRINT "Asuransi                               : ", "Rp"; asuransi
PRINT "Pajak                                    : ", "Rp"; pajak
PRINT "Gaji Bersih                           : ", "Rp"; gabersih
END