Program Array Pada Qbasic

A.PERINTAH ARRAY PADA QBASIC

Kali ini saya akan menjelaskan tentang Materi Array, pertama anda membuka applikasi qbasic dari

komputer andaTekan esc pada keyboard

Buat codingan seperti ini

CLS

DIM A (1 TO 4, 1991 TO 1994)

FOR B = 1 TO 4

FOR C = 1991 TO 1994

READ A(B, C)

NEXT C

NEXT B

INPUT  “KODE BARANG (1…4)                                    : “, B

INPUT  “TAHUN PENJUALAN (1991…1994)            :”, C

INPUT  “JUMLAH = “;  A(B, C)

END

DATA 2002,8013, 607, 9501

DATA 3, 10, 65, 20

DATA 2, 5, 33, 87521

DATA 4, 19, 12, 19285

Ketika sudah mengetik codingan tersebut, lalu tekan F5 atau klik run pada menubar

Disitu tertulis kode barang (1…4)               : lalu ketik di bagian layout tersebut  dari angka 1 sampai dengan 4, contoh  saya mengetik angka 3 pada bagian layout tersebut

Lalu tekan enter dan akan muncul perintah lagi tahun penjualan (1991…1994) :  ketik pada perintah tersebut  antara 1991 sampai dengan 1994, coontoh gambar dibawah ini saya menggunakan tahun 1992

Ketika sudah mengetik tahun lalu tekan enter lagi dan qbasic akan menghitung jumlah dari kode barang 3 dan tahun penjualan 1992

Jadi kesimpulannya

Dari codingan seperti ini

CLS

DIM A (1 TO 4, 1991 TO 1994)

FOR B = 1 TO 4

FOR C = 1991 TO 1994

READ A(B, C)

NEXT C

NEXT B

INPUT  “KODE BARANG (1…4)                                    : “, B

INPUT  “TAHUN PENJUALAN (1991…1994)            :”, C

INPUT  “JUMLAH = “;  A(B, C)

END

DATA 2002,8013, 607, 9501

DATA 3, 10, 65, 20

DATA 2, 5, 33, 87521

DATA 4, 19, 12, 19285

Jika anda mengetik kode barang 3 pada menu layout dan mengetik tahun penjualan 1992 akan menghasilkan jumlah 5 dari DATA yang telah di ketik pada codingan diatas

*Kode barang 3 pada bagian data ada pada BARIS KE 3

  Dan tahun penjualan 1992 hasilnya dapat dilihat pada  bagian data baris ke 3 sehabis DATA 2,

B. MEMBUAT PERINTAH MANIPULASI DATA PADA QBASIC “LEN,LEFT,MID,RIGHT”

Yang kedua saya akan membuat perintah manipulasi data yang ada pada qbasic tentang LEFT,MID,RIGHT

Masuk qbasic dan ketik codingan seperti ini

CLS

Y$ = “ABCDEFGHIJKLMNOPQRSTUVWXYZ”

A$ = MID$(Y$, 6, 5)

C$ = LEFT$(Y$, 6)

D$ = RIGHT$(Y$, 6)

PRINT “A$ = “; A$
PRINT “A$ = “; C$
PRINT “A$ = “; D$

END

Ketika sudah mengetik codingan seperti itu lalu tekan F5 atau klik run pada menubar

Kesimpulanya pada codingan seperti ini

CLS

Y$ = “ABCDEFGHIJKLMNOPQRSTUVWXYZ”

A$ = MID$(Y$, 6, 5)

C$ = LEFT$(Y$, 6)

D$ = RIGHT$(Y$, 6)

PRINT “A$ = “; A$
PRINT “A$ = “; C$
PRINT “A$ = “; D$

END

Bahwa Y$ = “ABCDEFGHIJKLMNOPQRSTUVWXYZ” Objek yang akan dihitung pada perintah manipulasi data

Dan A$ = MID$(Y$, 6, 5) Menghitung Y$ dari abjad KE 6 dan 5 huruf saja

Dan C$ = LEFT$(Y$,6) Menghitung Y$ dari abjad paling kiri yaitu A dan 6 huruf saja

Dan D$ = RIGHT$ (Y$,6) Menghitung Y$ dari abjad paling kanan berawal dari huruf U dan berakhir pada huruf Z yang total hurufnya 6

Dan yang terakhir membuat statement LEN pada QBasic

Langkah pertama yang harus anda lakukan buka qbasic dan tekan esc lalu ketik codingan seperti ini

CLS

PRINT “JUMLAH”; LEN (“INDONESIA PROGRAMER”)

Setelah mengetik codingan  tersebut di blue screen QBasic lalu tekan F5 atau klik run pada menubar

Layout  tersebut menunjukan Jumlah 19 yang artinya dari jumlah statement LEN yang baru saja dibuat PRINT “JUMLAH”; LEN (“INDONESIA PROGRAMER”)

Bahwa Len menghitung Jumlah huruf pada INDOENSIA PROGRAMER yaitu 19 abjad J

Posted in: QBASIC