deskripsi_Latihan_02_36110054

Cara Membuat Progam/Apliaksi Latihan 02

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 From Seperti Gambar Berikut Berikut :

Komponen Dan Properti Untuk Form Sebagai Berikut :

Komponen	Properties
Form	Text : Latihan_02_36110054
Label	Text : CERITAKU YANG MENARIK
Label	Text : Nama Saya
Label	Text : Alamat Sekarang
Label	Text : Nama Ayah
Label	Text : Nama Ibu
Label	Text : Teman terbaik di SD
Label	Text : Teman terbaik di SLTP
Label	Text : Teman terbaik di SLTA
Label	Text :Teman di Politeknik
Button	Text :Kisahku
Button	Text : Sekian
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	- (Status: Readonly True)

 

     Langkah ke 4 :

Masukkan Rumus untuk menjalankan form di atas .

Berikut ini Rumus untuk menjalankan form :

Public NotInheritable Class Latihan_02_36110054

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        i_36110054.Text = "Nama saya" & " " & a_36110054.Text & " " & "Saya Tinggal di" & " " & b_36110054.Text & " " & "Bersama ayah saya yang bernama" & " " & c_36110054.Text & " " & " dan Ibu saya yang bernama" & " " & d_36110054.Text & " " & ". Saat SD saya mempunyai Teman Terbaik bernama" & " " & e_36110054.Text & " " & ",kemudian saat SLTP saya juga mempunyai teman Terbaik bernama" & " " & f_36110054.Text & " " & "dan saat SLTA pun saya mempunyai Teman Terbaik bernama" & " " & g_36110054.Text & " " & "Hingga sekarang saya mempunyai teman di Politeknik sangat" & " " & h_36110054.Text
    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 = ""
        i_36110054.Text = ""

    End Sub

End Class