Membuat Aplikasi Penjumlahan dan Perkalian Matriks dengan VB 6.0

1. Buka aplikasi Microsoft Visual Basic 6.0

2. Setelah program terbuaka, pilih "Standard EXE" pada "New Project".

 3. Buatlah desain seperti di bawah ini atau sesuai dengan selara pembaca.

 4. Setelah mendesain, ganti tulisan :
Label1 : Perkalian dan Penjumlahan Matriks
Label2 : Masukan Bilangan Pertama
Label3 : Masukan Bilangan Kedua
Label4 : Hasil
Framme1 : Opsi
Option1 : Penjumlahan
Option2 : Perkalian
Command1 : Proses
Command2 : Ulang
Command3 : Keluar

Kemudian hilangkan tulisan Text1 sampai dengan Text12

5. Klik 2x pada "Proses", maka akan muncul tampilan sebagai berikut,

Isikan :
If Option1.Value = TrueThen
Text12.Text = Val(Text1.Text)+Val(Text8.Text)
Text11.Text=Val(Text2.Text)+Val(Text7.Text)
Text10.Text=Val(Text3.Text)+Val(Text6.Text)
Text9.Text=Val(Text4.Text)+Val(Text5.Text)
Else
Text12.Text=(Val(Text1.Text)*Val(Text8.Text))+(Val(Text2.Text)*Val(Text6.Text))
Text11.Text=(Val(Text1.Text)*Val(Text7.Text))+(Val(Text2.Text)*Val(Text5.Text))
Text10.Text=(Val(Text3.Text)*Val(Text8.Text))+(Val(Text4.Text)*Val(Text6.Text))
Text9.Text=(Val(Text3.Text)*Val(Text7.Text))+(Val(Text4.Text)*Val(Text5.Text))
 End If
Di antara Private Sub Command1_Click() dan End Sub.

 6. Klik 2x lagi pada "Ulang", isikan :
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     
Di antara Private Sub Command2_Click() dan End Sub.

7. Klik 2x lagi pada "Keluar" dan isikan "End" diantara Private Sub Command3_Click() dan End Sub.

 8. Untuk mencoba menjalankan aplikasi itu tekan saja F5.

Source : http://pasukanstemapal2011.blogspot.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Membuat Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.