Deskripsi_Latihan_03_36110054

Cara Membuat Progam/Apliaksi Latihan 03

Dengan Software Microsoft Visual Basic 2008

Langkah 1: 

Buka Aplikasi Visual Basic 2008/Visual Studio 2008

Langkah 2 : 

Buat Project Baru dengan Cara:

-          File| New Project | Windows From Application,

-          Dan Nama Project Tersebut.

-          Lihat Gambar Berikut 

    Langkah 3 : 

Rancanglah Form Seperti Gambar Berikut Berikut 

 

Komponen Dan Properti Untuk Form Sebagai Berikut :

Komponen	Properties
Form	Text : Latihan_03_36110054
Label	Text : SUDAH SADAR SUDAH
Label	Text : Umur Saya masuk Sekolah
Label	Text : Lama Belajar di SD
Label	Text : Lama Belajar di SLTP
Label	Text : Lama Belajar di SLTA
Label	Text : Lama Belajar di Politeknik
Label	Text : Umur Saya setelah masuk di Politeknik
Label	Text : Lama Saya belajar
Label	Text :Persentase lama belajar terhadap umur saya
Button	Text :Kosongkan Lagi
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)

  Langkah  4 :

Masukkan Rumus untuk menjalankan form di atas .

Berikut ini Rumus untuk menjalankan form :

Public NotInheritable Class Latihan_03_36110054

   
    Private Sub E_36110054_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles E_36110054.TextChanged
        F_36110054.Text = Val(A_36110054.Text) + Val(B_36110054.Text) + Val(C_36110054.Text) + Val(D_36110054.Text) + Val(E_36110054.Text)
        G_36110054.Text = Val(B_36110054.Text) + Val(C_36110054.Text) + Val(D_36110054.Text) + Val(E_36110054.Text)
        H_36110054.Text = Val(G_36110054.Text) / Val(F_36110054.Text)
        H_36110054.Text = FormatPercent(H_36110054.Text, 0)
    End Sub
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        A_36110054.Text = ""
        B_36110054.Text = ""
        C_36110054.Text = ""
        D_36110054.Text = ""
        E_36110054.Text = ""
        F_36110054.Text = ""
        G_36110054.Text = ""
        H_36110054.Text = ""

    End Sub

End Class