·  Buka project yang telah dibuat sebelumnya.

·  Click project kemudian pilih add windows form, seperti pada gambar dibawah ini 

 

·  Ketik nama form "Latihan_07_46110007" pada name kemudian click add

 

·  Buat form seperti berikut 

 

·  Setelah form selesai masukkan rumus seperti dibawah ini 

Public Class Latihan_07_46110007

    Private Sub fanty()

        tb8_46110007.Text = Val(tb1_46110007.Text) + Val(tb2_46110007.Text)

        tb9_46110007.Text = Val(tb2_46110007.Text) - Val(tb1_46110007.Text)

        tb10_46110007.Text = Val(tb1_46110007.Text) * Val(tb2_46110007.Text)

        tb11_46110007.Text = Val(tb2_46110007.Text) / Val(tb1_46110007.Text)

        tb12_46110007.Text = Val(tb3_46110007.Text) + Val(tb2_46110007.Text)

        tb13_46110007.Text = Val(tb3_46110007.Text) - Val(tb1_46110007.Text)

        tb14_46110007.Text = Val(tb3_46110007.Text) * Val(tb2_46110007.Text)

        tb15_46110007.Text = Val(tb2_46110007.Text) / Val(tb3_46110007.Text)

        tb16_46110007.Text = Val(tb1_46110007.Text) + Val(tb3_46110007.Text)

        tb17_46110007.Text = Val(tb4_46110007.Text) - Val(tb3_46110007.Text)

        tb18_46110007.Text = Val(tb4_46110007.Text) / Val(tb1_46110007.Text)

        tb19_46110007.Text = Val(tb4_46110007.Text) * Val(tb1_46110007.Text)

        tb20_46110007.Text = Val(tb4_46110007.Text) + Val(tb2_46110007.Text)

        tb21_46110007.Text = Val(tb4_46110007.Text) + Val(tb1_46110007.Text)

        tb22_46110007.Text = Val(tb1_46110007.Text) - Val(tb4_46110007.Text)

        tb23_46110007.Text = Val(tb1_46110007.Text) * Val(tb5_46110007.Text)

        tb24_46110007.Text = Val(tb5_46110007.Text) * Val(tb4_46110007.Text)

        tb25_46110007.Text = Val(tb3_46110007.Text) * Val(tb5_46110007.Text)

        tb26_46110007.Text = Val(tb1_46110007.Text) + Val(tb5_46110007.Text)

        tb27_46110007.Text = Val(tb2_46110007.Text) / Val(tb5_46110007.Text)

        tb28_46110007.Text = Val(tb5_46110007.Text) / Val(tb1_46110007.Text)

    End Sub

    Private Sub hitung1_46110007_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles hitung1_46110007.Click

        tb6_46110007.Text = Val(tb1_46110007.Text) + Val(tb5_46110007.Text) - Val(tb3_46110007.Text)

        tb7_46110007.Text = Val(tb1_46110007.Text) - Val(tb5_46110007.Text) * Val(tb3_46110007.Text)

        tb29_46110007.Text = Val(tb2_46110007.Text) + Val(tb1_46110007.Text) - Val(tb3_46110007.Text)

        tb30_46110007.Text = Val(tb5_46110007.Text) * Val(tb4_46110007.Text) - Val(tb2_46110007.Text)

        fanty()

    End Sub

    Private Sub hitung2_46110007_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles hitung2_46110007.Click

        tb6_46110007.Text = Val(tb1_46110007.Text) / Val(tb5_46110007.Text) - Val(tb3_46110007.Text)

        tb7_46110007.Text = Val(tb1_46110007.Text) * Val(tb5_46110007.Text) * Val(tb3_46110007.Text)

        tb29_46110007.Text = Val(tb2_46110007.Text) + Val(tb1_46110007.Text) * Val(tb3_46110007.Text)

        tb30_46110007.Text = Val(tb5_46110007.Text) * Val(tb4_46110007.Text) - Val(tb2_46110007.Text)

        fanty()

    End Sub

    Private Sub hitung3_46110007_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles hitung3_46110007.Click

        tb6_46110007.Text = Val(tb4_46110007.Text) + Val(tb5_46110007.Text) / Val(tb3_46110007.Text)

        tb7_46110007.Text = Val(tb1_46110007.Text) - Val(tb2_46110007.Text) * Val(tb3_46110007.Text)

        tb29_46110007.Text = Val(tb2_46110007.Text) + Val(tb5_46110007.Text) - Val(tb3_46110007.Text)

        tb30_46110007.Text = Val(tb5_46110007.Text) / Val(tb4_46110007.Text) * Val(tb2_46110007.Text)

        fanty()

    End Sub

End Class

·  Untuk menjalankan form tekan F5 

B. Deskripsi Form Latihan 07

Pada form latihan 07 ada 3 object yang digunakan yaitu label, textbox dan button.

Object Label

Terdapat 2 label pada form latihan 07 (Masukkan Angka dan Hasil Perhitungan).

Object TextBox

Pada form ini ada 30 textbox yang digunakan (5 status input dan 25 status readonly). Status input digunakan untuk memasukkan data sedangkan readonly akan menampilkan hasil analisa atau perhitungan setelah data di input ke textbox yang berstatus input.

Object Button                                                                

Terdapat 3 object button (Hitung 1, Hitung 2 dan Hitung 3). Tombol hitung digunakan untuk menampilkan hasil perhitungan berdasarkan data yang telah diinput pada textbox berstatus input. Hasil perhitungan akan muncul pada textbox berstatus readonly yang telah tersedia.

Script Unique

Membuat call prosedur.

Private Sub fanty()

        tb8_46110007.Text = Val(tb1_46110007.Text) + Val(tb2_46110007.Text)

        tb9_46110007.Text = Val(tb2_46110007.Text) - Val(tb1_46110007.Text)

Menjalankan call prosedur dan beberaparumus yang lain.

Private Sub hitung1_46110007_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles hitung1_46110007.Click

        tb6_46110007.Text = Val(tb1_46110007.Text) + Val(tb5_46110007.Text) - Val(tb3_46110007.Text)

        tb7_46110007.Text = Val(tb1_46110007.Text) - Val(tb5_46110007.Text) * Val(tb3_46110007.Text)

        fanty()

Even

ButtonClick.

Property

Property TextBox => ReadOnly = True

Langkah-Langkah Menjalankan Form Latihan 07