Buka Program Qbasic
·
Kemudian masukan bahasa program Qbasic berikut :
CLS
INPUT "MASUKAN NAMA ANDA : ", nama$
a$ = LEFT$(nama$, 3)
b$ = RIGHT$(nama$, 8)
c$ = MID$(nama$, 4, 11)
d = LEN(nama$)
CLS
PRINT TAB(20); nama$
PRINT "TIGA HURUF DARI KIRI ADALAH :", a$
PRINT "DELAPAN HURUF DARI KANAN ADALAH :", b$
PRINT "TUJUH HURUF DARI POSISI KE EMPAT ADALAH :", c$
PRINT "PANJANG NAMA ANDA ADALAH :", d;
"KARAKTER"
END
- Fungsi
LEN : Digunakan untuk menghitung panjang dari suatu
ungkapan string
- Fungsi
LEFT$ : Digunakan
untuk mengambil sejumlah karakter dari mulai posisi paling kiri
- Fungsi
RIGHT$ : Digunakan untuk
mengambil sejumlah karakter dari mulai posisi paling kanan
- Fungsi
MID$ : Digunakan untuk mengambil sejumlah karakter
ditengah mulai
·
Kemudian tekan F5 / klik Start lalu RUN untuk
menjalankan program :
·
Berikut hasilnya :
CLS >>> Membersihkan Layar
INPUT "MASUKAN NAMA ANDA : ", nama$ >>> meminta data ke user untuk harga “nama$”
berupa string
a$ = LEFT$(nama$, 3) >>> mengambil sejumlah karakter 3 huruf dari kiri
b$ = RIGHT$(nama$, 8) >>> mengambil sejumlah karakter 8 huruf dari kanan
c$ = MID$(nama$, 4, 11) >>> mengambil sejumlah karakter dari huruf ke-4 sampai huruf ke-8
d = LEN(nama$) >>> menghitung
banyaknya karakter
CLS >>> Membersihkan
layar
PRINT TAB(20); nama$ >>> mencetak karakter “nama$”
PRINT "TIGA HURUF DARI KIRI ADALAH :", a$ >>> mencetak 3 huruf dari kiri
PRINT "DELAPAN HURUF DARI KANAN ADALAH :", b$ >>> mencetak 8 huruf dari kanan
PRINT "TUJUH HURUF DARI POSISI KE EMPAT ADALAH :", c$ >>>mencetak 7 huruf dari posisi ke-4
PRINT "PANJANG NAMA ANDA ADALAH :", d;
"KARAKTER" >>> mencetak
banyaknya karakter pada “nama$
END >>> Mengakhiri
program