Latihan_08_46110043

Deskripsi Form

Pada form Latihan_08 kita dapat menemukan tiga object, yaitu:

Object Label, Object TextBox dan Object Button

1. Object Label

    Pada form terdapat 12 label yang amsing-masing bertuliskan à Nama, Alamat, Anda, Teman 1, Teman 2, Teman 3, Teman 4, Teman 5, Cerita 1, Cerita 2, Cerita 3, dan Cerita 4.

2. Object Textbox

   Pada form terdapat 16 buah textbox. 12 merupakan status input dan 4 diantaranya berstatus ReadOnly.Textbox yang berstatus input pada form ini berfungsi untuk menginput data nama dan alamat. Sedangkan TextBox yang berstatus ReadOnly berfungsi untuk menampilkan cerita yang mengandung nama-nama yang diinput sebagai subyek ataupun obyek.

3. Object Button

   Pada form terdapat 1 object button yang bertuliskan Close. Tombol Close berfungsi untuk menutup tampilan form Latihan 08.

Langkah-langkah menjalankan Form:

1. Masukkan data nama anda dan teman-teman serta alamat di 12 textbox status input.

2. Setelah itu, secara otomatis akan ditampilkan cerita yang berbeda-beda dari cerita 1, cerita 2, cerita 3,    dan cerita 4 sesuai dengan cerita yang dibuat di script.

3. Klik tombol Close, untuk menutup tampilan form.

Langkah-langkah Penyelesaian :

1. Pada Solution Explorer, klik kanan Kumpulan Latihan, pilih Add, New Item.

2. Pilih Windows Form, lalu ubah nama form menjadi Latihan_08_46110043 tanpa mengubah ekstension file (vb)

3. Gunakan toolbox untuk membuat Label, Textbox, dan Button, kemudian buat object sesuai dengan deskripsi form diatas.

4. Ubah object name menjadi singkatan yang mudah diingat disertai Nim dibelakang singkatan.

5. Klik kanan Form, pilih View Code, lalu ketik script yang sesuai, lihat contoh dibawah ini:

Public Class Latihan_08_46110043

    Private Sub ceritasatu()

        Cerita146110043.Text = "Princess " & Saya46110043.Text & " adalah seorang putri raja  yang bertempat tinggal di " & alamat46110043.Text & ". Ia sangat baik hati, dan pandai menabung. Ia memiliki banyak teman salah satunya adalah " & tmn1_46110043.Text & ". " & tmn1_46110043.Text & " juga sangat baik hati dan setia menemani " & Saya46110043.Text & " didalam suka duka sebagai sahabat."

    End Sub

    Private Sub ceritadua()

        Cerita246110043.Text = tmn2_46110043.Text & " adalah anak yang angkuh dan tidak pandai bergaul. Ia memiliki banyak musuh " & tmn2_46110043.Text & " juga sangat licik seringkali ia mengerjai teman-temannya dibenci oleh dosen-dosen kami karena dia sering menolong dalam hal memberi contekan. Teman yang paling sering ia kerjai adalah" & tmn3_46110043.Text & " mungkin karena ia sangat polos daqn tidak bisa melawan ."

    End Sub

    Private Sub ceritatiga()

        Cerita346110043.Text = "Seekor monyet yang sangat lucu dan pandai bernama, " & tmn4_46110043.Text & ", telah lama menjadi penghuni kebun raya bogor. Selain lucu , " & tmn4_46110043.Text & " juga pandai. baru-baru ini ia melahirkan seekor anak monyet yang diberi nama " & tmn5_46110043.Text & " yang sering memberi contekan."

    End Sub

    Private Sub ceritaempat()

        Cerita446110043.Text = tmn5_46110043.Text & " adalah mahasiswa tingkat akhir yang sangat memegang tinggi kejujuran, walaupun sebenarnya bisa dibilang mahasiswa yang tidak terlalu cerdas dikelas."

    End Sub

    Private Sub saya46110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Saya46110043.TextChanged

        ceritasatu()

    End Sub

    Private Sub alamat46110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles alamat46110043.TextChanged

        ceritasatu()

    End Sub

    Private Sub tmn1_46110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmn1_46110043.TextChanged

        ceritasatu()

        ceritaempat()

    End Sub

    Private Sub tmn2_46110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmn2_46110043.TextChanged

        ceritadua()

        ceritatiga()

        ceritaempat()

    End Sub

    Private Sub tmn3_46110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmn3_46110043.TextChanged

        ceritadua()

        ceritaempat()

    End Sub

    Private Sub tmn4_46110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmn4_46110043.TextChanged

        ceritatiga()

        ceritaempat()

    End Sub

    Private Sub tmn5_46110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmn5_46110043.TextChanged

        ceritaempat()

    End Sub

    Private Sub close46110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles close46110043.Click

        Close()

    End Sub

End Class

Script Unique

Private Sub ceritasatu()

        Cerita146110043.Text = "Princess " & Saya46110043.Text & " adalah seorang putri raja

Penggunaan Prosedure

Ceritasatu ()

Prosedure digunakan untuk memudahkan kita menulis rumus yang berulang

Even

TextChanged

Property

Property TextBox --> ReadOnly = True

                                   Multiline = True

                                   ScrollBars = Vertical