Latihan_07_36110031

Tahap Penyelesaian Latihan_07_36110031

1.      Buka Project yang telah dibuat, lalu buka solution Explorer

2.      Setelah itu klik kanan nama project, pilih add dan klik “new item”

 

3.      Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_07 dan add. seperti pada gambar dibawah:

 

4.      Buat Form Latihan_07 dibawah ini:

 

5.      Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_07_36110031

    Private Sub audry()

        TextBox8_36110031.Text = Val(TextBox5_36110031.Text) * Val(TextBox1_36110031.Text) / Val(TextBox3_36110031.Text)

        TextBox9_36110031.Text = Val(TextBox4_36110031.Text) * Val(TextBox1_36110031.Text) / Val(TextBox2_36110031.Text)

        TextBox10_36110031.Text = Val(TextBox3_36110031.Text) * Val(TextBox2_36110031.Text) / Val(TextBox5_36110031.Text)

        TextBox11_36110031.Text = Val(TextBox2_36110031.Text) * Val(TextBox3_36110031.Text) / Val(TextBox1_36110031.Text)

        TextBox12_36110031.Text = Val(TextBox1_36110031.Text) * Val(TextBox2_36110031.Text) / Val(TextBox3_36110031.Text)

        TextBox13_36110031.Text = Val(TextBox3_36110031.Text) * Val(TextBox1_36110031.Text) / Val(TextBox5_36110031.Text)

        TextBox14_36110031.Text = Val(TextBox2_36110031.Text) * Val(TextBox4_36110031.Text) / Val(TextBox1_36110031.Text)

        TextBox15_36110031.Text = Val(TextBox3_36110031.Text) * Val(TextBox2_36110031.Text) / Val(TextBox5_36110031.Text)

        TextBox16_36110031.Text = Val(TextBox1_36110031.Text) * Val(TextBox3_36110031.Text) / Val(TextBox5_36110031.Text)

        TextBox17_36110031.Text = Val(TextBox2_36110031.Text) * Val(TextBox4_36110031.Text) / Val(TextBox1_36110031.Text)

        TextBox18_36110031.Text = Val(TextBox3_36110031.Text) * Val(TextBox4_36110031.Text) / Val(TextBox5_36110031.Text)

        TextBox19_36110031.Text = Val(TextBox1_36110031.Text) * Val(TextBox2_36110031.Text) / Val(TextBox3_36110031.Text)

        TextBox20_36110031.Text = Val(TextBox3_36110031.Text) * Val(TextBox2_36110031.Text) / Val(TextBox1_36110031.Text)

        TextBox21_36110031.Text = Val(TextBox4_36110031.Text) * Val(TextBox1_36110031.Text) / Val(TextBox5_36110031.Text)

        TextBox22_36110031.Text = Val(TextBox5_36110031.Text) * Val(TextBox3_36110031.Text) / Val(TextBox1_36110031.Text)

        TextBox22_36110031.Text = Val(TextBox2_36110031.Text) * Val(TextBox1_36110031.Text) / Val(TextBox3_36110031.Text)

        TextBox23_36110031.Text = Val(TextBox4_36110031.Text) * Val(TextBox1_36110031.Text) / Val(TextBox2_36110031.Text)

        TextBox24_36110031.Text = Val(TextBox2_36110031.Text) * Val(TextBox1_36110031.Text) / Val(TextBox3_36110031.Text)

        TextBox25_36110031.Text = Val(TextBox5_36110031.Text) * Val(TextBox1_36110031.Text) / Val(TextBox3_36110031.Text)

        TextBox26_36110031.Text = Val(TextBox2_36110031.Text) * Val(TextBox3_36110031.Text) / Val(TextBox5_36110031.Text)

        TextBox27_36110031.Text = Val(TextBox2_36110031.Text) * Val(TextBox5_36110031.Text) / Val(TextBox1_36110031.Text)

        TextBox28_36110031.Text = Val(TextBox2_36110031.Text) * Val(TextBox3_36110031.Text) / Val(TextBox5_36110031.Text)

    End Sub

    Private Sub Hitung1_36110031_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hitung1_36110031.Click

        TextBox6_36110031.Text = Val(TextBox1_36110031.Text) * Val(TextBox3_36110031.Text) / Val(TextBox5_36110031.Text)

        TextBox7_36110031.Text = Val(TextBox2_36110031.Text) * Val(TextBox4_36110031.Text) / Val(TextBox1_36110031.Text)

        audry()

        TextBox29_36110031.Text = Val(TextBox3_36110031.Text) * Val(TextBox2_36110031.Text) / Val(TextBox4_36110031.Text)

        TextBox30_36110031.Text = Val(TextBox4_36110031.Text) * Val(TextBox5_36110031.Text) / Val(TextBox1_36110031.Text)

    End Sub

    Private Sub Hitung2_36110031_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hitung2_36110031.Click

        TextBox6_36110031.Text = Val(TextBox1_36110031.Text) * Val(TextBox5_36110031.Text) / Val(TextBox1_36110031.Text)

        TextBox7_36110031.Text = Val(TextBox2_36110031.Text) * Val(TextBox3_36110031.Text) / Val(TextBox5_36110031.Text)

        audry()

        TextBox29_36110031.Text = Val(TextBox3_36110031.Text) * Val(TextBox4_36110031.Text) / Val(TextBox1_36110031.Text)

        TextBox30_36110031.Text = Val(TextBox4_36110031.Text) * Val(TextBox5_36110031.Text) / Val(TextBox2_36110031.Text)

    End Sub

    Private Sub Hitung3_36110031_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hitung3_36110031.Click

        TextBox6_36110031.Text = Val(TextBox5_36110031.Text) * Val(TextBox1_36110031.Text) / Val(TextBox3_36110031.Text)

        TextBox7_36110031.Text = Val(TextBox1_36110031.Text) * Val(TextBox2_36110031.Text) / Val(TextBox4_36110031.Text)

        audry()

        TextBox29_36110031.Text = Val(TextBox2_36110031.Text) * Val(TextBox3_36110031.Text) / Val(TextBox5_36110031.Text)

        TextBox30_36110031.Text = Val(TextBox3_36110031.Text) * Val(TextBox4_36110031.Text) / Val(TextBox1_36110031.Text)

    End Sub

End Class

6.      Setelah itu jalankan Programnya dengan menekan “start debugging”

 

7.      Kemudian simpan file tersebut dengan menekan icon “Save”

 

8.      Selesai.

   

Deskripsi Latihan_07_36110031

Form Latihan 07 Terdapat tiga object yaitu label, textbox, dan button

-    Object Label

Terdapat Dua label (yang bertuliskan Masukkan angka, Hasil perhitungan)

-    Object Text Box

Terdapat Tiga puluh textbox (lima status input; dua puluh lima status read only). Status input digunakan untuk memasukkan nilai yang akan diperhitungkan. Sedangkan status ReadOnly digunakan untuk menghasilkan angka-angka yang telah di input.

-    Object Button

Terdapat Tiga object button (Hitung1, Hitung2, Hitung3). Untuk TextBox 6, 7, 29, 30 memiliki rumus yang berbeda tiap button hitung. Sedangkan Textbox 8 sampai 28 memiliki rumus yang sama disetiap button hitung. Jadi hanya Textbox 6, 7, 29, 30 yang nantinya mempunyai hasil yang berbeda karena rumus button hitungnya juga berbeda.

Script Unique

Untuk Button Hitung1:

TextBox6_36110031.Text = Val(TextBox1_36110031.Text) * Val(TextBox3_36110031.Text) / Val(TextBox5_36110031.Text)

Untuk Button Hitung2:

TextBox6_36110031.Text = Val(TextBox1_36110031.Text) * Val(TextBox5_36110031.Text) / Val(TextBox1_36110031.Text)

Untuk Button Hitung3:

TextBox6_36110031.Text = Val(TextBox5_36110031.Text) * Val(TextBox1_36110031.Text) / Val(TextBox3_36110031.Text)

Even

Hitung1_36110031_Click

Property

Property TextBox  ==> ReadOnly = True