Deskripsi_Latihan _01_36110054

Cara Membuat Progam/Apliaksi Latihan 01

Dengan Software Microsoft Visual Basic 2008

 Langkah Pertama :

1.      Buka Aplikasi Visual Basic 2008/Visual Studio 2008

2.       Langkah Kedua : Buat Project Baru dengan Cara,

-          File| New Project | Windows From Application,

-          Dan Nama Project Tersebut.

-          Lihat Gambar Berikut :

3.      Langkah Ke 3 : Rancanglah From Seperti Gambar Berikut Berikut :

Komponen Dan Properti Untuk Form Sebagai Berikut :

Komponen	Properties
Form	Text : Latihan 01
Label	Text : Umur saya masuk sekolah
Label	Text : Lama belajar di sekolah dasar
Label	Text : Lama belajar di SLTP
Label	Text : Lama belajar di SLTA
Label	Text : Lama belajar di Politeknik
Label	Text : Umur saya setelah selesai di politeknik
Label	Text : Lama saya belajar
Label	Text : Persentase lama belajar terhadap umur saya
Button	Text : Hitung
Button	Text : Kosongkan lagi
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	- (status : Readonly True)
Textbox	- (status : Readonly True)
Textbox	- (status : Readonly True)

4.       Langkah ke 4 :

Masukkan Rumus untuk menjalankan form di atas

Berikut ini Rumus untuk menjalankan form :

Public Class Latihan_01_36110054

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        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 Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.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