Program Determinan Perkalian Dan Penjumlahan Matriks

Program determinan perkalian dan penjumlahan matriks (ordo 2 x 2) pada visual basic sanggup dijalankan dengan mengikuti tindakan 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 seumpama gambar berikut:
   
   
   


4. Sekarang kita menertibkan properti dari masing-masing komponen. Pertama kita menertibkan 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 unsur yang kita atur seterusnya yakni textbox. Klik Text1 lalu kosongkan properti [Text]. Lakukan langkah ini sampai Text13.


6. Selanjutnya properti commandbutton. Klik Command1, isi properti [Caption] dengan Proses, klik Command2, isi properti [Caption] dengan Bersihkan, lalu klik Command3, isi properti [Caption] dengan Keluar.


7. Properti terakhir yang kita atur yakni 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 unsur kita atur maka tampilannya seumpama gambar berikut:
   
   
   


9. Selanjutnya ketiklah aba-aba kegiatan berikut:
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


10. Setelah aba-aba programnya selesai diketik, kini simpan lalu laksanakan dan masukkan nilai matriks A dan B. Berikut Sreenshootnya:
    
    
    
    
    
    

Demikian bimbingan menghasilkan program determinan perkalian dan penjumlahan matriks, biar bermanfaat. Teman-teman juga sanggup baca bimbingan visual basic yang lain Contoh Pembuatan Program Form Pembayaran Uang Listrik dengan VB 2008.