latihan_01_36110031

Tahap Penyelesaian Latihan_01_36110031

1.      Click Start pada Toolbar Window, lalu Pilih Program Microsoft Visual Studio 2008

 

2.      Setelah itu, akan ,muncul tampilan awal dari Program Microsft Visual Studio 2008, seperti pada gambar di bawah ini:

 

 3.      Lalu pilih File =>New Project

 

4.      Setelah muncul tampilan New Project, pilih Windows Form Application, lalu isi Name dan Location tempat penyimpangan Project. Seperti pada gambar dibawah ini:

 

5.      Tampilan Awal Project, dimana:

-       Form: Object utama yg akan menjadi landasan bagi object lainnya

-       Solution Explorer: Fasilitas Explorer yang menampilkan file maupun folder pada project

-       Property: Mengatur property dari sebuah object

-       ToolBox: Fasilitas tempat pengambilan object yang akan ditempelkan pada Form

 

6.      Kemudian buat Form seperti pada gambar dibawah ini yang dimana Latihan_01 ini terdiri dari 3 object, yaitu Label, TextBox, dan Button.

 

7.      Berikut ini adalah Rumus untuk menjalankan Form diatas:

Public Class Latihan_01_36110031

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HITUNG_36110031.Click

UMUR_36110031.Text = Val(MASUK_36110031.Text) + Val(SD_36110031.Text) + Val(SLTP_36110031.Text) + Val(SLTA_36110031.Text) + Val(POLI_36110031.Text

LAMA_36110031.Text = Val(SD_36110031.Text) + Val(SLTP_36110031.Text) + Val(SLTA_36110031.Text) + Val(POLI_36110031.Text)

PERSENTASE_36110031.Text = Val(LAMA_36110031.Text) / Val(UMUR_36110031.Text) * 100

   End Sub

    Private Sub KOSONGKAN_36110031_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KOSONGKAN_36110031.Click

    MASUK_36110031.Text = ""

    SD_36110031.Text = ""

    SLTP_36110031.Text = ""

          SLTA_36110031.Text = ""

    POLI_36110031.Text = ""

    UMUR_36110031.Text = ""

          LAMA_36110031.Text = ""

    PERSENTASE_36110031.Text = ""

    End Sub

End Class

8.      Setelah itu lakukan uji coba untuk mengetahui apakah program ini berjalan dengan cara mengklik “Start Debugging”

 

9.      Jika program diatas sudah jalan, maka simpan program tersebut dengan cara mengklik icon “save”

 

10.  Selesai.

 Deskripsi Latihan_01_36110031

 A.  Form Latihan 01 terdapat tiga object yaitu label, textbox, dan button

-        Object Label

Terdapat sembilan label ( yang bertuliskan Tidak sadar sudah, Umur saya masuk SD, Lama belajar di SD, Lama belajar di SLTP, Lama belajar di SLTA, Lama belajar di Politeknik, Umur saya setelah selesai di Politeknik, Lama saya belajar, dan Persentase lama belajar terhadap umur saya)

-        Object Textbox

Terdapat delapan textbox diantara nya lima status input dan tiga status read only. Status input digunakan untuk memasukkan nilai Umur saya masuk SD, Lama belajar di SD, Lama belajar di SLTP, Lama belajar di SLTA, Lama belajar di Politeknik,dan status read only digunakan untuk menampilkan hasil perhitungan Umur saya setelah selesai di Politeknik, Lama saya belajar, dan Persentase lama belajar terhadap umur say.

-        Object Button

Terdapat dua object button yaitu Hitung dan Kosongkan lagi. Tombol hitung digunakan untuk menampilkan hasil perhitungan dari textbox read only yang dimana rumus perhitungannya sebagai berikut:

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

-        Lama saya belajar adalah hasil penjumlahan lama belajar di sekolah dasar, lama belajar di SLPTm 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 botton kosongkan lagi digunakan untuk mengosongkan nilai-nilai pada Textbox.

B.    Script Unique

Untuk botton Hitung:

UMUR_36110031.Text = Val(MASUK_36110031.Text) + Val(SD_36110031.Text) + Val(SLTP_36110031.Text) + Val(SLTA_36110031.Text) + Val(POLI_36110031.Text)

Untuk botton Kosongkan Lagi:

MASUK_36110031.Text = ""

C.   Even

Hitung_36110031_Click

Kosongkan_36110031_Click

D.  Property

Property TextBox è ReadOnly = True