PERHITUNGAN MATRIKS MENGGUNAKAN VISUAL BASIC

Kamis, 30 Juni 2016 | Mustofa Fifteen
di 08.26 | Label: Judul Essai

PERHITUNGAN MATRIKS MENGGUNAKAN

VISUAL BASIC

AHMAD WAHID MUSTOFA - 152151027

ahmadwahid41@yahoo.com

1. Untuk menggunakan aplikasi ini pertama kita harus log in terlebih dahulu. berikut adalah tampilan awalnya. kita harus memasukkan ID dan Password, lalu klik masuk

Gambar dibawah ini adalah tampilan saat kamu berhasil masuk aplikasi,

berikut adalah kode untuk membuat form1

Private Sub Command1_Click()
Dim nama As String
        Dim code As String
        nama = Text1.Text
        code = Text2.Text

        If nama & code = "1" & "1" Then
            MsgBox ("Selamat Datang") ',
            Form2.Show
            Me.Hide
        Else
            MsgBox ("Data yang anda masukkan salah")
End If
End Sub

2. setelah itu muncul tampilan seperti gambar di bawah ini

disitu kita disediakan beberapa tampilan menu, dari menu 1 hingga menu spesial

berikut adalah kode penghubung antar menu

Private Sub Command1_Click()
Form30.Show
Me.Hide
End Sub

Private Sub Command2_Click()
Form31.Show
Me.Hide
End Sub

Private Sub Command3_Click()
Form32.Show
Me.Hide
End Sub

Private Sub Command4_Click()
Form33.Show
Me.Hide
End Sub

Private Sub Command5_Click()
Form42.Show
Me.Hide
End Sub

Private Sub Command6_Click()
Form43.Show
Me.Hide
End Sub

3. selanjutnya ketika kita memilih salah satu menu maka akan muncul tampilan seperti gambar dibawah ini

gambar menu 1

Private Sub Command1_Click()
Form2.Show
Me.Hide
End Sub

Private Sub Command2_Click()
Form7.Show
Me.Hide
End Sub

Private Sub Command3_Click()
Form8.Show
Me.Hide
End Sub

Private Sub Command4_Click()
Form6.Show
Me.Hide
End Sub

Private Sub Command5_Click()
Form9.Show
Me.Hide
End Sub

Private Sub Command6_Click()
Form10.Show
Me.Hide
End Sub

Private Sub Command7_Click()
Form11.Show
Me.Hide
End Sub

Private Sub Command8_Click()
Form12.Show
Me.Hide
End Sub

Private Sub Command9_Click()
Form13.Show
Me.Hide
End Sub

gambar menu 2

Private Sub Command1_Click()
Form2.Show
Me.Hide
End Sub

Private Sub Command2_Click()
Form14.Show
Me.Hide
End Sub

Private Sub Command3_Click()
Form15.Show
Me.Hide
End Sub

Private Sub Command4_Click()
Form16.Show
Me.Hide
End Sub

Private Sub Command5_Click()
Form17.Show
Me.Hide
End Sub

Private Sub Command6_Click()
Form18.Show
Me.Hide
End Sub

Private Sub Command7_Click()
Form19.Show
Me.Hide
End Sub

Private Sub Command8_Click()
Form20.Show
Me.Hide
End Sub

Private Sub Command9_Click()
Form21.Show
Me.Hide
End Sub

gambar menu 3

Private Sub Command1_Click()
Form2.Show
Me.Hide
End Sub

Private Sub Command2_Click()
Form22.Show
Me.Hide
End Sub

Private Sub Command3_Click()
Form23.Show
Me.Hide
End Sub

Private Sub Command4_Click()
Form24.Show
Me.Hide
End Sub

Private Sub Command5_Click()
Form25.Show
Me.Hide
End Sub

Private Sub Command6_Click()
Form26.Show
Me.Hide
End Sub

Private Sub Command7_Click()
Form27.Show
Me.Hide
End Sub

Private Sub Command8_Click()
Form28.Show
Me.Hide
End Sub

Private Sub Command9_Click()
Form29.Show
Me.Hide
End Sub

gambar menu 5

Private Sub Command1_Click()
Form2.Show
Me.Hide
End Sub

Private Sub Command2_Click()
Form47.Show
Me.Hide
End Sub

Private Sub Command3_Click()
Form48.Show
Me.Hide
End Sub

Private Sub Command4_Click()
Form49.Show
Me.Hide
End Sub

Private Sub Command5_Click()
Form50.Show
Me.Hide
End Sub

Private Sub Command6_Click()
Form51.Show
Me.Hide
End Sub

Private Sub Command7_Click()
Form52.Show
Me.Hide
End Sub

Private Sub Command8_Click()
Form53.Show
Me.Hide
End Sub

gambar menu 4

Private Sub Command1_Click()
Form2.Show
Me.Hide
End Sub

Private Sub Command2_Click()
Form34.Show
Me.Hide
End Sub

Private Sub Command3_Click()
Form35.Show
Me.Hide
End Sub

Private Sub Command4_Click()
Form36.Show
Me.Hide
End Sub

Private Sub Command5_Click()
Form37.Show
Me.Hide
End Sub

Private Sub Command6_Click()
Form38.Show
Me.Hide
End Sub

Private Sub Command7_Click()
Form39.Show
Me.Hide
End Sub

Private Sub Command8_Click()
Form40.Show
Me.Hide
End Sub

Private Sub Command9_Click()
Form41.Show
Me.Hide
End Sub

gambar menu 6

Private Sub Command1_Click()
Form2.Show
Me.Hide
End Sub

Private Sub Command2_Click()
Form3.Show
Me.Hide
End Sub

Private Sub Command3_Click()
Form4.Show
Me.Hide
End Sub

Private Sub Command4_Click()
Form5.Show
Me.Hide
End Sub

Private Sub Command5_Click()
Form44.Show
Me.Hide
End Sub

Private Sub Command6_Click()
Form45.Show
Me.Hide
End Sub

Private Sub Command7_Click()
Form46.Show
Me.Hide
End Sub

4. setelah masuk ke menu 1 kita disajikan beberapa pilihan yang jika kita pilih akan muncul tampilan sebagai berikut:

gambar 1

Private Sub Command1_Click()
If Option1.Value = True Then
Text12_Text = (Val(Text1_Text) * Val(Text3_Text))
Text13_Text = (Val(Text1_Text) * Val(Text4_Text))
Text14_Text = (Val(Text1_Text) * Val(Text5_Text))
Text15_Text = (Val(Text1_Text) * Val(Text6_Text))
Text16_Text = (Val(Text1_Text) * Val(Text7_Text))
Text17_Text = (Val(Text1_Text) * Val(Text8_Text))
Text18_Text = (Val(Text1_Text) * Val(Text9_Text))
Text19_Text = (Val(Text1_Text) * Val(Text10_Text))
Text20_Text = (Val(Text1_Text) * Val(Text11_Text))
Text21_Text = (Val(Text2_Text) * Val(Text3_Text))
Text22_Text = (Val(Text2_Text) * Val(Text4_Text))
Text23_Text = (Val(Text2_Text) * Val(Text5_Text))
Text24_Text = (Val(Text2_Text) * Val(Text6_Text))
Text25_Text = (Val(Text2_Text) * Val(Text7_Text))
Text26_Text = (Val(Text2_Text) * Val(Text8_Text))
Text27_Text = (Val(Text2_Text) * Val(Text9_Text))
Text28_Text = (Val(Text2_Text) * Val(Text10_Text))
Text29_Text = (Val(Text2_Text) * Val(Text11_Text))
End If
End Sub

Private Sub Command2_Click()
Text1_Text = ""
Text2_Text = ""
Text3_Text = ""
Text4_Text = ""
Text5_Text = ""
Text6_Text = ""
Text7_Text = ""
Text9_Text = ""
Text8_Text = ""
Text10_Text = ""
Text11_Text = ""
Text12_Text = ""
Text13_Text = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text18_Text = ""
Text19_Text = ""
Text20_Text = ""
Text21_Text = ""
Text22_Text = ""
Text23_Text = ""
Text24_Text = ""
Text25_Text = ""
Text26_Text = ""
Text27_Text = ""
Text28_Text = ""
Text29_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form30.Show
Me.Hide
End Sub

gambar 2

Private Sub Command1_Click()
If Option1.Value = True Then
Text11_Text = (Val(Text1_Text) * Val(Text3_Text))
Text12_Text = (Val(Text1_Text) * Val(Text4_Text))
Text13_Text = (Val(Text1_Text) * Val(Text5_Text))
Text14_Text = (Val(Text1_Text) * Val(Text6_Text))
Text15_Text = (Val(Text1_Text) * Val(Text7_Text))
Text16_Text = (Val(Text1_Text) * Val(Text8_Text))
Text17_Text = (Val(Text1_Text) * Val(Text9_Text))
Text18_Text = (Val(Text1_Text) * Val(Text10_Text))
Text19_Text = (Val(Text2_Text) * Val(Text3_Text))
Text20_Text = (Val(Text2_Text) * Val(Text4_Text))
Text21_Text = (Val(Text2_Text) * Val(Text5_Text))
Text22_Text = (Val(Text2_Text) * Val(Text6_Text))
Text23_Text = (Val(Text2_Text) * Val(Text7_Text))
Text24_Text = (Val(Text2_Text) * Val(Text8_Text))
Text25_Text = (Val(Text2_Text) * Val(Text9_Text))
Text26_Text = (Val(Text2_Text) * Val(Text10_Text))
End If
End Sub

Private Sub Command2_Click()
Text1_Text = ""
Text2_Text = ""
Text3_Text = ""
Text4_Text = ""
Text5_Text = ""
Text6_Text = ""
Text7_Text = ""
Text9_Text = ""
Text8_Text = ""
Text10_Text = ""
Text11_Text = ""
Text12_Text = ""
Text13_Text = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text18_Text = ""
Text19_Text = ""
Text20_Text = ""
Text21_Text = ""
Text22_Text = ""
Text23_Text = ""
Text24_Text = ""
Text25_Text = ""
Text26_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form30.Show
Me.Hide
End Sub

gambar 3

Private Sub Command1_Click()
If Option1.Value = True Then
Text5_Text = (Val(Text1_Text) * Val(Text3_Text))
Text6_Text = (Val(Text1_Text) * Val(Text4_Text))
Text7_Text = (Val(Text2_Text) * Val(Text3_Text))
Text8_Text = (Val(Text2_Text) * Val(Text4_Text))
Else: Option4.Value = True
Text9_Text = ((Val(Text1_Text) * Val(Text3_Text)) * (Val(Text2_Text) * Val(Text4_Text))) - ((Val(Text1_Text) * Val(Text4_Text)) * (Val(Text2_Text) * Val(Text3_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 = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Text1_Change()

End Sub
Private Sub Command4_Click()
Form30.Show
Me.Hide
End Sub

gambar 4

Private Sub Command1_Click()
If Option1.Value = True Then
Text6_Text = (Val(Text1_Text) * Val(Text3_Text))
Text7_Text = (Val(Text1_Text) * Val(Text4_Text))
Text8_Text = (Val(Text1_Text) * Val(Text5_Text))
Text9_Text = (Val(Text2_Text) * Val(Text3_Text))
Text10_Text = (Val(Text2_Text) * Val(Text4_Text))
Text11_Text = (Val(Text2_Text) * Val(Text5_Text))
End If
End Sub

Private Sub Command2_Click()
Text1_Text = ""
Text2_Text = ""
Text3_Text = ""
Text4_Text = ""
Text5_Text = ""
Text6_Text = ""
Text7_Text = ""
Text9_Text = ""
Text8_Text = ""
Text10_Text = ""
Text11_Text = ""
Text12_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form30.Show
Me.Hide
End Sub

gambar 5

Private Sub Command1_Click()
If Option1.Value = True Then
Text8_Text = (Val(Text1_Text) * Val(Text3_Text))
Text9_Text = (Val(Text1_Text) * Val(Text4_Text))
Text10_Text = (Val(Text1_Text) * Val(Text5_Text))
Text11_Text = (Val(Text1_Text) * Val(Text6_Text))
Text12_Text = (Val(Text1_Text) * Val(Text7_Text))
Text13_Text = (Val(Text2_Text) * Val(Text3_Text))
Text14_Text = (Val(Text2_Text) * Val(Text4_Text))
Text15_Text = (Val(Text2_Text) * Val(Text5_Text))
Text16_Text = (Val(Text2_Text) * Val(Text6_Text))
Text17_Text = (Val(Text2_Text) * Val(Text7_Text))
End If
End Sub

Private Sub Command2_Click()
Text1_Text = ""
Text2_Text = ""
Text3_Text = ""
Text4_Text = ""
Text5_Text = ""
Text6_Text = ""
Text7_Text = ""
Text9_Text = ""
Text8_Text = ""
Text10_Text = ""
Text11_Text = ""
Text12_Text = ""
Text13_Text = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form30.Show
Me.Hide
End Sub

gambar 6

Private Sub Command1_Click()
If Option1.Value = True Then
Text7_Text = (Val(Text1_Text) * Val(Text3_Text))
Text8_Text = (Val(Text1_Text) * Val(Text4_Text))
Text9_Text = (Val(Text1_Text) * Val(Text5_Text))
Text10_Text = (Val(Text1_Text) * Val(Text6_Text))
Text11_Text = (Val(Text2_Text) * Val(Text3_Text))
Text12_Text = (Val(Text2_Text) * Val(Text4_Text))
Text13_Text = (Val(Text2_Text) * Val(Text5_Text))
Text14_Text = (Val(Text2_Text) * Val(Text6_Text))
End If
End Sub

Private Sub Command2_Click()
Text1_Text = ""
Text2_Text = ""
Text3_Text = ""
Text4_Text = ""
Text5_Text = ""
Text6_Text = ""
Text7_Text = ""
Text9_Text = ""
Text8_Text = ""
Text10_Text = ""
Text11_Text = ""
Text12_Text = ""
Text13_Text = ""
Text14_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form30.Show
Me.Hide
End Sub

gambar 7

Private Sub Command1_Click()
If Option1.Value = True Then
Text10_Text = (Val(Text1_Text) * Val(Text3_Text))
Text11_Text = (Val(Text1_Text) * Val(Text4_Text))
Text12_Text = (Val(Text1_Text) * Val(Text5_Text))
Text13_Text = (Val(Text1_Text) * Val(Text6_Text))
Text14_Text = (Val(Text1_Text) * Val(Text7_Text))
Text15_Text = (Val(Text1_Text) * Val(Text8_Text))
Text16_Text = (Val(Text1_Text) * Val(Text9_Text))
Text17_Text = (Val(Text2_Text) * Val(Text3_Text))
Text18_Text = (Val(Text2_Text) * Val(Text4_Text))
Text19_Text = (Val(Text2_Text) * Val(Text5_Text))
Text20_Text = (Val(Text2_Text) * Val(Text6_Text))
Text21_Text = (Val(Text2_Text) * Val(Text7_Text))
Text22_Text = (Val(Text2_Text) * Val(Text8_Text))
Text23_Text = (Val(Text2_Text) * Val(Text9_Text))
End If
End Sub

Private Sub Command2_Click()
Text1_Text = ""
Text2_Text = ""
Text3_Text = ""
Text4_Text = ""
Text5_Text = ""
Text6_Text = ""
Text7_Text = ""
Text9_Text = ""
Text8_Text = ""
Text10_Text = ""
Text11_Text = ""
Text12_Text = ""
Text13_Text = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text18_Text = ""
Text19_Text = ""
Text20_Text = ""
Text21_Text = ""
Text22_Text = ""
Text23_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form30.Show
Me.Hide
End Sub

gambar 8

Private Sub Command1_Click()
If Option1.Value = True Then
Text9_Text = (Val(Text1_Text) * Val(Text3_Text))
Text10_Text = (Val(Text1_Text) * Val(Text4_Text))
Text11_Text = (Val(Text1_Text) * Val(Text5_Text))
Text12_Text = (Val(Text1_Text) * Val(Text6_Text))
Text13_Text = (Val(Text1_Text) * Val(Text7_Text))
Text14_Text = (Val(Text1_Text) * Val(Text8_Text))
Text15_Text = (Val(Text2_Text) * Val(Text3_Text))
Text16_Text = (Val(Text2_Text) * Val(Text4_Text))
Text17_Text = (Val(Text2_Text) * Val(Text5_Text))
Text18_Text = (Val(Text2_Text) * Val(Text6_Text))
Text19_Text = (Val(Text2_Text) * Val(Text7_Text))
Text20_Text = (Val(Text2_Text) * Val(Text8_Text))
End If
End Sub

Private Sub Command2_Click()
Text1_Text = ""
Text2_Text = ""
Text3_Text = ""
Text4_Text = ""
Text5_Text = ""
Text6_Text = ""
Text7_Text = ""
Text9_Text = ""
Text8_Text = ""
Text10_Text = ""
Text11_Text = ""
Text12_Text = ""
Text13_Text = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text18_Text = ""
Text19_Text = ""
Text20_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form30.Show
Me.Hide
End Sub

5. Kemudian jika masuk ke menu 2 kita disajikan beberapa pilihan yang jika kita pilih akan muncul tampilan sebagai berikut:

gambar 1

Private Sub Command1_Click()
If Option1.Value = True Then
Text6_Text = (Val(Text1_Text) * Val(Text4_Text))
Text7_Text = (Val(Text1_Text) * Val(Text5_Text))
Text8_Text = (Val(Text2_Text) * Val(Text4_Text))
Text9_Text = (Val(Text2_Text) * Val(Text5_Text))
Text10_Text = (Val(Text3_Text) * Val(Text4_Text))
Text11_Text = (Val(Text3_Text) * Val(Text5_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 = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub
Private Sub Command4_Click()
Form31.Show
Me.Hide
End Sub

gambar 2

Private Sub Command1_Click()
If Option1.Value = True Then
Text7_Text = Val(Text1_Text) * Val(Text4_Text)
Text8_Text = Val(Text1_Text) * Val(Text5_Text)
Text9_Text = Val(Text1_Text) * Val(Text6_Text)
Text10_Text = Val(Text2_Text) * Val(Text4_Text)
Text11_Text = Val(Text2_Text) * Val(Text5_Text)
Text12_Text = Val(Text2_Text) * Val(Text6_Text)
Text13_Text = Val(Text3_Text) * Val(Text4_Text)
Text14_Text = Val(Text3_Text) * Val(Text5_Text)
Text15_Text = Val(Text3_Text) * Val(Text6_Text)
Else: Option4.Value = True
Text16_Text = ((((Val(Text1_Text) * Val(Text4_Text)) * (Val(Text2_Text) * Val(Text5_Text)) * (Val(Text3_Text) * Val(Text6_Text))) + ((Val(Text1_Text) * Val(Text5_Text)) * (Val(Text2_Text) * Val(Text6_Text)) * (Val(Text3_Text) * Val(Text4_Text))) + ((Val(Text1_Text) * Val(Text6_Text)) * (Val(Text2_Text) * Val(Text4_Text)) * (Val(Text3_Text) * Val(Text5_Text))))) - ((((Val(Text1_Text) * Val(Text5_Text)) * (Val(Text2_Text) * Val(Text4_Text)) * (Val(Text3_Text) * Val(Text6_Text))) + ((Val(Text1_Text) * Val(Text4_Text)) * (Val(Text2_Text) * Val(Text6_Text)) * (Val(Text3_Text) * Val(Text5_Text))) + ((Val(Text1_Text) * Val(Text6_Text)) * (Val(Text2_Text) * Val(Text5_Text)) * (Val(Text3_Text) * Val(Text4_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 = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text1_Text.SetFocus

End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form31.Show
Me.Hide
End Sub

gambar 3

Private Sub Command1_Click()
If Option1.Value = True Then
Text8_Text = (Val(Text1_Text) * Val(Text4_Text))
Text9_Text = (Val(Text1_Text) * Val(Text5_Text))
Text10_Text = (Val(Text1_Text) * Val(Text6_Text))
Text11_Text = (Val(Text1_Text) * Val(Text7_Text))
Text12_Text = (Val(Text2_Text) * Val(Text4_Text))
Text13_Text = (Val(Text2_Text) * Val(Text5_Text))
Text14_Text = (Val(Text2_Text) * Val(Text6_Text))
Text15_Text = (Val(Text2_Text) * Val(Text7_Text))
Text16_Text = (Val(Text3_Text) * Val(Text4_Text))
Text17_Text = (Val(Text3_Text) * Val(Text5_Text))
Text18_Text = (Val(Text3_Text) * Val(Text6_Text))
Text19_Text = (Val(Text3_Text) * Val(Text7_Text))
End If
End Sub

Private Sub Command2_Click()
Text1_Text = ""
Text2_Text = ""
Text3_Text = ""
Text4_Text = ""
Text5_Text = ""
Text6_Text = ""
Text7_Text = ""
Text9_Text = ""
Text8_Text = ""
Text10_Text = ""
Text11_Text = ""
Text12_Text = ""
Text13_Text = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text18_Text = ""
Text19_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form31.Show
Me.Hide
End Sub

gambar4

Private Sub Command1_Click()
If Option1.Value = True Then
Text9_Text = (Val(Text1_Text) * Val(Text4_Text))
Text10_Text = (Val(Text1_Text) * Val(Text5_Text))
Text11_Text = (Val(Text1_Text) * Val(Text6_Text))
Text12_Text = (Val(Text1_Text) * Val(Text7_Text))
Text13_Text = (Val(Text1_Text) * Val(Text8_Text))
Text14_Text = (Val(Text2_Text) * Val(Text4_Text))
Text15_Text = (Val(Text2_Text) * Val(Text5_Text))
Text16_Text = (Val(Text2_Text) * Val(Text6_Text))
Text17_Text = (Val(Text2_Text) * Val(Text7_Text))
Text18_Text = (Val(Text2_Text) * Val(Text8_Text))
Text19_Text = (Val(Text3_Text) * Val(Text4_Text))
Text20_Text = (Val(Text3_Text) * Val(Text5_Text))
Text21_Text = (Val(Text3_Text) * Val(Text6_Text))
Text22_Text = (Val(Text3_Text) * Val(Text7_Text))
Text23_Text = (Val(Text3_Text) * Val(Text8_Text))
End If
End Sub

Private Sub Command2_Click()
Text1_Text = ""
Text2_Text = ""
Text3_Text = ""
Text4_Text = ""
Text5_Text = ""
Text6_Text = ""
Text7_Text = ""
Text9_Text = ""
Text8_Text = ""
Text10_Text = ""
Text11_Text = ""
Text12_Text = ""
Text13_Text = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text18_Text = ""
Text19_Text = ""
Text20_Text = ""
Text21_Text = ""
Text22_Text = ""
Text23_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form31.Show
Me.Hide
End Sub

gambar5

Private Sub Command1_Click()
If Option1.Value = True Then
Text10_Text = (Val(Text1_Text) * Val(Text4_Text))
Text11_Text = (Val(Text1_Text) * Val(Text5_Text))
Text12_Text = (Val(Text1_Text) * Val(Text6_Text))
Text13_Text = (Val(Text1_Text) * Val(Text7_Text))
Text14_Text = (Val(Text1_Text) * Val(Text8_Text))
Text15_Text = (Val(Text1_Text) * Val(Text9_Text))
Text16_Text = (Val(Text2_Text) * Val(Text4_Text))
Text17_Text = (Val(Text2_Text) * Val(Text5_Text))
Text18_Text = (Val(Text2_Text) * Val(Text6_Text))
Text19_Text = (Val(Text2_Text) * Val(Text7_Text))
Text20_Text = (Val(Text2_Text) * Val(Text8_Text))
Text21_Text = (Val(Text2_Text) * Val(Text9_Text))
Text22_Text = (Val(Text3_Text) * Val(Text4_Text))
Text23_Text = (Val(Text3_Text) * Val(Text5_Text))
Text24_Text = (Val(Text3_Text) * Val(Text6_Text))
Text25_Text = (Val(Text3_Text) * Val(Text7_Text))
Text26_Text = (Val(Text3_Text) * Val(Text8_Text))
Text27_Text = (Val(Text3_Text) * Val(Text9_Text))
End If
End Sub

Private Sub Command2_Click()
Text1_Text = ""
Text2_Text = ""
Text3_Text = ""
Text4_Text = ""
Text5_Text = ""
Text6_Text = ""
Text7_Text = ""
Text9_Text = ""
Text8_Text = ""
Text10_Text = ""
Text11_Text = ""
Text12_Text = ""
Text13_Text = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text18_Text = ""
Text19_Text = ""
Text20_Text = ""
Text21_Text = ""
Text22_Text = ""
Text23_Text = ""
Text23_Text = ""
Text24_Text = ""
Text25_Text = ""
Text26_Text = ""
Text27_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form31.Show
Me.Hide
End Sub

gambar 6

Private Sub Command1_Click()
If Option1.Value = True Then
Text11_Text = (Val(Text1_Text) * Val(Text4_Text))
Text12_Text = (Val(Text1_Text) * Val(Text5_Text))
Text13_Text = (Val(Text1_Text) * Val(Text6_Text))
Text14_Text = (Val(Text1_Text) * Val(Text7_Text))
Text15_Text = (Val(Text1_Text) * Val(Text8_Text))
Text16_Text = (Val(Text1_Text) * Val(Text9_Text))
Text17_Text = (Val(Text1_Text) * Val(Text10_Text))
Text18_Text = (Val(Text2_Text) * Val(Text4_Text))
Text19_Text = (Val(Text2_Text) * Val(Text5_Text))
Text20_Text = (Val(Text2_Text) * Val(Text6_Text))
Text21_Text = (Val(Text2_Text) * Val(Text7_Text))
Text22_Text = (Val(Text2_Text) * Val(Text8_Text))
Text23_Text = (Val(Text2_Text) * Val(Text9_Text))
Text24_Text = (Val(Text2_Text) * Val(Text10_Text))
Text25_Text = (Val(Text3_Text) * Val(Text4_Text))
Text26_Text = (Val(Text3_Text) * Val(Text5_Text))
Text27_Text = (Val(Text3_Text) * Val(Text6_Text))
Text28_Text = (Val(Text3_Text) * Val(Text7_Text))
Text29_Text = (Val(Text3_Text) * Val(Text8_Text))
Text30_Text = (Val(Text3_Text) * Val(Text9_Text))
Text31_Text = (Val(Text3_Text) * Val(Text10_Text))
End If
End Sub

Private Sub Command2_Click()
Text1_Text = ""
Text2_Text = ""
Text3_Text = ""
Text4_Text = ""
Text5_Text = ""
Text6_Text = ""
Text7_Text = ""
Text9_Text = ""
Text8_Text = ""
Text10_Text = ""
Text11_Text = ""
Text12_Text = ""
Text13_Text = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text18_Text = ""
Text19_Text = ""
Text20_Text = ""
Text21_Text = ""
Text22_Text = ""
Text23_Text = ""
Text23_Text = ""
Text24_Text = ""
Text25_Text = ""
Text26_Text = ""
Text27_Text = ""
Text28_Text = ""
Text29_Text = ""
Text30_Text = ""
Text31_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form31.Show
Me.Hide
End Sub

gambar 7

Private Sub Command1_Click()
If Option1.Value = True Then
Text12_Text = (Val(Text1_Text) * Val(Text4_Text))
Text13_Text = (Val(Text1_Text) * Val(Text5_Text))
Text14_Text = (Val(Text1_Text) * Val(Text6_Text))
Text15_Text = (Val(Text1_Text) * Val(Text7_Text))
Text16_Text = (Val(Text1_Text) * Val(Text8_Text))
Text17_Text = (Val(Text1_Text) * Val(Text9_Text))
Text18_Text = (Val(Text1_Text) * Val(Text10_Text))
Text19_Text = (Val(Text1_Text) * Val(Text11_Text))
Text20_Text = (Val(Text1_Text) * Val(Text4_Text))
Text21_Text = (Val(Text1_Text) * Val(Text5_Text))
Text22_Text = (Val(Text2_Text) * Val(Text6_Text))
Text23_Text = (Val(Text2_Text) * Val(Text7_Text))
Text24_Text = (Val(Text2_Text) * Val(Text8_Text))
Text25_Text = (Val(Text2_Text) * Val(Text9_Text))
Text26_Text = (Val(Text2_Text) * Val(Text10_Text))
Text27_Text = (Val(Text2_Text) * Val(Text11_Text))
Text28_Text = (Val(Text2_Text) * Val(Text4_Text))
Text29_Text = (Val(Text2_Text) * Val(Text5_Text))
Text30_Text = (Val(Text2_Text) * Val(Text6_Text))
Text31_Text = (Val(Text3_Text) * Val(Text7_Text))
Text32_Text = (Val(Text3_Text) * Val(Text8_Text))
Text33_Text = (Val(Text3_Text) * Val(Text9_Text))
Text34_Text = (Val(Text3_Text) * Val(Text10_Text))
Text35_Text = (Val(Text3_Text) * Val(Text11_Text))
End If
End Sub

Private Sub Command2_Click()
Text1_Text = ""
Text2_Text = ""
Text3_Text = ""
Text4_Text = ""
Text5_Text = ""
Text6_Text = ""
Text7_Text = ""
Text9_Text = ""
Text8_Text = ""
Text10_Text = ""
Text11_Text = ""
Text12_Text = ""
Text13_Text = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text18_Text = ""
Text19_Text = ""
Text20_Text = ""
Text21_Text = ""
Text22_Text = ""
Text23_Text = ""
Text23_Text = ""
Text24_Text = ""
Text25_Text = ""
Text26_Text = ""
Text27_Text = ""
Text28_Text = ""
Text29_Text = ""
Text30_Text = ""
Text31_Text = ""
Text32_Text = ""
Text33_Text = ""
Text34_Text = ""
Text35_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form31.Show
Me.Hide
End Sub

gambar8

Private Sub Command1_Click()
If Option1.Value = True Then
Text13_Text = (Val(Text1_Text) * Val(Text4_Text))
Text14_Text = (Val(Text1_Text) * Val(Text5_Text))
Text15_Text = (Val(Text1_Text) * Val(Text6_Text))
Text16_Text = (Val(Text1_Text) * Val(Text7_Text))
Text17_Text = (Val(Text1_Text) * Val(Text8_Text))
Text18_Text = (Val(Text1_Text) * Val(Text9_Text))
Text19_Text = (Val(Text1_Text) * Val(Text10_Text))
Text20_Text = (Val(Text1_Text) * Val(Text11_Text))
Text21_Text = (Val(Text1_Text) * Val(Text12_Text))
Text22_Text = (Val(Text2_Text) * Val(Text4_Text))
Text23_Text = (Val(Text2_Text) * Val(Text5_Text))
Text24_Text = (Val(Text2_Text) * Val(Text6_Text))
Text25_Text = (Val(Text2_Text) * Val(Text7_Text))
Text26_Text = (Val(Text2_Text) * Val(Text8_Text))
Text27_Text = (Val(Text2_Text) * Val(Text9_Text))
Text28_Text = (Val(Text2_Text) * Val(Text10_Text))
Text29_Text = (Val(Text2_Text) * Val(Text11_Text))
Text30_Text = (Val(Text2_Text) * Val(Text12_Text))
Text31_Text = (Val(Text3_Text) * Val(Text4_Text))
Text32_Text = (Val(Text3_Text) * Val(Text5_Text))
Text33_Text = (Val(Text3_Text) * Val(Text6_Text))
Text34_Text = (Val(Text3_Text) * Val(Text7_Text))
Text35_Text = (Val(Text3_Text) * Val(Text8_Text))
Text36_Text = (Val(Text3_Text) * Val(Text9_Text))
Text37_Text = (Val(Text3_Text) * Val(Text10_Text))
Text38_Text = (Val(Text3_Text) * Val(Text11_Text))
Text39_Text = (Val(Text3_Text) * Val(Text12_Text))
End If
End Sub

Private Sub Command2_Click()
Text1_Text = ""
Text2_Text = ""
Text3_Text = ""
Text4_Text = ""
Text5_Text = ""
Text6_Text = ""
Text7_Text = ""
Text9_Text = ""
Text8_Text = ""
Text10_Text = ""
Text11_Text = ""
Text12_Text = ""
Text13_Text = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text18_Text = ""
Text19_Text = ""
Text20_Text = ""
Text21_Text = ""
Text22_Text = ""
Text23_Text = ""
Text23_Text = ""
Text24_Text = ""
Text25_Text = ""
Text26_Text = ""
Text27_Text = ""
Text28_Text = ""
Text29_Text = ""
Text30_Text = ""
Text31_Text = ""
Text32_Text = ""
Text33_Text = ""
Text34_Text = ""
Text35_Text = ""
Text36_Text = ""
Text37_Text = ""
Text38_Text = ""
Text39_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form31.Show
Me.Hide
End Sub

6. Kemudian jika masuk ke menu 3 kita disajikan beberapa pilihan yang jika kita pilih akan muncul tampilan sebagai berikut:

gambar 1

Private Sub Command1_Click()
If Option1.Value = True Then
Text7_Text = (Val(Text1_Text) * Val(Text5_Text))
Text8_Text = (Val(Text1_Text) * Val(Text6_Text))
Text9_Text = (Val(Text2_Text) * Val(Text5_Text))
Text10_Text = (Val(Text2_Text) * Val(Text6_Text))
Text11_Text = (Val(Text3_Text) * Val(Text5_Text))
Text12_Text = (Val(Text3_Text) * Val(Text6_Text))
Text13_Text = (Val(Text4_Text) * Val(Text5_Text))
Text14_Text = (Val(Text4_Text) * Val(Text6_Text))
End If
End Sub

Private Sub Command2_Click()
Text1_Text = ""
Text2_Text = ""
Text3_Text = ""
Text4_Text = ""
Text5_Text = ""
Text6_Text = ""
Text7_Text = ""
Text9_Text = ""
Text8_Text = ""
Text10_Text = ""
Text11_Text = ""
Text12_Text = ""
Text13_Text = ""
Text14_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form32.Show
Me.Hide
End Sub

gambar 2

Private Sub Command1_Click()
If Option1.Value = True Then
Text8_Text = (Val(Text1_Text) * Val(Text5_Text))
Text9_Text = (Val(Text1_Text) * Val(Text6_Text))
Text10_Text = (Val(Text1_Text) * Val(Text7_Text))
Text11_Text = (Val(Text2_Text) * Val(Text5_Text))
Text12_Text = (Val(Text2_Text) * Val(Text6_Text))
Text13_Text = (Val(Text2_Text) * Val(Text7_Text))
Text14_Text = (Val(Text3_Text) * Val(Text5_Text))
Text15_Text = (Val(Text3_Text) * Val(Text6_Text))
Text16_Text = (Val(Text3_Text) * Val(Text7_Text))
Text17_Text = (Val(Text4_Text) * Val(Text5_Text))
Text18_Text = (Val(Text4_Text) * Val(Text6_Text))
Text19_Text = (Val(Text4_Text) * Val(Text7_Text))
End If
End Sub

Private Sub Command2_Click()
Text1_Text = ""
Text2_Text = ""
Text3_Text = ""
Text4_Text = ""
Text5_Text = ""
Text6_Text = ""
Text7_Text = ""
Text9_Text = ""
Text8_Text = ""
Text10_Text = ""
Text11_Text = ""
Text12_Text = ""
Text13_Text = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text18_Text = ""
Text19_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form32.Show
Me.Hide
End Sub

gambar 3

Private Sub Command1_Click()
If Option1.Value = True Then
Text9_Text = (Val(Text1_Text) * Val(Text5_Text))
Text10_Text = (Val(Text1_Text) * Val(Text6_Text))
Text11_Text = (Val(Text1_Text) * Val(Text7_Text))
Text12_Text = (Val(Text1_Text) * Val(Text8_Text))
Text13_Text = (Val(Text2_Text) * Val(Text5_Text))
Text14_Text = (Val(Text2_Text) * Val(Text6_Text))
Text15_Text = (Val(Text2_Text) * Val(Text7_Text))
Text16_Text = (Val(Text2_Text) * Val(Text8_Text))
Text17_Text = (Val(Text3_Text) * Val(Text5_Text))
Text18_Text = (Val(Text3_Text) * Val(Text6_Text))
Text19_Text = (Val(Text3_Text) * Val(Text7_Text))
Text20_Text = (Val(Text3_Text) * Val(Text8_Text))
Text21_Text = (Val(Text4_Text) * Val(Text5_Text))
Text22_Text = (Val(Text4_Text) * Val(Text6_Text))
Text23_Text = (Val(Text4_Text) * Val(Text7_Text))
Text24_Text = (Val(Text4_Text) * Val(Text8_Text))
Else: Option4.Value = True
Text25_Text = Val(Text11_Text) * (Val(Text13_Text) * ((Val(Text18_Text) * Val(Text24_Text)) - (Val(Text20_Text) * Val(Text22_Text))) - Val(Text17_Text) * ((Val(Text14_Text) * Val(Text24_Text)) - (Val(Text16_Text) * Val(Text22_Text))) + Val(Text21_Text) * ((Val(Text14_Text) * Val(Text20_Text)) - (Val(Text18_Text) * Val(Text16_Text))))
Text26_Text = Val(Text15_Text) * (Val(Text9_Text) * ((Val(Text18_Text) * Val(Text24_Text)) - (Val(Text20_Text) * Val(Text22_Text))) - Val(Text17_Text) * ((Val(Text10_Text) * Val(Text24_Text)) - (Val(Text12_Text) * Val(Text22_Text))) + Val(Text21_Text) * ((Val(Text10_Text) * Val(Text20_Text)) - (Val(Text18_Text) * Val(Text12_Text))))
Text27_Text = Val(Text19_Text) * (Val(Text9_Text) * ((Val(Text14_Text) * Val(Text24_Text)) - (Val(Text16_Text) * Val(Text22_Text))) - Val(Text13_Text) * ((Val(Text10_Text) * Val(Text24_Text)) - (Val(Text12_Text) * Val(Text22_Text))) + Val(Text21_Text) * ((Val(Text10_Text) * Val(Text16_Text)) - (Val(Text14_Text) * Val(Text12_Text))))
Text28_Text = Val(Text23_Text) * (Val(Text9_Text) * ((Val(Text14_Text) * Val(Text20_Text)) - (Val(Text16_Text) * Val(Text18_Text))) - Val(Text13_Text) * ((Val(Text10_Text) * Val(Text20_Text)) - (Val(Text18_Text) * Val(Text12_Text))) + Val(Text17_Text) * ((Val(Text10_Text) * Val(Text16_Text)) - (Val(Text14_Text) * Val(Text12_Text))))
Text29_Text = Val(Text25_Text) - Val(Text26_Text) + Val(Text27_Text) - Val(Text28_Text)
End If
End Sub

Private Sub Command2_Click()
Text1_Text = ""
Text2_Text = ""
Text3_Text = ""
Text4_Text = ""
Text5_Text = ""
Text6_Text = ""
Text7_Text = ""
Text9_Text = ""
Text8_Text = ""
Text10_Text = ""
Text11_Text = ""
Text12_Text = ""
Text13_Text = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text18_Text = ""
Text19_Text = ""
Text20_Text = ""
Text21_Text = ""
Text22_Text = ""
Text23_Text = ""
Text24_Text = ""
Text25_Text = ""
Text26_Text = ""
Text27_Text = ""
Text28_Text = ""
Text29_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form32.Show
Me.Hide
End Sub

gambar 4

Private Sub Command1_Click()
If Option1.Value = True Then
Text10_Text = (Val(Text1_Text) * Val(Text5_Text))
Text11_Text = (Val(Text1_Text) * Val(Text6_Text))
Text12_Text = (Val(Text1_Text) * Val(Text7_Text))
Text13_Text = (Val(Text1_Text) * Val(Text8_Text))
Text14_Text = (Val(Text1_Text) * Val(Text9_Text))
Text15_Text = (Val(Text2_Text) * Val(Text5_Text))
Text16_Text = (Val(Text2_Text) * Val(Text6_Text))
Text17_Text = (Val(Text2_Text) * Val(Text7_Text))
Text18_Text = (Val(Text2_Text) * Val(Text8_Text))
Text19_Text = (Val(Text2_Text) * Val(Text9_Text))
Text20_Text = (Val(Text3_Text) * Val(Text5_Text))
Text21_Text = (Val(Text3_Text) * Val(Text6_Text))
Text22_Text = (Val(Text3_Text) * Val(Text7_Text))
Text23_Text = (Val(Text3_Text) * Val(Text8_Text))
Text24_Text = (Val(Text3_Text) * Val(Text9_Text))
Text25_Text = (Val(Text4_Text) * Val(Text5_Text))
Text26_Text = (Val(Text4_Text) * Val(Text6_Text))
Text27_Text = (Val(Text4_Text) * Val(Text7_Text))
Text28_Text = (Val(Text4_Text) * Val(Text8_Text))
Text29_Text = (Val(Text4_Text) * Val(Text9_Text))
End If
End Sub

Private Sub Command2_Click()
Text1_Text = ""
Text2_Text = ""
Text3_Text = ""
Text4_Text = ""
Text5_Text = ""
Text6_Text = ""
Text7_Text = ""
Text9_Text = ""
Text8_Text = ""
Text10_Text = ""
Text11_Text = ""
Text12_Text = ""
Text13_Text = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text18_Text = ""
Text19_Text = ""
Text20_Text = ""
Text21_Text = ""
Text22_Text = ""
Text23_Text = ""
Text24_Text = ""
Text25_Text = ""
Text26_Text = ""
Text27_Text = ""
Text28_Text = ""
Text29_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form32.Show
Me.Hide
End Sub

gambar 5

Private Sub Command1_Click()
If Option1.Value = True Then
Text11_Text = (Val(Text1_Text) * Val(Text5_Text))
Text12_Text = (Val(Text1_Text) * Val(Text6_Text))
Text13_Text = (Val(Text1_Text) * Val(Text7_Text))
Text14_Text = (Val(Text1_Text) * Val(Text8_Text))
Text15_Text = (Val(Text1_Text) * Val(Text9_Text))
Text16_Text = (Val(Text1_Text) * Val(Text10_Text))
Text17_Text = (Val(Text2_Text) * Val(Text5_Text))
Text18_Text = (Val(Text2_Text) * Val(Text6_Text))
Text19_Text = (Val(Text2_Text) * Val(Text7_Text))
Text20_Text = (Val(Text2_Text) * Val(Text8_Text))
Text21_Text = (Val(Text2_Text) * Val(Text9_Text))
Text22_Text = (Val(Text2_Text) * Val(Text10_Text))
Text23_Text = (Val(Text3_Text) * Val(Text5_Text))
Text24_Text = (Val(Text3_Text) * Val(Text6_Text))
Text25_Text = (Val(Text3_Text) * Val(Text7_Text))
Text26_Text = (Val(Text3_Text) * Val(Text8_Text))
Text27_Text = (Val(Text3_Text) * Val(Text9_Text))
Text28_Text = (Val(Text3_Text) * Val(Text10_Text))
Text29_Text = (Val(Text4_Text) * Val(Text5_Text))
Text30_Text = (Val(Text4_Text) * Val(Text6_Text))
Text31_Text = (Val(Text4_Text) * Val(Text7_Text))
Text32_Text = (Val(Text4_Text) * Val(Text8_Text))
Text33_Text = (Val(Text4_Text) * Val(Text9_Text))
Text34_Text = (Val(Text4_Text) * Val(Text10_Text))
End If
End Sub

Private Sub Command2_Click()
Text1_Text = ""
Text2_Text = ""
Text3_Text = ""
Text4_Text = ""
Text5_Text = ""
Text6_Text = ""
Text7_Text = ""
Text9_Text = ""
Text8_Text = ""
Text10_Text = ""
Text11_Text = ""
Text12_Text = ""
Text13_Text = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text18_Text = ""
Text19_Text = ""
Text20_Text = ""
Text21_Text = ""
Text22_Text = ""
Text23_Text = ""
Text24_Text = ""
Text25_Text = ""
Text26_Text = ""
Text27_Text = ""
Text28_Text = ""
Text29_Text = ""
Text30_Text = ""
Text31_Text = ""
Text32_Text = ""
Text33_Text = ""
Text34_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form32.Show
Me.Hide
End Sub

gambar 6

Private Sub Command1_Click()
If Option1.Value = True Then
Text12_Text = (Val(Text1_Text) * Val(Text5_Text))
Text13_Text = (Val(Text1_Text) * Val(Text6_Text))
Text14_Text = (Val(Text1_Text) * Val(Text7_Text))
Text15_Text = (Val(Text1_Text) * Val(Text8_Text))
Text16_Text = (Val(Text1_Text) * Val(Text9_Text))
Text17_Text = (Val(Text1_Text) * Val(Text10_Text))
Text18_Text = (Val(Text1_Text) * Val(Text11_Text))
Text19_Text = (Val(Text2_Text) * Val(Text5_Text))
Text20_Text = (Val(Text2_Text) * Val(Text6_Text))
Text21_Text = (Val(Text2_Text) * Val(Text7_Text))
Text22_Text = (Val(Text2_Text) * Val(Text8_Text))
Text23_Text = (Val(Text2_Text) * Val(Text9_Text))
Text24_Text = (Val(Text2_Text) * Val(Text10_Text))
Text25_Text = (Val(Text2_Text) * Val(Text11_Text))
Text26_Text = (Val(Text3_Text) * Val(Text5_Text))
Text27_Text = (Val(Text3_Text) * Val(Text6_Text))
Text28_Text = (Val(Text3_Text) * Val(Text7_Text))
Text29_Text = (Val(Text3_Text) * Val(Text8_Text))
Text30_Text = (Val(Text3_Text) * Val(Text9_Text))
Text31_Text = (Val(Text3_Text) * Val(Text10_Text))
Text32_Text = (Val(Text3_Text) * Val(Text11_Text))
Text33_Text = (Val(Text4_Text) * Val(Text5_Text))
Text34_Text = (Val(Text4_Text) * Val(Text6_Text))
Text35_Text = (Val(Text4_Text) * Val(Text7_Text))
Text36_Text = (Val(Text4_Text) * Val(Text8_Text))
Text37_Text = (Val(Text4_Text) * Val(Text9_Text))
Text38_text = (Val(Text4_Text) * Val(Text10_Text))
Text39_Text = (Val(Text4_Text) * Val(Text11_Text))
End If
End Sub

Private Sub Command2_Click()
Text1_Text = ""
Text2_Text = ""
Text3_Text = ""
Text4_Text = ""
Text5_Text = ""
Text6_Text = ""
Text7_Text = ""
Text9_Text = ""
Text8_Text = ""
Text10_Text = ""
Text11_Text = ""
Text12_Text = ""
Text13_Text = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text18_Text = ""
Text19_Text = ""
Text20_Text = ""
Text21_Text = ""
Text22_Text = ""
Text23_Text = ""
Text24_Text = ""
Text25_Text = ""
Text26_Text = ""
Text27_Text = ""
Text28_Text = ""
Text29_Text = ""
Text30_Text = ""
Text31_Text = ""
Text32_Text = ""
Text33_Text = ""
Text34_Text = ""
Text35_Text = ""
Text36_Text = ""
Text37_Text = ""
Text38_text = ""
Text39_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form32.Show
Me.Hide
End Sub

gambar 7

Private Sub Command1_Click()
If Option1.Value = True Then
Text13_Text = (Val(Text1_Text) * Val(Text5_Text))
Text14_Text = (Val(Text1_Text) * Val(Text6_Text))
Text15_Text = (Val(Text1_Text) * Val(Text7_Text))
Text16_Text = (Val(Text1_Text) * Val(Text8_Text))
Text17_Text = (Val(Text1_Text) * Val(Text9_Text))
Text18_Text = (Val(Text1_Text) * Val(Text10_Text))
Text19_Text = (Val(Text1_Text) * Val(Text11_Text))
Text20_Text = (Val(Text1_Text) * Val(Text12_Text))
Text21_Text = (Val(Text2_Text) * Val(Text5_Text))
Text22_Text = (Val(Text2_Text) * Val(Text6_Text))
Text23_Text = (Val(Text2_Text) * Val(Text7_Text))
Text24_Text = (Val(Text2_Text) * Val(Text8_Text))
Text25_Text = (Val(Text2_Text) * Val(Text9_Text))
Text26_Text = (Val(Text2_Text) * Val(Text10_Text))
Text27_Text = (Val(Text2_Text) * Val(Text11_Text))
Text28_Text = (Val(Text2_Text) * Val(Text12_Text))
Text29_Text = (Val(Text3_Text) * Val(Text5_Text))
Text30_Text = (Val(Text3_Text) * Val(Text6_Text))
Text31_Text = (Val(Text3_Text) * Val(Text7_Text))
Text32_Text = (Val(Text3_Text) * Val(Text8_Text))
Text33_Text = (Val(Text3_Text) * Val(Text9_Text))
Text34_Text = (Val(Text3_Text) * Val(Text10_Text))
Text35_Text = (Val(Text3_Text) * Val(Text11_Text))
Text36_Text = (Val(Text3_Text) * Val(Text12_Text))
Text37_Text = (Val(Text4_Text) * Val(Text5_Text))
Text38_text = (Val(Text4_Text) * Val(Text6_Text))
Text39_Text = (Val(Text4_Text) * Val(Text7_Text))
Text40_Text = (Val(Text4_Text) * Val(Text8_Text))
Text41_Text = (Val(Text4_Text) * Val(Text9_Text))
Text42_Text = (Val(Text4_Text) * Val(Text10_Text))
Text43_Text = (Val(Text4_Text) * Val(Text11_Text))
Text44_Text = (Val(Text4_Text) * Val(Text12_Text))
End If
End Sub

Private Sub Command2_Click()
Text1_Text = ""
Text2_Text = ""
Text3_Text = ""
Text4_Text = ""
Text5_Text = ""
Text6_Text = ""
Text7_Text = ""
Text9_Text = ""
Text8_Text = ""
Text10_Text = ""
Text11_Text = ""
Text12_Text = ""
Text13_Text = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text18_Text = ""
Text19_Text = ""
Text20_Text = ""
Text21_Text = ""
Text22_Text = ""
Text23_Text = ""
Text24_Text = ""
Text25_Text = ""
Text26_Text = ""
Text27_Text = ""
Text28_Text = ""
Text29_Text = ""
Text30_Text = ""
Text31_Text = ""
Text32_Text = ""
Text33_Text = ""
Text34_Text = ""
Text35_Text = ""
Text36_Text = ""
Text37_Text = ""
Text38_text = ""
Text39_Text = ""
Text40_Text = ""
Text41_Text = ""
Text42_Text = ""
Text43_Text = ""
Text44_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form32.Show
Me.Hide
End Sub

gambar 8

Private Sub Command1_Click()
If Option1.Value = True Then
Text14_Text = (Val(Text1_Text) * Val(Text5_Text))
Text15_Text = (Val(Text1_Text) * Val(Text6_Text))
Text16_Text = (Val(Text1_Text) * Val(Text7_Text))
Text17_Text = (Val(Text1_Text) * Val(Text8_Text))
Text18_Text = (Val(Text1_Text) * Val(Text9_Text))
Text19_Text = (Val(Text1_Text) * Val(Text10_Text))
Text20_Text = (Val(Text1_Text) * Val(Text11_Text))
Text21_Text = (Val(Text1_Text) * Val(Text12_Text))
Text22_Text = (Val(Text1_Text) * Val(Text13_Text))
Text23_Text = (Val(Text2_Text) * Val(Text5_Text))
Text24_Text = (Val(Text2_Text) * Val(Text6_Text))
Text25_Text = (Val(Text2_Text) * Val(Text7_Text))
Text26_Text = (Val(Text2_Text) * Val(Text8_Text))
Text27_Text = (Val(Text2_Text) * Val(Text9_Text))
Text28_Text = (Val(Text2_Text) * Val(Text10_Text))
Text29_Text = (Val(Text2_Text) * Val(Text11_Text))
Text30_Text = (Val(Text2_Text) * Val(Text12_Text))
Text31_Text = (Val(Text2_Text) * Val(Text13_Text))
Text32_Text = (Val(Text3_Text) * Val(Text5_Text))
Text33_Text = (Val(Text3_Text) * Val(Text6_Text))
Text34_Text = (Val(Text3_Text) * Val(Text7_Text))
Text35_Text = (Val(Text3_Text) * Val(Text8_Text))
Text36_Text = (Val(Text3_Text) * Val(Text9_Text))
Text37_Text = (Val(Text3_Text) * Val(Text10_Text))
Text38_text = (Val(Text3_Text) * Val(Text11_Text))
Text39_Text = (Val(Text3_Text) * Val(Text12_Text))
Text40_Text = (Val(Text3_Text) * Val(Text13_Text))
Text41_Text = (Val(Text4_Text) * Val(Text5_Text))
Text42_Text = (Val(Text4_Text) * Val(Text6_Text))
Text43_Text = (Val(Text4_Text) * Val(Text7_Text))
Text44_Text = (Val(Text4_Text) * Val(Text8_Text))
Text45_Text = (Val(Text4_Text) * Val(Text9_Text))
Text46_Text = (Val(Text4_Text) * Val(Text10_Text))
Text47_Text = (Val(Text4_Text) * Val(Text11_Text))
Text48_Text = (Val(Text4_Text) * Val(Text12_Text))
Text49_Text = (Val(Text4_Text) * Val(Text13_Text))
End If
End Sub

Private Sub Command2_Click()
Text1_Text = ""
Text2_Text = ""
Text3_Text = ""
Text4_Text = ""
Text5_Text = ""
Text6_Text = ""
Text7_Text = ""
Text9_Text = ""
Text8_Text = ""
Text10_Text = ""
Text11_Text = ""
Text12_Text = ""
Text13_Text = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text18_Text = ""
Text19_Text = ""
Text20_Text = ""
Text21_Text = ""
Text22_Text = ""
Text23_Text = ""
Text24_Text = ""
Text25_Text = ""
Text26_Text = ""
Text27_Text = ""
Text28_Text = ""
Text29_Text = ""
Text30_Text = ""
Text31_Text = ""
Text32_Text = ""
Text33_Text = ""
Text34_Text = ""
Text35_Text = ""
Text36_Text = ""
Text37_Text = ""
Text38_text = ""
Text39_Text = ""
Text40_Text = ""
Text41_Text = ""
Text42_Text = ""
Text43_Text = ""
Text44_Text = ""
Text45_Text = ""
Text46_Text = ""
Text47_Text = ""
Text48_Text = ""
Text49_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form32.Show
Me.Hide
End Sub

7. Kemudian jika masuk ke menu 4 kita disajikan beberapa pilihan yang jika kita pilih akan muncul tampilan sebagai berikut:

gambar1

Private Sub Command1_Click()
If Option1.Value = True Then
Text8_Text = (Val(Text1_Text) * Val(Text6_Text))
Text9_Text = (Val(Text1_Text) * Val(Text7_Text))
Text10_Text = (Val(Text2_Text) * Val(Text6_Text))
Text11_Text = (Val(Text2_Text) * Val(Text7_Text))
Text12_Text = (Val(Text3_Text) * Val(Text6_Text))
Text13_Text = (Val(Text3_Text) * Val(Text7_Text))
Text14_Text = (Val(Text4_Text) * Val(Text6_Text))
Text15_Text = (Val(Text4_Text) * Val(Text7_Text))
Text16_Text = (Val(Text5_Text) * Val(Text6_Text))
Text17_Text = (Val(Text5_Text) * Val(Text7_Text))
End If
End Sub

Private Sub Command2_Click()
Text1_Text = ""
Text2_Text = ""
Text3_Text = ""
Text4_Text = ""
Text5_Text = ""
Text6_Text = ""
Text7_Text = ""
Text9_Text = ""
Text8_Text = ""
Text10_Text = ""
Text11_Text = ""
Text12_Text = ""
Text13_Text = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form33.Show
Me.Hide
End Sub

gambar 2

Private Sub Command1_Click()
If Option1.Value = True Then
Text9_Text = (Val(Text1_Text) * Val(Text6_Text))
Text10_Text = (Val(Text1_Text) * Val(Text7_Text))
Text11_Text = (Val(Text1_Text) * Val(Text8_Text))
Text12_Text = (Val(Text2_Text) * Val(Text6_Text))
Text13_Text = (Val(Text2_Text) * Val(Text7_Text))
Text14_Text = (Val(Text2_Text) * Val(Text8_Text))
Text15_Text = (Val(Text3_Text) * Val(Text6_Text))
Text16_Text = (Val(Text3_Text) * Val(Text7_Text))
Text17_Text = (Val(Text3_Text) * Val(Text8_Text))
Text18_Text = (Val(Text4_Text) * Val(Text6_Text))
Text19_Text = (Val(Text4_Text) * Val(Text7_Text))
Text20_Text = (Val(Text4_Text) * Val(Text8_Text))
Text21_Text = (Val(Text5_Text) * Val(Text6_Text))
Text22_Text = (Val(Text5_Text) * Val(Text7_Text))
Text23_Text = (Val(Text5_Text) * Val(Text8_Text))
End If
End Sub

Private Sub Command2_Click()
Text1_Text = ""
Text2_Text = ""
Text3_Text = ""
Text4_Text = ""
Text5_Text = ""
Text6_Text = ""
Text7_Text = ""
Text9_Text = ""
Text8_Text = ""
Text10_Text = ""
Text11_Text = ""
Text12_Text = ""
Text13_Text = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text18_Text = ""
Text19_Text = ""
Text20_Text = ""
Text21_Text = ""
Text22_Text = ""
Text23_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form33.Show
Me.Hide
End Sub

gambar 3

Private Sub Command1_Click()
If Option1.Value = True Then
Text10_Text = (Val(Text1_Text) * Val(Text6_Text))
Text11_Text = (Val(Text1_Text) * Val(Text7_Text))
Text12_Text = (Val(Text1_Text) * Val(Text8_Text))
Text13_Text = (Val(Text1_Text) * Val(Text9_Text))
Text14_Text = (Val(Text2_Text) * Val(Text6_Text))
Text15_Text = (Val(Text2_Text) * Val(Text7_Text))
Text16_Text = (Val(Text2_Text) * Val(Text8_Text))
Text17_Text = (Val(Text2_Text) * Val(Text9_Text))
Text18_Text = (Val(Text3_Text) * Val(Text6_Text))
Text19_Text = (Val(Text3_Text) * Val(Text7_Text))
Text20_Text = (Val(Text3_Text) * Val(Text8_Text))
Text21_Text = (Val(Text3_Text) * Val(Text9_Text))
Text22_Text = (Val(Text4_Text) * Val(Text6_Text))
Text23_Text = (Val(Text4_Text) * Val(Text7_Text))
Text24_Text = (Val(Text4_Text) * Val(Text8_Text))
Text25_Text = (Val(Text4_Text) * Val(Text9_Text))
Text26_Text = (Val(Text5_Text) * Val(Text6_Text))
Text27_Text = (Val(Text5_Text) * Val(Text7_Text))
Text28_Text = (Val(Text5_Text) * Val(Text8_Text))
Text29_Text = (Val(Text5_Text) * Val(Text9_Text))
End If
End Sub

Private Sub Command2_Click()
Text1_Text = ""
Text2_Text = ""
Text3_Text = ""
Text4_Text = ""
Text5_Text = ""
Text6_Text = ""
Text7_Text = ""
Text9_Text = ""
Text8_Text = ""
Text10_Text = ""
Text11_Text = ""
Text12_Text = ""
Text13_Text = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text18_Text = ""
Text19_Text = ""
Text20_Text = ""
Text21_Text = ""
Text22_Text = ""
Text23_Text = ""
Text24_Text = ""
Text25_Text = ""
Text26_Text = ""
Text27_Text = ""
Text28_Text = ""
Text29_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form33.Show
Me.Hide
End Sub

gambar 4

Private Sub Command1_Click()
If Option1.Value = True Then
Text11_Text = (Val(Text1_Text) * Val(Text6_Text))
Text12_Text = (Val(Text1_Text) * Val(Text7_Text))
Text13_Text = (Val(Text1_Text) * Val(Text8_Text))
Text14_Text = (Val(Text1_Text) * Val(Text9_Text))
Text15_Text = (Val(Text1_Text) * Val(Text10_Text))
Text16_Text = (Val(Text2_Text) * Val(Text6_Text))
Text17_Text = (Val(Text2_Text) * Val(Text7_Text))
Text18_Text = (Val(Text2_Text) * Val(Text8_Text))
Text19_Text = (Val(Text2_Text) * Val(Text9_Text))
Text20_Text = (Val(Text2_Text) * Val(Text10_Text))
Text21_Text = (Val(Text3_Text) * Val(Text6_Text))
Text22_Text = (Val(Text3_Text) * Val(Text7_Text))
Text23_Text = (Val(Text3_Text) * Val(Text8_Text))
Text24_Text = (Val(Text3_Text) * Val(Text9_Text))
Text25_Text = (Val(Text3_Text) * Val(Text10_Text))
Text26_Text = (Val(Text4_Text) * Val(Text6_Text))
Text27_Text = (Val(Text4_Text) * Val(Text7_Text))
Text28_Text = (Val(Text4_Text) * Val(Text8_Text))
Text29_Text = (Val(Text4_Text) * Val(Text9_Text))
Text30_Text = (Val(Text4_Text) * Val(Text10_Text))
Text31_Text = (Val(Text5_Text) * Val(Text6_Text))
Text32_Text = (Val(Text5_Text) * Val(Text7_Text))
Text33_Text = (Val(Text5_Text) * Val(Text8_Text))
Text34_Text = (Val(Text5_Text) * Val(Text9_Text))
Text35_Text = (Val(Text5_Text) * Val(Text10_Text))
End If
End Sub

Private Sub Command2_Click()
Text1_Text = ""
Text2_Text = ""
Text3_Text = ""
Text4_Text = ""
Text5_Text = ""
Text6_Text = ""
Text7_Text = ""
Text9_Text = ""
Text8_Text = ""
Text10_Text = ""
Text11_Text = ""
Text12_Text = ""
Text13_Text = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text18_Text = ""
Text19_Text = ""
Text20_Text = ""
Text21_Text = ""
Text22_Text = ""
Text23_Text = ""
Text24_Text = ""
Text25_Text = ""
Text26_Text = ""
Text27_Text = ""
Text28_Text = ""
Text29_Text = ""
Text30_Text = ""
Text31_Text = ""
Text32_Text = ""
Text33_Text = ""
Text34_Text = ""
Text35_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form33.Show
Me.Hide
End Sub

gambar 5

Private Sub Command1_Click()
If Option1.Value = True Then
Text12_Text = (Val(Text1_Text) * Val(Text6_Text))
Text13_Text = (Val(Text1_Text) * Val(Text7_Text))
Text14_Text = (Val(Text1_Text) * Val(Text8_Text))
Text15_Text = (Val(Text1_Text) * Val(Text9_Text))
Text16_Text = (Val(Text1_Text) * Val(Text10_Text))
Text17_Text = (Val(Text1_Text) * Val(Text11_Text))
Text18_Text = (Val(Text2_Text) * Val(Text6_Text))
Text19_Text = (Val(Text2_Text) * Val(Text7_Text))
Text20_Text = (Val(Text2_Text) * Val(Text8_Text))
Text21_Text = (Val(Text2_Text) * Val(Text9_Text))
Text22_Text = (Val(Text2_Text) * Val(Text10_Text))
Text23_Text = (Val(Text2_Text) * Val(Text11_Text))
Text24_Text = (Val(Text3_Text) * Val(Text6_Text))
Text25_Text = (Val(Text3_Text) * Val(Text7_Text))
Text26_Text = (Val(Text3_Text) * Val(Text8_Text))
Text27_Text = (Val(Text3_Text) * Val(Text9_Text))
Text28_Text = (Val(Text3_Text) * Val(Text10_Text))
Text29_Text = (Val(Text3_Text) * Val(Text11_Text))
Text30_Text = (Val(Text4_Text) * Val(Text6_Text))
Text31_Text = (Val(Text4_Text) * Val(Text7_Text))
Text32_Text = (Val(Text4_Text) * Val(Text8_Text))
Text33_Text = (Val(Text4_Text) * Val(Text9_Text))
Text34_Text = (Val(Text4_Text) * Val(Text10_Text))
Text35_Text = (Val(Text4_Text) * Val(Text11_Text))
Text36_Text = (Val(Text5_Text) * Val(Text6_Text))
Text37_Text = (Val(Text5_Text) * Val(Text7_Text))
Text38_Text = (Val(Text5_Text) * Val(Text8_Text))
Text39_Text = (Val(Text5_Text) * Val(Text9_Text))
Text40_Text = (Val(Text5_Text) * Val(Text10_Text))
Text41_Text = (Val(Text5_Text) * Val(Text11_Text))
End If
End Sub

Private Sub Command2_Click()
Text1_Text = ""
Text2_Text = ""
Text3_Text = ""
Text4_Text = ""
Text5_Text = ""
Text6_Text = ""
Text7_Text = ""
Text9_Text = ""
Text8_Text = ""
Text10_Text = ""
Text11_Text = ""
Text12_Text = ""
Text13_Text = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text18_Text = ""
Text19_Text = ""
Text20_Text = ""
Text21_Text = ""
Text22_Text = ""
Text23_Text = ""
Text24_Text = ""
Text25_Text = ""
Text26_Text = ""
Text27_Text = ""
Text28_Text = ""
Text29_Text = ""
Text30_Text = ""
Text31_Text = ""
Text32_Text = ""
Text33_Text = ""
Text34_Text = ""
Text35_Text = ""
Text36_Text = ""
Text37_Text = ""
Text38_Text = ""
Text39_Text = ""
Text40_Text = ""
Text41_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form33.Show
Me.Hide
End Sub

gambar6

Private Sub Command1_Click()
If Option1.Value = True Then
Text13_Text = (Val(Text1_Text) * Val(Text6_Text))
Text14_Text = (Val(Text1_Text) * Val(Text7_Text))
Text15_Text = (Val(Text1_Text) * Val(Text8_Text))
Text16_Text = (Val(Text1_Text) * Val(Text9_Text))
Text17_Text = (Val(Text1_Text) * Val(Text10_Text))
Text18_Text = (Val(Text1_Text) * Val(Text11_Text))
Text19_Text = (Val(Text1_Text) * Val(Text12_Text))
Text20_Text = (Val(Text2_Text) * Val(Text6_Text))
Text21_Text = (Val(Text2_Text) * Val(Text7_Text))
Text22_Text = (Val(Text2_Text) * Val(Text8_Text))
Text23_Text = (Val(Text2_Text) * Val(Text9_Text))
Text24_Text = (Val(Text2_Text) * Val(Text10_Text))
Text25_Text = (Val(Text2_Text) * Val(Text11_Text))
Text26_Text = (Val(Text2_Text) * Val(Text12_Text))
Text27_Text = (Val(Text3_Text) * Val(Text6_Text))
Text28_Text = (Val(Text3_Text) * Val(Text7_Text))
Text29_Text = (Val(Text3_Text) * Val(Text8_Text))
Text30_Text = (Val(Text3_Text) * Val(Text9_Text))
Text31_Text = (Val(Text3_Text) * Val(Text10_Text))
Text32_Text = (Val(Text3_Text) * Val(Text11_Text))
Text33_Text = (Val(Text3_Text) * Val(Text12_Text))
Text34_Text = (Val(Text4_Text) * Val(Text6_Text))
Text35_Text = (Val(Text4_Text) * Val(Text7_Text))
Text36_Text = (Val(Text4_Text) * Val(Text8_Text))
Text37_Text = (Val(Text4_Text) * Val(Text9_Text))
Text38_Text = (Val(Text4_Text) * Val(Text10_Text))
Text39_Text = (Val(Text5_Text) * Val(Text11_Text))
Text40_Text = (Val(Text5_Text) * Val(Text12_Text))
Text41_Text = (Val(Text5_Text) * Val(Text6_Text))
Text42_Text = (Val(Text5_Text) * Val(Text7_Text))
Text43_Text = (Val(Text5_Text) * Val(Text8_Text))
Text44_Text = (Val(Text5_Text) * Val(Text9_Text))
Text45_Text = (Val(Text5_Text) * Val(Text10_Text))
Text46_Text = (Val(Text5_Text) * Val(Text11_Text))
Text47_Text = (Val(Text5_Text) * Val(Text12_Text))
End If
End Sub

Private Sub Command2_Click()
Text1_Text = ""
Text2_Text = ""
Text3_Text = ""
Text4_Text = ""
Text5_Text = ""
Text6_Text = ""
Text7_Text = ""
Text9_Text = ""
Text8_Text = ""
Text10_Text = ""
Text11_Text = ""
Text12_Text = ""
Text13_Text = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text18_Text = ""
Text19_Text = ""
Text20_Text = ""
Text21_Text = ""
Text22_Text = ""
Text23_Text = ""
Text24_Text = ""
Text25_Text = ""
Text26_Text = ""
Text27_Text = ""
Text28_Text = ""
Text29_Text = ""
Text30_Text = ""
Text31_Text = ""
Text32_Text = ""
Text33_Text = ""
Text34_Text = ""
Text35_Text = ""
Text36_Text = ""
Text37_Text = ""
Text38_Text = ""
Text39_Text = ""
Text40_Text = ""
Text41_Text = ""
Text42_Text = ""
Text43_Text = ""
Text44_Text = ""
Text45_Text = ""
Text46_Text = ""
Text47_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form33.Show
Me.Hide
End Sub

gambar 7

Private Sub Command1_Click()
If Option1.Value = True Then
Text14_Text = (Val(Text1_Text) * Val(Text6_Text))
Text15_Text = (Val(Text1_Text) * Val(Text7_Text))
Text16_Text = (Val(Text1_Text) * Val(Text8_Text))
Text17_Text = (Val(Text1_Text) * Val(Text9_Text))
Text18_Text = (Val(Text1_Text) * Val(Text10_Text))
Text19_Text = (Val(Text1_Text) * Val(Text11_Text))
Text20_Text = (Val(Text1_Text) * Val(Text12_Text))
Text21_Text = (Val(Text1_Text) * Val(Text13_Text))
Text22_Text = (Val(Text2_Text) * Val(Text6_Text))
Text23_Text = (Val(Text2_Text) * Val(Text7_Text))
Text24_Text = (Val(Text2_Text) * Val(Text8_Text))
Text25_Text = (Val(Text2_Text) * Val(Text9_Text))
Text26_Text = (Val(Text2_Text) * Val(Text10_Text))
Text27_Text = (Val(Text2_Text) * Val(Text11_Text))
Text28_Text = (Val(Text2_Text) * Val(Text12_Text))
Text29_Text = (Val(Text2_Text) * Val(Text13_Text))
Text30_Text = (Val(Text3_Text) * Val(Text6_Text))
Text31_Text = (Val(Text3_Text) * Val(Text7_Text))
Text32_Text = (Val(Text3_Text) * Val(Text8_Text))
Text33_Text = (Val(Text3_Text) * Val(Text9_Text))
Text34_Text = (Val(Text3_Text) * Val(Text10_Text))
Text35_Text = (Val(Text3_Text) * Val(Text11_Text))
Text36_Text = (Val(Text3_Text) * Val(Text12_Text))
Text37_Text = (Val(Text3_Text) * Val(Text13_Text))
Text38_Text = (Val(Text4_Text) * Val(Text6_Text))
Text39_Text = (Val(Text4_Text) * Val(Text7_Text))
Text40_Text = (Val(Text4_Text) * Val(Text8_Text))
Text41_Text = (Val(Text4_Text) * Val(Text9_Text))
Text42_Text = (Val(Text4_Text) * Val(Text10_Text))
Text43_Text = (Val(Text4_Text) * Val(Text11_Text))
Text44_Text = (Val(Text4_Text) * Val(Text12_Text))
Text45_Text = (Val(Text4_Text) * Val(Text13_Text))
Text46_Text = (Val(Text5_Text) * Val(Text6_Text))
Text47_Text = (Val(Text5_Text) * Val(Text7_Text))
Text48_Text = (Val(Text5_Text) * Val(Text8_Text))
Text49_Text = (Val(Text5_Text) * Val(Text9_Text))
Text50_Text = (Val(Text5_Text) * Val(Text10_Text))
Text51_Text = (Val(Text5_Text) * Val(Text11_Text))
Text52_Text = (Val(Text5_Text) * Val(Text12_Text))
Text53_Text = (Val(Text5_Text) * Val(Text13_Text))
End If
End Sub

Private Sub Command2_Click()
Text1_Text = ""
Text2_Text = ""
Text3_Text = ""
Text4_Text = ""
Text5_Text = ""
Text6_Text = ""
Text7_Text = ""
Text9_Text = ""
Text8_Text = ""
Text10_Text = ""
Text11_Text = ""
Text12_Text = ""
Text13_Text = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text18_Text = ""
Text19_Text = ""
Text20_Text = ""
Text21_Text = ""
Text22_Text = ""
Text23_Text = ""
Text24_Text = ""
Text25_Text = ""
Text26_Text = ""
Text27_Text = ""
Text28_Text = ""
Text29_Text = ""
Text30_Text = ""
Text31_Text = ""
Text32_Text = ""
Text33_Text = ""
Text34_Text = ""
Text35_Text = ""
Text36_Text = ""
Text37_Text = ""
Text38_Text = ""
Text39_Text = ""
Text40_Text = ""
Text41_Text = ""
Text42_Text = ""
Text43_Text = ""
Text44_Text = ""
Text45_Text = ""
Text46_Text = ""
Text47_Text = ""
Text48_Text = ""
Text49_Text = ""
Text50_Text = ""
Text51_Text = ""
Text52_Text = ""
Text53_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form33.Show
Me.Hide
End Sub

gambar 8

Private Sub Command1_Click()
If Option1.Value = True Then
Text15_Text = (Val(Text1_Text) * Val(Text6_Text))
Text16_Text = (Val(Text1_Text) * Val(Text7_Text))
Text17_Text = (Val(Text1_Text) * Val(Text8_Text))
Text18_Text = (Val(Text1_Text) * Val(Text9_Text))
Text19_Text = (Val(Text1_Text) * Val(Text10_Text))
Text20_Text = (Val(Text1_Text) * Val(Text11_Text))
Text21_Text = (Val(Text1_Text) * Val(Text12_Text))
Text22_Text = (Val(Text1_Text) * Val(Text13_Text))
Text23_Text = (Val(Text2_Text) * Val(Text14_Text))
Text24_Text = (Val(Text2_Text) * Val(Text6_Text))
Text25_Text = (Val(Text2_Text) * Val(Text7_Text))
Text26_Text = (Val(Text2_Text) * Val(Text8_Text))
Text27_Text = (Val(Text2_Text) * Val(Text9_Text))
Text28_Text = (Val(Text2_Text) * Val(Text10_Text))
Text29_Text = (Val(Text2_Text) * Val(Text11_Text))
Text30_Text = (Val(Text2_Text) * Val(Text12_Text))
Text31_Text = (Val(Text3_Text) * Val(Text13_Text))
Text32_Text = (Val(Text3_Text) * Val(Text14_Text))
Text33_Text = (Val(Text3_Text) * Val(Text6_Text))
Text34_Text = (Val(Text3_Text) * Val(Text7_Text))
Text35_Text = (Val(Text3_Text) * Val(Text8_Text))
Text36_Text = (Val(Text3_Text) * Val(Text9_Text))
Text37_Text = (Val(Text3_Text) * Val(Text10_Text))
Text38_Text = (Val(Text3_Text) * Val(Text11_Text))
Text39_Text = (Val(Text4_Text) * Val(Text12_Text))
Text40_Text = (Val(Text4_Text) * Val(Text13_Text))
Text41_Text = (Val(Text4_Text) * Val(Text14_Text))
Text42_Text = (Val(Text4_Text) * Val(Text6_Text))
Text43_Text = (Val(Text4_Text) * Val(Text7_Text))
Text44_Text = (Val(Text4_Text) * Val(Text8_Text))
Text45_Text = (Val(Text4_Text) * Val(Text9_Text))
Text46_Text = (Val(Text4_Text) * Val(Text10_Text))
Text47_Text = (Val(Text5_Text) * Val(Text11_Text))
Text48_Text = (Val(Text5_Text) * Val(Text12_Text))
Text49_Text = (Val(Text5_Text) * Val(Text13_Text))
Text50_Text = (Val(Text5_Text) * Val(Text14_Text))
Text51_Text = (Val(Text5_Text) * Val(Text6_Text))
Text52_Text = (Val(Text5_Text) * Val(Text7_Text))
Text53_Text = (Val(Text5_Text) * Val(Text8_Text))
Text54_Text = (Val(Text5_Text) * Val(Text9_Text))
Text55_Text = (Val(Text4_Text) * Val(Text10_Text))
Text56_Text = (Val(Text4_Text) * Val(Text11_Text))
Text57_Text = (Val(Text5_Text) * Val(Text12_Text))
Text58_Text = (Val(Text5_Text) * Val(Text13_Text))
Text59_Text = (Val(Text5_Text) * Val(Text14_Text))
End If
End Sub

Private Sub Command2_Click()
Text1_Text = ""
Text2_Text = ""
Text3_Text = ""
Text4_Text = ""
Text5_Text = ""
Text6_Text = ""
Text7_Text = ""
Text9_Text = ""
Text8_Text = ""
Text10_Text = ""
Text11_Text = ""
Text12_Text = ""
Text13_Text = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text18_Text = ""
Text19_Text = ""
Text20_Text = ""
Text21_Text = ""
Text22_Text = ""
Text23_Text = ""
Text24_Text = ""
Text25_Text = ""
Text26_Text = ""
Text27_Text = ""
Text28_Text = ""
Text29_Text = ""
Text30_Text = ""
Text31_Text = ""
Text32_Text = ""
Text33_Text = ""
Text34_Text = ""
Text35_Text = ""
Text36_Text = ""
Text37_Text = ""
Text38_Text = ""
Text39_Text = ""
Text40_Text = ""
Text41_Text = ""
Text42_Text = ""
Text43_Text = ""
Text44_Text = ""
Text45_Text = ""
Text46_Text = ""
Text47_Text = ""
Text48_Text = ""
Text49_Text = ""
Text50_Text = ""
Text51_Text = ""
Text52_Text = ""
Text53_Text = ""
Text54_Text = ""
Text55_Text = ""
Text56_Text = ""
Text57_Text = ""
Text58_Text = ""
Text59_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form33.Show
Me.Hide
End Sub

8. Kemudian jika masuk ke menu 5 kita disajikan beberapa pilihan yang jika kita pilih akan muncul tampilan sebagai berikut:

9. Kemudian jika masuk ke menu spesial kita disajikan beberapa pilihan yang jika kita pilih akan muncul tampilan sebagai berikut:

gambar 1

Private Sub Command1_Click()
If Option2.Value = True Then
Text9_Text = Val(Text1_Text) + Val(Text5_Text)
Text10_Text = Val(Text2_Text) + Val(Text6_Text)
Text11_Text = Val(Text3_Text) + Val(Text7_Text)
Text12_Text = Val(Text4_Text) + Val(Text8_Text)
ElseIf Option1.Value = True Then
Text9_Text = (Val(Text1_Text) * Val(Text5_Text)) + (Val(Text2_Text) * Val(Text7_Text))
Text10_Text = (Val(Text1_Text) * Val(Text6_Text)) + (Val(Text2_Text) * Val(Text8_Text))
Text11_Text = (Val(Text3_Text) * Val(Text5_Text)) + (Val(Text4_Text) * Val(Text7_Text))
Text12_Text = (Val(Text3_Text) * Val(Text6_Text)) + (Val(Text4_Text) * Val(Text8_Text))
ElseIf Option4.Value = True Then
Text9_Text = Val(Text1_Text) - Val(Text5_Text)
Text10_Text = Val(Text2_Text) - Val(Text6_Text)
Text11_Text = Val(Text3_Text) - Val(Text7_Text)
Text12_Text = Val(Text4_Text) - Val(Text8_Text)
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_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form42.Show
Me.Hide
End Sub

gambar 2

Private Sub Command1_Click()
If Option2.Value = True Then
Text19_Text = Val(Text1_Text) + Val(Text10_Text)
Text20_Text = Val(Text2_Text) + Val(Text11_Text)
Text21_Text = Val(Text3_Text) + Val(Text12_Text)
Text22_Text = Val(Text4_Text) + Val(Text13_Text)
Text23_Text = Val(Text5_Text) + Val(Text14_Text)
Text24_Text = Val(Text6_Text) + Val(Text15_Text)
Text25_Text = Val(Text7_Text) + Val(Text16_Text)
Text26_Text = Val(Text8_Text) + Val(Text17_Text)
Text27_Text = Val(Text9_Text) + Val(Text18_Text)
ElseIf Option3.Value = True Then
Text19_Text = Val(Text1_Text) - Val(Text10_Text)
Text20_Text = Val(Text2_Text) - Val(Text11_Text)
Text21_Text = Val(Text3_Text) - Val(Text12_Text)
Text22_Text = Val(Text4_Text) - Val(Text13_Text)
Text23_Text = Val(Text5_Text) - Val(Text14_Text)
Text24_Text = Val(Text6_Text) - Val(Text15_Text)
Text25_Text = Val(Text7_Text) - Val(Text16_Text)
Text26_Text = Val(Text8_Text) - Val(Text17_Text)
Text27_Text = Val(Text9_Text) - Val(Text18_Text)
ElseIf Option4.Value = True Then
Text28_Text = ((Val(Text19_Text) * Val(Text23_Text) * Val(Text27_Text)) + (Val(Text20_Text) * Val(Text24_Text) * Val(Text25_Text)) + (Val(Text21_Text) * Val(Text22_Text) * Val(Text26_Text))) - ((Val(Text20_Text) * Val(Text22_Text) * Val(Text27_Text)) + (Val(Text19_Text) * Val(Text24_Text) * Val(Text26_Text)) + (Val(Text21_Text) * Val(Text23_Text) * Val(Text25_Text)))
Else: Option1.Value = True
Text19_Text = (Val(Text1_Text) * Val(Text10_Text)) + (Val(Text2_Text) * Val(Text13_Text)) + (Val(Text3_Text) * Val(Text16_Text))
Text20_Text = (Val(Text1_Text) * Val(Text11_Text)) + (Val(Text2_Text) * Val(Text14_Text)) + (Val(Text3_Text) * Val(Text17_Text))
Text21_Text = (Val(Text1_Text) * Val(Text12_Text)) + (Val(Text2_Text) * Val(Text15_Text)) + (Val(Text3_Text) * Val(Text18_Text))
Text22_Text = (Val(Text4_Text) * Val(Text10_Text)) + (Val(Text5_Text) * Val(Text13_Text)) + (Val(Text6_Text) * Val(Text16_Text))
Text23_Text = (Val(Text4_Text) * Val(Text11_Text)) + (Val(Text5_Text) * Val(Text14_Text)) + (Val(Text6_Text) * Val(Text17_Text))
Text24_Text = (Val(Text4_Text) * Val(Text12_Text)) + (Val(Text5_Text) * Val(Text15_Text)) + (Val(Text6_Text) * Val(Text18_Text))
Text25_Text = (Val(Text7_Text) * Val(Text10_Text)) + (Val(Text8_Text) * Val(Text13_Text)) + (Val(Text9_Text) * Val(Text16_Text))
Text26_Text = (Val(Text7_Text) * Val(Text11_Text)) + (Val(Text8_Text) * Val(Text14_Text)) + (Val(Text9_Text) * Val(Text17_Text))
Text27_Text = (Val(Text7_Text) * Val(Text12_Text)) + (Val(Text8_Text) * Val(Text15_Text)) + (Val(Text9_Text) * Val(Text18_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 = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text18_Text = ""
Text19_Text = ""
Text20_Text = ""
Text21_Text = ""
Text22_Text = ""
Text23_Text = ""
Text24_Text = ""
Text25_Text = ""
Text26_Text = ""
Text27_Text = ""
Text28_Text = ""
Text1_Text.SetFocus

End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form42.Show
Me.Hide
End Sub

gambar 3

Private Sub Command1_Click()
If Option2.Value = True Then
Text33_Text = Val(Text1_Text) + Val(Text17_Text)
Text34_Text = Val(Text2_Text) + Val(Text18_Text)
Text35_Text = Val(Text3_Text) + Val(Text19_Text)
Text36_Text = Val(Text4_Text) + Val(Text20_Text)
Text37_Text = Val(Text5_Text) + Val(Text21_Text)
Text38_Text = Val(Text6_Text) + Val(Text22_Text)
Text39_Text = Val(Text7_Text) + Val(Text23_Text)
Text40_Text = Val(Text8_Text) + Val(Text24_Text)
Text41_Text = Val(Text9_Text) + Val(Text25_Text)
Text42_Text = Val(Text10_Text) + Val(Text26_Text)
Text43_Text = Val(Text11_Text) + Val(Text27_Text)
Text44_Text = Val(Text12_Text) + Val(Text28_Text)
Text45_Text = Val(Text13_Text) + Val(Text29_Text)
Text46_Text = Val(Text14_Text) + Val(Text30_Text)
Text47_Text = Val(Text15_Text) + Val(Text31_Text)
Text48_Text = Val(Text16_Text) + Val(Text32_Text)
ElseIf Option3.Value = True Then
Text33_Text = Val(Text1_Text) - Val(Text17_Text)
Text34_Text = Val(Text2_Text) - Val(Text18_Text)
Text35_Text = Val(Text3_Text) - Val(Text19_Text)
Text36_Text = Val(Text4_Text) - Val(Text20_Text)
Text37_Text = Val(Text5_Text) - Val(Text21_Text)
Text38_Text = Val(Text6_Text) - Val(Text22_Text)
Text39_Text = Val(Text7_Text) - Val(Text23_Text)
Text40_Text = Val(Text8_Text) - Val(Text24_Text)
Text41_Text = Val(Text9_Text) - Val(Text25_Text)
Text42_Text = Val(Text10_Text) - Val(Text26_Text)
Text43_Text = Val(Text11_Text) - Val(Text27_Text)
Text44_Text = Val(Text12_Text) - Val(Text28_Text)
Text45_Text = Val(Text13_Text) - Val(Text29_Text)
Text46_Text = Val(Text14_Text) - Val(Text30_Text)
Text47_Text = Val(Text15_Text) - Val(Text31_Text)
Text48_Text = Val(Text16_Text) - Val(Text32_Text)
ElseIf Option4.Value = True Then
Text49_Text = Val(Text33_Text) * (Val(Text38_Text) * ((Val(Text43_Text) * Val(Text48_Text)) - (Val(Text44_Text) * Val(Text47_Text))) - Val(Text42_Text) * ((Val(Text39_Text) * Val(Text48_Text)) - (Val(Text40_Text) * Val(Text47_Text))) + Val(Text46_Text) * ((Val(Text39_Text) * Val(Text44_Text)) - (Val(Text40_Text) * Val(Text43_Text))))
Text50_Text = Val(Text37_Text) * (Val(Text34_Text) * ((Val(Text43_Text) * Val(Text48_Text)) - (Val(Text44_Text) * Val(Text47_Text))) - Val(Text42_Text) * ((Val(Text35_Text) * Val(Text48_Text)) - (Val(Text36_Text) * Val(Text47_Text))) + Val(Text46_Text) * ((Val(Text35_Text) * Val(Text44_Text)) - (Val(Text36_Text) * Val(Text43_Text))))
Text51_Text = Val(Text41_Text) * (Val(Text34_Text) * ((Val(Text39_Text) * Val(Text48_Text)) - (Val(Text40_Text) * Val(Text47_Text))) - Val(Text38_Text) * ((Val(Text35_Text) * Val(Text48_Text)) - (Val(Text36_Text) * Val(Text47_Text))) + Val(Text46_Text) * ((Val(Text35_Text) * Val(Text40_Text)) - (Val(Text36_Text) * Val(Text39_Text))))
Text52_Text = Val(Text45_Text) * (Val(Text34_Text) * ((Val(Text39_Text) * Val(Text44_Text)) - (Val(Text40_Text) * Val(Text43_Text))) - Val(Text38_Text) * ((Val(Text35_Text) * Val(Text44_Text)) - (Val(Text36_Text) * Val(Text43_Text))) + Val(Text42_Text) * ((Val(Text35_Text) * Val(Text40_Text)) - (Val(Text39_Text) * Val(Text36_Text))))
Text53_Text = Val(Text49_Text) - Val(Text50_Text) + Val(Text51_Text) - Val(Text52_Text)
Else: Option1.Value = True
Text33_Text = (Val(Text1_Text) * Val(Text17_Text)) + (Val(Text2_Text) * Val(Text21_Text)) + (Val(Text3_Text) * Val(Text25_Text) + (Val(Text4_Text) * Val(Text29_Text)))
Text34_Text = (Val(Text1_Text) * Val(Text18_Text)) + (Val(Text2_Text) * Val(Text22_Text)) + (Val(Text3_Text) * Val(Text26_Text) + (Val(Text4_Text) * Val(Text30_Text)))
Text35_Text = (Val(Text1_Text) * Val(Text19_Text)) + (Val(Text2_Text) * Val(Text23_Text)) + (Val(Text3_Text) * Val(Text27_Text) + (Val(Text4_Text) * Val(Text31_Text)))
Text36_Text = (Val(Text1_Text) * Val(Text20_Text)) + (Val(Text2_Text) * Val(Text24_Text)) + (Val(Text3_Text) * Val(Text28_Text) + (Val(Text4_Text) * Val(Text32_Text)))
Text37_Text = (Val(Text5_Text) * Val(Text17_Text)) + (Val(Text6_Text) * Val(Text21_Text)) + (Val(Text7_Text) * Val(Text25_Text) + (Val(Text8_Text) * Val(Text29_Text)))
Text38_Text = (Val(Text5_Text) * Val(Text18_Text)) + (Val(Text6_Text) * Val(Text22_Text)) + (Val(Text7_Text) * Val(Text26_Text) + (Val(Text8_Text) * Val(Text30_Text)))
Text39_Text = (Val(Text5_Text) * Val(Text19_Text)) + (Val(Text6_Text) * Val(Text23_Text)) + (Val(Text7_Text) * Val(Text27_Text) + (Val(Text8_Text) * Val(Text31_Text)))
Text40_Text = (Val(Text5_Text) * Val(Text20_Text)) + (Val(Text6_Text) * Val(Text24_Text)) + (Val(Text7_Text) * Val(Text28_Text) + (Val(Text8_Text) * Val(Text32_Text)))
Text41_Text = (Val(Text9_Text) * Val(Text17_Text)) + (Val(Text10_Text) * Val(Text21_Text)) + (Val(Text11_Text) * Val(Text25_Text) + (Val(Text12_Text) * Val(Text29_Text)))
Text42_Text = (Val(Text9_Text) * Val(Text18_Text)) + (Val(Text10_Text) * Val(Text22_Text)) + (Val(Text11_Text) * Val(Text26_Text) + (Val(Text12_Text) * Val(Text30_Text)))
Text43_Text = (Val(Text9_Text) * Val(Text19_Text)) + (Val(Text10_Text) * Val(Text23_Text)) + (Val(Text11_Text) * Val(Text27_Text) + (Val(Text12_Text) * Val(Text31_Text)))
Text44_Text = (Val(Text9_Text) * Val(Text20_Text)) + (Val(Text10_Text) * Val(Text24_Text)) + (Val(Text11_Text) * Val(Text28_Text) + (Val(Text12_Text) * Val(Text32_Text)))
Text45_Text = (Val(Text13_Text) * Val(Text17_Text)) + (Val(Text14_Text) * Val(Text21_Text)) + (Val(Text15_Text) * Val(Text25_Text) + (Val(Text16_Text) * Val(Text29_Text)))
Text46_Text = (Val(Text13_Text) * Val(Text18_Text)) + (Val(Text14_Text) * Val(Text22_Text)) + (Val(Text15_Text) * Val(Text26_Text) + (Val(Text16_Text) * Val(Text30_Text)))
Text47_Text = (Val(Text13_Text) * Val(Text19_Text)) + (Val(Text14_Text) * Val(Text23_Text)) + (Val(Text15_Text) * Val(Text27_Text) + (Val(Text16_Text) * Val(Text31_Text)))
Text48_Text = (Val(Text13_Text) * Val(Text20_Text)) + (Val(Text14_Text) * Val(Text24_Text)) + (Val(Text15_Text) * Val(Text28_Text) + (Val(Text16_Text) * Val(Text32_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 = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text18_Text = ""
Text19_Text = ""
Text20_Text = ""
Text21_Text = ""
Text22_Text = ""
Text23_Text = ""
Text24_Text = ""
Text25_Text = ""
Text26_Text = ""
Text27_Text = ""
Text28_Text = ""
Text29_Text = ""
Text30_Text = ""
Text31_Text = ""
Text32_Text = ""
Text33_Text = ""
Text34_Text = ""
Text35_Text = ""
Text36_Text = ""
Text37_Text = ""
Text38_Text = ""
Text39_Text = ""
Text40_Text = ""
Text41_Text = ""
Text42_Text = ""
Text43_Text = ""
Text44_Text = ""
Text45_Text = ""
Text46_Text = ""
Text47_Text = ""
Text48_Text = ""
Text49_Text = ""
Text50_Text = ""
Text51_Text = ""
Text52_Text = ""
Text53_Text = ""
Text1_Text.SetFocus

End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form42.Show
Me.Hide
End Sub

gambar 4

Private Sub Command1_Click()
If Option2.Value = True Then
Text51_Text = Val(Text1_Text) + Val(Text26_Text)
Text52_Text = Val(Text2_Text) + Val(Text27_Text)
Text53_Text = Val(Text3_Text) + Val(Text28_Text)
Text54_Text = Val(Text4_Text) + Val(Text29_Text)
Text55_Text = Val(Text5_Text) + Val(Text30_Text)
Text56_Text = Val(Text6_Text) + Val(Text31_Text)
Text57_Text = Val(Text7_Text) + Val(Text32_Text)
Text58_Text = Val(Text8_Text) + Val(Text33_Text)
Text59_Text = Val(Text9_Text) + Val(Text34_Text)
Text60_Text = Val(Text10_Text) + Val(Text35_Text)
Text61_Text = Val(Text11_Text) + Val(Text36_Text)
Text62_Text = Val(Text12_Text) + Val(Text37_Text)
Text63_Text = Val(Text13_Text) + Val(Text38_Text)
Text64_Text = Val(Text14_Text) + Val(Text39_Text)
Text65_Text = Val(Text15_Text) + Val(Text40_Text)
Text66_Text = Val(Text16_Text) + Val(Text41_Text)
Text67_Text = Val(Text17_Text) + Val(Text42_Text)
Text68_Text = Val(Text18_Text) + Val(Text43_Text)
Text69_Text = Val(Text19_Text) + Val(Text44_Text)
Text70_Text = Val(Text20_Text) + Val(Text45_Text)
Text71_Text = Val(Text21_Text) + Val(Text46_Text)
Text72_Text = Val(Text22_Text) + Val(Text47_Text)
Text73_Text = Val(Text23_Text) + Val(Text48_Text)
Text74_Text = Val(Text24_Text) + Val(Text49_Text)
Text75_Text = Val(Text25_Text) + Val(Text50_Text)
ElseIf Option3.Value = True Then
Text51_Text = Val(Text1_Text) - Val(Text26_Text)
Text52_Text = Val(Text2_Text) - Val(Text27_Text)
Text53_Text = Val(Text3_Text) - Val(Text28_Text)
Text54_Text = Val(Text4_Text) - Val(Text29_Text)
Text55_Text = Val(Text5_Text) - Val(Text30_Text)
Text56_Text = Val(Text6_Text) - Val(Text31_Text)
Text57_Text = Val(Text7_Text) - Val(Text32_Text)
Text58_Text = Val(Text8_Text) - Val(Text33_Text)
Text59_Text = Val(Text9_Text) - Val(Text34_Text)
Text60_Text = Val(Text10_Text) - Val(Text35_Text)
Text61_Text = Val(Text11_Text) - Val(Text36_Text)
Text62_Text = Val(Text12_Text) - Val(Text37_Text)
Text63_Text = Val(Text13_Text) - Val(Text38_Text)
Text64_Text = Val(Text14_Text) - Val(Text39_Text)
Text65_Text = Val(Text15_Text) - Val(Text40_Text)
Text66_Text = Val(Text16_Text) - Val(Text41_Text)
Text67_Text = Val(Text17_Text) - Val(Text42_Text)
Text68_Text = Val(Text18_Text) - Val(Text43_Text)
Text69_Text = Val(Text19_Text) - Val(Text44_Text)
Text70_Text = Val(Text20_Text) - Val(Text45_Text)
Text71_Text = Val(Text21_Text) - Val(Text46_Text)
Text72_Text = Val(Text22_Text) - Val(Text47_Text)
Text73_Text = Val(Text23_Text) - Val(Text48_Text)
Text74_Text = Val(Text24_Text) - Val(Text49_Text)
Text75_Text = Val(Text25_Text) - Val(Text50_Text)
ElseIf Option4.Value = True Then
MsgBox ("Data belum tersedia")
Else: Option1.Value = True
Text51_Text = (Val(Text1_Text) * Val(Text26_Text)) + (Val(Text2_Text) * Val(Text31_Text)) + (Val(Text3_Text) * Val(Text36_Text)) + (Val(Text4_Text) * Val(Text41_Text)) + (Val(Text5_Text) * Val(Text46_Text))
Text52_Text = (Val(Text1_Text) * Val(Text27_Text)) + (Val(Text2_Text) * Val(Text32_Text)) + (Val(Text3_Text) * Val(Text37_Text)) + (Val(Text4_Text) * Val(Text42_Text)) + (Val(Text5_Text) * Val(Text47_Text))
Text53_Text = (Val(Text1_Text) * Val(Text28_Text)) + (Val(Text2_Text) * Val(Text33_Text)) + (Val(Text3_Text) * Val(Text38_Text)) + (Val(Text4_Text) * Val(Text43_Text)) + (Val(Text5_Text) * Val(Text48_Text))
Text54_Text = (Val(Text1_Text) * Val(Text29_Text)) + (Val(Text2_Text) * Val(Text34_Text)) + (Val(Text3_Text) * Val(Text39_Text)) + (Val(Text4_Text) * Val(Text44_Text)) + (Val(Text5_Text) * Val(Text49_Text))
Text55_Text = (Val(Text1_Text) * Val(Text30_Text)) + (Val(Text2_Text) * Val(Text35_Text)) + (Val(Text3_Text) * Val(Text40_Text)) + (Val(Text4_Text) * Val(Text45_Text)) + (Val(Text5_Text) * Val(Text50_Text))
Text56_Text = (Val(Text6_Text) * Val(Text26_Text)) + (Val(Text7_Text) * Val(Text31_Text)) + (Val(Text8_Text) * Val(Text36_Text)) + (Val(Text9_Text) * Val(Text41_Text)) + (Val(Text10_Text) * Val(Text46_Text))
Text57_Text = (Val(Text6_Text) * Val(Text27_Text)) + (Val(Text7_Text) * Val(Text32_Text)) + (Val(Text8_Text) * Val(Text37_Text)) + (Val(Text9_Text) * Val(Text42_Text)) + (Val(Text10_Text) * Val(Text47_Text))
Text58_Text = (Val(Text6_Text) * Val(Text28_Text)) + (Val(Text7_Text) * Val(Text33_Text)) + (Val(Text8_Text) * Val(Text38_Text)) + (Val(Text9_Text) * Val(Text43_Text)) + (Val(Text10_Text) * Val(Text48_Text))
Text59_Text = (Val(Text6_Text) * Val(Text29_Text)) + (Val(Text7_Text) * Val(Text34_Text)) + (Val(Text8_Text) * Val(Text39_Text)) + (Val(Text9_Text) * Val(Text44_Text)) + (Val(Text10_Text) * Val(Text49_Text))
Text60_Text = (Val(Text6_Text) * Val(Text30_Text)) + (Val(Text7_Text) * Val(Text35_Text)) + (Val(Text8_Text) * Val(Text40_Text)) + (Val(Text9_Text) * Val(Text45_Text)) + (Val(Text10_Text) * Val(Text50_Text))
Text61_Text = (Val(Text11_Text) * Val(Text26_Text)) + (Val(Text12_Text) * Val(Text31_Text)) + (Val(Text13_Text) * Val(Text36_Text)) + (Val(Text14_Text) * Val(Text41_Text)) + (Val(Text15_Text) * Val(Text46_Text))
Text62_Text = (Val(Text11_Text) * Val(Text27_Text)) + (Val(Text12_Text) * Val(Text32_Text)) + (Val(Text13_Text) * Val(Text37_Text)) + (Val(Text14_Text) * Val(Text42_Text)) + (Val(Text15_Text) * Val(Text47_Text))
Text63_Text = (Val(Text11_Text) * Val(Text28_Text)) + (Val(Text12_Text) * Val(Text33_Text)) + (Val(Text13_Text) * Val(Text38_Text)) + (Val(Text14_Text) * Val(Text43_Text)) + (Val(Text15_Text) * Val(Text48_Text))
Text64_Text = (Val(Text11_Text) * Val(Text29_Text)) + (Val(Text12_Text) * Val(Text34_Text)) + (Val(Text13_Text) * Val(Text39_Text)) + (Val(Text14_Text) * Val(Text44_Text)) + (Val(Text15_Text) * Val(Text49_Text))
Text65_Text = (Val(Text11_Text) * Val(Text30_Text)) + (Val(Text12_Text) * Val(Text35_Text)) + (Val(Text13_Text) * Val(Text40_Text)) + (Val(Text14_Text) * Val(Text45_Text)) + (Val(Text15_Text) * Val(Text50_Text))
Text66_Text = (Val(Text16_Text) * Val(Text26_Text)) + (Val(Text17_Text) * Val(Text31_Text)) + (Val(Text18_Text) * Val(Text36_Text)) + (Val(Text19_Text) * Val(Text41_Text)) + (Val(Text20_Text) * Val(Text46_Text))
Text67_Text = (Val(Text16_Text) * Val(Text27_Text)) + (Val(Text17_Text) * Val(Text32_Text)) + (Val(Text18_Text) * Val(Text37_Text)) + (Val(Text19_Text) * Val(Text42_Text)) + (Val(Text20_Text) * Val(Text47_Text))
Text68_Text = (Val(Text16_Text) * Val(Text28_Text)) + (Val(Text17_Text) * Val(Text33_Text)) + (Val(Text18_Text) * Val(Text38_Text)) + (Val(Text19_Text) * Val(Text43_Text)) + (Val(Text20_Text) * Val(Text48_Text))
Text69_Text = (Val(Text16_Text) * Val(Text29_Text)) + (Val(Text17_Text) * Val(Text34_Text)) + (Val(Text18_Text) * Val(Text39_Text)) + (Val(Text19_Text) * Val(Text44_Text)) + (Val(Text20_Text) * Val(Text49_Text))
Text70_Text = (Val(Text16_Text) * Val(Text30_Text)) + (Val(Text17_Text) * Val(Text35_Text)) + (Val(Text18_Text) * Val(Text40_Text)) + (Val(Text19_Text) * Val(Text45_Text)) + (Val(Text20_Text) * Val(Text50_Text))
Text71_Text = (Val(Text21_Text) * Val(Text26_Text)) + (Val(Text22_Text) * Val(Text31_Text)) + (Val(Text23_Text) * Val(Text36_Text)) + (Val(Text24_Text) * Val(Text41_Text)) + (Val(Text25_Text) * Val(Text46_Text))
Text72_Text = (Val(Text21_Text) * Val(Text27_Text)) + (Val(Text22_Text) * Val(Text32_Text)) + (Val(Text23_Text) * Val(Text37_Text)) + (Val(Text24_Text) * Val(Text42_Text)) + (Val(Text25_Text) * Val(Text47_Text))
Text73_Text = (Val(Text21_Text) * Val(Text28_Text)) + (Val(Text22_Text) * Val(Text33_Text)) + (Val(Text23_Text) * Val(Text38_Text)) + (Val(Text24_Text) * Val(Text43_Text)) + (Val(Text25_Text) * Val(Text48_Text))
Text74_Text = (Val(Text21_Text) * Val(Text29_Text)) + (Val(Text22_Text) * Val(Text34_Text)) + (Val(Text23_Text) * Val(Text39_Text)) + (Val(Text24_Text) * Val(Text44_Text)) + (Val(Text25_Text) * Val(Text49_Text))
Text75_Text = (Val(Text21_Text) * Val(Text30_Text)) + (Val(Text22_Text) * Val(Text35_Text)) + (Val(Text23_Text) * Val(Text40_Text)) + (Val(Text24_Text) * Val(Text45_Text)) + (Val(Text25_Text) * Val(Text50_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 = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text18_Text = ""
Text19_Text = ""
Text20_Text = ""
Text21_Text = ""
Text22_Text = ""
Text23_Text = ""
Text24_Text = ""
Text25_Text = ""
Text26_Text = ""
Text27_Text = ""
Text28_Text = ""
Text29_Text = ""
Text30_Text = ""
Text31_Text = ""
Text32_Text = ""
Text33_Text = ""
Text34_Text = ""
Text35_Text = ""
Text36_Text = ""
Text37_Text = ""
Text38_Text = ""
Text39_Text = ""
Text40_Text = ""
Text41_Text = ""
Text42_Text = ""
Text43_Text = ""
Text44_Text = ""
Text45_Text = ""
Text46_Text = ""
Text47_Text = ""
Text48_Text = ""
Text49_Text = ""
Text50_Text = ""
Text51_Text = ""
Text52_Text = ""
Text53_Text = ""
Text54_Text = ""
Text55_Text = ""
Text56_Text = ""
Text57_Text = ""
Text58_Text = ""
Text59_Text = ""
Text60_Text = ""
Text61_Text = ""
Text62_Text = ""
Text63_Text = ""
Text64_Text = ""
Text65_Text = ""
Text66_Text = ""
Text67_Text = ""
Text68_Text = ""
Text69_Text = ""
Text70_Text = ""
Text71_Text = ""
Text72_Text = ""
Text73_Text = ""
Text74_Text = ""
Text75_Text = ""
Text76_Text = ""
Text77_Text = ""
Text78_Text = ""
Text79_Text = ""
Text80_Text = ""
Text81_Text = ""
Text82_Text = ""
Text83_Text = ""
Text84_Text = ""
Text85_Text = ""
Text86_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form42.Show
Me.Hide
End Sub

gambar 5

Private Sub Command1_Click()
If Option2.Value = True Then
Text73_Text = Val(Text1_Text) + Val(Text37_Text)
Text74_Text = Val(Text2_Text) + Val(Text38_Text)
Text75_Text = Val(Text3_Text) + Val(Text39_Text)
Text76_Text = Val(Text4_Text) + Val(Text40_Text)
Text77_Text = Val(Text5_Text) + Val(Text41_Text)
Text78_Text = Val(Text6_Text) + Val(Text42_Text)
Text79_Text = Val(Text7_Text) + Val(Text43_Text)
Text80_Text = Val(Text8_Text) + Val(Text44_Text)
Text81_Text = Val(Text9_Text) + Val(Text45_Text)
Text82_Text = Val(Text10_Text) + Val(Text46_Text)
Text83_Text = Val(Text11_Text) + Val(Text47_Text)
Text84_Text = Val(Text12_Text) + Val(Text48_Text)
Text85_Text = Val(Text13_Text) + Val(Text49_Text)
Text86_Text = Val(Text14_Text) + Val(Text50_Text)
Text87_Text = Val(Text15_Text) + Val(Text51_Text)
Text88_Text = Val(Text16_Text) + Val(Text52_Text)
Text89_Text = Val(Text17_Text) + Val(Text53_Text)
Text90_Text = Val(Text18_Text) + Val(Text54_Text)
Text91_Text = Val(Text19_Text) + Val(Text55_Text)
Text92_Text = Val(Text20_Text) + Val(Text56_Text)
Text93_Text = Val(Text21_Text) + Val(Text57_Text)
Text94_Text = Val(Text22_Text) + Val(Text58_Text)
Text95_Text = Val(Text23_Text) + Val(Text59_Text)
Text96_Text = Val(Text24_Text) + Val(Text60_Text)
Text97_Text = Val(Text25_Text) + Val(Text61_Text)
Text98_Text = Val(Text26_Text) + Val(Text62_Text)
Text99_Text = Val(Text27_Text) + Val(Text63_Text)
Text100_Text = Val(Text28_Text) + Val(Text64_Text)
Text101_Text = Val(Text29_Text) + Val(Text65_Text)
Text102_Text = Val(Text30_Text) + Val(Text66_Text)
Text103_Text = Val(Text31_Text) + Val(Text67_Text)
Text104_Text = Val(Text32_Text) + Val(Text68_Text)
Text105_Text = Val(Text33_Text) + Val(Text69_Text)
Text106_Text = Val(Text34_Text) + Val(Text70_Text)
Text107_Text = Val(Text35_Text) + Val(Text71_Text)
Text108_Text = Val(Text36_Text) + Val(Text72_Text)
ElseIf Option3.Value = True Then
Text73_Text = Val(Text1_Text) - Val(Text37_Text)
Text74_Text = Val(Text2_Text) - Val(Text38_Text)
Text75_Text = Val(Text3_Text) - Val(Text39_Text)
Text76_Text = Val(Text4_Text) - Val(Text40_Text)
Text77_Text = Val(Text5_Text) - Val(Text41_Text)
Text78_Text = Val(Text6_Text) - Val(Text42_Text)
Text79_Text = Val(Text7_Text) - Val(Text43_Text)
Text80_Text = Val(Text8_Text) - Val(Text44_Text)
Text81_Text = Val(Text9_Text) - Val(Text45_Text)
Text82_Text = Val(Text10_Text) - Val(Text46_Text)
Text83_Text = Val(Text11_Text) - Val(Text47_Text)
Text84_Text = Val(Text12_Text) - Val(Text48_Text)
Text85_Text = Val(Text13_Text) - Val(Text49_Text)
Text86_Text = Val(Text14_Text) - Val(Text50_Text)
Text87_Text = Val(Text15_Text) - Val(Text51_Text)
Text88_Text = Val(Text16_Text) - Val(Text52_Text)
Text89_Text = Val(Text17_Text) - Val(Text53_Text)
Text90_Text = Val(Text18_Text) - Val(Text54_Text)
Text91_Text = Val(Text19_Text) - Val(Text55_Text)
Text92_Text = Val(Text20_Text) - Val(Text56_Text)
Text93_Text = Val(Text21_Text) - Val(Text57_Text)
Text94_Text = Val(Text22_Text) - Val(Text58_Text)
Text95_Text = Val(Text23_Text) - Val(Text59_Text)
Text96_Text = Val(Text24_Text) - Val(Text60_Text)
Text97_Text = Val(Text25_Text) - Val(Text61_Text)
Text98_Text = Val(Text26_Text) - Val(Text62_Text)
Text99_Text = Val(Text27_Text) - Val(Text63_Text)
Text100_Text = Val(Text28_Text) - Val(Text64_Text)
Text101_Text = Val(Text29_Text) - Val(Text65_Text)
Text102_Text = Val(Text30_Text) - Val(Text66_Text)
Text103_Text = Val(Text31_Text) - Val(Text67_Text)
Text104_Text = Val(Text32_Text) - Val(Text68_Text)
Text105_Text = Val(Text33_Text) - Val(Text69_Text)
Text106_Text = Val(Text34_Text) - Val(Text70_Text)
Text107_Text = Val(Text35_Text) - Val(Text71_Text)
Text108_Text = Val(Text36_Text) - Val(Text72_Text)
ElseIf Option4.Value = True Then
MsgBox ("Data belum tersedia")
Else: Option1.Value = True
Text73_Text = (Val(Text1_Text) * Val(Text37_Text)) + (Val(Text2_Text) * Val(Text43_Text)) + (Val(Text3_Text) * Val(Text49_Text)) + (Val(Text4_Text) * Val(Text55_Text)) + (Val(Text5_Text) * Val(Text61_Text)) + (Val(Text6_Text) * Val(Text67_Text))
Text74_Text = (Val(Text1_Text) * Val(Text38_Text)) + (Val(Text2_Text) * Val(Text44_Text)) + (Val(Text3_Text) * Val(Text50_Text)) + (Val(Text4_Text) * Val(Text56_Text)) + (Val(Text5_Text) * Val(Text62_Text)) + (Val(Text6_Text) * Val(Text68_Text))
Text75_Text = (Val(Text1_Text) * Val(Text39_Text)) + (Val(Text2_Text) * Val(Text45_Text)) + (Val(Text3_Text) * Val(Text51_Text)) + (Val(Text4_Text) * Val(Text57_Text)) + (Val(Text5_Text) * Val(Text63_Text)) + (Val(Text6_Text) * Val(Text69_Text))
Text76_Text = (Val(Text1_Text) * Val(Text40_Text)) + (Val(Text2_Text) * Val(Text46_Text)) + (Val(Text3_Text) * Val(Text52_Text)) + (Val(Text4_Text) * Val(Text58_Text)) + (Val(Text5_Text) * Val(Text64_Text)) + (Val(Text6_Text) * Val(Text70_Text))
Text77_Text = (Val(Text1_Text) * Val(Text41_Text)) + (Val(Text2_Text) * Val(Text47_Text)) + (Val(Text3_Text) * Val(Text53_Text)) + (Val(Text4_Text) * Val(Text59_Text)) + (Val(Text5_Text) * Val(Text65_Text)) + (Val(Text6_Text) * Val(Text71_Text))
Text78_Text = (Val(Text1_Text) * Val(Text42_Text)) + (Val(Text2_Text) * Val(Text48_Text)) + (Val(Text3_Text) * Val(Text54_Text)) + (Val(Text4_Text) * Val(Text60_Text)) + (Val(Text5_Text) * Val(Text66_Text)) + (Val(Text6_Text) * Val(Text72_Text))
Text79_Text = (Val(Text7_Text) * Val(Text37_Text)) + (Val(Text8_Text) * Val(Text43_Text)) + (Val(Text9_Text) * Val(Text49_Text)) + (Val(Text10_Text) * Val(Text55_Text)) + (Val(Text11_Text) * Val(Text61_Text)) + (Val(Text12_Text) * Val(Text67_Text))
Text80_Text = (Val(Text7_Text) * Val(Text38_Text)) + (Val(Text8_Text) * Val(Text44_Text)) + (Val(Text9_Text) * Val(Text50_Text)) + (Val(Text10_Text) * Val(Text56_Text)) + (Val(Text11_Text) * Val(Text62_Text)) + (Val(Text12_Text) * Val(Text68_Text))
Text81_Text = (Val(Text7_Text) * Val(Text39_Text)) + (Val(Text8_Text) * Val(Text45_Text)) + (Val(Text9_Text) * Val(Text51_Text)) + (Val(Text10_Text) * Val(Text57_Text)) + (Val(Text11_Text) * Val(Text63_Text)) + (Val(Text12_Text) * Val(Text69_Text))
Text82_Text = (Val(Text7_Text) * Val(Text40_Text)) + (Val(Text8_Text) * Val(Text46_Text)) + (Val(Text9_Text) * Val(Text52_Text)) + (Val(Text10_Text) * Val(Text58_Text)) + (Val(Text11_Text) * Val(Text64_Text)) + (Val(Text12_Text) * Val(Text70_Text))
Text83_Text = (Val(Text7_Text) * Val(Text41_Text)) + (Val(Text8_Text) * Val(Text47_Text)) + (Val(Text9_Text) * Val(Text53_Text)) + (Val(Text10_Text) * Val(Text59_Text)) + (Val(Text11_Text) * Val(Text65_Text)) + (Val(Text12_Text) * Val(Text71_Text))
Text84_Text = (Val(Text7_Text) * Val(Text42_Text)) + (Val(Text8_Text) * Val(Text48_Text)) + (Val(Text9_Text) * Val(Text54_Text)) + (Val(Text10_Text) * Val(Text60_Text)) + (Val(Text11_Text) * Val(Text66_Text)) + (Val(Text12_Text) * Val(Text72_Text))
Text85_Text = (Val(Text13_Text) * Val(Text37_Text)) + (Val(Text14_Text) * Val(Text43_Text)) + (Val(Text15_Text) * Val(Text49_Text)) + (Val(Text16_Text) * Val(Text55_Text)) + (Val(Text17_Text) * Val(Text61_Text)) + (Val(Text18_Text) * Val(Text67_Text))
Text86_Text = (Val(Text13_Text) * Val(Text38_Text)) + (Val(Text14_Text) * Val(Text44_Text)) + (Val(Text15_Text) * Val(Text50_Text)) + (Val(Text16_Text) * Val(Text56_Text)) + (Val(Text17_Text) * Val(Text62_Text)) + (Val(Text18_Text) * Val(Text68_Text))
Text87_Text = (Val(Text13_Text) * Val(Text39_Text)) + (Val(Text14_Text) * Val(Text45_Text)) + (Val(Text15_Text) * Val(Text51_Text)) + (Val(Text16_Text) * Val(Text57_Text)) + (Val(Text17_Text) * Val(Text63_Text)) + (Val(Text18_Text) * Val(Text69_Text))
Text88_Text = (Val(Text13_Text) * Val(Text40_Text)) + (Val(Text14_Text) * Val(Text46_Text)) + (Val(Text15_Text) * Val(Text52_Text)) + (Val(Text16_Text) * Val(Text58_Text)) + (Val(Text17_Text) * Val(Text64_Text)) + (Val(Text18_Text) * Val(Text70_Text))
Text89_Text = (Val(Text13_Text) * Val(Text41_Text)) + (Val(Text14_Text) * Val(Text47_Text)) + (Val(Text15_Text) * Val(Text53_Text)) + (Val(Text16_Text) * Val(Text59_Text)) + (Val(Text17_Text) * Val(Text65_Text)) + (Val(Text18_Text) * Val(Text71_Text))
Text90_Text = (Val(Text13_Text) * Val(Text42_Text)) + (Val(Text14_Text) * Val(Text48_Text)) + (Val(Text15_Text) * Val(Text54_Text)) + (Val(Text16_Text) * Val(Text60_Text)) + (Val(Text17_Text) * Val(Text66_Text)) + (Val(Text18_Text) * Val(Text72_Text))
Text91_Text = (Val(Text19_Text) * Val(Text37_Text)) + (Val(Text20_Text) * Val(Text43_Text)) + (Val(Text21_Text) * Val(Text49_Text)) + (Val(Text22_Text) * Val(Text55_Text)) + (Val(Text23_Text) * Val(Text61_Text)) + (Val(Text24_Text) * Val(Text67_Text))
Text92_Text = (Val(Text19_Text) * Val(Text38_Text)) + (Val(Text20_Text) * Val(Text44_Text)) + (Val(Text21_Text) * Val(Text50_Text)) + (Val(Text22_Text) * Val(Text56_Text)) + (Val(Text23_Text) * Val(Text62_Text)) + (Val(Text24_Text) * Val(Text68_Text))
Text93_Text = (Val(Text19_Text) * Val(Text39_Text)) + (Val(Text20_Text) * Val(Text45_Text)) + (Val(Text21_Text) * Val(Text51_Text)) + (Val(Text22_Text) * Val(Text57_Text)) + (Val(Text23_Text) * Val(Text63_Text)) + (Val(Text24_Text) * Val(Text69_Text))
Text94_Text = (Val(Text19_Text) * Val(Text40_Text)) + (Val(Text20_Text) * Val(Text46_Text)) + (Val(Text21_Text) * Val(Text52_Text)) + (Val(Text22_Text) * Val(Text58_Text)) + (Val(Text23_Text) * Val(Text64_Text)) + (Val(Text24_Text) * Val(Text70_Text))
Text95_Text = (Val(Text19_Text) * Val(Text41_Text)) + (Val(Text20_Text) * Val(Text47_Text)) + (Val(Text21_Text) * Val(Text53_Text)) + (Val(Text22_Text) * Val(Text59_Text)) + (Val(Text23_Text) * Val(Text65_Text)) + (Val(Text24_Text) * Val(Text71_Text))
Text96_Text = (Val(Text19_Text) * Val(Text42_Text)) + (Val(Text20_Text) * Val(Text48_Text)) + (Val(Text21_Text) * Val(Text54_Text)) + (Val(Text22_Text) * Val(Text60_Text)) + (Val(Text23_Text) * Val(Text66_Text)) + (Val(Text24_Text) * Val(Text72_Text))
Text97_Text = (Val(Text25_Text) * Val(Text37_Text)) + (Val(Text26_Text) * Val(Text43_Text)) + (Val(Text27_Text) * Val(Text49_Text)) + (Val(Text28_Text) * Val(Text55_Text)) + (Val(Text29_Text) * Val(Text61_Text)) + (Val(Text30_Text) * Val(Text67_Text))
Text98_Text = (Val(Text25_Text) * Val(Text38_Text)) + (Val(Text26_Text) * Val(Text44_Text)) + (Val(Text27_Text) * Val(Text50_Text)) + (Val(Text28_Text) * Val(Text56_Text)) + (Val(Text29_Text) * Val(Text62_Text)) + (Val(Text30_Text) * Val(Text68_Text))
Text99_Text = (Val(Text25_Text) * Val(Text39_Text)) + (Val(Text26_Text) * Val(Text45_Text)) + (Val(Text27_Text) * Val(Text51_Text)) + (Val(Text28_Text) * Val(Text57_Text)) + (Val(Text29_Text) * Val(Text63_Text)) + (Val(Text30_Text) * Val(Text69_Text))
Text100_Text = (Val(Text25_Text) * Val(Text40_Text)) + (Val(Text26_Text) * Val(Text46_Text)) + (Val(Text27_Text) * Val(Text52_Text)) + (Val(Text28_Text) * Val(Text58_Text)) + (Val(Text29_Text) * Val(Text64_Text)) + (Val(Text30_Text) * Val(Text70_Text))
Text101_Text = (Val(Text25_Text) * Val(Text41_Text)) + (Val(Text26_Text) * Val(Text47_Text)) + (Val(Text27_Text) * Val(Text53_Text)) + (Val(Text28_Text) * Val(Text59_Text)) + (Val(Text29_Text) * Val(Text65_Text)) + (Val(Text30_Text) * Val(Text71_Text))
Text102_Text = (Val(Text25_Text) * Val(Text42_Text)) + (Val(Text26_Text) * Val(Text48_Text)) + (Val(Text27_Text) * Val(Text54_Text)) + (Val(Text28_Text) * Val(Text60_Text)) + (Val(Text29_Text) * Val(Text66_Text)) + (Val(Text30_Text) * Val(Text72_Text))
Text103_Text = (Val(Text31_Text) * Val(Text37_Text)) + (Val(Text32_Text) * Val(Text43_Text)) + (Val(Text33_Text) * Val(Text49_Text)) + (Val(Text34_Text) * Val(Text55_Text)) + (Val(Text35_Text) * Val(Text61_Text)) + (Val(Text36_Text) * Val(Text67_Text))
Text104_Text = (Val(Text31_Text) * Val(Text38_Text)) + (Val(Text32_Text) * Val(Text44_Text)) + (Val(Text33_Text) * Val(Text50_Text)) + (Val(Text34_Text) * Val(Text56_Text)) + (Val(Text35_Text) * Val(Text62_Text)) + (Val(Text36_Text) * Val(Text68_Text))
Text105_Text = (Val(Text31_Text) * Val(Text39_Text)) + (Val(Text32_Text) * Val(Text45_Text)) + (Val(Text33_Text) * Val(Text51_Text)) + (Val(Text34_Text) * Val(Text57_Text)) + (Val(Text35_Text) * Val(Text63_Text)) + (Val(Text36_Text) * Val(Text69_Text))
Text106_Text = (Val(Text31_Text) * Val(Text40_Text)) + (Val(Text32_Text) * Val(Text46_Text)) + (Val(Text33_Text) * Val(Text52_Text)) + (Val(Text34_Text) * Val(Text58_Text)) + (Val(Text35_Text) * Val(Text64_Text)) + (Val(Text36_Text) * Val(Text70_Text))
Text107_Text = (Val(Text31_Text) * Val(Text41_Text)) + (Val(Text32_Text) * Val(Text47_Text)) + (Val(Text33_Text) * Val(Text53_Text)) + (Val(Text34_Text) * Val(Text59_Text)) + (Val(Text35_Text) * Val(Text65_Text)) + (Val(Text36_Text) * Val(Text71_Text))
Text108_Text = (Val(Text31_Text) * Val(Text42_Text)) + (Val(Text32_Text) * Val(Text48_Text)) + (Val(Text33_Text) * Val(Text54_Text)) + (Val(Text34_Text) * Val(Text60_Text)) + (Val(Text35_Text) * Val(Text66_Text)) + (Val(Text36_Text) * Val(Text72_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 = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text18_Text = ""
Text19_Text = ""
Text20_Text = ""
Text21_Text = ""
Text22_Text = ""
Text23_Text = ""
Text24_Text = ""
Text25_Text = ""
Text26_Text = ""
Text27_Text = ""
Text28_Text = ""
Text29_Text = ""
Text30_Text = ""
Text31_Text = ""
Text32_Text = ""
Text33_Text = ""
Text34_Text = ""
Text35_Text = ""
Text36_Text = ""
Text37_Text = ""
Text38_Text = ""
Text39_Text = ""
Text40_Text = ""
Text41_Text = ""
Text42_Text = ""
Text43_Text = ""
Text44_Text = ""
Text45_Text = ""
Text46_Text = ""
Text47_Text = ""
Text48_Text = ""
Text49_Text = ""
Text50_Text = ""
Text51_Text = ""
Text52_Text = ""
Text53_Text = ""
Text54_Text = ""
Text55_Text = ""
Text56_Text = ""
Text57_Text = ""
Text58_Text = ""
Text59_Text = ""
Text60_Text = ""
Text61_Text = ""
Text62_Text = ""
Text63_Text = ""
Text64_Text = ""
Text65_Text = ""
Text66_Text = ""
Text67_Text = ""
Text68_Text = ""
Text69_Text = ""
Text70_Text = ""
Text71_Text = ""
Text72_Text = ""
Text73_Text = ""
Text74_Text = ""
Text75_Text = ""
Text76_Text = ""
Text77_Text = ""
Text78_Text = ""
Text79_Text = ""
Text80_Text = ""
Text81_Text = ""
Text82_Text = ""
Text83_Text = ""
Text84_Text = ""
Text85_Text = ""
Text86_Text = ""
Text87_Text = ""
Text88_Text = ""
Text89_Text = ""
Text90_Text = ""
Text91_Text = ""
Text92_Text = ""
Text93_Text = ""
Text94_Text = ""
Text95_Text = ""
Text96_Text = ""
Text97_Text = ""
Text98_Text = ""
Text99_Text = ""
Text100_Text = ""
Text101_Text = ""
Text102_Text = ""
Text103_Text = ""
Text104_Text = ""
Text105_Text = ""
Text106_Text = ""
Text107_Text = ""
Text108_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form42.Show
Me.Hide
End Sub

gambar 6

Private Sub Command1_Click()
If Option2.Value = True Then
Text99_Text = Val(Text1_Text) + Val(Text50_Text)
Text100_Text = Val(Text2_Text) + Val(Text51_Text)
Text101_Text = Val(Text3_Text) + Val(Text52_Text)
Text102_Text = Val(Text4_Text) + Val(Text53_Text)
Text103_Text = Val(Text5_Text) + Val(Text54_Text)
Text104_Text = Val(Text6_Text) + Val(Text55_Text)
Text105_Text = Val(Text7_Text) + Val(Text56_Text)
Text106_Text = Val(Text8_Text) + Val(Text57_Text)
Text107_Text = Val(Text9_Text) + Val(Text58_Text)
Text108_Text = Val(Text10_Text) + Val(Text59_Text)
Text109_Text = Val(Text11_Text) + Val(Text60_Text)
Text110_Text = Val(Text12_Text) + Val(Text61_Text)
Text111_Text = Val(Text13_Text) + Val(Text62_Text)
Text112_Text = Val(Text14_Text) + Val(Text63_Text)
Text113_Text = Val(Text15_Text) + Val(Text64_Text)
Text114_Text = Val(Text16_Text) + Val(Text65_Text)
Text115_Text = Val(Text17_Text) + Val(Text66_Text)
Text116_Text = Val(Text18_Text) + Val(Text67_Text)
Text117_Text = Val(Text19_Text) + Val(Text68_Text)
Text118_Text = Val(Text20_Text) + Val(Text69_Text)
Text119_Text = Val(Text21_Text) + Val(Text70_Text)
Text120_Text = Val(Text22_Text) + Val(Text71_Text)
Text121_Text = Val(Text23_Text) + Val(Text72_Text)
Text122_Text = Val(Text24_Text) + Val(Text73_Text)
Text123_Text = Val(Text25_Text) + Val(Text74_Text)
Text124_Text = Val(Text26_Text) + Val(Text75_Text)
Text125_Text = Val(Text27_Text) + Val(Text76_Text)
Text126_Text = Val(Text28_Text) + Val(Text77_Text)
Text127_Text = Val(Text29_Text) + Val(Text78_Text)
Text128_Text = Val(Text30_Text) + Val(Text79_Text)
Text129_Text = Val(Text31_Text) + Val(Text80_Text)
Text130_Text = Val(Text32_Text) + Val(Text81_Text)
Text131_Text = Val(Text33_Text) + Val(Text82_Text)
Text132_Text = Val(Text34_Text) + Val(Text83_Text)
Text133_Text = Val(Text35_Text) + Val(Text84_Text)
Text134_Text = Val(Text36_Text) + Val(Text85_Text)
Text135_Text = Val(Text37_Text) + Val(Text86_Text)
Text136_Text = Val(Text38_Text) + Val(Text87_Text)
Text137_Text = Val(Text39_Text) + Val(Text88_Text)
Text138_Text = Val(Text40_Text) + Val(Text89_Text)
Text139_Text = Val(Text41_Text) + Val(Text90_Text)
Text140_Text = Val(Text42_Text) + Val(Text91_Text)
Text141_Text = Val(Text43_Text) + Val(Text92_Text)
Text142_Text = Val(Text44_Text) + Val(Text93_Text)
Text143_Text = Val(Text45_Text) + Val(Text94_Text)
Text144_Text = Val(Text46_Text) + Val(Text95_Text)
Text145_Text = Val(Text47_Text) + Val(Text96_Text)
Text146_Text = Val(Text48_Text) + Val(Text97_Text)
Text147_Text = Val(Text49_Text) + Val(Text98_Text)
ElseIf Option3.Value = True Then
Text99_Text = Val(Text1_Text) - Val(Text50_Text)
Text100_Text = Val(Text2_Text) - Val(Text51_Text)
Text101_Text = Val(Text3_Text) - Val(Text52_Text)
Text102_Text = Val(Text4_Text) - Val(Text53_Text)
Text103_Text = Val(Text5_Text) - Val(Text54_Text)
Text104_Text = Val(Text6_Text) - Val(Text55_Text)
Text105_Text = Val(Text7_Text) - Val(Text56_Text)
Text106_Text = Val(Text8_Text) - Val(Text57_Text)
Text107_Text = Val(Text9_Text) - Val(Text58_Text)
Text108_Text = Val(Text10_Text) - Val(Text59_Text)
Text109_Text = Val(Text11_Text) - Val(Text60_Text)
Text110_Text = Val(Text12_Text) - Val(Text61_Text)
Text111_Text = Val(Text13_Text) - Val(Text62_Text)
Text112_Text = Val(Text14_Text) - Val(Text63_Text)
Text113_Text = Val(Text15_Text) - Val(Text64_Text)
Text114_Text = Val(Text16_Text) - Val(Text65_Text)
Text115_Text = Val(Text17_Text) - Val(Text66_Text)
Text116_Text = Val(Text18_Text) - Val(Text67_Text)
Text117_Text = Val(Text19_Text) - Val(Text68_Text)
Text118_Text = Val(Text20_Text) - Val(Text69_Text)
Text119_Text = Val(Text21_Text) - Val(Text70_Text)
Text120_Text = Val(Text22_Text) - Val(Text71_Text)
Text121_Text = Val(Text23_Text) - Val(Text72_Text)
Text122_Text = Val(Text24_Text) - Val(Text73_Text)
Text123_Text = Val(Text25_Text) - Val(Text74_Text)
Text124_Text = Val(Text26_Text) - Val(Text75_Text)
Text125_Text = Val(Text27_Text) - Val(Text76_Text)
Text126_Text = Val(Text28_Text) - Val(Text77_Text)
Text127_Text = Val(Text29_Text) - Val(Text78_Text)
Text128_Text = Val(Text30_Text) - Val(Text79_Text)
Text129_Text = Val(Text31_Text) - Val(Text80_Text)
Text130_Text = Val(Text32_Text) - Val(Text81_Text)
Text131_Text = Val(Text33_Text) - Val(Text82_Text)
Text132_Text = Val(Text34_Text) - Val(Text83_Text)
Text133_Text = Val(Text35_Text) - Val(Text84_Text)
Text134_Text = Val(Text36_Text) - Val(Text85_Text)
Text135_Text = Val(Text37_Text) - Val(Text86_Text)
Text136_Text = Val(Text38_Text) - Val(Text87_Text)
Text137_Text = Val(Text39_Text) - Val(Text88_Text)
Text138_Text = Val(Text40_Text) - Val(Text89_Text)
Text139_Text = Val(Text41_Text) - Val(Text90_Text)
Text140_Text = Val(Text42_Text) - Val(Text91_Text)
Text141_Text = Val(Text43_Text) - Val(Text92_Text)
Text142_Text = Val(Text44_Text) - Val(Text93_Text)
Text143_Text = Val(Text45_Text) - Val(Text94_Text)
Text144_Text = Val(Text46_Text) - Val(Text95_Text)
Text145_Text = Val(Text47_Text) - Val(Text96_Text)
Text146_Text = Val(Text48_Text) - Val(Text97_Text)
Text147_Text = Val(Text49_Text) - Val(Text98_Text)
ElseIf Option4.Value = True Then
MsgBox ("Data belum tersedia")
Else: Option1.Value = True
Text99_Text = (Val(Text1_Text) * Val(Text50_Text)) + (Val(Text2_Text) * Val(Text57_Text)) + (Val(Text3_Text) * Val(Text64_Text)) + (Val(Text4_Text) * Val(Text71_Text)) + (Val(Text5_Text) * Val(Text78_Text)) + (Val(Text6_Text) * Val(Text85_Text)) + (Val(Text7_Text) * Val(Text92_Text))
Text100_Text = (Val(Text1_Text) * Val(Text51_Text)) + (Val(Text2_Text) * Val(Text58_Text)) + (Val(Text3_Text) * Val(Text65_Text)) + (Val(Text4_Text) * Val(Text72_Text)) + (Val(Text5_Text) * Val(Text79_Text)) + (Val(Text6_Text) * Val(Text86_Text)) + (Val(Text7_Text) * Val(Text93_Text))
Text101_Text = (Val(Text1_Text) * Val(Text52_Text)) + (Val(Text2_Text) * Val(Text59_Text)) + (Val(Text3_Text) * Val(Text66_Text)) + (Val(Text4_Text) * Val(Text73_Text)) + (Val(Text5_Text) * Val(Text80_Text)) + (Val(Text6_Text) * Val(Text87_Text)) + (Val(Text7_Text) * Val(Text94_Text))
Text102_Text = (Val(Text1_Text) * Val(Text53_Text)) + (Val(Text2_Text) * Val(Text60_Text)) + (Val(Text3_Text) * Val(Text67_Text)) + (Val(Text4_Text) * Val(Text74_Text)) + (Val(Text5_Text) * Val(Text81_Text)) + (Val(Text6_Text) * Val(Text88_Text)) + (Val(Text7_Text) * Val(Text95_Text))
Text103_Text = (Val(Text1_Text) * Val(Text54_Text)) + (Val(Text2_Text) * Val(Text61_Text)) + (Val(Text3_Text) * Val(Text68_Text)) + (Val(Text4_Text) * Val(Text75_Text)) + (Val(Text5_Text) * Val(Text82_Text)) + (Val(Text6_Text) * Val(Text89_Text)) + (Val(Text7_Text) * Val(Text96_Text))
Text104_Text = (Val(Text1_Text) * Val(Text55_Text)) + (Val(Text2_Text) * Val(Text62_Text)) + (Val(Text3_Text) * Val(Text69_Text)) + (Val(Text4_Text) * Val(Text76_Text)) + (Val(Text5_Text) * Val(Text83_Text)) + (Val(Text6_Text) * Val(Text90_Text)) + (Val(Text7_Text) * Val(Text97_Text))
Text105_Text = (Val(Text1_Text) * Val(Text56_Text)) + (Val(Text2_Text) * Val(Text63_Text)) + (Val(Text3_Text) * Val(Text70_Text)) + (Val(Text4_Text) * Val(Text77_Text)) + (Val(Text5_Text) * Val(Text84_Text)) + (Val(Text6_Text) * Val(Text91_Text)) + (Val(Text7_Text) * Val(Text98_Text))
Text106_Text = (Val(Text8_Text) * Val(Text50_Text)) + (Val(Text9_Text) * Val(Text57_Text)) + (Val(Text10_Text) * Val(Text64_Text)) + (Val(Text11_Text) * Val(Text71_Text)) + (Val(Text12_Text) * Val(Text78_Text)) + (Val(Text13_Text) * Val(Text85_Text)) + (Val(Text14_Text) * Val(Text92_Text))
Text107_Text = (Val(Text8_Text) * Val(Text51_Text)) + (Val(Text9_Text) * Val(Text58_Text)) + (Val(Text10_Text) * Val(Text65_Text)) + (Val(Text11_Text) * Val(Text72_Text)) + (Val(Text12_Text) * Val(Text79_Text)) + (Val(Text13_Text) * Val(Text86_Text)) + (Val(Text14_Text) * Val(Text93_Text))
Text108_Text = (Val(Text8_Text) * Val(Text52_Text)) + (Val(Text9_Text) * Val(Text59_Text)) + (Val(Text10_Text) * Val(Text66_Text)) + (Val(Text11_Text) * Val(Text73_Text)) + (Val(Text12_Text) * Val(Text80_Text)) + (Val(Text13_Text) * Val(Text87_Text)) + (Val(Text14_Text) * Val(Text94_Text))
Text109_Text = (Val(Text8_Text) * Val(Text53_Text)) + (Val(Text9_Text) * Val(Text60_Text)) + (Val(Text10_Text) * Val(Text67_Text)) + (Val(Text11_Text) * Val(Text74_Text)) + (Val(Text12_Text) * Val(Text81_Text)) + (Val(Text13_Text) * Val(Text88_Text)) + (Val(Text14_Text) * Val(Text95_Text))
Text110_Text = (Val(Text8_Text) * Val(Text54_Text)) + (Val(Text9_Text) * Val(Text61_Text)) + (Val(Text10_Text) * Val(Text68_Text)) + (Val(Text11_Text) * Val(Text75_Text)) + (Val(Text12_Text) * Val(Text82_Text)) + (Val(Text13_Text) * Val(Text89_Text)) + (Val(Text14_Text) * Val(Text96_Text))
Text111_Text = (Val(Text8_Text) * Val(Text55_Text)) + (Val(Text9_Text) * Val(Text62_Text)) + (Val(Text10_Text) * Val(Text69_Text)) + (Val(Text11_Text) * Val(Text76_Text)) + (Val(Text12_Text) * Val(Text83_Text)) + (Val(Text13_Text) * Val(Text90_Text)) + (Val(Text14_Text) * Val(Text97_Text))
Text112_Text = (Val(Text8_Text) * Val(Text56_Text)) + (Val(Text9_Text) * Val(Text63_Text)) + (Val(Text10_Text) * Val(Text70_Text)) + (Val(Text11_Text) * Val(Text77_Text)) + (Val(Text12_Text) * Val(Text84_Text)) + (Val(Text13_Text) * Val(Text91_Text)) + (Val(Text14_Text) * Val(Text98_Text))
Text113_Text = (Val(Text15_Text) * Val(Text50_Text)) + (Val(Text16_Text) * Val(Text57_Text)) + (Val(Text17_Text) * Val(Text64_Text)) + (Val(Text18_Text) * Val(Text71_Text)) + (Val(Text19_Text) * Val(Text78_Text)) + (Val(Text20_Text) * Val(Text85_Text)) + (Val(Text21_Text) * Val(Text92_Text))
Text114_Text = (Val(Text15_Text) * Val(Text51_Text)) + (Val(Text16_Text) * Val(Text58_Text)) + (Val(Text17_Text) * Val(Text65_Text)) + (Val(Text18_Text) * Val(Text72_Text)) + (Val(Text19_Text) * Val(Text79_Text)) + (Val(Text20_Text) * Val(Text86_Text)) + (Val(Text21_Text) * Val(Text93_Text))
Text115_Text = (Val(Text15_Text) * Val(Text52_Text)) + (Val(Text16_Text) * Val(Text59_Text)) + (Val(Text17_Text) * Val(Text66_Text)) + (Val(Text18_Text) * Val(Text73_Text)) + (Val(Text19_Text) * Val(Text80_Text)) + (Val(Text20_Text) * Val(Text87_Text)) + (Val(Text21_Text) * Val(Text94_Text))
Text116_Text = (Val(Text15_Text) * Val(Text53_Text)) + (Val(Text16_Text) * Val(Text60_Text)) + (Val(Text17_Text) * Val(Text67_Text)) + (Val(Text18_Text) * Val(Text74_Text)) + (Val(Text19_Text) * Val(Text81_Text)) + (Val(Text20_Text) * Val(Text88_Text)) + (Val(Text21_Text) * Val(Text95_Text))
Text117_Text = (Val(Text15_Text) * Val(Text54_Text)) + (Val(Text16_Text) * Val(Text61_Text)) + (Val(Text17_Text) * Val(Text68_Text)) + (Val(Text18_Text) * Val(Text75_Text)) + (Val(Text19_Text) * Val(Text82_Text)) + (Val(Text20_Text) * Val(Text89_Text)) + (Val(Text21_Text) * Val(Text96_Text))
Text118_Text = (Val(Text15_Text) * Val(Text55_Text)) + (Val(Text16_Text) * Val(Text62_Text)) + (Val(Text17_Text) * Val(Text69_Text)) + (Val(Text18_Text) * Val(Text76_Text)) + (Val(Text19_Text) * Val(Text83_Text)) + (Val(Text20_Text) * Val(Text90_Text)) + (Val(Text21_Text) * Val(Text97_Text))
Text119_Text = (Val(Text15_Text) * Val(Text56_Text)) + (Val(Text16_Text) * Val(Text63_Text)) + (Val(Text17_Text) * Val(Text70_Text)) + (Val(Text18_Text) * Val(Text77_Text)) + (Val(Text19_Text) * Val(Text84_Text)) + (Val(Text20_Text) * Val(Text91_Text)) + (Val(Text21_Text) * Val(Text98_Text))
Text120_Text = (Val(Text22_Text) * Val(Text50_Text)) + (Val(Text23_Text) * Val(Text57_Text)) + (Val(Text24_Text) * Val(Text64_Text)) + (Val(Text25_Text) * Val(Text71_Text)) + (Val(Text23_Text) * Val(Text78_Text)) + (Val(Text27_Text) * Val(Text85_Text)) + (Val(Text28_Text) * Val(Text92_Text))
Text121_Text = (Val(Text22_Text) * Val(Text51_Text)) + (Val(Text23_Text) * Val(Text58_Text)) + (Val(Text24_Text) * Val(Text65_Text)) + (Val(Text25_Text) * Val(Text72_Text)) + (Val(Text23_Text) * Val(Text79_Text)) + (Val(Text27_Text) * Val(Text86_Text)) + (Val(Text28_Text) * Val(Text93_Text))
Text122_Text = (Val(Text22_Text) * Val(Text52_Text)) + (Val(Text23_Text) * Val(Text59_Text)) + (Val(Text24_Text) * Val(Text66_Text)) + (Val(Text25_Text) * Val(Text73_Text)) + (Val(Text23_Text) * Val(Text80_Text)) + (Val(Text27_Text) * Val(Tex87t_Text)) + (Val(Text28_Text) * Val(Text94_Text))
Text123_Text = (Val(Text22_Text) * Val(Text53_Text)) + (Val(Text23_Text) * Val(Text60_Text)) + (Val(Text24_Text) * Val(Text67_Text)) + (Val(Text25_Text) * Val(Text74_Text)) + (Val(Text29_Text) * Val(Text81_Text)) + (Val(Text27_Text) * Val(Text88_Text)) + (Val(Text28_Text) * Val(Text95_Text))
Text124_Text = (Val(Text22_Text) * Val(Text54_Text)) + (Val(Text23_Text) * Val(Text61_Text)) + (Val(Text24_Text) * Val(Text68_Text)) + (Val(Text25_Text) * Val(Text75_Text)) + (Val(Text29_Text) * Val(Text82_Text)) + (Val(Text27_Text) * Val(Text89_Text)) + (Val(Text28_Text) * Val(Text96_Text))
Text125_Text = (Val(Text22_Text) * Val(Text55_Text)) + (Val(Text23_Text) * Val(Text62_Text)) + (Val(Text24_Text) * Val(Text69_Text)) + (Val(Text25_Text) * Val(Text76_Text)) + (Val(Text29_Text) * Val(Text83_Text)) + (Val(Text27_Text) * Val(Text90_Text)) + (Val(Text28_Text) * Val(Text97_Text))
Text126_Text = (Val(Text22_Text) * Val(Text56_Text)) + (Val(Text23_Text) * Val(Text63_Text)) + (Val(Text24_Text) * Val(Text70_Text)) + (Val(Text25_Text) * Val(Text77_Text)) + (Val(Text29_Text) * Val(Text84_Text)) + (Val(Text27_Text) * Val(Text91_Text)) + (Val(Text28_Text) * Val(Text98_Text))
Text127_Text = (Val(Text29_Text) * Val(Text50_Text)) + (Val(Text29_Text) * Val(Text57_Text)) + (Val(Text31_Text) * Val(Text64_Text)) + (Val(Text32_Text) * Val(Text71_Text)) + (Val(Text29_Text) * Val(Text78_Text)) + (Val(Text34_Text) * Val(Text85_Text)) + (Val(Text35_Text) * Val(Text92_Text))
Text128_Text = (Val(Text29_Text) * Val(Text51_Text)) + (Val(Text29_Text) * Val(Text58_Text)) + (Val(Text31_Text) * Val(Text65_Text)) + (Val(Text32_Text) * Val(Text72_Text)) + (Val(Text29_Text) * Val(Text79_Text)) + (Val(Text34_Text) * Val(Text86_Text)) + (Val(Text35_Text) * Val(Text93_Text))
Text129_Text = (Val(Text29_Text) * Val(Text52_Text)) + (Val(Text29_Text) * Val(Text59_Text)) + (Val(Text31_Text) * Val(Text66_Text)) + (Val(Text32_Text) * Val(Text73_Text)) + (Val(Text35_Text) * Val(Text80_Text)) + (Val(Text34_Text) * Val(Text87_Text)) + (Val(Text35_Text) * Val(Text94_Text))
Text130_Text = (Val(Text29_Text) * Val(Text53_Text)) + (Val(Text29_Text) * Val(Text60_Text)) + (Val(Text31_Text) * Val(Text67_Text)) + (Val(Text32_Text) * Val(Text74_Text)) + (Val(Text35_Text) * Val(Text81_Text)) + (Val(Text34_Text) * Val(Text88_Text)) + (Val(Text35_Text) * Val(Text95_Text))
Text131_Text = (Val(Text29_Text) * Val(Text54_Text)) + (Val(Text29_Text) * Val(Text61_Text)) + (Val(Text31_Text) * Val(Text68_Text)) + (Val(Text32_Text) * Val(Text75_Text)) + (Val(Text35_Text) * Val(Text82_Text)) + (Val(Text34_Text) * Val(Text89_Text)) + (Val(Text35_Text) * Val(Text96_Text))
Text132_Text = (Val(Text29_Text) * Val(Text55_Text)) + (Val(Text29_Text) * Val(Text62_Text)) + (Val(Text31_Text) * Val(Text69_Text)) + (Val(Text32_Text) * Val(Text76_Text)) + (Val(Text35_Text) * Val(Text83_Text)) + (Val(Text34_Text) * Val(Text90_Text)) + (Val(Text35_Text) * Val(Text97_Text))
Text133_Text = (Val(Text29_Text) * Val(Text56_Text)) + (Val(Text29_Text) * Val(Text63_Text)) + (Val(Text31_Text) * Val(Text70_Text)) + (Val(Text32_Text) * Val(Text77_Text)) + (Val(Text35_Text) * Val(Text84_Text)) + (Val(Text34_Text) * Val(Text91_Text)) + (Val(Text35_Text) * Val(Text98_Text))
Text134_Text = (Val(Text36_Text) * Val(Text50_Text)) + (Val(Text32_Text) * Val(Text57_Text)) + (Val(Text38_Text) * Val(Text64_Text)) + (Val(Text39_Text) * Val(Text71_Text)) + (Val(Text35_Text) * Val(Text78_Text)) + (Val(Text41_Text) * Val(Text85_Text)) + (Val(Text42_Text) * Val(Text92_Text))
Text135_Text = (Val(Text36_Text) * Val(Text51_Text)) + (Val(Text32_Text) * Val(Text58_Text)) + (Val(Text38_Text) * Val(Text65_Text)) + (Val(Text39_Text) * Val(Text72_Text)) + (Val(Text35_Text) * Val(Text79_Text)) + (Val(Text41_Text) * Val(Text86_Text)) + (Val(Text42_Text) * Val(Text93_Text))
Text136_Text = (Val(Text36_Text) * Val(Text52_Text)) + (Val(Text32_Text) * Val(Text59_Text)) + (Val(Text38_Text) * Val(Text66_Text)) + (Val(Text39_Text) * Val(Text73_Text)) + (Val(Text35_Text) * Val(Text80_Text)) + (Val(Text41_Text) * Val(Text87_Text)) + (Val(Text42_Text) * Val(Text94_Text))
Text137_Text = (Val(Text36_Text) * Val(Text53_Text)) + (Val(Text32_Text) * Val(Text60_Text)) + (Val(Text38_Text) * Val(Text67_Text)) + (Val(Text39_Text) * Val(Text74_Text)) + (Val(Text35_Text) * Val(Text81_Text)) + (Val(Text41_Text) * Val(Text88_Text)) + (Val(Text42_Text) * Val(Text95_Text))
Text138_Text = (Val(Text36_Text) * Val(Text53_Text)) + (Val(Text32_Text) * Val(Text61_Text)) + (Val(Text38_Text) * Val(Text68_Text)) + (Val(Text39_Text) * Val(Text75_Text)) + (Val(Text35_Text) * Val(Text82_Text)) + (Val(Text41_Text) * Val(Text89_Text)) + (Val(Text42_Text) * Val(Text96_Text))
Text139_Text = (Val(Text36_Text) * Val(Text55_Text)) + (Val(Text32_Text) * Val(Text62_Text)) + (Val(Text38_Text) * Val(Text69_Text)) + (Val(Text39_Text) * Val(Text76_Text)) + (Val(Text35_Text) * Val(Text83_Text)) + (Val(Text41_Text) * Val(Text90_Text)) + (Val(Text42_Text) * Val(Text97_Text))
Text140_Text = (Val(Text36_Text) * Val(Text56_Text)) + (Val(Text32_Text) * Val(Text63_Text)) + (Val(Text38_Text) * Val(Text70_Text)) + (Val(Text39_Text) * Val(Text77_Text)) + (Val(Text35_Text) * Val(Text84_Text)) + (Val(Text41_Text) * Val(Text91_Text)) + (Val(Text42_Text) * Val(Text98_Text))
Text141_Text = (Val(Text43_Text) * Val(Text50_Text)) + (Val(Text39_Text) * Val(Text57_Text)) + (Val(Text45_Text) * Val(Text64_Text)) + (Val(Text46_Text) * Val(Text71_Text)) + (Val(Text35_Text) * Val(Text78_Text)) + (Val(Text48_Text) * Val(Text85_Text)) + (Val(Text48_Text) * Val(Text92_Text))
Text142_Text = (Val(Text43_Text) * Val(Text51_Text)) + (Val(Text39_Text) * Val(Text58_Text)) + (Val(Text45_Text) * Val(Text65_Text)) + (Val(Text46_Text) * Val(Text72_Text)) + (Val(Text35_Text) * Val(Text79_Text)) + (Val(Text48_Text) * Val(Text86_Text)) + (Val(Text48_Text) * Val(Text93_Text))
Text143_Text = (Val(Text43_Text) * Val(Text52_Text)) + (Val(Text39_Text) * Val(Text59_Text)) + (Val(Text45_Text) * Val(Text66_Text)) + (Val(Text46_Text) * Val(Text73_Text)) + (Val(Text35_Text) * Val(Text80_Text)) + (Val(Text48_Text) * Val(Text87_Text)) + (Val(Text48_Text) * Val(Text94_Text))
Text144_Text = (Val(Text43_Text) * Val(Text53_Text)) + (Val(Text39_Text) * Val(Text60_Text)) + (Val(Text45_Text) * Val(Text67_Text)) + (Val(Text46_Text) * Val(Text74_Text)) + (Val(Text35_Text) * Val(Text81_Text)) + (Val(Text48_Text) * Val(Text88_Text)) + (Val(Text48_Text) * Val(Text95_Text))
Text145_Text = (Val(Text43_Text) * Val(Text54_Text)) + (Val(Text39_Text) * Val(Text61_Text)) + (Val(Text45_Text) * Val(Text68_Text)) + (Val(Text46_Text) * Val(Text75_Text)) + (Val(Text35_Text) * Val(Text82_Text)) + (Val(Text48_Text) * Val(Text89_Text)) + (Val(Text48_Text) * Val(Text96_Text))
Text146_Text = (Val(Text43_Text) * Val(Text55_Text)) + (Val(Text39_Text) * Val(Text62_Text)) + (Val(Text45_Text) * Val(Text69_Text)) + (Val(Text46_Text) * Val(Text76_Text)) + (Val(Text35_Text) * Val(Text83_Text)) + (Val(Text48_Text) * Val(Text90_Text)) + (Val(Text48_Text) * Val(Text97_Text))
Text147_Text = (Val(Text43_Text) * Val(Text56_Text)) + (Val(Text39_Text) * Val(Text63_Text)) + (Val(Text45_Text) * Val(Text70_Text)) + (Val(Text46_Text) * Val(Text77_Text)) + (Val(Text35_Text) * Val(Text84_Text)) + (Val(Text48_Text) * Val(Text91_Text)) + (Val(Text48_Text) * Val(Text98_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 = ""
Text14_Text = ""
Text15_Text = ""
Text16_Text = ""
Text17_Text = ""
Text18_Text = ""
Text19_Text = ""
Text20_Text = ""
Text21_Text = ""
Text22_Text = ""
Text23_Text = ""
Text24_Text = ""
Text25_Text = ""
Text26_Text = ""
Text27_Text = ""
Text28_Text = ""
Text29_Text = ""
Text30_Text = ""
Text31_Text = ""
Text32_Text = ""
Text33_Text = ""
Text34_Text = ""
Text35_Text = ""
Text36_Text = ""
Text37_Text = ""
Text38_Text = ""
Text39_Text = ""
Text40_Text = ""
Text41_Text = ""
Text42_Text = ""
Text43_Text = ""
Text44_Text = ""
Text45_Text = ""
Text46_Text = ""
Text47_Text = ""
Text48_Text = ""
Text49_Text = ""
Text50_Text = ""
Text51_Text = ""
Text52_Text = ""
Text53_Text = ""
Text54_Text = ""
Text55_Text = ""
Text56_Text = ""
Text57_Text = ""
Text58_Text = ""
Text59_Text = ""
Text60_Text = ""
Text61_Text = ""
Text62_Text = ""
Text63_Text = ""
Text64_Text = ""
Text65_Text = ""
Text66_Text = ""
Text67_Text = ""
Text68_Text = ""
Text69_Text = ""
Text70_Text = ""
Text71_Text = ""
Text72_Text = ""
Text73_Text = ""
Text74_Text = ""
Text75_Text = ""
Text76_Text = ""
Text77_Text = ""
Text78_Text = ""
Text79_Text = ""
Text80_Text = ""
Text81_Text = ""
Text82_Text = ""
Text83_Text = ""
Text84_Text = ""
Text85_Text = ""
Text86_Text = ""
Text87_Text = ""
Text88_Text = ""
Text89_Text = ""
Text90_Text = ""
Text91_Text = ""
Text92_Text = ""
Text93_Text = ""
Text94_Text = ""
Text95_Text = ""
Text96_Text = ""
Text97_Text = ""
Text98_Text = ""
Text99_Text = ""
Text100_Text = ""
Text101_Text = ""
Text102_Text = ""
Text103_Text = ""
Text104_Text = ""
Text105_Text = ""
Text106_Text = ""
Text107_Text = ""
Text108_Text = ""
Text1_Text.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form42.Show
Me.Hide
End Sub

1 komentar:

caitlinjabiri mengatakan...

4 Maret 2022 pukul 01.18

Casino Tycoon 2020 - Mapyro
The Casino Tycoon 2020 app, powered by 대구광역 출장샵 Microgaming, lets you easily explore 강릉 출장마사지 your favorite slot games at a glance - from traditional casino to 안성 출장마사지 Vegas casino 구리 출장샵 - 전라북도 출장샵 with

Fifteen

Blogger news

PERHITUNGAN MATRIKS MENGGUNAKAN VISUAL BASIC

1 komentar:

Posting Komentar

Mengenai Saya

Blogger templates

Labels

Archivo del blog

Total Tayangan Halaman

Blogroll

Pengikut

Ads

Popular Posts