Latihan 08_36110055

PROSEDUR LATIHAN 8:

Ø  Lanjutan

Ø  Pilih “Add New Item” pada tool

Ø  Lalu pilih “Windows Form” dan ganti nama yang di ingin kan kemudian pilih “Add”

Ø  Muncullah form1.vb (Form1 bisa diganti)

Ø  Mulai bekerja dengan menggunakan tool pada toolbox

Ø  Buat textbox sebanyak 26 dengan nama :

v  “N1_36001155”

v  “N2_36001155”

v  “N3_36001155”

v  “N4_36001155”

v  “N5_36001155”

v  “N6_36001155”

v  “A1_36001155”

v  “A2_36001155”

v  “A3_36001155”

v  “A4_36001155”

v  “A5_36001155”

v  “A5_36001155”

v  “C1_36001155”

v  “C2_36001155”

v  “C3_36001155”

v  “C4_36001155”

Ø  Buat tombol”Close” dengan menggunakan button pada toolbox

Ø  Untuk lebih jelasnya perhatikan gambar di bawah ini :

Ø  Setelah selesai, maka kita masuk pada rumus yaitu :

Public Class Latihan_08_36001155

    Private Sub N1_36001155_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N1_36001155.TextChanged, A1_36001155.TextChanged, A2_36001155.TextChanged, N2_36001155.TextChanged, A3_36001155.TextChanged, N3_36001155.TextChanged, A4_36001155.TextChanged, N4_36001155.TextChanged, A5_36001155.TextChanged, N5_36001155.TextChanged, A6_36001155.TextChanged, N6_36001155.TextChanged

        C1_36001155.Text = "Nama Saya Adalah " & N1_36001155.Text & ". Saya Tinggal Di " & A1_36001155.Text & ". Saya Punya Teman-Teman Bernama " & N2_36001155.Text & ".Yang Tinggal Di " & A2_36001155.Text & "," & N3_36001155.Text & "Yang Tinggal Di " & A3_36001155.Text & "," & N4_36001155.Text & ", Yang Tinggal Di " & A4_36001155.Text & "," & N5_36001155.Text & "Yang Tinggal Di " & A5_36001155.Text & "Dan " & N6_36001155.Text & "Yang Tinggal Di " & A6_36001155.Text & ". Mereka Semua Baek."

        C2_36001155.Text = "Nama Saya " & N1_36001155.Text & ". Saya Kos Di " & A1_36001155.Text & ". Banyak Juga Temanku Yang Tinggal Di Kos-Kosan Seperti " & N2_36001155.Text & ".Yang Kos Di " & A2_36001155.Text & "," & N3_36001155.Text & "Yang Kos Di " & A3_36001155.Text & "," & N4_36001155.Text & "Yang Kos Di " & A4_36001155.Text & "," & N5_36001155.Text & "Yang Kos Di " & A5_36001155.Text & ", Dan " & N6_36001155.Text & "Yang Kos Di " & A6_36001155.Text & "."

        C3_36001155.Text = "Nama Saya Adalah " & N1_36001155.Text & "Tempat Tinggal Sekarang  " & A1_36001155.Text & ". Banyak Teman-Temanku Yang Sering Datang Ke Kos Yaitu " & N2_36001155.Text & ".Yang Tinggal Di " & A2_36001155.Text & ". Aku Sering Makan Bersama-Sama Seperti " & N3_36001155.Text & "Yang Tinggal Di " & A3_36001155.Text & "," & N4_36001155.Text & "Yang Tinggal Di " & A4_36001155.Text & "," & N5_36001155.Text & "Yang Tinggal Di " & A5_36001155.Text & ", Dan " & N6_36001155.Text & "Yang Tinggal Di " & A6_36001155.Text & "."

        C4_36001155.Text = "Nama Saya " & N1_36001155.Text & ". Sekarang Aku Kuliah Di " & A1_36001155.Text & ". Kadang Kami Kerja Tugas Bersama " & N2_36001155.Text & ".Yang Kos Di " & A2_36001155.Text & "," & N3_36001155.Text & "Yang Kos Di " & A3_36001155.Text & "," & N4_36001155.Text & "Yang Kos Di " & A4_36001155.Text & ", Yang Kos Di " & N5_36001155.Text & "Yang Kos Di " & A5_36001155.Text & "."

    End Sub

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

        N1_36001155.Text = ""

        A1_36001155.Text = ""

        N2_36001155.Text = ""

        A2_36001155.Text = ""

        N3_36001155.Text = ""

        A3_36001155.Text = ""

        N4_36001155.Text = ""

        A4_36001155.Text = ""

        N5_36001155.Text = ""

        A5_36001155.Text = ""

        N6_36001155.Text = ""

        A6_36001155.Text = ""

        C1_36001155.Text = ""

        C2_36001155.Text = ""

        C3_36001155.Text = ""

        C4_36001155.Text = ""

    End Sub

End Class