Program Operasi Penjumlahan Pada Matriks

Makalah Analisa Algoritma (Implementasi Array) “Aplikasi Operasi Aritmatika Pada Matriks 2 X 2”

Menggunakan Microsoft Visual Basic 6.0 Muhammad Alala I. S, Roi Mei Andar, Bhima Hardyan Putra, Ahmad Syaifuddin

Jurusan S1 Teknik Informatika Fakultas Teknologi Informasi, Institut Teknologi Adhi Tama Surabaya Jl. Arief Rachman Hakim No. 100 Surabaya

1. Pendahuluan

Array dalam bahasa Indonesia adalah indeks, maka variabel array adalah variabel yang mempunyai indeks. Sehingga penulisannya adalah var(indeks). Array sangat penting di dalam pemrograman, karena array mampu menampung banyak data yang bertipe sama. Sebagai contoh variabel array x menampung nilai-nilai bilangan bulat {3, 6, 8, 7, 5, 1} berarti indeks untuk variabel x ini adalah 1 sampai dengan 6, dan ditulis sebagai x(1), x(2), x(3), x(4), x(5) dan x(6). Array dapat diibaratkan sebagai kereta api dalam komputer, yang di dalamnya tedapat gerbong-gerbong memory yang berisi data-data yang mempunyai tipe dan perlakuan yang sama. Untuk mengambil atau menampilkan nilai array dapat dianalogikan dengan mencari kursi dalam gerbong kereta api, maka pada karcis perlu dituliskan nomor gerbong, Array juga demikian, untuk menampilkan nilai array tinggal menyebutkan indeks-nya. Misalkan untuk menampilkan nilai variabel x yang ke 5 dituliskan dengan x(5). Untuk dapat membuat variabel array maka terlebih dahulu harus didefinisikan nama variabel array dan berapa jumlah maksimalnya dengan cara: Dim nama_variabel(jumlah_array) nama_variabel(jumlah_array) as Tipe_Data Perintah ini diletakkan sesuai kebutuhan apakah array ini hanya untuk subroutine (event) lokal atau pada seluruh event di form. Sebagai contoh untuk membuat array bilangan bulat yang dapat menampung 10 bilangan dapat dituliskan dengan: Dim bilangan(10) as integer

Bila jumlah array sudah ditentukan 10 maka tidak boleh menggunakan data lebih dari 10, karena 10 menyatakan jumlah maksimum dari data yang akan ditampung adalan suatu array. Sebagai contoh: Bilangan(4) = 100 ==> Perintah ini benar Bilangan(12) = 8 ==> Perintah ini salah karena batasnya sudah ditentukan ditentukan 10. 2. Perancangan Aplikasi

a. Flowchart

3. Hasil Implement I mplementasi asi

Interface yang diinginkan adalah sebagai berikut: a. Berikut Story Boardnya: Object

Property

Value

Label

Name

Label1

Caption

Operasi Aritmatika pada Matriks 2X2

Label

Name

Label2

Caption

Penjumlahan, Perkalian dan Menghitung Determinan

Label

Label

Label

Label

TexBox

Name

Label3

Caption

Matriks A

Name

Label4

Caption

Matriks B

Name

Label5

Caption

Hasil Perhitungan:

Name

Label6

Caption

Hasil Determinan (A+B):

Name

Text1

Heigt

615

Width

615

TexBox

TexBox

TexBox

TexBox

TexBox

TexBox

TexBox

TexBox

TexBox

TexBox

TexBox

Name

Text2

Heigt

615

Width

615

Name

Text3

Heigt

615

Width

615

Name

Text4

Heigt

615

Width

615

Name

Text5

Heigt

615

Width

615

Name

Text6

Heigt

615

Width

615

Name

Text7

Heigt

615

Width

615

Name

Text8

Heigt

615

Width

615

Name

Text9

Heigt

975

Width

975

Name

Text10

Heigt

975

Width

975

Name

Text11

Heigt

975

Width

975

Name

Text12

CommandButton

CommandButton

CommandButton

OptionButton

OptionButton

OptionButton

Form

Heigt

975

Width

975

Name

CmdHitung

Caption

Hitung

Name

CmdBersih

Caption

Bersihkan

Name

CmdKeluar

Caption

Keluar

Name

OptionKali

Caption

Perkalian

Name

OptionJumlah

Caption

Penjumlahan

Name

OptionDeterminan OptionDeterminan

Caption

Determinan

Name

Form1

Caption

Operasi Matriks

b. Kode Program pada CmdHitung:

Private Sub CmdHitung_Click()

If OptionJumlah.Value OptionJumlah.Value = True Then Text12.Text = Val(Text1.Text) + Val(Text8.Text) Text11.Text = Val(Text2.Text) + Val(Text7.Text) Text10.Text = Val(Text3.Text) + Val(Text6.Text) Text9.Text = Val(Text4.Text) + Val(Text5.Text) Val(Text5.Text)

ElseIf OptionDeterminan.Value = True Then Text13.Text = (Val(Text1.Text) * Val(Text4.Text) - Val(Text2.Text) * Val(Text3.Text)) + (Val(Text8.Text) * Val(Text5.Text)  Val(Text7.Te xt) * Val(Tex t6.Text))

Else Text12.Text = (Val(Text1.Text) * Val(Text8.Text)) + (Val(Text2.Text) * Val(Text6.Text)) Text11.Text = (Val(Text1.Text) * Val(Text7.Text)) + (Val(Text2.Text) * Val(Text5.Text)) Text10.Text = (Val(Text3.Text) * Val(Text8.Text)) + (Val(Text4.Text) * Val(Text6.Text)) Text9.Text = (Val(Text3.Text) * Val(Text7.Text)) + (Val(Text4.Text) * Val(Text5.Text))

End If End Sub

c. Kode Program pada CmdClear

Private Sub CmdClear_Click()

Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text9.Text = "" Text10.Text = "" Text11.Text = "" Text12.Text = "" Text13.Text = "" Text1.SetFocus

End Sub

d. Kode Program pada CmdKeluar

Private Sub CmdKeluar_Click()

End 

End Sub

e. Tampilan Pertama ketika Aplikasi Dijalankan

f.

Contoh Perhitungan Penjumlahan

g. Contoh Perhitungan Perkalian

h. Contoh Mencari Nilai Determinan

4. Daftar Pustaka

Dihimpun dari berbagai sumber.