Prosedur Penyelesaian Latihan_08_36110048

1.      Klik Start lalu pilih Microsoft Visual Studio 2008

2.      Lalu akan muncul jendela awal Microsoft Visual Studio seperti di bawah ini.

3.      Lalu pilih New Project dan beri nama serta pilih tempat folder untuk menyimpannya.

4.      Kemudian buat form sesuai dengan form di bawah ini.

5.      Berikut ini adalah rumus untuk menjalankan form di atas.

Public Class Latihan_08_36110048

    Private Sub NA_36110048_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles NA_36110048.TextChanged, AA_36110048.TextChanged, A1_36110048.TextChanged, N1_36110048.TextChanged, A2_36110048.TextChanged, N2_36110048.TextChanged, A3_36110048.TextChanged, N3_36110048.TextChanged, A4_36110048.TextChanged, N4_36110048.TextChanged, A5_36110048.TextChanged, N5_36110048.TextChanged

        C1_36110048.Text = "NAMA SAYA ADALAH " & NA_36110048.Text & ". SAYA TINGGAL DI " & AA_36110048.Text & ". SAYA PUNYA TEMAN-TEMAN BERNAMA " & N1_36110048.Text & "YANG TINGGAL DI " & A1_36110048.Text & "," & N2_36110048.Text & "YANG TINGGAL DI " & A2_36110048.Text & "," & N3_36110048.Text & ", YANG TINGGAL DI " & A3_36110048.Text & "," & N4_36110048.Text & "YANG TINGGAL DI " & A4_36110048.Text & "DAN " & N5_36110048.Text & "YANG TINGGAL DI " & A5_36110048.Text & ". MEREKA SEMUA TEMAN BAIK SAYA."

        C2_36110048.Text = "NAMA SAYA ADALAH " & NA_36110048.Text & ". SAYA KOS DI " & AA_36110048.Text & ". BANYAK TEMAN SAYA YANG JUGA KOS TAPI DI TEMPAT YANG BERBEDA DENGAN SAYA MISALNYA " & N1_36110048.Text & "YANG KOS DI " & A1_36110048.Text & "," & N2_36110048.Text & "YANG KOS DI " & A2_36110048.Text & "," & N3_36110048.Text & "YANG KOS DI " & A3_36110048.Text & "," & N4_36110048.Text & "YANG KOS DI " & A4_36110048.Text & ", DAN " & N5_36110048.Text & "YANG KOS DI " & A5_36110048.Text & "."

        C3_36110048.Text = "NAMA SAYA " & NA_36110048.Text & "YANG BERTEMPAT TINGGAL DI " & AA_36110048.Text & ". SAYA PUNYA TEMAN YANG SANGAT BAIK BERNAMA " & N1_36110048.Text & "YANG TINGGAL DI " & A1_36110048.Text & ". SELAIN ITU, SAYA PUNYA BEBERAPA SAHABAT YANG SELALU SAYA TEMANI ONLINE DI KAMPUS. DIANTARANYA YAITU " & N2_36110048.Text & "YANG TINGGAL DI " & A2_36110048.Text & "," & N3_36110048.Text & "YANG TINGGAL DI " & A3_36110048.Text & "," & N4_36110048.Text & "YANG TINGGAL DI " & A4_36110048.Text & ", DAN " & N5_36110048.Text & "YANG TINGGAL DI " & A5_36110048.Text & "."

        C4_36110048.Text = "MY NAME IS " & NA_36110048.Text & ". SAYA BERSAMA KAKAK SAYA KOS DI " & AA_36110048.Text & ". KADANG-KADANG SAYA JUGA TINGGAL DI KOSANNYA TEMAN-TEMAN SAYA SEPERTI " & N1_36110048.Text & "YANG KOSAN DI " & A1_36110048.Text & "," & N2_36110048.Text & "YANG KOSANNYA DI " & A2_36110048.Text & "," & N3_36110048.Text & "YANG KOSAN JG BERSAMA ADIKNYA DI " & A3_36110048.Text & ", ATAU BIASA JUGA SAYA TINGGAL BERSAMA " & N5_36110048.Text & "DI " & A5_36110048.Text & "."

    End Sub

    Private Sub Close_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Close.Click

        NA_36110048.Text = ""

        AA_36110048.Text = ""

        N1_36110048.Text = ""

        A1_36110048.Text = ""

        N2_36110048.Text = ""

        A2_36110048.Text = ""

        N3_36110048.Text = ""

        A3_36110048.Text = ""

        N4_36110048.Text = ""

        A4_36110048.Text = ""

        N5_36110048.Text = ""

        A5_36110048.Text = ""

        C1_36110048.Text = ""

        C2_36110048.Text = ""

        C3_36110048.Text = ""

        C4_36110048.Text = ""

    End Sub

   End Class

6.      Setelah itu, jalankan programnya.