Assalamu'alaikum visitor kali ini saya ingin share beberapa kodingan dan hasil/output menggunakan qBasic
Semoga menyukai nya ya ^_^
Beberapa kata/Statement dalam kodingan qBasic yang mungkin kalian belum paham fungsi nya untuk apa:
1. Statement CLS
Fungsi dari statement CLS
Statement CLS merupakan statement yang paling sering digunakan dalam pembuatan program di Qbasic. Karena kegunaan Statement CLS ini digunakan untuk menghapus layar output yang sudah lama / output program sebelumnya agar output-output program tidak bertumpuk-tumpuk, Jadi Statement CLS kadang kala penggunaannya menjadi suatu keharusan.
2. Statement REM
Fungsi dari Statement REM
Statement REM digunakan hanya untuk memberi tahu kepada Visitor tentang program yang kita buat. walaupun Statement REM ini tidak mempengaruhi sebuah program tapi walaupun begitu Statement REM ini akan membantu memberi penjelasan tentang program yang kita buat kepada pemakai untuk memahami program.
3. Statement END
END untuk mengakhiri program / keluar dari program Q basic
4. Statement PRINT
Fungsi dari Statement PRINT
Statement PRINT, digunakan untuk menampilkan data pada layar tampilan/ layar output.
5. Statement LET
Fungsi dari Statement LET
Statement LET, merupakan salah satu statement input-output yang digunakan untuk memasukkan sebuah nilai atau harga ke dalam suatu variable. Harga suatu variable itu dapat berubah-ubah.
6. Statement INPUT
Fungsi dari Statement INPUT
Statement INPUT merupakan statement yang datanya bisa berubah sesuai kehendak pegguna pada saat program sedang berjalan dan nilainya pun dapat berubah-ubah sesuai dengan yang kita inginkan. Dengan statemen INPUT program dapat membaca data tipe numeris, dan atau string.
7. Statement FOR
Fungsi dari Statement FOR
Statement FOR FOR NEXT
Digunakan untuk mengontrol jalannya perulangan pada program, dimana statement tersebut akan mengalami perulangan selama kondisi atau pernyataan masih memenuhi syarat.
Bentuk Umumnya:
FOR(PENCACAH)=(AWAL) TO (AKHIR)
(STATEMENT)
NEXT (PENCACAH)
Ket.:
pencacah:Nama sembarang numeric
awal :nilai awal/batas bawah pencacah
akhir :nilai akhir/batas atas pencacah
Contoh pada program dibawah ini, dari FOR NEXT :
INPUT:
CLS
FOR i = 1 TO n(dari 1 ke n , maksud n disini jadi tak hingga data , gak dibatasi sampe 10 atau berapa pun itu)
PRINT i ;
NEXT i ;
END
8. Statement IF-THEN
Statement IF-THEN merupakan perintah yang digunakan untuk melakukan pengecekan suatu kondisi apabila kondisi tersebut dipenuhi. Perintah ini berhubungan erat dengan operasi logika dan dapat ditulis dalam dua bentuk yaitu if dengan satu baris perintah saja dan if dengan banyak baris perintah. If dengan satu baris perintah digunakan untuk melakukan pengecekan terhadap satu kondisi saja.
Fungsi dari statement CLS
Statement CLS merupakan statement yang paling sering digunakan dalam pembuatan program di Qbasic. Karena kegunaan Statement CLS ini digunakan untuk menghapus layar output yang sudah lama / output program sebelumnya agar output-output program tidak bertumpuk-tumpuk, Jadi Statement CLS kadang kala penggunaannya menjadi suatu keharusan.
2. Statement REM
Fungsi dari Statement REM
Statement REM digunakan hanya untuk memberi tahu kepada Visitor tentang program yang kita buat. walaupun Statement REM ini tidak mempengaruhi sebuah program tapi walaupun begitu Statement REM ini akan membantu memberi penjelasan tentang program yang kita buat kepada pemakai untuk memahami program.
3. Statement END
END untuk mengakhiri program / keluar dari program Q basic
4. Statement PRINT
Fungsi dari Statement PRINT
Statement PRINT, digunakan untuk menampilkan data pada layar tampilan/ layar output.
5. Statement LET
Fungsi dari Statement LET
Statement LET, merupakan salah satu statement input-output yang digunakan untuk memasukkan sebuah nilai atau harga ke dalam suatu variable. Harga suatu variable itu dapat berubah-ubah.
6. Statement INPUT
Fungsi dari Statement INPUT
Statement INPUT merupakan statement yang datanya bisa berubah sesuai kehendak pegguna pada saat program sedang berjalan dan nilainya pun dapat berubah-ubah sesuai dengan yang kita inginkan. Dengan statemen INPUT program dapat membaca data tipe numeris, dan atau string.
7. Statement FOR
Fungsi dari Statement FOR
Statement FOR FOR NEXT
Digunakan untuk mengontrol jalannya perulangan pada program, dimana statement tersebut akan mengalami perulangan selama kondisi atau pernyataan masih memenuhi syarat.
Bentuk Umumnya:
FOR(PENCACAH)=(AWAL) TO (AKHIR)
(STATEMENT)
NEXT (PENCACAH)
Ket.:
pencacah:Nama sembarang numeric
awal :nilai awal/batas bawah pencacah
akhir :nilai akhir/batas atas pencacah
Contoh pada program dibawah ini, dari FOR NEXT :
INPUT:
CLS
FOR i = 1 TO n(dari 1 ke n , maksud n disini jadi tak hingga data , gak dibatasi sampe 10 atau berapa pun itu)
PRINT i ;
NEXT i ;
END
8. Statement IF-THEN
Statement IF-THEN merupakan perintah yang digunakan untuk melakukan pengecekan suatu kondisi apabila kondisi tersebut dipenuhi. Perintah ini berhubungan erat dengan operasi logika dan dapat ditulis dalam dua bentuk yaitu if dengan satu baris perintah saja dan if dengan banyak baris perintah. If dengan satu baris perintah digunakan untuk melakukan pengecekan terhadap satu kondisi saja.
tapi mungkin kalian ingin lihat dulu syntax nya dalam qBasic
oke langsung masuk ke kodingan nya :
CLS
REM AKBAR GUNADI
REM SOAL NO 11
COLOR 2
PRINT
"++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
PRINT "
PENILAIAN PEGAWAI TERBAIK TAHUN 2017/2018 "
PRINT " PT PERTAMAX
INDO
"
PRINT
"++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
PRINT " A. PENILAIAN BERDASARKAN 3 ,YAITU: "
PRINT " 1. PROYEK YANG BERHASIL DIMENANGKAN "
PRINT " 2. CLIENT YANG BERHASIL DIMASUKKAN KEDALAM
PERUSAHAAN"
PRINT " 3. PRODUK YANG DIHASILKAN "
PRINT
"++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
INPUT " MASUKKAN JUMLAH DATA YANG DIINGINKAN : ",
n
PRINT
"++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
FOR J = 1 TO n
PRINT " DATA
KE "; J
INPUT " NAMA
PEGAWAI : ", A$(J)
INPUT " NO
UNIT KERJA : ", B$(J)
INPUT "
KELOMPOK KERJA : ", C$(J)
PRINT
INPUT "
JUMLAH PROYEK YANG BERHASIL DIMENANGKAN = ", D(J)
INPUT "
JUMLAH CLIENT YANG BERHASIL DIMASUKAN KEDALAM PERUSAHAAN = ", F(J)
INPUT "
JUMLAH PRODUK YANG DIHASILKAN = ", G(J)
PRINT
"++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
NEXT J
FOR J = 1 TO n
LET H = D(J) * 3
LET I = F(J) * 2
LET K = G(J) * 1
LET L = H + I + K
PRINT
"+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
PRINT "
BAPAK/IBU YANG BERNAMA "; A$(J); " DENGAN NO UNIT KERJA ";
B$(J); " DAN KELOMPOK KERJA "; C$(J)
IF L >= 90 THEN
PRINT "
SELAMAT ANDA PEGAWAI TERBAIK PERTAMA "
ELSEIF L > 30
THEN
PRINT "
SELAMAT ANDA PEGAWAI TERBAIK KEDUA "
ELSEIF L < 30
THEN
PRINT "
MAAF ANDA TIDAK TERMASUK KEDALAM PEGAWAI TERBAIK "
END IF
PRINT
"++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
NEXT J
PRINT
PRINT
PRINT
PRINT
INPUT " LANJUT MELIHAT TABEL ? (Y/N) = ", Q$
CLS
PRINT
"================================================================================"
PRINT " DATA HASIL PENILAIAN
PEGAWAI TERBAIK 2017/2018"
PRINT " PT PERTAMAX
INDO"
PRINT
"================================================================================"
PRINT " NO |
NAMA | NO UNIT |
KELOMPOK | PRY | CLI
| PRD
| KUM |"
PRINT
"--------------------------------------------------------------------------------"
FOR J = 1 TO n
LET H = D(J) * 3
LET I = F(J) * 2
LET K = G(J) * 1
LET L = H + I + K
IF L > 90 THEN
PRINT
ELSEIF L > 30
THEN
PRINT
ELSEIF L < 30
THEN
PRINT
END IF
PRINT TAB(1); J;
TAB(9); A$(J); TAB(24); B$(J); TAB(35); C$(J); TAB(44); D(J); TAB(53); F(J);
TAB(61); G(J); TAB(73); (L);
NEXT J
PRINT
"--------------------------------------------------------------------------------"
PRINT
PRINT
PRINT " KETERANGAN KRITERIA PEGAWAI : "
PRINT " 1. SETIAP PROYEK YANG BERHASIL DIMENANGKAN = 3
"
PRINT " 2. SETIAP CLIENT YANG BERHASIL DIMASUKKAN
KEDALAM PERUSAHAAN = 2"
PRINT " 3. SETIAP PRODUK YANG DIHASILKAN = 1"
PRINT " DIMANA "
PRINT " JIKA KUM>=90 MAKA ANDA TERMASUK KEDALAM
PEGAWAI TERBAIK PERTAMA "
PRINT " JIKA KUM >30 MAKA ANDA TERMASUK KEDALAM
PEGAWAI TERBAIK KEDUA"
PRINT " JIKA KUM <30 MAAF ADA TIDAK TERMASUK KEDALAM
PEGAWAI TERBAIK"
sekarang kita masuk output atau hasilnya y dan untuk menampilkannya kalian bisa tekan F5 :
pada screenshot output/hasil diatas kalian bisa lihat disitu ada tulisan " MASUKKAN JUMLAH DATA YANG DIINGINKAN" nah ini maksud nya agar kita bisa membatasi data pegawai pada program diatas , untuk kodingan nya yang ini :
INPUT " MASUKKAN JUMLAH DATA YANG DIINGINKAN : ", n
nah setelah itu saya memasukkan data pegawai nya 3
pada kalimat " LANJUT MELIHAT TABEL ? (Y/N) = " ini sebenarnya tidak harus tekan y atau n
tombol yang mana saja program tetap akan lanjut ke tahap berikut nya
tambahan untuk kalian yang ingin mengganti warna dari kata/kalimat dikodingan nya
lihat kan ada COLOR 2
nah klian bisa ganti warna apa saja
1 : biru
2 : hijau
3 : biru
4 : merah
5 : pink
6 : kuning
7 : putih
8 : hijau
9 : ungu
10 dan seterus nya kalian coba sendiri y ^_^
OKE TERIMA KASIH SUDAH MENGUNJUNGI DAN MEMBACA BLOG SAYA
nah klian bisa ganti warna apa saja
1 : biru
2 : hijau
3 : biru
4 : merah
5 : pink
6 : kuning
7 : putih
8 : hijau
9 : ungu
10 dan seterus nya kalian coba sendiri y ^_^
OKE TERIMA KASIH SUDAH MENGUNJUNGI DAN MEMBACA BLOG SAYA
Komentar
Posting Komentar