latihan_07_46110004

Deskripsi form latihan 07
Form Latihan 07 Terdapat tiga object yaitu label, textbox dan button

Object Label :
Dalam form latihan ini terdapat 2 buah label. Label-label tersebut bertuliskan Masukkan Angka, dan Hasil Perhitungan.

Object Textbox:
Selain Object Label, dalam form ini terdapat 30 buah textbox ( 5 status input dan 25 status read only ) status input digunakan untuk memasukkan nilai pada textbox yang berada di bawah label yang bertuliskan masukkan angka. sedangkan status read only digunakan untuk menampilkan hasil perhitungan dari 5 textbox yang telah diinput.

Object Button :
Selain dua buah object diatas, terdapat juga 3 buah object button yang bertuliskan Hitung 1, Hitung 2 dan Hitung 3. Button ini berfungsi untuk menampilkan hasil perhitungan dari 5 buah textbox berstatus input akan tetapi setiap button memiliki hasil perhitungan yang berbeda beda pada textbox 6,7,29 dan 30.

Script Unique :
Digunakan untuk memudahkan kita dalam penggunaan rumus yang sama tanpa harus menuliskannya lagi di setiap even yang menggunakan rumus tersebut.   
Private Sub yuhu()

Even :

ButtonClick

Property

Property TextBox ==> ReadOnly=True

Langkah-langkah penyelesaian form latihan 7:

1.Buat desaign seperti gambar dibawah ini :

2.Textbox yang berwarna putih tersebut menunjukkan bahwa textbox tersebut berstatus input sedangkan yang berwarna gelap berstatus read only. Adapun Textbox yang dilingkari tersebut menunjukkan bahwa textbox tersebut akan menampilkan hasil perhitungan yang berbeda dari setiap button yang diclick.

3. Adapun script-scipt yang digunakan sebagai berikut :
Public Class latihan_07_46110004
    Private Sub yuhu()
        tb8_46110004.Text = Val(tb1_46110004.Text) + Val(tb2_46110004.Text)
        tb9_46110004.Text = Val(tb2_46110004.Text) * Val(tb3_46110004.Text)
        tb10_46110004.Text = Val(tb3_46110004.Text) - Val(tb4_46110004.Text)
        tb11_46110004.Text = Val(tb4_46110004.Text) / Val(tb5_46110004.Text)
        tb12_46110004.Text = Val(tb1_46110004.Text) + Val(tb5_46110004.Text)
        tb13_46110004.Text = Val(tb4_46110004.Text) - Val(tb2_46110004.Text)
        tb14_46110004.Text = Val(tb3_46110004.Text) * Val(tb4_46110004.Text)
        tb15_46110004.Text = Val(tb5_46110004.Text) / Val(tb2_46110004.Text)
        tb16_46110004.Text = Val(tb3_46110004.Text) * Val(tb1_46110004.Text)
        tb17_46110004.Text = Val(tb4_46110004.Text) + Val(tb2_46110004.Text)
        tb18_46110004.Text = Val(tb1_46110004.Text) - Val(tb2_46110004.Text)
        tb19_46110004.Text = Val(tb2_46110004.Text) / Val(tb3_46110004.Text)
        tb20_46110004.Text = Val(tb3_46110004.Text) + Val(tb4_46110004.Text)
        tb21_46110004.Text = Val(tb4_46110004.Text) * Val(tb5_46110004.Text)
        tb22_46110004.Text = Val(tb1_46110004.Text) - Val(tb5_46110004.Text)
        tb23_46110004.Text = Val(tb3_46110004.Text) / Val(tb1_46110004.Text)
        tb24_46110004.Text = Val(tb3_46110004.Text) / Val(tb2_46110004.Text)
        tb25_46110004.Text = Val(tb2_46110004.Text) / Val(tb5_46110004.Text)
        tb26_46110004.Text = Val(tb5_46110004.Text) - Val(tb4_46110004.Text)
        tb27_46110004.Text = Val(tb2_46110004.Text) - Val(tb1_46110004.Text)
        tb28_46110004.Text = Val(tb2_46110004.Text) - Val(tb4_46110004.Text)

    End Sub



    Private Sub h1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles h1.Click
        tb6_46110004.Text = Val(tb1_46110004.Text) + Val(tb2_46110004.Text) - Val(tb3_46110004.Text)
        tb7_46110004.Text = Val(tb2_46110004.Text) + Val(tb4_46110004.Text) + Val(tb5_46110004.Text)
        tb29_46110004.Text = Val(tb3_46110004.Text) + Val(tb1_46110004.Text) - Val(tb2_46110004.Text)
        tb30_46110004.Text = Val(tb4_46110004.Text) + Val(tb1_46110004.Text) - Val(tb5_46110004.Text)
        yuhu()
    End Sub

    Private Sub h2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles h2.Click
        tb6_46110004.Text = Val(tb1_46110004.Text) * Val(tb2_46110004.Text) / Val(tb3_46110004.Text)
        tb7_46110004.Text = Val(tb2_46110004.Text) * Val(tb4_46110004.Text) / Val(tb5_46110004.Text)
        tb29_46110004.Text = Val(tb3_46110004.Text) * Val(tb1_46110004.Text) / Val(tb2_46110004.Text)
        tb30_46110004.Text = Val(tb4_46110004.Text) * Val(tb1_46110004.Text) / Val(tb5_46110004.Text)
        yuhu()
    End Sub


    Private Sub h3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles h3.Click
        tb6_46110004.Text = Val(tb1_46110004.Text) + Val(tb2_46110004.Text) * Val(tb3_46110004.Text)
        tb7_46110004.Text = Val(tb2_46110004.Text) + Val(tb4_46110004.Text) / Val(tb5_46110004.Text)
        tb29_46110004.Text = Val(tb3_46110004.Text) + Val(tb1_46110004.Text) * Val(tb2_46110004.Text)
        tb30_46110004.Text = Val(tb4_46110004.Text) + Val(tb1_46110004.Text) / Val(tb5_46110004.Text)
        yuhu()

    End Sub
End Class