latihan_3_36110036

Deskripsi latihan_3_36110036

 A.         Object label

Terdapat Sembilan label (yang bertuliskan tidak sadar sudah, umur saya masuk sekolah dasar,  lama belajar di sekolah dasar, lama belajar di SLTP, lama belajar di SLTA, lama belajar di Politeknik, Umur saya setelah selesai di Politeknik, Lama saya belajar, Persentase lama Belajar terhadap umur saya).

B.         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 sekolah dasar, lama belajar di SLTP, lama belajar di SLTA, lama belajar di Politeknik.

Status Read Only digunakan untuk menampilkan hasil perhitungan umur saya setelah selesai di Politeknik, Lama saya belajar, Persentase lama Belajar terhadap umur saya.

C.         Object button

Terdapat satu object button (Kosongkan Lagi). Tombol Kosongkan lagi digunakan untuk mengosongkan nilai pada semua TextBox.

D.         Script unique

Untuk button kosongkan lagi:

 mSD_36110036.Text = ""

 bSD_36110036.Text = ""

 bSLTP_36110036.Text = ""

 bSLTA_36110036.Text = ""

 bpoliteknik_36110036.Text = ""

 spoliteknik_36110036.Text = ""

 lb_36110036.Text = ""

 pumur_36110036.Text = ""

E.          property

Property TextBox ==> ReadOnly=True

Langkah-langkah mengerjakan latihan_3_36110036

1.       Buat folder baru  dimana project akan disimpan

2.       Buka Ms. Visual Studio 
3.       Klik file ==>  new project

4.       Ketik nama file yang ingin disimpan

5.       Kemudian akan terbuka jendela pekerjaan Ms. Visual Studio

6.       Desaign form dengan menggunakan tools pada toolbox

7.       Buat text pada form dengan menggunakan label:

a.      TIDAK SADAR SUDAH

b.      Umur saya masuk sekolah dasar

c.       Lama belajar disekolah dasar

d.      Lama belajar di SLTP

e.      Lama belajar di SLTA

f.        Lama belajar dipoliteknik

g.      Umur saya setelah selesai dipoliteknik

h.      Lama saya belajar

i.        Persentase lama belajar terhadap umur saya

8.       Buat kolom pada form dengan menggunakan textbox, sebanyak delapan kolom:

     a.       Kolom 1 diberi nama mSD_36110036

     b.      Kolom 2 diberi nama bSD_36110036

     c.       Kolom 3 diberi nama bSLTP_36110036

     d.      Kolom 4 diberi nama bSLTA_36110036

     e.      Kolom 5 diberi nama bpoliteknik_36110036

     f.        Kolom 6 diberi nama spoliteknik_36110036

     g.       Kolom 7 diberi nama  lb_36110036

     h.      Kolom 8 diberi nama pumur_36110036

9.       Buat satu tombol button kosongkan lagi

10.   setelah desaign selesai  dibuatlah rumusnya

11.   berikut adalah rumus untuk menjalankan latihan_3_36110036

Private Sub spoliteknik_36110036_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles spoliteknik_36110036.Enter

   spoliteknik_36110036.Text = Val(mSD_36110036.Text) + Val(bSD_36110036.Text) + Val(bSLTP_36110036.Text) + Val(bSLTA_36110036.Text) + Val(bpoliteknik_36110036.Text)

    End Sub

Private Sub lb_36110036_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lb_36110036.Enter

   lb_36110036.Text = Val(bSD_36110036.Text) + Val(bSLTP_36110036.Text) + Val(bSLTA_36110036.Text) + Val(bpoliteknik_36110036.Text)

    End Sub

   Private Sub pumur_36110036_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pumur_36110036.Enter

   pumur_36110036.Text = (Val(lb_36110036.Text) / Val(spoliteknik_36110036.Text)) * 100

    End Sub

   Private Sub kosong_36110036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kosong_36110036.Click

        mSD_36110036.Text = ""

        bSD_36110036.Text = ""

        bSLTP_36110036.Text = ""

        bSLTA_36110036.Text = ""

        bpoliteknik_36110036.Text = ""

        spoliteknik_36110036.Text = ""

        lb_36110036.Text = ""

        pumur_36110036.Text = ""

    End Sub

End Class

12.  setelah itu program dijalankan.