Contoh Coodingan gaji pada qbasic

CLS

INPUT "BANYAK DATA"; N

CLS

FOR I = 1 TO N

PRINT "DATA KE-"; I

INPUT "NAMA PEGAWAI="; N$(I)

INPUT "JAM KERJA SEMINGGU"; J(I)

      

      

        IF J(I) <= 48 THEN

        G(I) = 312.5 * J(I)

      

        ELSEIF J(I) <= 65 THEN

        L(I) = J(I) - 48

        G(I) = 15000 + (L(I) * 500)

      

        ELSEIF J(I) > 65 AND J(I) <= 80 THEN

        GOSUB 10

      

        ELSEIF J(I) <= 100 THEN

        GOSUB 20

      

        ELSE

        GOSUB 30

        END IF

PRINT

NEXT I

CLS

LOCATE 3, 30

PRINT "PAYROLL PT.PRASETIYO SAKTI"

PRINT

LOCATE 4, 10

PRINT "==============================================================="

LOCATE 5, 10

PRINT " NO  NAMA KARYAWAN     JAM KERJA     JAM LEMBUR    JUMLAH GAJI "

LOCATE 6, 10

PRINT "==============================================================="

FOR I = 1 TO N

PRINT TAB(10); I; TAB(17); N$(I); TAB(35); J(I); TAB(50); L(I); TAB(61); "Rp "; G(I)

NEXT I

LOCATE 6 + I, 10

PRINT "==============================================================="

END

Anda sedang membaca artikel tentang Contoh Coodingan gaji pada qbasic dan anda bisa menemukan artikel Contoh Coodingan gaji pada qbasic ini dengan url http://clouddhia.blogspot.com/2012/11/contoh-coodingan-gaji-pada-qbasic.html,anda boleh menyebar luaskannya atau mengcopy paste-nya jika artikel Contoh Coodingan gaji pada qbasic ini sangat bermanfaat bagi teman-teman anda,namun jangan lupa untuk meletakkan link Contoh Coodingan gaji pada qbasic sumbernya.