Latihan_07_46110043

Deskripsi Form

Pada form Latihan_07 dibawah ini kita dapat menemukan 3 object, yaitu:

Object Label, Object TextBox, dan Object Button.

1. Object Label

    Pada form diatas terdapat 2 buah label yang masing-masing bertuliskan à Masukkan Angka, Hasil Perhitungan.

2. Object Textbox

    Pada form diatas terdapat 30 buah textbox 5 buah txtbox status input dan 25 diantaranya merupakan status ReadOnly. Status input pada form ini berfungsi untuk menginput angka berdasarkan perhitungan. Sedangkan TextBox yang berstatus ReadOnly berfungsi untuk menampilkan hasil perhitungan.

3. Object Button

    Pada form diatas terdapat 3 buah object button yang masing-masing bertuliskan à HITUNG1, HITUNG2, HITUNG3. Tombol Hitung 1, 2, 3 untuk menampilkan hasil perhitungan dari angka-angka yang diinput. Hasil yang ditampilkan berbeda-beda sesuai dengan rumus yang dimasukkan pada setiap Button.

Langkah-langkah menjalankan Form:

1. input angka di 5 textbox status input.

2. Tekan tombol hitung1, maka menampilkan hasil perhitungan dari angka yang diinput pada 25 textbox status readonly.

3. Tekan tombol hitung2, maka menampilkan hasil perhitungan yang berbeda dari angka yang diinput pada textbox (sebagai hasil ke-1, ke-2, ke-24, dan ke-25). hasil ke-3 s/d ke-23 tidak mengalami perubahan.

4. Tekan tombol hitung3, maka menampilkan hasil perhitungan yang berbeda lagi dari angka yang diinput pada textbox (sebagai hasil ke-1, ke-2, ke-24, dan ke-25). hasil ke-3 s/d ke-23 tidak mengalami perubahan.

Langkah-langkah Penyelesaian :

1. Pada Solution Explorer, klik kanan Kumpulan Latihan, pilih Add, New Item.

2. Pilih Windows Form, lalu ubah nama form menjadi Latihan_07_46110043 tanpa mengubah ekstension file (vb)

3. Gunakan toolbox untuk create Label, Textbox, dan Button, kemudian buat object sesuai dengan deskripsi form diatas.

4. Ubah object name menjadi singkatan yang mudah diingat disertai Nim dibelakang singkatan.

5. Klik kanan Form, pilih View Code, lalu ketik script yang sesuai, lihat contoh dibawah ini:

Public Class Latihan_07_46110043

    Private Sub FORMULA()

        H46110043.Text = Val(B46110043.Text) + Val(C46110043.Text) + Val(D46110043.Text)

        I46110043.Text = Val(C46110043.Text) * Val(D46110043.Text) * Val(C46110043.Text)

        K46110043.Text = Val(C46110043.Text) * Val(A46110043.Text) - Val(D46110043.Text)

        L46110043.Text = Val(D46110043.Text) + Val(A46110043.Text) - Val(E46110043.Text)

        M46110043.Text = Val(A46110043.Text) * Val(E46110043.Text) * Val(D46110043.Text)

        N46110043.Text = Val(E46110043.Text) - Val(B46110043.Text) * Val(A46110043.Text)

        O46110043.Text = Val(A46110043.Text) + Val(C46110043.Text) - Val(D46110043.Text)

        P46110043.Text = Val(D46110043.Text) * Val(C46110043.Text) + Val(A46110043.Text)

        Q46110043.Text = Val(C46110043.Text) - Val(B46110043.Text) + Val(E46110043.Text)

        R46110043.Text = Val(C46110043.Text) * Val(A46110043.Text) + Val(B46110043.Text)

        S46110043.Text = Val(D46110043.Text) + Val(C46110043.Text) + Val(A46110043.Text)

        T46110043.Text = Val(A46110043.Text) * Val(C46110043.Text) + Val(E46110043.Text)

        U46110043.Text = Val(B46110043.Text) - Val(E46110043.Text) + Val(B46110043.Text)

        V46110043.Text = Val(D46110043.Text) - Val(C46110043.Text) + Val(A46110043.Text)

        W46110043.Text = Val(A46110043.Text) * Val(C46110043.Text) + Val(E46110043.Text)

        X46110043.Text = Val(C46110043.Text) * Val(A46110043.Text) - Val(B46110043.Text)

        Y46110043.Text = Val(E46110043.Text) * Val(C46110043.Text) + Val(A46110043.Text)

        Z46110043.Text = Val(A46110043.Text) * Val(C46110043.Text) - Val(B46110043.Text)

        AA46110043.Text = Val(C46110043.Text) - Val(E46110043.Text) + Val(B46110043.Text)

        BB46110043.Text = Val(A46110043.Text) * Val(D46110043.Text) + Val(B46110043.Text)

    End Sub

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

        FORMULA()

        F46110043.Text = Val(C46110043.Text) / Val(A46110043.Text) * Val(E46110043.Text)

        G46110043.Text = Val(D46110043.Text) * Val(C46110043.Text) * Val(A46110043.Text)

        CC46110043.Text = Val(C46110043.Text) + Val(E46110043.Text) * Val(D46110043.Text)

        DD46110043.Text = Val(B46110043.Text) * Val(C46110043.Text) + Val(A46110043.Text)

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        FORMULA()

        F46110043.Text = Val(D46110043.Text) + Val(A46110043.Text) - Val(C46110043.Text)

        G46110043.Text = Val(D46110043.Text) * Val(B46110043.Text) + Val(E46110043.Text)

        CC46110043.Text = Val(E46110043.Text) + Val(A46110043.Text) - Val(D46110043.Text)

        DD46110043.Text = Val(B46110043.Text) / Val(C46110043.Text) * Val(D46110043.Text)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        FORMULA()

        F46110043.Text = Val(A46110043.Text) * Val(B46110043.Text) - Val(C46110043.Text)

        G46110043.Text = Val(B46110043.Text) + Val(C46110043.Text) - Val(A46110043.Text)

        CC46110043.Text = Val(C46110043.Text) - Val(D46110043.Text) * Val(E46110043.Text)

        DD46110043.Text = Val(D46110043.Text) * Val(E46110043.Text) + Val(A46110043.Text)

    End Sub

Script Unique

Private Sub FORMULA()

        H46110043.Text = Val(B46110043.Text) + Val(C46110043.Text) + Val(D46110043.Text)

        I46110043.Text = Val(C46110043.Text) * Val(D46110043.Text) * Val(C46110043.Text)

        J46110043.Text = Val(D46110043.Text) - Val(E46110043.Text) - Val(A46110043.Text)

   End Sub

Even

ButtonClick

Property

Property TextBox --> ReadOnly = True