latihan_1_36110036

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

1.       Umur saya setelah selesai di Politeknik merupakan hasil penjumlahan Umur saya masuk sekolah dasar, lama belajar di sekolah dasar, lama belajar di SLTP, lama belajar di SLTA, dan lama belajar di Politeknik;

2.       Lama saya belajar adalah hasil penjumlahan lama belajar di sekolah dasar, lama belajar di SLTP, lama belajar di SLTA, dan lama belajar di Politeknik;

3.       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.

D.       Script unique

            Untuk button hitung:   

                                                                                                                

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

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

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

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.        Even

     hitung_36110036_Click

     kosong_36110036_Click

F.           Property

 Property TextBox ==> ReadOnly=True

Langkah-langkah mengerjakan latihan_1_36110036

1.          Buat folder baru  dimana project akan disimpan

2.        Buka Ms. Visual Studio

3.          Klik file ==> new poject

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  tombol button:

             a.    Button 1  hitung

             b.    Button 2  kosongkan lagi

10.    setelah desaign selesai  dibuatlah rumusnya

              

11.     berikut adalah rumus untuk menjalankan latihan_1_36110036

Public Class latihan_01_36110036

    Private Sub hitung_36110036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung_36110036.Click

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

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

        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.