Latihan 07 APKOM 4 D3B Akuntansi PNUP

A.    Object-object dalam Latihan_07_36110051 :

1.                          Object Label

Terdapat dua label (yang bertuliskan masukkan angka dan hasil perhitungan).

2.                          Object Textbox

Terdapat tiga puluh textbox (lima status input; dua puluh lima status read only). Status input digunakan untuk memasukkan nilai yang akan dimasukkan dalam perhitungan. Status Read Only digunakan untuk menampilkan hasil perhitungan dari angka-angkat yang sudah diinput.

3.                          Object Button

Terdapat tiga object button (Hitung 1, Hitung 2, dan Hitung 3). Untuk TextBox 6, 7, 29, dan 30 memiliki rumus yang berbeda tiap button hitung. Sedangkan TextBox 8 sampai 28 memilik rumus yang sama tiap button hitung. Jadi hanya TextBox 6, 7, 29, dan 30 yang hasilnya nanti berbeda untuk tiap button hitung karena rumusnya berbeda.

B.     Script Unique

Untuk button Hitung1:

k6_36110051.Text = Val(k1_36110051.Text) * Val(k4_36110051.Text)

Untuk button Hitung2:

k6_36110051.Text = Val(k5_36110051.Text) * Val(k5_36110051.Text)

Untuk button Hitung3:

k6_36110051.Text = Val(k1_36110051.Text) * Val(k4_36110051.Text)

C.     Even

HITUNG1_36110051_Click

D.    Property

Property TextBox ==> ReadOnly=True

 

·         Prosedur :

1.      Buka Ms. Visual Studio

2.       Klik Create Project

3.      Ketik nama file yang ingin disimpan

4.      Akan terbuka jendela pekerjaan Ms. Visual Studio

5.       Design form dengan menggunakan tools pada toolbox

6.      Buat text pada form dengan menggunakan label, al:

a.             “Masukkan harga”

b.             “Hasil Perhitungan”

7.      Buat kolom sesuai dengan design pada latihan 7 dengan menggunakan object textbox, kolom sebanyak 30 dengan nama :

1.      K1_36110051

2.      K2_36110051

3.      K3_36110051

4.      K5_36110051

5.      K6_36110051

Dst ^s/_d k30_36110051

8.      Buat tombol klik sesuai dengan design latihan 7 dengan menggunakan object Button sebanyak 2 dengan nama :

a.                  Hitung1_36110051 dengan berisikan teks HITUNG1

b.                  Hitung2_36110051 dengan berisikan teks HITUNG2

c.                  Hitung3_36110051 dengan berisikan teks HITUNG3

9.      Setelah itu masuk ke lembar “Vb” dan buat script seperti berikut ini :

Public Class Latihan_07_36110051

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

    End Sub

    Private Sub hitung()

        k8_36110051.Text = Val(k1_36110051.Text) + Val(k2_36110051.Text)

    End Sub

    Private Sub HITUNG1_36110051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HITUNG1_36110051.Click

        k6_36110051.Text = Val(k1_36110051.Text) * Val(k4_36110051.Text)

        k7_36110051.Text = Val(k3_36110051.Text) / Val(k2_36110051.Text)

        hitung()

        selebihnya()

        k29_36110051.Text = Val(k2_36110051.Text) * Val(k5_36110051.Text)

        k30_36110051.Text = Val(k2_36110051.Text) / Val(k4_36110051.Text)

    End Sub

    Private Sub HITUNG2_36110051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HITUNG2_36110051.Click

        k6_36110051.Text = Val(k5_36110051.Text) * Val(k5_36110051.Text)

        k7_36110051.Text = Val(k1_36110051.Text) / Val(k2_36110051.Text)

        hitung()

        selebihnya()

        k29_36110051.Text = Val(k5_36110051.Text) * Val(k1_36110051.Text)

        k30_36110051.Text = Val(k4_36110051.Text) / Val(k5_36110051.Text)

    End Sub

    Private Sub HITUNG3_36110051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HITUNG3_36110051.Click

        k6_36110051.Text = Val(k1_36110051.Text) * Val(k4_36110051.Text)

        k7_36110051.Text = Val(k3_36110051.Text) / Val(k2_36110051.Text)

        hitung()

        selebihnya()

        k29_36110051.Text = Val(k3_36110051.Text) * Val(k4_36110051.Text)

        k30_36110051.Text = Val(k1_36110051.Text) / Val(k2_36110051.Text)

    End Sub

    Private Sub selebihnya()

        k8_36110051.Text = Val(k1_36110051.Text) + Val(k2_36110051.Text) - Val(k3_36110051.Text)

        k9_36110051.Text = Val(k2_36110051.Text) * Val(k5_36110051.Text) / Val(k2_36110051.Text)

        k10_36110051.Text = Val(k4_36110051.Text) - Val(k3_36110051.Text) ^ Val(k1_36110051.Text)

        k11_36110051.Text = Val(k5_36110051.Text) / Val(k2_36110051.Text) + Val(k2_36110051.Text)

        k12_36110051.Text = Val(k3_36110051.Text) - Val(k1_36110051.Text) + Val(k4_36110051.Text)

        k13_36110051.Text = Val(k2_36110051.Text) ^ Val(k2_36110051.Text) - Val(k5_36110051.Text)

        k14_36110051.Text = Val(k4_36110051.Text) - Val(k3_36110051.Text) * Val(k2_36110051.Text)

        k15_36110051.Text = Val(k1_36110051.Text) / Val(k2_36110051.Text) + Val(k4_36110051.Text)

        k16_36110051.Text = Val(k5_36110051.Text) * Val(k5_36110051.Text) / Val(k3_36110051.Text)

        k17_36110051.Text = Val(k4_36110051.Text) - Val(k2_36110051.Text) ^ Val(k2_36110051.Text)

        k18_36110051.Text = Val(k1_36110051.Text) + Val(k3_36110051.Text) * Val(k1_36110051.Text)

        k19_36110051.Text = Val(k3_36110051.Text) ^ Val(k2_36110051.Text) + Val(k3_36110051.Text)

        k20_36110051.Text = Val(k2_36110051.Text) / Val(k4_36110051.Text) - Val(k4_36110051.Text)

        k21_36110051.Text = Val(k5_36110051.Text) - Val(k3_36110051.Text) + Val(k4_36110051.Text)

        k22_36110051.Text = Val(k2_36110051.Text) * Val(k4_36110051.Text) - Val(k2_36110051.Text)

        k23_36110051.Text = Val(k1_36110051.Text) + Val(k2_36110051.Text) / Val(k3_36110051.Text)

        k24_36110051.Text = Val(k4_36110051.Text) ^ Val(k5_36110051.Text) + Val(k4_36110051.Text)

        k25_36110051.Text = Val(k2_36110051.Text) / Val(k3_36110051.Text) - Val(k3_36110051.Text)

        k26_36110051.Text = Val(k1_36110051.Text) - Val(k4_36110051.Text) + Val(k1_36110051.Text)

        k27_36110051.Text = Val(k3_36110051.Text) * Val(k2_36110051.Text) / Val(k1_36110051.Text)

        k28_36110051.Text = Val(k5_36110051.Text) - Val(k3_36110051.Text) * Val(k4_36110051.Text)

    End Sub

   

End Class

10.  Uji program dengan mengklik “Start Debbuging” dan simpan program dengan mengklik “Save”.