Deskripsi Penyelesaian Latihan_07_36110041

-->

Deskripsi Penyelesaian

Latihan_07_36110041

A.     Form Latihan_07  terdapat tiga object yaitu Label, Textbox, dan Button:

Ø  Object Label

Terdapat  dua   label (yang bertuliskan Masukkan Angka dan Hasil Perhitungan)

Ø  Object Text Box

Terdapat tiga puluh  textbox (lima status input dan dua puluh lima status read only). Status input digunakan untuk memasukkan nilai. Status Read Only digunakan untuk menampilkan hasil perhitungan.

Ø  Object Button

Terdapat tiga object button (Hitung 1, Hitung 2, dan Hitung 3).  Masing Tombol Hitung digunakan untuk menampilkan hasil perhitungan di object TextBox ReadOnly. Dimana pada rumus untuk textbox 6, 7, 29, dan 30 memiliki rumus yang berbeda di tiap botton hitung sedang kan textbok 7 – 28 memiki rumus yang sama di tiap

B.     Script Unique 

Untuk Buttom "Hitung 1"
T06_36110041.Text = Val(T02_36110041.Text) + Val(T04_36110041.Text)

T07_36110041.Text = Val(T04_36110041.Text) + Val(T04_36110041.Text)

Untuk Buttom "Hitung 2"

T06_36110041.Text = Val(T05_36110041.Text) * Val(T05_36110041.Text)

T07_36110041.Text = Val(T06_36110041.Text) * Val(T06_36110041.Text)

Untuk Buttom "Hitung 3"

T06_36110041.Text = Val(T02_36110041.Text) / Val(T04_36110041.Text)

T07_36110041.Text = Val(T04_36110041.Text) / Val(T02_36110041.Text)

       

C.     Even

RIZKA()

hitung1_36110041_Click

hitung2_36110041_Click

hitung3_36110041_Click

D.     Property

Property TextBox ==> ReadOnly=True

Prosedur penyelesaian

1.     Buka Project yang telah dibuat sebelumnya klik Add New Item è Add Windows Form

2.      Kemudian beri nama dan klik Add

3.   buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.   

4.      Berikut ini adalah rumus untuk menjalankan form di atas

Public Class latihan_07_36110041

    Private Sub rizka()

        T08_36110041.Text = Val(T03_36110041.Text) * Val(T04_36110041.Text)

        T09_36110041.Text = Val(T05_36110041.Text) * Val(T04_36110041.Text)

        T10_36110041.Text = Val(T06_36110041.Text) * Val(T04_36110041.Text)

        T11_36110041.Text = Val(T09_36110041.Text) * Val(T04_36110041.Text)

        T12_36110041.Text = Val(T08_36110041.Text) * Val(T04_36110041.Text)

        T13_36110041.Text = Val(T11_36110041.Text) * Val(T04_36110041.Text)

        T14_36110041.Text = Val(T10_36110041.Text) * Val(T04_36110041.Text)

        T15_36110041.Text = Val(T13_36110041.Text) * Val(T04_36110041.Text)

        T16_36110041.Text = Val(T12_36110041.Text) * Val(T04_36110041.Text)

        T17_36110041.Text = Val(T15_36110041.Text) * Val(T04_36110041.Text)

        T18_36110041.Text = Val(T14_36110041.Text) * Val(T04_36110041.Text)

        T19_36110041.Text = Val(T17_36110041.Text) * Val(T04_36110041.Text)

        T20_36110041.Text = Val(T16_36110041.Text) * Val(T04_36110041.Text)

        T21_36110041.Text = Val(T19_36110041.Text) * Val(T04_36110041.Text)

        T22_36110041.Text = Val(T18_36110041.Text) * Val(T04_36110041.Text)

        T23_36110041.Text = Val(T21_36110041.Text) * Val(T04_36110041.Text)

        T24_36110041.Text = Val(T20_36110041.Text) * Val(T04_36110041.Text)

        T25_36110041.Text = Val(T23_36110041.Text) * Val(T04_36110041.Text)

        T26_36110041.Text = Val(T22_36110041.Text) * Val(T04_36110041.Text)

        T27_36110041.Text = Val(T25_36110041.Text) * Val(T04_36110041.Text)

        T28_36110041.Text = Val(T24_36110041.Text) * Val(T04_36110041.Text)

    End Sub

    Private Sub hitung1_36110041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung1_36110041.Click

        T06_36110041.Text = Val(T02_36110041.Text) + Val(T04_36110041.Text)

        T07_36110041.Text = Val(T04_36110041.Text) + Val(T04_36110041.Text)

        rizka()

        T29_36110041.Text = Val(T05_36110041.Text) + Val(T04_36110041.Text)

        T30_36110041.Text = Val(T24_36110041.Text) * Val(T04_36110041.Text)

    End Sub

    Private Sub hitung2_36110041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung2_36110041.Click

        T06_36110041.Text = Val(T05_36110041.Text) * Val(T05_36110041.Text)

        T07_36110041.Text = Val(T06_36110041.Text) * Val(T06_36110041.Text)

        rizka()

        T29_36110041.Text = Val(T28_36110041.Text) * Val(T28_36110041.Text)

        T30_36110041.Text = Val(T29_36110041.Text) * Val(T29_36110041.Text)

    End Sub

    Private Sub hitung3_36110041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung3_36110041.Click

        T06_36110041.Text = Val(T02_36110041.Text) / Val(T04_36110041.Text)

        T07_36110041.Text = Val(T04_36110041.Text) / Val(T02_36110041.Text)

        rizka()

        T29_36110041.Text = Val(T15_36110041.Text) / Val(T04_36110041.Text)

        T30_36110041.Text = Val(T18_36110041.Text) / Val(T02_36110041.Text)

    End Sub

End Class