Latihan_03_36110034

Deskripsi penyelesaian

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

Object Label

Terdapat sembilan label : (tidak sadar sudah; umur saya masuk sekolah dasar; lama belajar disekolah dasar; lama belajar di smp ; lama belajar di sma; lama belajar di politeknik; umur saya setelah selesai di politeknik; lama saya belajar; presentase belajar terhadap umur saya).

Object Text Box

Terdapat delapan  textbox (lima  status input; tiga status read only). Status input digunakan untuk memasukkan nilai .

Status input (umur saya masuk sekolah dasar; lama belajar disekolah dasar; lama belajar di smp ; lama belajar di sma; lama belajar di politeknik;). dan readonly digunakan untuk menghasilkan umur saya setelah selesai di politeknik; lama saya belajar; presentase belajar terhadap umur saya).

Object Button

Textbox “umur saya setelah selesai di politeknik” yang berstatus readonly akan menampilkan hasil dpenambahan dari umur saya masuk sekolah dasar; lama belajar disekolah dasar; lama belajar di smp ; lama belajar di sma; lama belajar di politeknik.

Textbox “lama saya belajar” akan menampilkan hasil penambahan lama belajar disekolah dasar; lama belajar di smp ; lama belajar di sma; lama belajar di politeknik.

TextBox “Presentase belajar terhadap umur saya” akan menampilkan hasil bagi lama belaja saya dengan umur saya setelah selesai di politeknik dikali seratus.

Terdapat satu object button (kosongkan lagi). Tombol kosongkan lagi digunakan untuk mengkosongkan data-data semua TextBox.

Script Unique 

Buttom "kosongkan lagi"

        USD_36110034.Text = ""

        LSD_36110034.Text = ""

        LSMP_36110034.Text = ""

        LSMA_36110034.Text = ""

        LPOLI_36110034.Text = ""

        UPOLI_36110034.Text = ""

        LB_36110034.Text = ""

        PRE_36110034.Text = ""

Even

kosong_36110034_Clik

Property

Property TextBox ==> ReadOnly=True

Prosedur penyelesaian

1.   buka project yang telah dibuat sebelumnya klik add new item => add windows form => ganti nama project => add.

 

2.   membuat form dengan menggunakan Label, Textbox, dan Button yang ada dalam "Toolbox”.

 

3.   ganti nama textbox dan button menggunakan "Properties Window".

 

4.   Klik 2x pada kotak design untuk membuka lembar vb
 Masukkan rumus berikut untuk menyelesaikan latihan_03_36110034.

Public Class latihan_03_36110034

    Private Sub KOSONG_36110034_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles KOSONG_36110034.Click

        USD_36110034.Text = ""

        LSD_36110034.Text = ""

        LSMP_36110034.Text = ""

        LSMA_36110034.Text = ""

        LPOLI_36110034.Text = ""

        UPOLI_36110034.Text = ""

        LB_36110034.Text = ""

        PRE_36110034.Text = ""

    End Sub

    Private Sub LPOLI_36110034_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LPOLI_36110034.TextChanged

        UPOLI_36110034.Text = Val(USD_36110034.Text) + Val(LSD_36110034.Text) + Val(LSMP_36110034.Text) + Val(LSMA_36110034.Text) + Val(LPOLI_36110034.Text)

        LB_36110034.Text = Val(LSD_36110034.Text) + Val(LSMP_36110034.Text) + Val(LSMA_36110034.Text) + Val(LPOLI_36110034.Text)

        PRE_36110034.Text = (Val(LB_36110034.Text) / Val(UPOLI_36110034.Text)) * 100

    End Sub

    Private Sub UPOLI_36110034_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UPOLI_36110034.TextChanged

    End Sub

End Class

5.    Jalankan program dengan “start debugging”.

 

6.    Selesai.