latihan_07_36110034

Deskripsi penyelesaian

Form Latihan_07_36110034  terdapat tiga object yaitu Label, Textbox, dan Button:

Object Label

Terdapat dua label (yang bertuliskan masukkan angka dan hasil perhitungan)

Object Text Box

Terdapat tiga puluh  textbox (lima status input; dua puluh lima status read only). Status input digunakan untuk memasukkan nilai pada textbox yang berada di bawah lebel yang bertuliskan masukkan angka. Dan textbox yang berstatus readonly berada dibawah label yang bertuliskan hasil perhitungan dapat digunakan untuk memperlihatkan hasil.

Object Button

Terdapat tiga object button (Hitung1, Hitung2, dan Hitung3). Tombol Hitung1, Hitung2 dan Hitung3 digunakan untuk menampilkan hasil perhitungan di object TextBox ReadOnly. Yang dimana rumus setiap tombol button berbeda.

Dimana pada setiap tombol hitung akan memeperlihatkan hasil perhitungan baik itu penjumlahan. Perkalian ataupun pembagian pada textbox 6 sampai textbox 30, tetapi hanya textbox6 ,7,29 dan 30 yang berbeda di setiap tombol hitung dan selain textbox tersebut akan menampilkan hasil yang sama, untuk cara ini digunakan cara pemanggilan rumus.

Script Unique 

Buttom "Hitung1”

T6_36110034.Text = Val(T1_36110034.Text) + Val(T1_36110034.Text)

        T7_36110034.Text = Val(T2_36110034.Text) + Val(T2_36110034.Text)

        dini()

        T29_36110034.Text = Val(T1_36110034.Text) + Val(T7_36110034.Text)

        T30_36110034.Text = Val(T2_36110034.Text) + Val(T8_36110034.Text)

Buttom "Hitung2”

T6_36110034.Text = Val(T5_36110034.Text) * Val(T9_36110034.Text)

        T7_36110034.Text = Val(T6_36110034.Text) * Val(T10_36110034.Text)

        dini()

        T29_36110034.Text = Val(T7_36110034.Text) * Val(T11_36110034.Text)

        T30_36110034.Text = Val(T8_36110034.Text) * Val(T12_36110034.Text)

Buttom "Hitung3”

T6_36110034.Text = Val(T5_36110034.Text) * Val(T9_36110034.Text)

        T7_36110034.Text = Val(T6_36110034.Text) * Val(T10_36110034.Text)

        dini()

        T29_36110034.Text = Val(T7_36110034.Text) * Val(T11_36110034.Text)

        T30_36110034.Text = Val(T8_36110034.Text) * Val(T12_36110034.Text)

Even

H1_36110034_Clik

H2_36110034_Click

H3_36110034_Click

Property

Property TextBox ==> ReadOnly=True

Prosedur penyelesaian

1.   buka project yang telah dibuat sebelumnya klik add new item => add windows form => ganti nama project => add.

2.   membuat form dengan menggunakan Label, Textbox, dan Button yang ada dalam "Toolbox”.

3.   ganti nama textbox dan button menggunakan "Properties Window".

4.   membuka lembar vb Masukkan rumus berikut untuk menyelesaikan latihan_07_36110034.

    Public Class latihan_07_36110034

    Private Sub dini()

        T8_36110034.Text = Val(T3_36110034.Text) + Val(T3_36110034.Text)

        T9_36110034.Text = Val(T4_36110034.Text) + Val(T4_36110034.Text)

        T10_36110034.Text = Val(T5_36110034.Text) + Val(T5_36110034.Text)

        T11_36110034.Text = Val(T6_36110034.Text) + Val(T6_36110034.Text)

        T12_36110034.Text = Val(T2_36110034.Text) + Val(T2_36110034.Text)

        T13_36110034.Text = Val(T3_36110034.Text) + Val(T3_36110034.Text)

        T14_36110034.Text = Val(T4_36110034.Text) + Val(T4_36110034.Text)

        T15_36110034.Text = Val(T5_36110034.Text) + Val(T5_36110034.Text)

        T16_36110034.Text = Val(T3_36110034.Text) + Val(T3_36110034.Text)

        T17_36110034.Text = Val(T4_36110034.Text) + Val(T4_36110034.Text)

        T18_36110034.Text = Val(T5_36110034.Text) + Val(T5_36110034.Text)

        T19_36110034.Text = Val(T1_36110034.Text) + Val(T1_36110034.Text)

        T20_36110034.Text = Val(T2_36110034.Text) + Val(T2_36110034.Text)

        T21_36110034.Text = Val(T3_36110034.Text) + Val(T3_36110034.Text)

        T22_36110034.Text = Val(T4_36110034.Text) + Val(T4_36110034.Text)

        T23_36110034.Text = Val(T5_36110034.Text) + Val(T5_36110034.Text)

        T24_36110034.Text = Val(T1_36110034.Text) + Val(T1_36110034.Text)

        T25_36110034.Text = Val(T2_36110034.Text) + Val(T2_36110034.Text)

        T26_36110034.Text = Val(T3_36110034.Text) + Val(T3_36110034.Text)

        T27_36110034.Text = Val(T4_36110034.Text) + Val(T4_36110034.Text)

        T28_36110034.Text = Val(T5_36110034.Text) + Val(T5_36110034.Text)

    End Sub

    Private Sub H1_36110034_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H1_36110034.Click

        T6_36110034.Text = Val(T1_36110034.Text) + Val(T1_36110034.Text)

        T7_36110034.Text = Val(T2_36110034.Text) + Val(T2_36110034.Text)

        dini()

        T29_36110034.Text = Val(T1_36110034.Text) + Val(T7_36110034.Text)

        T30_36110034.Text = Val(T2_36110034.Text) + Val(T8_36110034.Text)

    End Sub

    Private Sub H2_36110034_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H2_36110034.Click

        T6_36110034.Text = Val(T5_36110034.Text) * Val(T9_36110034.Text)

        T7_36110034.Text = Val(T6_36110034.Text) * Val(T10_36110034.Text)

        dini()

        T29_36110034.Text = Val(T7_36110034.Text) * Val(T11_36110034.Text)

        T30_36110034.Text = Val(T8_36110034.Text) * Val(T12_36110034.Text)

    End Sub

    Private Sub H3_36110034_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles H3_36110034.Click

        T6_36110034.Text = Val(T9_36110034.Text) / Val(T14_36110034.Text)

        T7_36110034.Text = Val(T10_36110034.Text) / Val(T17_36110034.Text)

        dini()

        T29_36110034.Text = Val(T11_36110034.Text) / Val(T15_36110034.Text)

        T30_36110034.Text = Val(T12_36110034.Text) / Val(T16_36110034.Text)

    End Sub

End Class

5.   Jalankan program dengan “start debugging”.