Latihan 03 APKOM D3B Akuntansi PNUP

Latihan_03_36110051

DESKRIPSI DAN PROSEDUR PENYELESAIAN

Latihan_03_36110051 Terdapat tiga object yaitu label, textbox, dan button.
Object Label
Terdapat Sembilan label (yang bertuliskan tidak sadar sudah; umur saya masuk sekolah dasar, lama belajar di SD; SLTP; SLTA; Politeknik; Umur saya setelah selesai di Politeknik; Lama saya belajar; Persentase lama Belajar terhadap umur saya)

Object Text Box
Terdapat delapan textbox (lima status input dan tiga status read only).
Status input digunakan untuk memasukkan nilai umur "saya masuk sekolah dasar, lama belajar di SD; SLTP; SLTA; Politeknik". Status Read Only digunakan untuk menampilkan hasil perhitungan "umur saya setelah selesai di Politeknik; Lama saya belajar; Persentase lama Belajar terhadap umur saya".

Object Button
Terdapat satu object button (Kosongkan Lagi) yang digunakan untuk mengosongkan nilai pada semua TextBox.

Script Unique
 
Membaca nilai TextBox Lain dan Menempatkan nilai pada TextBox tertentu pada saat text diubah atau textchanged.
TextBox6.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
 
Mengosongkan nilai TextBox
TextBox1.Text = “”
Dst.

Event
 
Textchanged
ButtonClick

Property
 
Property TextBox ==> ReadOnly=True

• PROSEDUR PENYELESAIAN

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.       “TIDAK SADAR SUDAH”

b.      “Umur saya masuk sekolah dasar”

c.       “Lama belajar di sekolah dasar”

d.      “Lama belajar di SLTP”

e.      “Lama belajar di SLTA”

f.        “Lama belajar di Politeknik”

g.       “Umur saya setelah selesai di Politeknik”

h.      “Lama saya belajar”

i.         “Persentase lama belajar terhadap umur saya”

7.       Buat kolom sesuai dengan design pada latihan 3 dengan textbox, kolom sebanyak 8

a.       Kolom 1 diberi nama “a36110051”

b.      Kolom 2 diberi nama “b36110051”

c.       Kolom 3 diberi nama “c36110051”

d.      Kolom 4 diberi nama “d36110051”

e.      Kolom 5 diberi nama “e36110051”

f.      Kolom 6 diberi nama “f46110051”

g.      Kolom 7 diberi nama “g36110051”

h.      Kolom 8 diberi nama “h36110051”

8.       Buat  tombol sesuai dengan design pada latihan 3 dengan button

a.       Button1 berisi teks “Kosongkan lagi” dengan nama “k36110051”

9.         Setelah selesai form, masuk ke lembar Vb dan masukkan scipt :

            Public Class Latihan_03_36110051

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

    End Sub

    Private Sub a36110051_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles a36110051.TextChanged

        f36110051.Text = Val(a36110051.Text) + Val(b36110051.Text) + Val(c36110051.Text) + Val(d36110051.Text) + Val(e36110051.Text)

        g36110051.Text = Val(b36110051.Text) + Val(c36110051.Text) + Val(d36110051.Text) + Val(e36110051.Text)

        h36110051.Text = Val(g36110051.Text) / Val(f36110051.Text) * 100

    End Sub

    Private Sub b36110051_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b36110051.TextChanged

        f36110051.Text = Val(a36110051.Text) + Val(b36110051.Text) + Val(c36110051.Text) + Val(d36110051.Text) + Val(e36110051.Text)

        g36110051.Text = Val(b36110051.Text) + Val(c36110051.Text) + Val(d36110051.Text) + Val(e36110051.Text)

        h36110051.Text = Val(g36110051.Text) / Val(f36110051.Text) * 100

    End Sub

    Private Sub c36110051_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles c36110051.TextChanged

        f36110051.Text = Val(a36110051.Text) + Val(b36110051.Text) + Val(c36110051.Text) + Val(d36110051.Text) + Val(e36110051.Text)

        g36110051.Text = Val(b36110051.Text) + Val(c36110051.Text) + Val(d36110051.Text) + Val(e36110051.Text)

        h36110051.Text = Val(g36110051.Text) / Val(f36110051.Text) * 100

    End Sub

    Private Sub d36110051_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles d36110051.TextChanged

        f36110051.Text = Val(a36110051.Text) + Val(b36110051.Text) + Val(c36110051.Text) + Val(d36110051.Text) + Val(e36110051.Text)

        g36110051.Text = Val(b36110051.Text) + Val(c36110051.Text) + Val(d36110051.Text) + Val(e36110051.Text)

        h36110051.Text = Val(g36110051.Text) / Val(f36110051.Text) * 100

    End Sub

    Private Sub e36110051_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles e36110051.TextChanged

        f36110051.Text = Val(a36110051.Text) + Val(b36110051.Text) + Val(c36110051.Text) + Val(d36110051.Text) + Val(e36110051.Text)

        g36110051.Text = Val(b36110051.Text) + Val(c36110051.Text) + Val(d36110051.Text) + Val(e36110051.Text)

        h36110051.Text = Val(g36110051.Text) / Val(f36110051.Text) * 100

    End Sub

    Private Sub k36110051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles k36110051.Click

        a36110051.Text = ""

        b36110051.Text = ""

        c36110051.Text = ""

        d36110051.Text = ""

        e36110051.Text = ""

        f36110051.Text = ""

        g36110051.Text = ""

        h36110051.Text = ""

    End Sub

    Private Sub k36110051_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles k36110051.TextChanged

    End Sub

End Class

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

11.       Selesai.