Program Operasi Matriks Visual Basic

Matriks merupakan sebuah bilangan yang terdiri dari Baris dan Kolom, dimana Baris dan Kolom ini memiliki sebuah bilangan bulat, Sama seperti bilangan lainya. Sebuah matriks bisa kita operasikan dengan matriks lainya dengan syarat memiliki 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 membuat sebuah program 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 seperti 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 sampai 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

Isi semua textbox terlebih dulu, jika sudah terisi semua maka klik "=", sehingga text 9 - text 12 akan berisi hasil dari operasi ke 2 matriks, 

Sekian tutorial kali ini semoga bermanfaat