Latihan_01_36110034

Deskripsi penyelesaian

Form Latihan_01_36110034  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; 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 dua object button (Hitung dan Kosongkan Lagi). Tombol Hitung digunakan untuk menampilkan hasil perhitungan di object TextBox ReadOnly. Rumus perhitungannya adalah:

-          Umur saya setelah selesai di Politeknik merupakan hasil penjumlahan Umur saya masuk sekolah dasar, lama belajar di sekolah dasar, lama belajar di SLPT  lama belajar di SLTA, dan lama belajar di Politeknik;

-          Lama saya belajar adalah hasil penjumlahan lama belajar di sekolah dasar, lama belajar di SLPT, lama belajar di SLTA, dan lama belajar di Politeknik;

-          Persentase lama belajar terhadap umur saya adalah lama saya belajar dibagi umur saya setelah selesai di politeknik dikali 100.

Sedangkan Tombol Kosongkan lagi digunakan untuk mengosongkan nilai pada semua TextBox.

Script Unique 

Buttom "Hitung"

UPOL_36110034.Text = Val(USD_36110034.Text) + Val(LSD_36110034.Text) + Val(LSLTP_36110034.Text) + Val(LSLTA_36110034.Text) + Val(LPOL_36110034.Text)

LAMBER_36110034.Text = Val(LSD_36110034.Text) + Val(LSLTP_36110034.Text) + Val(LSLTA_36110034.Text) + Val(LPOL_36110034.Text)

PRESEN_36110034.Text =(Val(LAMBER_36110034.Text)/Val(UPOL_36110034.Text)) * 100.

Buttom "Kosongkan Lagi"
   USD_36110034.Text = ""

 LSD_36110034.Text = ""

 LSLTP_36110034.Text = ""

 LSLTA_36110034.Text = ""

  LPOL_36110034.Text = ""

  UPOL_36110034.Text = ""

  LAMBER_36110034.Text = "

  PRESEN_36110034.Text = "".

Even

hitung_36110034_Clik

lagi_36110034_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. membuat 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_01_36110034.

    Public Class latihan_01_36110034

    Private Sub HITUNG_36110034_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HITUNG_36110034.Click

        UPOL_36110034.Text = Val(USD_36110034.Text) + Val(LSD_36110034.Text) + Val(LSLTP_36110034.Text) + Val(LSLTA_36110034.Text) + Val(LPOL_36110034.Text)

        LAMBER_36110034.Text = Val(LSD_36110034.Text) + Val(LSLTP_36110034.Text) + Val(LSLTA_36110034.Text) + Val(LPOL_36110034.Text)

        PRESEN_36110034.Text = (Val(LAMBER_36110034.Text) / Val(UPOL_36110034.Text)) * 100

    End Sub

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

        USD_36110034.Text = ""

        LSD_36110034.Text = ""

        LSLTP_36110034.Text = ""

        LSLTA_36110034.Text = ""

        LPOL_36110034.Text = ""

        UPOL_36110034.Text = ""

        LAMBER_36110034.Text = ""

        PRESEN_36110034.Text = ""

    End Sub

End Clas

7. Jalankan program dengan “start debugging”.