Latihan_03_36110044 Aplikasi Komputer 4

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

Object Label

Terdapat sembilan object 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 Textbox

Terdapat delapan textbox (lima status input; 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

Trdapat sat uobject button yaitu” Kosongkan Lagi”. Button  ”Kosongkan Lagi”  digunakan untuk mengosongkan kembali isi “Textbox”

Script Unique

Button "Kosongkan Lagi"
 usd_36110044.Text = ""
dst..

Even

usd_36110044_TextChanged

sd_36110044_TextChanged

sltp_36110044_TextChanged

slta_36110044_TextChanged

poltek_36110044_TextChanged

lagi_36110044_Click

Property

Property TextBox ==> ReadOnly=True

PROSEDUR PENYELESAIAN:

1. Klik star lalu pilih Microsoft Visual Studio 2008

2. Pilih file => New => Project

3. Isi Name dan Location pada kolom yang disiapkan lalu OK

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

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

6. Klik 2x pada kotak design untuk membuka lembar vb
 Masukkan rumus berikut untuk menyelesaikan latihan_03

Public Class Latihan_03_36110044

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

    End Sub

    Private Sub usd_36110044_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles usd_36110044.TextChanged

        umur_36110044.Text = Val(usd_36110044.Text) + Val(sd_36110044.Text) + Val(sltp_36110044.Text) + Val(slta_36110044.Text) + Val(poltek_36110044.Text)

        lama_36110044.Text = Val(sd_36110044.Text) + Val(sltp_36110044.Text) + Val(slta_36110044.Text) + Val(poltek_36110044.Text)

        persentase_36110044.Text = Val(lama_36110044.Text) / Val(umur_36110044.Text) * 100

    End Sub

    Private Sub sd_36110044_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sd_36110044.TextChanged

        umur_36110044.Text = Val(usd_36110044.Text) + Val(sd_36110044.Text) + Val(sltp_36110044.Text) + Val(slta_36110044.Text) + Val(poltek_36110044.Text)

        lama_36110044.Text = Val(sd_36110044.Text) + Val(sltp_36110044.Text) + Val(slta_36110044.Text) + Val(poltek_36110044.Text)

        persentase_36110044.Text = Val(lama_36110044.Text) / Val(umur_36110044.Text) * 100

    End Sub

    Private Sub sltp_36110044_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sltp_36110044.TextChanged

        umur_36110044.Text = Val(usd_36110044.Text) + Val(sd_36110044.Text) + Val(sltp_36110044.Text) + Val(slta_36110044.Text) + Val(poltek_36110044.Text)

        lama_36110044.Text = Val(sd_36110044.Text) + Val(sltp_36110044.Text) + Val(slta_36110044.Text) + Val(poltek_36110044.Text)

        persentase_36110044.Text = Val(lama_36110044.Text) / Val(umur_36110044.Text) * 100

    End Sub

    Private Sub slta_36110044_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles slta_36110044.TextChanged

        umur_36110044.Text = Val(usd_36110044.Text) + Val(sd_36110044.Text) + Val(sltp_36110044.Text) + Val(slta_36110044.Text) + Val(poltek_36110044.Text)

        lama_36110044.Text = Val(sd_36110044.Text) + Val(sltp_36110044.Text) + Val(slta_36110044.Text) + Val(poltek_36110044.Text)

        persentase_36110044.Text = Val(lama_36110044.Text) / Val(umur_36110044.Text) * 100

    End Sub

    Private Sub poltek_36110044_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles poltek_36110044.TextChanged

        umur_36110044.Text = Val(usd_36110044.Text) + Val(sd_36110044.Text) + Val(sltp_36110044.Text) + Val(slta_36110044.Text) + Val(poltek_36110044.Text)

        lama_36110044.Text = Val(sd_36110044.Text) + Val(sltp_36110044.Text) + Val(slta_36110044.Text) + Val(poltek_36110044.Text)

        persentase_36110044.Text = Val(lama_36110044.Text) / Val(umur_36110044.Text) * 100

    End Sub

    Private Sub lagi_36110044_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lagi_36110044.Click

        usd_36110044.Text = ""

        sd_36110044.Text = ""

        sltp_36110044.Text = ""

        slta_36110044.Text = ""

        poltek_36110044.Text = ""

        umur_36110044.Text = ""

        lama_36110044.Text = ""

        persentase_36110044.Text = ""

    End Sub

    Private Sub lagi_36110044_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lagi_36110044.TextChanged

    End Sub

End Class

7. Jalankan program dengan menggunakan  “start debugging”