Senin, 13 November 2017

QBasic : Cara Membuat Program Looping

            Pada postingan kali ini saya akan menjelaskan tentang cara membuat program looping, kita akan membuat program sebuah laporan "Daftar Gaji Pokok Pegawai" menggunakan QBasic yang akan menghasilkan Output seperti gambar dibawah ini :

Berikut adalah cara dalam membuat program diatas :

1. Pertama - tama buka aplikasi QBasic pad komputer kemudian ketikan file → new

2. Kemudian ketikan program pada Qbasic seperti gambar dibawah ini



3. Untuk penjelasan program diatas yang pertama kali kita lakukan yaitu mendeklarasikan variabel - variabelnya untuk setiap data dengan menggunakan perintah DIM, nama variabel yang digunakan bebas tapi untuk kali ini saya menggunakan variabel berikut :
            Nama = NAMA$
            Gaji Pokok = GAPOK
            Tunjangan = TUNJANGAN
            Total Gaji = TOTALGAJI
Data yang menggunakan $ adalah data string yang berarti data yang tidak dapat dilakukan operasi matematis

4. Setelah itu tuliskan K = 1 hal ini berfungsi untuk menetapkan harga awal variabel K yang akan digunakan untuk mengurutkan Data

5. Untuk memasukan input pada program, Ketiklah pada Qbasic INPUT "Nama =", NAMA$(K), hal ini bertujuan agar pada program kita dapat menginput data nama sesuai yang kita inginkan dan memasukannya pada variabel NAMA$ pada urutan ke K

6. Hal yang sama dilakuan untuk melakukan Input pada Gaji Poko Dan Tunjangan, yaitu dengan mengetikan, INPUT "Gaji Pokok =" GAPOK(K) dan INPUT "Tunjangan =" TUNJANGAN(K)

7.Total Gaji adalah hasil penjumlahan dari Gaji Pokok ditambahkan dengan Tunjangan, untuk itu dilakuakan perhitungan pada Qbasic dengan cara mengetikan TOTALGAJI(K) = GAPOK(K) + TUNJANGAN(K), untuk harga gaji ke K

8.Program yang akan kita buat hanya terdiri dari 5 data, jadi kita akan mengetikan K = K + 1, agar nilai K bertambah 1 pada setiap data, agar Input dapat berhenti pada data ke 5 diketikan IF K = 5 THEN 20, ini berfungsi agar jika K sudah mencapai angka 5 maka program akan melanjutkan ke baris 20

9. Kita akan mengetikan perintah GOTO 10 agar jika harga K belum mencapai 5 maka program akan kembali kebaris 10, dimana baris 10 kita tetapkan pada coding Input "Nama" untuk harga K yang berbeda

10. Jika harga K telah mencapai 5 maka program akan melanjutkan ke baris 20, dimana dalam baris 20 Ini kita tuliskan perintah mencetak dilayar yaotu PRINT "Daftar Gaji Pegawai" dan PRINT "NAMA", "TOTAL GAJI", penggunaan koma dimaksudkan untuk memberi tabulasi.

11. Ketikan PRINT "-------------------------------" yang bermaksud untuk mencetak garis pemisah pada layar

12. FOR K = 1 TO 5 dimaksudkan agar data dimulai dari harga K = 1 sampai harga K = 5, Sehingga ketika kita mealukan perintah cetak PRINT "NAMA$(K), TOTALGAJI(K), yang tercetak adalah input dari variabel NAMA$ dan TOTALGAJI untuk harga K=1 sampai 5

13. NEXT K diperuntukkan untuk perulangan sampai K mencapai 5 

14. Ketika program telah selesai, ketikan END untuk mengakhiri program pada Qbasic, Jalankan dengan menekan Shift + F5 pada Keyboard, kemudian Masukan Nama, Gaji Pokok, Dan Tunjangan sebanyak 5 data, 


         Output Yang Akan Keluar Kira - Kira Seperti Dibawah Ini :


       Begitulah Cara membuat program "Daftar Gaji Pegawai" dengan menggunakan teknik Looping, Semoga dapat dipahami, dan sampai jumpa pada tutorial selanjutnya.














Sistem Pakar