Membuat Program Case Biodata, Bilangan Ganjil Genap, Piramid, Manipulasi Data, Exit
1. Membuat Case 1. Biodata
1. Buka terlebih dahulu program Qbasicnya
2. Ketikan Script Seperti ini
Keterangan :
- DIM A AS INTEGER : maksudnya adalah variabel A bersifat INTEGER atau angka
- CLS : berfungsi agar pada saat di Print tidak terjadi pengulangan Kata
yang mengakibatkan hasil print bertumpuk dengan hasil print
sebelumnya.
- PRINT : berfungsi untuk menampilkan kata yg ingin dibuat pada saat program
dijalankan, contohnya PRINT “MENU” berarti kita akan menampilkan
kata MENU
- INPUT “PILIH MENU :”, A : maksudnya adalah pada saat program dijalankan kita disuruh
memilih Menu case mana yang ingin dijalankan dengan
memasukan nomer angka case
- DIM A AS INTEGER : maksudnya adalah variabel A bersifat INTEGER atau angka
- CLS : berfungsi agar pada saat di Print tidak terjadi pengulangan Kata
yang mengakibatkan hasil print bertumpuk dengan hasil print
sebelumnya.
- PRINT : berfungsi untuk menampilkan kata yg ingin dibuat pada saat program
dijalankan, contohnya PRINT “MENU” berarti kita akan menampilkan
kata MENU
- INPUT “PILIH MENU :”, A : maksudnya adalah pada saat program dijalankan kita disuruh
memilih Menu case mana yang ingin dijalankan dengan
memasukan nomer angka case
- STRING : maksudnya bersifat angka dan huruf
contohnya, DIM NAMA AS STRING,
maksudnya nama bisa diisini angka dan huruf, begitu juga dengan NPM, Kelas,
dan Grade
- INTEGER : maksudnya bersifat angka contohnya, DIM UAS AS INTEGER, maksudnya
Nilai UAS bersifat Angka, begitu juga dengan Nilai UTS.
maksudnya nama bisa diisini angka dan huruf, begitu juga dengan NPM, Kelas,
dan Grade
- INTEGER : maksudnya bersifat angka contohnya, DIM UAS AS INTEGER, maksudnya
Nilai UAS bersifat Angka, begitu juga dengan Nilai UTS.
- LET G = (UAS +
UTS) / 2 maksudnya adalah rumus dari Grade Nilai UAS + Nilai UTS
dan dibagi 2, yang kemudian akan menghasilkan Grade berupa huruf A, B, C, D, dan E
sesuai Total nilainya.
- IF G > 90 THEN
GRADE$ “A”
maksudnya jika total nilai (variabel G) lebih besar dari 90 akan menghasilkan Grade A,
begitu seterusnya
- IF UCASE$(cobalagi$) = “Y” THEN
GOTO ulangilagi maksudnya adalah, ketika kita sudah menjalankan suatu case atau menu,
kita akan diminta untuk mengulanginnya lagi atau selesai.
dan dibagi 2, yang kemudian akan menghasilkan Grade berupa huruf A, B, C, D, dan E
sesuai Total nilainya.
- IF G > 90 THEN
GRADE$ “A”
maksudnya jika total nilai (variabel G) lebih besar dari 90 akan menghasilkan Grade A,
begitu seterusnya
- IF UCASE$(cobalagi$) = “Y” THEN
GOTO ulangilagi maksudnya adalah, ketika kita sudah menjalankan suatu case atau menu,
kita akan diminta untuk mengulanginnya lagi atau selesai.
Keterangan :
- INPUT “MASUKKAN BILANGAN:”, BIL maksudnya adalah pada saat program
dijalankan dan memilih case 2 maka ada kata-kata MASUKAN BILANGAN
- IF BIL = 0 THEN
PRINT “BILANGAN NOL” maksudnya adalah jika bilangan yang kita masukan 0 maka
akan keluar kata kata NOL
- ELSEIF BIL MOD 2 = 0 THEN
PRINT “BILANGAN GENAP” maksudnya adalah kecuali jika bilangan yang dimasukkan
habis dibagi 2 maka akan keluar kata kata BILANGAN GENAP
- ELSE
PRINT “BILANGAN GANJIL” maksudnya tapi jika bilangan sebaliknya (tidak habis
dibagi 2 maka kata kata yang keluar BILANGAN GANJIL
- INPUT “MASUKKAN BILANGAN:”, BIL maksudnya adalah pada saat program
dijalankan dan memilih case 2 maka ada kata-kata MASUKAN BILANGAN
- IF BIL = 0 THEN
PRINT “BILANGAN NOL” maksudnya adalah jika bilangan yang kita masukan 0 maka
akan keluar kata kata NOL
- ELSEIF BIL MOD 2 = 0 THEN
PRINT “BILANGAN GENAP” maksudnya adalah kecuali jika bilangan yang dimasukkan
habis dibagi 2 maka akan keluar kata kata BILANGAN GENAP
- ELSE
PRINT “BILANGAN GANJIL” maksudnya tapi jika bilangan sebaliknya (tidak habis
dibagi 2 maka kata kata yang keluar BILANGAN GANJIL
Keterangan :
- INPUT “MASUKKAN BILANGAN:”, B maksudnya kita disuruh memasukan bilangan, dan disini
menggunakan variabel B
- B = B
U = B
FOR I = 1 TO B
PRINT TAB(U); maksudnya adalah PRINT TAB(U); untuk membuat kumpulan angka
berbentuk sebuah piramid
- dan END adalah sebuah perintah untuk mengakhiri sebuah program
- INPUT “MASUKKAN BILANGAN:”, B maksudnya kita disuruh memasukan bilangan, dan disini
menggunakan variabel B
- B = B
U = B
FOR I = 1 TO B
PRINT TAB(U); maksudnya adalah PRINT TAB(U); untuk membuat kumpulan angka
berbentuk sebuah piramid
- dan END adalah sebuah perintah untuk mengakhiri sebuah program
Keterangan
:
- INPUT “MASUKKAN NAMA ANDA:”, S$
Maksudnya adalah pada saat program dijalankan pertama kali maka kita diminta untuk
memasukan NAMA sesuai keinginan
- LET J$ = LEFT$(S$, 5)
LET K$ = RIGHT$(S$, 5)
LET L$ = MID$(S$, 4 ,8)
LET M = LEN (S$)
Maksudnya adalah
- variabel J$ akan menghasilkan 5 huruf (karakter) dari sebelah kiri pada nama yang
diinput
- variabel K$ akan menghasilkan 5 huruf (karakter ) dari sebelah kanan pada nama yang
diinput
- variabel L$ akan menghasilkan 8 huruf (karakter) dari posisi ke empat pada nama yang
diinput
- variabel M akan menghitung jumlah karakter pada nama yang diinput
- PRINT “5 HURUF DARI KIRI ADALAH :”, R$
PRINT “5 HURUF DARI KANAN ADALAH :”, S$
PRINT “8 HURUF DARI POSISI KE EMPAT :”, T$
PRINT “PANJANG NAMA ANDA ADALAH :”, M
END
- INPUT “MASUKKAN NAMA ANDA:”, S$
Maksudnya adalah pada saat program dijalankan pertama kali maka kita diminta untuk
memasukan NAMA sesuai keinginan
- LET J$ = LEFT$(S$, 5)
LET K$ = RIGHT$(S$, 5)
LET L$ = MID$(S$, 4 ,8)
LET M = LEN (S$)
Maksudnya adalah
- variabel J$ akan menghasilkan 5 huruf (karakter) dari sebelah kiri pada nama yang
diinput
- variabel K$ akan menghasilkan 5 huruf (karakter ) dari sebelah kanan pada nama yang
diinput
- variabel L$ akan menghasilkan 8 huruf (karakter) dari posisi ke empat pada nama yang
diinput
- variabel M akan menghitung jumlah karakter pada nama yang diinput
- PRINT “5 HURUF DARI KIRI ADALAH :”, R$
PRINT “5 HURUF DARI KANAN ADALAH :”, S$
PRINT “8 HURUF DARI POSISI KE EMPAT :”, T$
PRINT “PANJANG NAMA ANDA ADALAH :”, M
END
Maksudnya adalah pada saat program dijalankan
maka akan menampilkan kata-kata seperti
ini :
5 HURUF DARI KIRI ADALAH : hasil dari variabel J
ini :
5 HURUF DARI KIRI ADALAH : hasil dari variabel J
5 HURUF DARI KANAN ADALAH : hasil dari
variabel K
8 HURUF DARI POSISI KE EMPAT : hasil dari
variabel L
PANJANG NAMA ANDA ADALAH : hasil dari
variabel M
-
PRINT “SEE YOU” maksudnya adalah jika kita memilih case 5 akan keluar kata kata
SEE YOU
- END SELECT maksudnya adalah untuk mengakhiri perintah CASE
- END SELECT maksudnya adalah untuk mengakhiri perintah CASE
6. Dan jalankan
Case satu persatu, maka hasilnya akan seperti ini :
CASE 1. BIODATA
CASE 2. BILANGAN GANJIL GENAP
CASE 3. PIRAMID
CASE 4. MANIPULASI DATA
CASE 5. EXIT