Sub program adalah bagian dari program yang ditulis terpisah dari
program utama. Berbeda
dengan fungsi sub program tidak mengembalikan nilai keluaran. Sub
program sangat berguna
untuk menghindari penulisan barisan statement / instruksi yang
berulang-ulang. Sub program
ini biasa juga disebut sebagai prosedur. Sama dengan fungsi dalam
QBASIC sub program
ditulis secara terpisah dari modul utama. Untuk berpindah-pindah
modul tekan tombol F2.
Pembuatan sub program ditulis setelah statement SUB dan diakhiri
dengan END SUB.
Bentuk umum penulisan SUB :
SUB nama_sub
[(parameter)]
[blok statement]
END SUB
Di dalam sub program kita bisa juga mendeklarasikan variabel baru,
tetapi bersifat lokal tidak
bisa diakses dari modul utama. Pemanggilan nama sub program di
dalam modul utama
meyebabkan setiap statement dalam blok statement dalam sub program
akan dilaksanakan.
Contoh program :
DIM pil AS INTEGER
CLS
LOCATE 5, 15
PRINT "< Menu Utama >"
LOCATE 6, 15
PRINT "1. Menu Pertama"
LOCATE 7, 15
PRINT "2. Menu Kedua"
LOCATE 8, 15
PRINT "3. Menu Ketiga"
LOCATE 9,15
INPUT "Pilihan Anda > "; pil
SELECT CASE pil
CASE 1
Satu
CASE 2
Page
59
Dua
CASE 3
Tiga
ELSE CASE
PRINT "Pilihan Anda Ngawur !"
END SELECT
END
SUB Satu
PRINT "ANDA MEMILIH MENU PERTAMA"
END SUB
SUB Dua
PRINT "ANDA MEMILIH MENU KEDUA"
END SUB
SUB Tiga
PRINT "ANDA MEMILIH MENU KETIGA"
END SUB
Output program :
< Menu Utama >
1. Menu Pertama
2. Menu Kedua
3. Menu Ketiga
Pilihan Anda > 3
ANDA MEMILIH MENU PERTAMA
Jika memasukan pilihan selain ketiga nomor tersebut akan tercetak
kalimat :
Pilihan Anda Ngawur !
0 komentar:
Posting Komentar