Info

SELAMAT DATANG

www.harissoekamti.blogspot.com

My Profil

My Name Is haris himawan

;

Kamis, 24 November 2011

PROGRAM QBASIC SELECT CASE





A. MEMBUAT PROGRAM MENU SELECT CASE

  1. Buka program Qbasic.exe
  2. Ketikkan Command dibawah ini :

CLS

PRINT "====MENU===="

PRINT "1. BIODATA"

PRINT "2. LUAS SEGITIGA"

PRINT "3. DERET"

PRINT "4. PROGRAM PENILAIAN"

PRINT "5. EXIT"

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

INPUT "MASUKKAN NOMOR PILIHAN (1-5) = ", A

PRINT

PRINT

SELECT CASE A

CASE 1

DIM B AS STRING

DIM C AS STRING

DIM D AS STRING

PRINT "1. BIODATA"

PRINT "----------"

INPUT "MASUKKAN NAMA = ", B

INPUT "MASUKKAN NPM = ", C

INPUT "MASUKKAN KELAS = ", D

PRINT "----------------------"

PRINT "NAMA SAYA : "; B, "NPM : "; C, "KELAS : "; D

CASE 2

DIM ALAS, TINGGI, LS AS INTEGER

PRINT "LUAS SEGITIGA"

PRINT "-------------"

INPUT "MASUKKAN NILAI ALAS = ", ALAS

INPUT "MASUKKAN NILAI TINGGI = ", TINGGI

LS = ALAS * TINGGI / 2

PRINT "-----------------"

PRINT "LUAS SEGITIGA = "; LS

CASE 3

PRINT "DERET"

PRINT "-----"

INPUT "MASUKKAN ANGKA = ", X

FOR Y = 1 TO X

FOR Z = 1 TO Y

PRINT Y,

NEXT Z

PRINT

NEXT Y

END

CASE 4

DIM NAMA AS STRING

DIM NPM AS STRING

DIM KELAS AS STRING

DIM N1, N2, TOTAL AS INTEGER

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

PRINT "PROGRAM PENILAIAN"

PRINT "-----------------"

PRINT

INPUT "MASUKKAN NAMA ANDA = ", NAMA

INPUT "MASUKKAN NPM ANDA = ", NPM

INPUT "MASUKKAN KELAS ANDA = ", KELAS

INPUT "MASUKKAN NILAI UTS = ", N1

INPUT "MASUKKAN NILAI UAS = ", N2

TOTAL = (N1 + N2) / 2

PRINT

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

PRINT "OUTPUT PROGRAM"

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

PRINT "NAMA MAHASISWA = "; NAMA

PRINT "NPM MAHASISWA = "; NPM

PRINT "KELAS MAHASISWA = "; KELAS

PRINT "TOTAL NILAI = "; TOTAL

PRINT

IF TOTAL >= 60 THEN

PRINT "ANDA LULUS"

ELSE

PRINT "ANDA GAGAL"

END IF

END

CASE 5

END

END SELECT

END

> Donload program di atas format.doc: 
> Donload Program di Atas Save Dari Qbasix.exe format .Bas

2 komentar:

Dwi Handaru mengatakan...

mantap agan yang satu ini

Dwi Handaru mengatakan...

mantap agan yang satu ini