Form Latihan_07_36110037 terdapat tiga object yaitu Label, textbox,  dan button.

Object Label

Terdapat duah label yang bertuliskan “Masukkan angka”, dan “Hasil Perhitungan”.

Object Textbox

Terdapat tiga puluh textbox  yang terdiri dari 25 textbox berstatus input dan 5 textbox berstatus read only.

Object Button

Terdapat tiga object button yaitu "Hitung1", "Hitung2", dan "Hitung3".

Script Unique

Saat Button Click

T7_36110037.Text = Val(T1_36110037.Text) - Val(T2_36110037.Text) - Val(T3_36110037.Text)

Rhepoet()

T29_36110037.Text = Val(T1_36110037.Text) / Val(T2_36110037.Text) / Val(T3_36110037.Text)


Event

Property textbox :

Readonly = True



1. buka project yang telah dibuat.
2. buka Solution explorer.
3. setelah itu klik kanan nama project, pilih add dan klik new item.


4. setelah add new item terbuka, pilih windows form, windoes form, kemudian ketik nama form, dan add.
 
5. buat form seperti di bawah ini dengan menggunakan toolbox.


6. setelah form selesai, ubah nama textbox dan button menggunakan properties window


7. setelah itu, masuk ke lembar "vb" dengan cara mengklik 2x form dan kemudian ketikkan formula berikut.
Public Class Latihan_07_36110037
    Private Sub Rhepoet()
        T8_36110037.Text = (Val(T1_36110037.Text) * Val(T2_36110037.Text) - Val(T3_36110037.Text))
        T9_36110037.Text = (Val(T1_36110037.Text) * Val(T2_36110037.Text) + Val(T5_36110037.Text))
        T10_36110037.Text = (Val(T1_36110037.Text) * Val(T2_36110037.Text) * Val(T3_36110037.Text))
        T11_36110037.Text = (Val(T3_36110037.Text) * Val(T4_36110037.Text) - Val(T5_36110037.Text))
        T12_36110037.Text = (Val(T3_36110037.Text) / Val(T2_36110037.Text) + Val(T5_36110037.Text))
        T13_36110037.Text = (Val(T5_36110037.Text) / Val(T2_36110037.Text) - Val(T3_36110037.Text))
        T14_36110037.Text = (Val(T2_36110037.Text) / Val(T4_36110037.Text) - Val(T5_36110037.Text))
        T15_36110037.Text = (Val(T4_36110037.Text) * Val(T5_36110037.Text) - Val(T3_36110037.Text))
        T16_36110037.Text = (Val(T3_36110037.Text) + Val(T2_36110037.Text) / Val(T4_36110037.Text))
        T17_36110037.Text = (Val(T4_36110037.Text) * Val(T3_36110037.Text) - Val(T5_36110037.Text))
        T18_36110037.Text = (Val(T5_36110037.Text) * Val(T1_36110037.Text) - Val(T3_36110037.Text))
        T19_36110037.Text = (Val(T1_36110037.Text) / Val(T4_36110037.Text) * Val(T3_36110037.Text))
        T20_36110037.Text = (Val(T2_36110037.Text) * Val(T1_36110037.Text) - Val(T3_36110037.Text))
        T21_36110037.Text = (Val(T3_36110037.Text) / Val(T3_36110037.Text) + Val(T3_36110037.Text))
        T22_36110037.Text = (Val(T4_36110037.Text) * Val(T2_36110037.Text) - Val(T2_36110037.Text))
        T23_36110037.Text = (Val(T5_36110037.Text) * Val(T4_36110037.Text) + Val(T3_36110037.Text))
        T24_36110037.Text = (Val(T1_36110037.Text) * Val(T5_36110037.Text) - Val(T2_36110037.Text))
        T25_36110037.Text = (Val(T2_36110037.Text) / Val(T1_36110037.Text) - Val(T5_36110037.Text))
        T26_36110037.Text = (Val(T3_36110037.Text) * Val(T3_36110037.Text) + Val(T1_36110037.Text))
        T27_36110037.Text = (Val(T4_36110037.Text) / Val(T2_36110037.Text) + Val(T3_36110037.Text))
        T28_36110037.Text = (Val(T5_36110037.Text) - Val(T4_36110037.Text) + Val(T3_36110037.Text))
    End Sub

    Private Sub Hitung1_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Hitung1_36110037.Click
        T6_36110037.Text = Val(T1_36110037.Text) + Val(T2_36110037.Text) * Val(T3_36110037.Text) - Val(T4_36110037.Text) / Val(T5_36110037.Text)
        T7_36110037.Text = Val(T1_36110037.Text) / Val(T2_36110037.Text) + Val(T3_36110037.Text) * Val(T4_36110037.Text) * Val(T5_36110037.Text)
        Rhepoet()
        T29_36110037.Text = Val(T1_36110037.Text) + Val(T2_36110037.Text) * Val(T3_36110037.Text) - Val(T4_36110037.Text) / Val(T5_36110037.Text)
        T30_36110037.Text = Val(T1_36110037.Text) * Val(T2_36110037.Text) * Val(T3_36110037.Text) - Val(T4_36110037.Text) * Val(T5_36110037.Text)
    End Sub

    Private Sub Hitung2_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Hitung2_36110037.Click
        T6_36110037.Text = Val(T5_36110037.Text) + Val(T5_36110037.Text) * Val(T5_36110037.Text) - Val(T4_36110037.Text) / Val(T5_36110037.Text)
        T7_36110037.Text = Val(T4_36110037.Text) / Val(T4_36110037.Text) + Val(T4_36110037.Text) * Val(T4_36110037.Text) * Val(T5_36110037.Text)
        Rhepoet()
        T29_36110037.Text = Val(T3_36110037.Text) + Val(T3_36110037.Text) * Val(T3_36110037.Text) - Val(T4_36110037.Text) / Val(T5_36110037.Text)
        T30_36110037.Text = Val(T3_36110037.Text) * Val(T2_36110037.Text) * Val(T2_36110037.Text) - Val(T4_36110037.Text) * Val(T5_36110037.Text)
    End Sub

    Private Sub Hitung3_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Hitung3_36110037.Click
        T6_36110037.Text = Val(T1_36110037.Text) + Val(T2_36110037.Text) + Val(T3_36110037.Text) + Val(T4_36110037.Text) + Val(T5_36110037.Text)
        T7_36110037.Text = Val(T1_36110037.Text) - Val(T2_36110037.Text) - Val(T3_36110037.Text) - Val(T4_36110037.Text) - Val(T5_36110037.Text)
        Rhepoet()
        T29_36110037.Text = Val(T1_36110037.Text) / Val(T2_36110037.Text) / Val(T3_36110037.Text) / Val(T4_36110037.Text) / Val(T5_36110037.Text)
        T30_36110037.Text = Val(T1_36110037.Text) * Val(T2_36110037.Text) * Val(T3_36110037.Text) * Val(T4_36110037.Text) * Val(T5_36110037.Text)
    End Sub
End Class
8. Uji program dengan mengklik "Start Debugging".

9. Save program dengan mengklik icon "save".

10. Selesai.