Latihan_07_36110056

Deskripsi Latihan 07:

Form Latihan 07 terdapat tiga object yaitu Label, textbox,  dan button

Object Label

Terdapat tujuh label (yang bertuliskan Masukkan angka dan Hasil Perhitungan)

Object Text Box

Terdapat tiga puluh textbox yang terdiri dari lima dengan status input dan dua puluh lima berstatus readonly

Object Button

Terdapat enam object CheckBox (Hitung1, Hitung2 dan Hitung3) untuk TextBox 6, 7, 29, dan 30 memiliki rumus yang berbeda tiap button hitung. Sedangkan TextBox 8 - 28 memilik rumus yang sama tiap button hitung.

Script Unique 

    Private Sub ilyas()

        TB08_36110056.Text = (Val(TB03_36110056.Text) + val (TB04_36110056.Text)  - Val (TB01_36110056.Text))

Private Sub hitung1_

TB06_36110056.Text = (Val(TB01_36110056.Text) + Val(TB02_36110056.Text) + Val(TB03_36110056.Text))

TB07_36110056.Text = (Val(TB01_36110056.Text) + Val(TB02_36110056.Text) + Val(TB03_36110056.Text))

Private Sub hitung2

TB06_36110056.Text = (Val(TB01_36110056.Text) * Val(TB02_36110056.Text))

Private Sub hitung3

TB06_36110056.Text = (Val(TB01_36110056.Text) - Val(TB02_36110056.Text))

      

      Even

Button click

Property

Property TextBox ReadOnly=True

                                                             Form Latihan 07

langkah-langkah penyelesaian latihan 07:

• Buka project yang dibuat sebelumnya
•  Pilih Add new item

    

• Buat form sesuai soal di atas dengan menggunakan Label, Textbox, dan button yang ada dalam Toolbox
• Setelah form selesai, ubah nama textbox,dan button yang terdapat dalam properties window

• ·         Selanjutnya masukkan formula atau rumus untuk menjalan form :

Public Class latihan07_36110056

         

    Private Sub ilyas()

        TB08_36110056.Text = (Val(TB03_36110056.Text) + Val(TB04_36110056.Text) - Val(TB01_36110056.Text))

        TB09_36110056.Text = (Val(TB04_36110056.Text) + Val(TB05_36110056.Text) - Val(TB01_36110056.Text))

        TB10_36110056.Text = (Val(TB01_36110056.Text) + Val(TB03_36110056.Text)) - Val(TB01_36110056.Text)

        TB11_36110056.Text = (Val(TB01_36110056.Text) + Val(TB04_36110056.Text)) - Val(TB01_36110056.Text)

        TB12_36110056.Text = (Val(TB01_36110056.Text) + Val(TB05_36110056.Text)) - Val(TB01_36110056.Text)

        TB13_36110056.Text = (Val(TB02_36110056.Text) + Val(TB04_36110056.Text)) - Val(TB01_36110056.Text)

        TB14_36110056.Text = (Val(TB02_36110056.Text) + Val(TB05_36110056.Text)) - Val(TB01_36110056.Text)

        TB15_36110056.Text = (Val(TB03_36110056.Text) + Val(TB05_36110056.Text)) - Val(TB01_36110056.Text)

        TB16_36110056.Text = (Val(TB01_36110056.Text) * Val(TB02_36110056.Text)) / Val(TB02_36110056.Text)

        TB17_36110056.Text = (Val(TB02_36110056.Text) * Val(TB03_36110056.Text)) / Val(TB02_36110056.Text)

        TB18_36110056.Text = (Val(TB03_36110056.Text) * Val(TB04_36110056.Text)) / Val(TB02_36110056.Text)

        TB19_36110056.Text = (Val(TB04_36110056.Text) * Val(TB05_36110056.Text)) / Val(TB02_36110056.Text)

        TB20_36110056.Text = (Val(TB01_36110056.Text) * Val(TB03_36110056.Text)) / Val(TB02_36110056.Text)

        TB21_36110056.Text = (Val(TB01_36110056.Text) * Val(TB04_36110056.Text)) / Val(TB02_36110056.Text)

        TB22_36110056.Text = (Val(TB01_36110056.Text) * Val(TB05_36110056.Text)) / Val(TB02_36110056.Text)

        TB23_36110056.Text = (Val(TB01_36110056.Text) - Val(TB04_36110056.Text)) - Val(TB02_36110056.Text)

        TB24_36110056.Text = (Val(TB02_36110056.Text) - Val(TB05_36110056.Text)) - Val(TB02_36110056.Text)

        TB25_36110056.Text = (Val(TB02_36110056.Text) - Val(TB05_36110056.Text)) - Val(TB02_36110056.Text)

        TB26_36110056.Text = (Val(TB02_36110056.Text) - Val(TB02_36110056.Text)) - Val(TB03_36110056.Text)

        TB27_36110056.Text = (Val(TB03_36110056.Text) - Val(TB03_36110056.Text)) - Val(TB03_36110056.Text)

        TB28_36110056.Text = (Val(TB01_36110056.Text) - Val(TB04_36110056.Text)) - Val(TB03_36110056.Text)

    End Sub

    Private Sub hitung1_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung1_36110056.Click

        TB06_36110056.Text = (Val(TB01_36110056.Text) + Val(TB02_36110056.Text) + Val(TB03_36110056.Text))

        TB07_36110056.Text = (Val(TB01_36110056.Text) + Val(TB02_36110056.Text) + Val(TB03_36110056.Text))

        ilyas()

        TB29_36110056.Text = (Val(TB01_36110056.Text) + Val(TB02_36110056.Text) + Val(TB03_36110056.Text) + Val(TB04_36110056.Text) + Val(TB05_36110056.Text))

        TB30_36110056.Text = (Val(TB01_36110056.Text) + Val(TB02_36110056.Text))

    End Sub

    Private Sub hitung2_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung2_36110056.Click

        TB06_36110056.Text = (Val(TB01_36110056.Text) * Val(TB02_36110056.Text))

        TB07_36110056.Text = (Val(TB01_36110056.Text) * Val(TB02_36110056.Text) * Val(TB03_36110056.Text))

        ilyas()

        TB29_36110056.Text = (Val(TB01_36110056.Text) * Val(TB02_36110056.Text) * Val(TB03_36110056.Text) Val(TB04_36110056.Text))

        TB30_36110056.Text = (Val(TB01_36110056.Text) * Val(TB02_36110056.Text) * Val(TB03_36110056.Text) * Val(TB04_36110056.Text) * Val(TB05_36110056.Text))

    End Sub

 Private Sub hitung3_36110056_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles hitung3_36110056.Click

        TB06_36110056.Text = (Val(TB01_36110056.Text) -Val(TB02_36110056.Text))

        TB07_36110056.Text = (Val(TB01_36110056.Text) -Val(TB02_36110056.Text) * Val(TB03_36110056.Text))

        ilyas()

        TB29_36110056.Text = (Val(TB01_36110056.Text) - Val(TB02_36110056.Text) - Val(TB03_36110056.Text) - Val(TB04_36110056.Text))

        TB30_36110056.Text = (Val(TB01_36110056.Text) -Val(TB02_36110056.Text) - Val(TB03_36110056.Text) -Val(TB04_36110056.Text) - Val(TB05_36110056.Text))

    End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

        End

    End Sub

End Class

•   Setelah itu untuk mengujinya dapat memilih start debugging