Program determinan perkalian dan penjumlahan matriks (ordo 2 x 2) pada visual basic dapat dilakukan dengan mengikuti langkah-langkah berikut:
  1. Buat Project baru menggunakan Standard EXE.
  2. Tambahkan komponen-komponen: 5 label, 13 textbox, 3 commandbutton, dan 3 optionbutton.
  3. Aturlah letak dan posisi komponen-komponen tersebut seperti gambar berikut:
  4. Sekarang kita mengatur properti dari masing-masing komponen. Pertama kita mengatur properti dari label. Klik Label1, isi properti [Caption] dengan PROGRAM DETERMINAN PERKALIAN DAN PENJUMLAHAN MATRIKS. Klik Label2, isi properti [Caption] dengan Masukkan Nilai Matriks A, klik Label3, isi properti [Caption] dengan Masukkan Nilai Matriks B, klik Label4, isi properti [Caption] dengan Hasil Matriks, seterusnya klik Label5, isi properti Caption dengan Determinan Hasil Matriks.
  5. Properti komponen yang kita atur seterusnya adalah textbox. Klik Text1 kemudian kosongkan properti [Text]. Lakukan langkah ini hingga Text13.
  6. Selanjutnya properti commandbutton. Klik Command1, isi properti [Caption] dengan Proses, klik Command2, isi properti [Caption] dengan Bersihkan, kemudian klik Command3, isi properti [Caption] dengan Keluar.
  7. Properti terakhir yang kita atur adalah properti optionbutton. Klik Option1, isi properti [Caption] dengan Perkalian, klik Option2, isi properti [Caption] dengan Penjumlahan, klik Option3, isi properti [Caption] dengan Determinan.
  8. Setelah semua properti dari masing-masing komponen kita atur maka tampilannya seperti gambar berikut:
  9. Selanjutnya ketiklah kode program berikut:
  10. Private Sub Command1_Click()
    a11 = Val(Text1.Text)
    a12 = Val(Text2.Text)
    a21 = Val(Text3.Text)
    a22 = Val(Text4.Text)
    b11 = Val(Text5.Text)
    b12 = Val(Text6.Text)
    b21 = Val(Text7.Text)
    b22 = Val(Text8.Text)
    If Option1.Value = True Then
    Text9.Text = (a11 * b11) + (a12 * b21)
    Text10.Text = (a11 * b12) + (a12 * b22)
    Text11.Text = (a21 * b11) + (a22 * b21)
    Text12.Text = (a21 * b12) + (a22 * b22)
    ElseIf Option2.Value = True Then
    Text9.Text = a11 + b11
    Text10.Text = a12 + b12
    Text11.Text = a21 + b21
    Text12.Text = a22 + b22
    Else
    Text13.Text = (Text9.Text * Text12.Text)-(Text10.Text * Text11.Text)
    End If
    End Sub

    Private Sub Command2_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

    Private Sub Command3_Click()
    End
    End Sub

  11. Setelah kode programnya selesai diketik, sekarang simpan kemudian jalankan dan masukkan nilai matriks A dan B. Berikut Sreenshootnya: