Contoh Program QB : Menentukan Kelulusan

Kali ini saya akan memberikan contoh program Quick Basic / QB dengan menggunkan instruksi IF-THEN, instruksi IF-THEN juga dibedakan menjadi dua, ada yang menggunkan syarat tunggal, dan ada pula yang menggunkan syarat majemuk / lebih dari satu.

• Contoh yang menggunakan IF-THEN syarat tunggal :

          Pernyataan :

          Jika Nilai lebih dari 6, maka statusnya lulus

          Program :

          IF Nilai > 6 THEN status = "LULUS"

          Aplikasi :

          REM menentukan kelulusan

          DIM Nilai as SINGLE

          INPUT " Masukkan Nilai : "; Nilai

          IF Nilai > 6 THEN

          PRUNT " LULUS "

          ELSE

          PRINT " TIDAK LULUS "

          END IF

          END

• Contoh yang menggunakan IF-THEN syarat majemukl :

          Pernyataan :

          Jika Nilai lebih dari 6 dan Kehadiran lebih dari 5, maka statusnya lulus

          Program :

          IF Nilai > 6 AND Kehadiran > 5 status = "LULUS"

          Aplikasi :

          REM menentukan kelulusan

          DIM Nilai as SINGLE

          DIM Kehadiran as SINGLE

          INPUT " Masukkan Nilai : "; Nilai

          INPUT " Masukkan Kehadiran : "; Kehadiran

          IF Nilai > 6 AND Kehadiran > 5 THEN

          PRINT " LULUS "

          ELSE

          PRINT " TIDAK LULUS "

          END IF

          END

Sekian, Semoga Bermanfaat .....