Latihan_07_46110037

Deskripsi Form Latihan 07

Pada latihan 07 terdapat 3 Object yaitu Label, TextBox dan Button.

Object Label

Terdapat dua Label yaitu Masukkan Angka dan Hasil Perhitungan.

Object TextBox

Terdapat 30 Textbox, 25 textbox berstatus input, dan 5 textbox berstatus ReadOnly. 25 textbox yang berstatus readOnly akan menampilkan hasil perhitungan dari angka-angka yang di masukan pada 5 textbox yang berstatus input.

Object Button

Terdapat 3 button yaitu Hitung 1; Hitung 2 dan Hitung 3. Tombol ini ketika di click akan menghasilkan perhitungan angka yang sama kecuali pada textbox 6, 7, 29 dan 30.

Script Unique

Pembuatan Prosedure

Private Sub Inna ()

hit346110037.Text = Val(angka246110037.Text) + Val(angka146110037.Text)

        hit446110037.Text = Val(angka446110037.Text) + Val(angka346110037.Text)

        hit546110037.Text = Val(angka546110037.Text) / Val(angka446110037.Text) * 2

        hit646110037.Text = Val(angka146110037.Text) * Val(angka546110037.Text) / 12

        hit746110037.Text = Val(angka346110037.Text) - (angka546110037.Text) * 100 / 8

End sub

Penggunaan Prosedure

Inna()

Prosedure digunakan untuk memudahkan kita menulis rumus yang berulang(Cuma beda sedikit), cukup pakai saja prosedurnya.

Even

Click

Property

Property Textbox=> ReadOnly=True

Langkah-Langkah Menjalankan Form

·     1. Masukkan angka pada textbox yang berstatus input

·     2. Kemudian click hitung 1 atau hitung 2 atau hitung 3, maka hasil penjumlahan akan muncul pada 25 textRead Only.

Langkah-langkah Menyelesaikan Form

• Buka project yang telan dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas dengan menggunakan Label, Textbox, danButton.
• Ganti nama Textbox dan Button di properties-Name
• Ganti status Textbox menjadi ReadOnly di properties lalu pilih ReadOnly True 
• Buat Prosedure untuk textbox yang akan menghasilkan perhitungan yang sama yaitu textbox 8 s/d textbox 28

Private Sub inna()

        hit346110037.Text = Val(angka246110037.Text) + Val(angka146110037.Text)

        hit446110037.Text = Val(angka446110037.Text) + Val(angka346110037.Text)

        hit546110037.Text = Val(angka546110037.Text) / Val(angka446110037.Text) * 2

        hit646110037.Text = Val(angka146110037.Text) * Val(angka546110037.Text) / 12

        hit746110037.Text = Val(angka346110037.Text) - (angka546110037.Text) * 100 / 8

        hit846110037.Text = Val(angka146110037.Text) / Val(angka346110037.Text) + Val(angka446110037.Text)

        hit946110037.Text = Val(angka546110037.Text) - Val(angka346110037.Text) * Val(angka146110037.Text)

        hit1046110037.Text = Val(angka446110037.Text) * Val(angka546110037.Text) + Val(angka246110037.Text)

        hit1146110037.Text = Val(angka246110037.Text) - Val(angka346110037.Text) * Val(angka546110037.Text)

        hit1246110037.Text = Val(angka146110037.Text) - Val(angka446110037.Text) + Val(angka546110037.Text)

        hit1346110037.Text = Val(angka246110037.Text) - Val(angka446110037.Text) / Val(angka146110037.Text)

        hit1446110037.Text = Val(angka346110037.Text) / Val(angka246110037.Text) - Val(angka146110037.Text)

        hit1546110037.Text = Val(angka346110037.Text) * Val(angka446110037.Text) - Val(angka246110037.Text)

        hit1646110037.Text = Val(angka546110037.Text) / Val(angka146110037.Text) - Val(angka346110037.Text)

        hit1746110037.Text = Val(angka446110037.Text) - Val(angka146110037.Text) / Val(angka546110037.Text)

        hit1846110037.Text = Val(angka546110037.Text) + Val(angka446110037.Text) * Val(angka146110037.Text)

        hit1946110037.Text = Val(angka346110037.Text) + Val(angka446110037.Text) * 12%

        hit2046110037.Text = Val(angka246110037.Text) - Val(angka346110037.Text) - Val(angka446110037.Text)

        hit2146110037.Text = Val(angka346110037.Text) + Val(angka446110037.Text) * 8 * 2

        hit2246110037.Text = Val(angka546110037.Text) * Val(angka246110037.Text) - Val(angka446110037.Text)

        hit2346110037.Text = Val(angka346110037.Text) - Val(angka446110037.Text) * Val(angka546110037.Text)

    End Sub

• Kembali Ke latihan 07 design kemudianclick double tombol Hitung 1. Tuliskan Rumus untuk textbox 6, 7, 28 dan 30. Untuk rumus textbox 28 s/d textbox 30 gunakan prosedureyang telah dibuat. maka scriptnya seperti di bawah ini:

Private Sub h146110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles h146110037.Click

        hit146110037.Text = Val(angka246110037.Text) + Val(angka546110037.Text)

        hit246110037.Text = Val(angka346110037.Text) + Val(angka446110037.Text)

        hit2446110037.Text = Val(angka146110037.Text) + Val(angka346110037.Text)

        hit2546110037.Text = Val(angka246110037.Text) * Val(angka246110037.Text)

        inna()

    End Sub

• Kembali Ke latihan 07 design kemudianclick double tombol Hitung 2. Tuliskan Rumus untuk textbox 6, 7, 28 dan 30. Untuk rumus textbox 28 s/d textbox 30 gunakan prosedureyang telah dibuat. maka scriptnya seperti di bawah ini:  

Private Sub h246110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles h246110037.Click

        inna()

        hit146110037.Text = Val(angka346110037.Text) / Val(angka546110037.Text)

        hit246110037.Text = Val(angka346110037.Text) - Val(angka446110037.Text)

        hit2446110037.Text = Val(angka146110037.Text) * Val(angka346110037.Text)

        hit2546110037.Text = Val(angka246110037.Text) / Val(angka246110037.Text)

    End Sub

• Kembali ke latihan 07 design kemudian click double tombol Hitung 3. dan tuliskan rumusnya seperti:

Private Sub h346110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles h346110037.Click

        hit146110037.Text = Val(angka246110037.Text) * Val(angka546110037.Text)

        hit246110037.Text = Val(angka346110037.Text) / Val(angka446110037.Text)

        hit2446110037.Text = Val(angka146110037.Text) - Val(angka346110037.Text)

        hit2546110037.Text = Val(angka246110037.Text) - Val(angka246110037.Text)

        inna()

    End Sub