Latihan_07_36110044 Aplikasi Komputer 4

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

Object Label

Terdapat dua object Label (yang bertuliskan “Masukkan harga” dan “Hasil perhitungan”)

Object Textbox

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

Object Button

Terdapat tiga object button yaitu “HITUNG 1”, “HITUNG 2”, dan “HITUNG 3”

Object button ini digunakan untuk menghitung hasil perhitungan yang pertama, kedua, dan ketiga.

Script Unique

Untuk button “HITUNG 1”

TextBox6_36110044.Text = Val(TextBox1_36110044.Text) + Val(TextBox2_36110044.Text) / Val(TextBox3_36110044.Text)

Untuk button “HITUNG 2”

TextBox6_36110044.Text = Val(TextBox1_36110044.Text) - Val(TextBox2_36110044.Text) / Val(TextBox3_36110044.Text)

Untuk button “HITUNG 3”

TextBox6_36110044.Text = Val(TextBox1_36110044.Text) + Val(TextBox2_36110044.Text) - Val(TextBox3_36110044.Text)

Even

hitung2_36110044_Click

Property

Property TextBox ==> ReadOnly=True

PROSEDUR PENYELESAIAN:

1.      Klik star lalu pilih Microsoft Visual Studio 2008

2.      Pilih Project yang sebelumnya telah dibuat

3.      Pada kotak “Solution Explorer klik kanan nama project => add => new item

 

4.      Ubah nama pada lembar “Add New Item” kemudian add

5.      Buat design form dengan menggunakan Label, Textbox, dan Button yang ada dalam "Toolbox”

6.      Ganti nama Textbox dan Button menggunakan "Properties Window"

7.      Klik 2x pada kotak design untuk membuka lembar vb

 Masukkan rumus berikut untuk menyelesaikan latihan_07

 Public Class Latihan_07_36110044

    Private Sub TIYA()

        TextBox8_36110044.Text = Val(TextBox3_36110044.Text) + Val(TextBox4_36110044.Text) / Val(TextBox5_36110044.Text)

        TextBox9_36110044.Text = Val(TextBox5_36110044.Text) + Val(TextBox1_36110044.Text) / Val(TextBox2_36110044.Text)

        TextBox10_36110044.Text = Val(TextBox2_36110044.Text) + Val(TextBox4_36110044.Text) / Val(TextBox3_36110044.Text)

        TextBox11_36110044.Text = Val(TextBox1_36110044.Text) + Val(TextBox2_36110044.Text) * Val(TextBox3_36110044.Text)

        TextBox12_36110044.Text = Val(TextBox2_36110044.Text) + Val(TextBox3_36110044.Text) * Val(TextBox4_36110044.Text)

        TextBox13_36110044.Text = Val(TextBox3_36110044.Text) + Val(TextBox4_36110044.Text) * Val(TextBox5_36110044.Text)

        TextBox14_36110044.Text = Val(TextBox5_36110044.Text) + Val(TextBox1_36110044.Text) * Val(TextBox2_36110044.Text)

        TextBox15_36110044.Text = Val(TextBox2_36110044.Text) + Val(TextBox4_36110044.Text) * Val(TextBox3_36110044.Text)

        TextBox16_36110044.Text = Val(TextBox1_36110044.Text) + Val(TextBox2_36110044.Text) + Val(TextBox3_36110044.Text)

        TextBox17_36110044.Text = Val(TextBox2_36110044.Text) + Val(TextBox3_36110044.Text) + Val(TextBox4_36110044.Text)

        TextBox18_36110044.Text = Val(TextBox3_36110044.Text) + Val(TextBox4_36110044.Text) + Val(TextBox5_36110044.Text)

        TextBox19_36110044.Text = Val(TextBox5_36110044.Text) + Val(TextBox1_36110044.Text) + Val(TextBox2_36110044.Text)

        TextBox20_36110044.Text = Val(TextBox2_36110044.Text) + Val(TextBox4_36110044.Text) + Val(TextBox3_36110044.Text)

        TextBox21_36110044.Text = Val(TextBox1_36110044.Text) + Val(TextBox2_36110044.Text) - Val(TextBox3_36110044.Text)

        TextBox22_36110044.Text = Val(TextBox2_36110044.Text) + Val(TextBox3_36110044.Text) - Val(TextBox4_36110044.Text)

        TextBox23_36110044.Text = Val(TextBox3_36110044.Text) + Val(TextBox4_36110044.Text) - Val(TextBox5_36110044.Text)

        TextBox24_36110044.Text = Val(TextBox5_36110044.Text) + Val(TextBox1_36110044.Text) - Val(TextBox2_36110044.Text)

        TextBox25_36110044.Text = Val(TextBox2_36110044.Text) + Val(TextBox4_36110044.Text) - Val(TextBox3_36110044.Text)

        TextBox26_36110044.Text = Val(TextBox1_36110044.Text) - Val(TextBox2_36110044.Text) + Val(TextBox3_36110044.Text)

        TextBox27_36110044.Text = Val(TextBox2_36110044.Text) - Val(TextBox3_36110044.Text) + Val(TextBox4_36110044.Text)

        TextBox28_36110044.Text = Val(TextBox3_36110044.Text) - Val(TextBox4_36110044.Text) + Val(TextBox5_36110044.Text)

    End Sub

    Private Sub hitung1_36110044_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung1_36110044.Click

        TextBox6_36110044.Text = Val(TextBox1_36110044.Text) + Val(TextBox2_36110044.Text) / Val(TextBox3_36110044.Text)

        TextBox7_36110044.Text = Val(TextBox2_36110044.Text) + Val(TextBox3_36110044.Text) / Val(TextBox4_36110044.Text)

        TIYA()

        TextBox29_36110044.Text = Val(TextBox5_36110044.Text) - Val(TextBox1_36110044.Text) + Val(TextBox2_36110044.Text)

        TextBox30_36110044.Text = Val(TextBox2_36110044.Text) - Val(TextBox4_36110044.Text) + Val(TextBox3_36110044.Text)

    End Sub

    Private Sub hitung2_36110044_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles hitung2_36110044.Click

        TextBox6_36110044.Text = Val(TextBox1_36110044.Text) - Val(TextBox2_36110044.Text) / Val(TextBox3_36110044.Text)

        TextBox7_36110044.Text = Val(TextBox2_36110044.Text) - Val(TextBox3_36110044.Text) / Val(TextBox4_36110044.Text)

        TIYA()

        TextBox29_36110044.Text = Val(TextBox5_36110044.Text) + Val(TextBox1_36110044.Text) + Val(TextBox2_36110044.Text)

        TextBox30_36110044.Text = Val(TextBox2_36110044.Text) + Val(TextBox4_36110044.Text) + Val(TextBox3_36110044.Text)

    End Sub

    Private Sub hitung3_36110044_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles hitung3_36110044.Click

        TextBox6_36110044.Text = Val(TextBox1_36110044.Text) + Val(TextBox2_36110044.Text) - Val(TextBox3_36110044.Text)

        TextBox7_36110044.Text = Val(TextBox2_36110044.Text) + Val(TextBox3_36110044.Text) - Val(TextBox4_36110044.Text)

        TIYA()

        TextBox29_36110044.Text = Val(TextBox5_36110044.Text) * Val(TextBox1_36110044.Text) + Val(TextBox2_36110044.Text)

        TextBox30_36110044.Text = Val(TextBox2_36110044.Text) * Val(TextBox4_36110044.Text) + Val(TextBox3_36110044.Text)

    End Sub

    Private Sub Latihan_07_36110044_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class

8. Jalankan program dengan menggunakan  “start debugging”