arbip.blogspot.com

Untuk pertama buat program basic untuk case pertama

Contoh program basic input data:

‘program input data’

Cls

INPUT “masukan nama anda” ; nama$

INPUT “masukan npm anda” ; npm$

PRINT “nama anda anda adalah” ; nama$

PRINT “npm anda adalah” ; npm$

END

Lalu buat program basic yang untuk case yang kedua

Contoh program basic untuk menentukan bilangan ganjil atau genap:

‘program latihan basic’

CLS

PRINT “program untuk menentukan suatu bilangan ganjil atau genap”

PRINT “===========================================”

INPUT “masukan bilangan”; a

B= a MOD 2

IF B=0 THEN 5 ELSE 10

5 PRINT a; “adalah bilangan genap”

GOTO 20

10 PRINT a; “adalah bilangan ganjil”

20 END

kita coba dalam QB


contoh pada QB:

contoh menu pada Quick Basic untuk select case yang pertama















untuk select case yang kedua















hasil pada menu (case yang pertama)















hasil dari menu untuk case yang kedua