Membuat Array dengan Looping Pada QBASIC

Sebelum membuat, perlu diketahui bahwa Array adalah  sekelompok data sejenis yang disimpan ke dalam variabel dengan nama yang sama, dengan memberi indeks pada variabel untuk membedakan antara yang satu dengan yang lain.

1. Untuk langkah pertama bukalah aplikasi QBASIC.

Maka akan muncul dengan tampilan seperti ini:

 Untuk menghasilkan seperti ini :

 2. Masukan perintah pada QBASIC  dengan perintah DIM dan nama-nama variabel. DIM digunakan untuk perintah mendeklarasikan variable. Dengan variable :

Nama = NAMA$
Gaji Pokok = GAPOK
Tunjangan = TUNJANGAN
Total Gaji = TOTALGAJI

Maka ditulis:

   3.Lalu masukan G = 1 untuk harga awal pada variable.

4. masukkan inputan dengan :

dalam imputan ini, untuk:

10 INPUT "Nama : ", NAMA$(G)     
INPUT "Gaji Pokok : ", GAPOK(G)
INPUT "Tunjangan : ", TUNJANGAN(G)

akan menghasilkan output

5. Untuk menghasilkan Total Gaji dengan memasukan :
TOTALGAJI(G) = GAPOK(G) + TUNJANGAN(G)

6. Pada pembuatan data ini terdapat 5 data maka kita tulis perintah IF G = 5 .Lalu jika sudah 5 data sudah selesai di outpukan maka, kita lanjut ke baris 20 dengan penulisan  IF G = 5 THEN 20 .
Dan untuk harga selanjutnya pada variabel ditulis dengan G = G + 1 . Jika belum sampai 5 data maka balik ke awal dengan penulisan GOTO 10 .

7. Jika sudah 5 data diselesaikan maka akan lanjut ke data baris 20 dengan memasukan perintah PRINT.
20 PRINT "Daftar Gaji Pegawai"
PRINT "Nama", "Total Gaji"
PRINT "---------------------------------------"

maka akan menghasilkan output :

8.  Lalu untuk hasil senlajutnya ditulis dengan:
FOR G = 1 TO  5
    PRINT NAMA$, TOTALGAJI(G)
NEXT G
END

Jadi pada untuk 5 data di tulis FOR G = 1 TO 5. untuk harga variable awal adalah 1, maka akan tercetak NAMA$, TOTALGAJI(G). untuk memsukan data akan dibahas setelah ini. Jika harga variable awal sudah masukkan maka NEXT G atau kembali ke G. yaitu dengan harga variable kedua. begitu seterusnya sampai ke harga variable terakhir yaitu 5. Jika sudah,maka diakhiri dengan perintah END.

9. Jika semua selesai maka akan muncul output seperti ini,dengan menekan f5. atau Run > Start pada QBASIC.

lalu isi Nama tersebut dengan "Taeyong" lalu enter. maka akan muncul output :

lalu isi Gaji Pokok dengan "6000000" lalu enter. maka akan muncul output selanjutnya :

lalu isi Tunjangan dengan "1200000". Maka akan keluar output selanjutnya yaitu Nama, Gaji Pokok, Tunjangan. dan seterusnya sampat 5 outputan data. untuk memasukan data yang saya masukan seperti ini :

jika sudah diisi semua maka akan keluar hasil output pada cara ke 5 dengan hasil seperti ini:

*Pada memasukan data pada hasil output bisa dengan Nama atau angka yang berbeda. sesuai dengan yang diminta untuk inputan data.