Menentukan Invers, Transpose, Determinan Matriks Vb

Pada tutorial visual basic arirmatika kali ini kita akan menciptakan aktivitas operasi matriks di mana kita akan memilih Invers, Determinan, dan Transpose sebuah Matriks, sekilas mengenai operasi matriks ini, berikut rumus operasi matriks :

Matriks A =     ( a     b )
                         ( c     d )

Transpose Matriks A (A Pangkat T)
( a     c )
( b     d )

Determinan Matriks A (det(A) = |A|)
|A| = a x d - b x c

Invers Matriks A (A Pangkat -1)
1 / |A| = (d     -b)
              (-c     a)

Dari rumus tersebut akan kita gunakan untuk perhitungan VB, berikut tutorialnya :
1. Jalankan Visual Basic dengan project Standar Exe
2. Tambahkan 5 label, 8 text box, 1 command button, dan 1 combo box,
tempatkan label 5 di belakang text 5, 6, 7 dan text 8, kemudian atur propertisnya sehingga ibarat ini :

Tool BoxPropertiesKeterangan
Form 1Star Up PositionsCenter Screen
Label 1Caption OPERATION MATRIKS PROGRAM
Label 2Operation
Label 3Matriks Value
Label 4Determinan
Label 500
Text 1
Text 2
Text 3
Text 4
Text 5
Text 6
Text 7
Text 8
Text(Kosong)
Text 5
Text 6
Text 7
Text 8
EnabledFalse
Combo 1Text(Kosong)
Command 1CaptionRESULT
AllFont Size10

3. Jika sudah tuliskan script berikut :
Sub Bersih()
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
End Sub

Private Sub Combo1_Click()
If Combo1.Text = "Determinan" Then
Text5.Visible = False
Text6.Visible = False
Text7.Visible = False
Text8.Visible = False
Label4.Caption = "Determinan"
Label5.Visible = True

ElseIf Combo1.Text = "Invers" Then
Text5.Visible = True
Text6.Visible = True
Text7.Visible = True
Text8.Visible = True
Label4.Caption = "Invers"
Label5.Visible = False

ElseIf Combo1.Text = "Transpose" Then
Text5.Visible = True
Text6.Visible = True
Text7.Visible = True
Text8.Visible = True
Label4.Caption = "Transpose"
Label5.Visible = False
End If
End Sub

Private Sub Command1_Click()
If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Or Combo1 = "" Then
MsgBox "Isi data dengan lengkap", vbInformation, "BLUES PEDIA"
Else
    Det = (Val(Text1) * Val(Text4)) - (Val(Text2) * Val(Text3))
    If Combo1.Text = "Determinan" Then
    Call Bersih
    Label5 = Det

    ElseIf Combo1.Text = "Invers" Then
    Call Bersih
    Text5 = Val(Text4) & "/" & Det
    Text6 = Val(Text2) * -1 & "/" & Det
    Text7 = Val(Text3) * -1 & "/" & Det
    Text8 = Val(Text1) & "/" & Det


    ElseIf Combo1.Text = "Transpose" Then
    Call Bersih
    Text5 = Val(Text1)
    Text6 = Val(Text3)
    Text7 = Val(Text2)
    Text8 = Val(Text4)
    End If
End If

End Sub
Private Sub Form_Load()
Combo1.AddItem "Determinan"
Combo1.AddItem "Invers"
Combo1.AddItem "Transpose"
End Sub
4. Lalu Jalankan Program

cara Penggunaan :
- Pilih Operasi matriks yang ingin di ketahui nilainya
- Tuliskan nilai dari posisi matriks di kolom text 1, 2, 3 dan text 4,
- Jika sudah Klik Result, maka otomatis kolom text 5, 6, 7 dan text 8, akan berisi nilai dari operasi matriks yang di minta

Sekian tutorial kali ini biar bermanfaat

Comments