deskripsi dan prosedur

Deskripsi Form Latihan 01

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 PNUP Umur saya setelah selesai di Politeknik; Lama saya belajar; Persentaselama Belajar terhadap umur saya)

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.

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 SLTP; lama belajar di SLTA, dan lama belajar di Politeknik;

-          Lama saya belajar adalah hasil penjumlahan lama belajar di sekolah dasar, lama belajar di SLTP, 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.

Membaca nilai TextBox Lain dan Menempatkan nilai pada TextBox tertentu

TextBox6.Text = Val(TextBox1.Text) + Val(TextBox2.Text)

Mengosongkan nilai TextBox

TextBox1.Text = “”

Dan seterusnya

ButtonClick

Property TextBox ==> ReadOnly=True

PROSEDUR PENYELESAIAN

A. Klik star kemudian pilih Microsoft Visual Stodio 2008. 


B. Buat NEW PROJECT dengan cara klik file lalu pilih new new project
      
C.lalu kelik window,and pilih window form aplication
 
D. setelah itu buat form seperti ini :
  




E.kemudian mengganti nama text box seperti
umur saya masuk di sekolah dasar : USD36110030
lama belajar disekolah                   : LSD36110030
lama belajar di sltp                        : LSLTP36110030
lama belajar di slta                        : LSLTA 36110030
lama belajar di PNUP                   : LPNUP36110030
umur saya setelah selesai di poltek : ULLS36110030
lama saya belajar                          : LSB36110030
persentase lama belajar terhadp umur say : persen36110030
hitung                                           : hitung
kosong                                         : kosong

F.setelah itu klik kolom hitung 2 kali dan masukan rumus seperti ini :
Public Class form1

    Private Sub hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung.Click
        ulls36110030.Text = Val(usd36110030.Text) + Val(lsd36110030.Text) + Val(lsltp36110030.Text) + Val(lslta36110030.Text) + Val(lpnup36110030.Text)
        lsb36110030.Text = Val(lsd36110030.Text) + Val(lsltp36110030.Text) + Val(lslta36110030.Text) + Val(lpnup36110030.Text)
        Tpersen36110030.Text = Val(lsb36110030.Text) / Val(ulls36110030.Text) * 100
    End Sub

    Private Sub kosong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kosong.Click
        usd36110030.Text = ""
        lsd36110030.Text = ""
        lsltp36110030.Text = ""
        lslta36110030.Text = ""
        lpnup36110030.Text = ""
        lsb36110030.Text = ""
        ulls36110030.Text = ""
        Tpersen36110030.Text = ""
    End Sub
End Class

G. uji program dengan mengklik star debuggin di kolom bagian atas tengah
H. jika program berjalan dengan adanya maka savelah hasil kerja anda
I . SELESAI \(^0^)/