Latihan_07_36110029

v Deskripsi Latihan_07_36110029

Object Label

Terdapat 2  Label (yang bertuliskan: Masukkan angka, dan Hasil Perhitungan)

Object TextBox

Terdapat 30 Textbox  (yang terdiri dari 25 textbox berstatus input, 5 textbox berstatus read only)

Object Button

Terdapat 3 object Button (yaitu Hitung 1, Hitung 2, dan Hitung 3)

Script Unique

H6_36110029.Text = Val(MA1_36110029.Text) + Val(MA5_36110029.Text)

Hana()

H30_36110029.Text = Val(MA1_36110029.Text) - Val(MA4_36110029.Text)

Event

Buttonclick

Property

Property TextBox ==> ReadOnly=True

v   Prosedur  Latihan_07_36110029

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_07_36110029  sudah dibuat maka selanjutnya kita membuat listing program pada jendela code:

Public Class Latihan_07_36110029
Private Sub HT1_36110029_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HT1_36110029.Click
        H6_36110029.Text = Val(MA1_36110029.Text) + Val(MA5_36110029.Text)
        H7_36110029.Text = Val(MA2_36110029.Text) + Val(MA4_36110029.Text)
        H8_36110029.Text = Val(MA3_36110029.Text) + Val(MA1_36110029.Text)
        H9_36110029.Text = Val(MA1_36110029.Text) + Val(MA4_36110029.Text)
        H10_36110029.Text = Val(MA1_36110029.Text) + Val(MA2_36110029.Text)
        H11_36110029.Text = Val(MA2_36110029.Text) + Val(MA3_36110029.Text)
        H12_36110029.Text = Val(MA4_36110029.Text) + Val(MA5_36110029.Text)
        H13_36110029.Text = Val(MA3_36110029.Text) + Val(MA5_36110029.Text)
        H14_36110029.Text = Val(MA2_36110029.Text) + Val(MA3_36110029.Text)
        H15_36110029.Text = Val(MA3_36110029.Text) + Val(MA1_36110029.Text)
        H16_36110029.Text = Val(MA1_36110029.Text) + Val(MA4_36110029.Text)
        H17_36110029.Text = Val(MA1_36110029.Text) + Val(MA2_36110029.Text)
        H18_36110029.Text = Val(MA2_36110029.Text) + Val(MA3_36110029.Text)
        H19_36110029.Text = Val(MA4_36110029.Text) + Val(MA5_36110029.Text)
        H20_36110029.Text = Val(MA1_36110029.Text) + Val(MA5_36110029.Text)
        H21_36110029.Text = Val(MA2_36110029.Text) + Val(MA4_36110029.Text)
        H22_36110029.Text = Val(MA3_36110029.Text) + Val(MA1_36110029.Text)
        H23_36110029.Text = Val(MA1_36110029.Text) + Val(MA4_36110029.Text)
        H24_36110029.Text = Val(MA1_36110029.Text) + Val(MA2_36110029.Text)
        H25_36110029.Text = Val(MA2_36110029.Text) + Val(MA3_36110029.Text)
        H26_36110029.Text = Val(MA4_36110029.Text) + Val(MA5_36110029.Text)
        H27_36110029.Text = Val(MA1_36110029.Text) + Val(MA5_36110029.Text)
        H28_36110029.Text = Val(MA2_36110029.Text) + Val(MA4_36110029.Text)
        H29_36110029.Text = Val(MA3_36110029.Text) + Val(MA1_36110029.Text)
        H30_36110029.Text = Val(MA1_36110029.Text) + Val(MA4_36110029.Text)
    End Sub

    Private Sub HT2_36110029_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HT2_36110029.Click
        H6_36110029.Text = Val(MA1_36110029.Text) - Val(MA5_36110029.Text)
        H7_36110029.Text = Val(MA2_36110029.Text) - Val(MA4_36110029.Text)
        H8_36110029.Text = Val(MA3_36110029.Text) + Val(MA1_36110029.Text)
        H9_36110029.Text = Val(MA1_36110029.Text) + Val(MA4_36110029.Text)
        H10_36110029.Text = Val(MA1_36110029.Text) + Val(MA2_36110029.Text)
        H11_36110029.Text = Val(MA2_36110029.Text) + Val(MA3_36110029.Text)
        H12_36110029.Text = Val(MA4_36110029.Text) + Val(MA5_36110029.Text)
        H13_36110029.Text = Val(MA3_36110029.Text) + Val(MA5_36110029.Text)
        H14_36110029.Text = Val(MA2_36110029.Text) + Val(MA3_36110029.Text)
        H15_36110029.Text = Val(MA3_36110029.Text) + Val(MA1_36110029.Text)
        H16_36110029.Text = Val(MA1_36110029.Text) + Val(MA4_36110029.Text)
        H17_36110029.Text = Val(MA1_36110029.Text) + Val(MA2_36110029.Text)
        H18_36110029.Text = Val(MA2_36110029.Text) + Val(MA3_36110029.Text)
        H19_36110029.Text = Val(MA4_36110029.Text) + Val(MA5_36110029.Text)
        H20_36110029.Text = Val(MA1_36110029.Text) + Val(MA5_36110029.Text)
        H21_36110029.Text = Val(MA2_36110029.Text) + Val(MA4_36110029.Text)
        H22_36110029.Text = Val(MA3_36110029.Text) + Val(MA1_36110029.Text)
        H23_36110029.Text = Val(MA1_36110029.Text) + Val(MA4_36110029.Text)
        H24_36110029.Text = Val(MA1_36110029.Text) + Val(MA2_36110029.Text)
        H25_36110029.Text = Val(MA2_36110029.Text) + Val(MA3_36110029.Text)
        H26_36110029.Text = Val(MA4_36110029.Text) + Val(MA5_36110029.Text)
        H27_36110029.Text = Val(MA1_36110029.Text) + Val(MA5_36110029.Text)
        H28_36110029.Text = Val(MA2_36110029.Text) + Val(MA4_36110029.Text)
        H29_36110029.Text = Val(MA3_36110029.Text) - Val(MA1_36110029.Text)
        H30_36110029.Text = Val(MA1_36110029.Text) - Val(MA4_36110029.Text)
    End Sub

    Private Sub HT3_36110029_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HT3_36110029.Click
        H6_36110029.Text = Val(MA1_36110029.Text) * Val(MA5_36110029.Text)
        H7_36110029.Text = Val(MA2_36110029.Text) * Val(MA4_36110029.Text)
        H8_36110029.Text = Val(MA3_36110029.Text) + Val(MA1_36110029.Text)
        H9_36110029.Text = Val(MA1_36110029.Text) + Val(MA4_36110029.Text)
        H10_36110029.Text = Val(MA1_36110029.Text) + Val(MA2_36110029.Text)
        H11_36110029.Text = Val(MA2_36110029.Text) + Val(MA3_36110029.Text)
        H12_36110029.Text = Val(MA4_36110029.Text) + Val(MA5_36110029.Text)
        H13_36110029.Text = Val(MA3_36110029.Text) + Val(MA5_36110029.Text)
        H14_36110029.Text = Val(MA2_36110029.Text) + Val(MA3_36110029.Text)
        H15_36110029.Text = Val(MA3_36110029.Text) + Val(MA1_36110029.Text)
        H16_36110029.Text = Val(MA1_36110029.Text) + Val(MA4_36110029.Text)
        H17_36110029.Text = Val(MA1_36110029.Text) + Val(MA2_36110029.Text)
        H18_36110029.Text = Val(MA2_36110029.Text) + Val(MA3_36110029.Text)
        H19_36110029.Text = Val(MA4_36110029.Text) + Val(MA5_36110029.Text)
        H20_36110029.Text = Val(MA1_36110029.Text) + Val(MA5_36110029.Text)
        H21_36110029.Text = Val(MA2_36110029.Text) + Val(MA4_36110029.Text)
        H22_36110029.Text = Val(MA3_36110029.Text) + Val(MA1_36110029.Text)
        H23_36110029.Text = Val(MA1_36110029.Text) + Val(MA4_36110029.Text)
        H24_36110029.Text = Val(MA1_36110029.Text) + Val(MA2_36110029.Text)
        H25_36110029.Text = Val(MA2_36110029.Text) + Val(MA3_36110029.Text)
        H26_36110029.Text = Val(MA4_36110029.Text) + Val(MA5_36110029.Text)
        H27_36110029.Text = Val(MA1_36110029.Text) + Val(MA5_36110029.Text)
        H28_36110029.Text = Val(MA2_36110029.Text) + Val(MA4_36110029.Text)
        H29_36110029.Text = Val(MA3_36110029.Text) * Val(MA1_36110029.Text)
        H30_36110029.Text = Val(MA1_36110029.Text) * Val(MA4_36110029.Text)
    End Sub
End Class

6.      Tekan F5 pada keyboard untuk menjalankan form, kemudian ketik angka  pada kolom dan perhatikan hasilnya.