Program Operasi Matriks Visual Basic

Matriks merupakan sebuah bilangan yang terdiri dari Baris dan Kolom, dimana Baris dan Kolom ini mempunyai sebuah bilangan bulat, Sama menyerupai bilangan lainya. Sebuah matriks dapat kita operasikan dengan matriks lainya dengan syarat mempunyai ordo (Jumlah Baris x Jumlah Kolom) yang sama. (lebih jelasnya silahkan buka lagi pelajaran Matematika kalian). Berdasarkan siftat dan operasi matriks, kali ini kita akan menciptakan sebuah kegiatan Operasi matriks dengan ordo 2x2 atau matriks yang terdiri dari 2 baris dan 2 Kolom, adapun oprerasi matriks yang akan kita buat :

- Penjumlahan / Menjumlahkan Matriks

- Pengurangan / Mengurangi Matriks

- Perkalian / Mengalikan Matriks

Baiklah berikut tutorialnya :

1. Pertama buka terlebih dahulu VB dengan project Standar EXE,

2. Tambahkan 4 Label, 12 Text Box, 1 Combo Box, 3 Command Button

3. Atur Propertiesnya menyerupai ini

Tool Box	Properties	Keterangan
Text 1 - 12	Text	(Kosong)
Text 9 - 12	Enabled	FALSE
Command1	Caption	=
Command2	Caption	RESET
Command3	Caption	END
Combo1	Text	(Kosong)
Semua Tool Box	Font Size	12

4. Tuliskan script berikut :

Sub bersih()
Text9 = ""
Text10 = ""
Text11 = ""
Text12 = ""
End Sub

Private Sub Command1_click()
'Pesan Jika text 1 hingga text8 kosong
If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Or Text5 = "" Or Text6 = "" Or Text7 = "" Or Text8 = "" Or Combo1.Text = "" Then
MsgBox "Please, Complete The Form !", vbInformation, "BLUES PEDIA"
Else

'Operasi Penjumlahan Matriks
If Combo1.Text = "+" Then
Call bersih
Text9 = Val(Text1) + Val(Text5)
Text10 = Val(Text2) + Val(Text6)
Text11 = Val(Text3) + Val(Text7)
Text12 = Val(Text4) + Val(Text8)

'Operasi Pengurangan Matriks
ElseIf Combo1.Text = "-" Then
Call bersih
Text9 = Val(Text1) - Val(Text5)
Text10 = Val(Text2) - Val(Text6)
Text11 = Val(Text3) - Val(Text7)
Text12 = Val(Text4) - Val(Text8)

'Operasi Perkalian Matriks
ElseIf Combo1.Text = "X" Then
Call bersih
Text9 = Val(Text1) * Val(Text5) + Val(Text1) * Val(Text6)
Text10 = Val(Text2) * Val(Text5) + Val(Text2) * Val(Text6)
Text11 = Val(Text3) * Val(Text7) + Val(Text3) * Val(Text8)
Text12 = Val(Text4) * Val(Text7) + Val(Text4) * Val(Text8)
End If
End If
End Sub

Private Sub Command2_click()
'Mengkosongkan Semua Text Box
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
'Menambahkan item di combo box
Combo1.AddItem "+"
Combo1.AddItem "-"
Combo1.AddItem "X"
End Sub

5. Jalankan Program