Latihan_08_46110055

Deskripsi Latihan 08

Pada Form Latihan 08 Terdapat 3 object yaitu label, textbox, dan button:

Object Label
Pada form Latihan 08 Terdapat 12 label yang bertuliskan Nama, Alamat, Anda, Teman 1, Teman 2, Teman 3, Teman 4, Teman 5, Cerita 1, Cerita 2,Cerita 3, dan Cerita 4.

Object Text Box
pada form ini Terdapat juga 16 textbox (12 status input, 4 berstatus read only dan have a scrollbar(vertikal)). Status input digunakan untuk memasukkan data. Status Read Only digunakan untuk menampilkan hasil pada dari fungsi yang telah di kerjakan.

Object Button
Terdapat 1 buah object button yaitu Close yang berfungsi untuk menutup window form.

Script Unique
Private Sub cerita1() script ini digunakan sebagai Procedure yang dapat digunakan disetiap fungsi yang diinginkan tanpa mengulang apa isi procedure tersebut.

Even
TextChanged


Cara  membuat Latihan 08 :

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)
3. Pilih menu Project lalu klik add windows form
4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.
5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 08”
6. Pilih menu “view” klik  “code”
7. Masukkan rumus berikut :

Public Class Latihan_08_46110055

    Private Sub cerita1()
        crt146110055.Text = "Nama saya adalah " & nama46110055.Text & " saya tinggal di " & alamat46110055.Text & " saya mempunyai teman baik yang bernama " & teman146110055.Text & " dia tinggal di " & ala146110055.Text
    End Sub

    Private Sub cerita2()
        crt246110055.Text = "Saya mempunyai teman-teman yang selalu menemani saya mereka adalah " & teman246110055.Text & " dan " & teman346110055.Text & "mereka tinggal di " & ala246110055.Text & " dan " & ala346110055.Text & "." & "kami memiliki hobi yang sama."
    End Sub

    Private Sub cerita3()
        crt346110055.Text = "sewaktu SMA saya mempunyai teman sebangku yang bernama " & teman446110055.Text & " dia tinggal di " & ala446110055.Text & ", dia sangat menyenangkan sebagai teman."
    End Sub

    Private Sub cerita4()
        crt446110055.Text = teman546110055.Text & " adalah kecil saya, dia tinggal di " & ala546110055.Text & ". Kami sudah lama tidak bertemu karena sekarang dia melanjutkan sekolahnya di daerah lain."
    End Sub

 

    Private Sub nama46110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama46110055.TextChanged
        cerita1()
    End Sub

    Private Sub alamat46110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles alamat46110055.TextChanged
        cerita2()
    End Sub

    Private Sub teman146110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles teman146110055.TextChanged
        cerita1()
    End Sub

    Private Sub ala146110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ala146110055.TextChanged
        cerita1()
    End Sub

    Private Sub teman246110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles teman246110055.TextChanged
        cerita2()
    End Sub

    Private Sub ala246110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ala246110055.TextChanged
        cerita2()
    End Sub

    Private Sub teman346110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles teman346110055.TextChanged
        cerita2()
    End Sub

    Private Sub ala346110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ala346110055.TextChanged
        cerita2()
    End Sub

    Private Sub teman446110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles teman446110055.TextChanged
        cerita3()
    End Sub

    Private Sub ala446110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ala446110055.TextChanged
        cerita3()
    End Sub

    Private Sub teman546110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles teman546110055.TextChanged
        cerita4()
    End Sub

    Private Sub ala546110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ala546110055.TextChanged
        cerita4()
    End Sub

 
    Private Sub close46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles close46110055.Click
        crt146110055.Text = ""
        crt246110055.Text = ""
        crt346110055.Text = ""
        crt446110055.Text = ""
        nama46110055.Text = ""
        teman146110055.Text = ""
        teman246110055.Text = ""
        teman346110055.Text = ""
        teman446110055.Text = ""
        teman546110055.Text = ""
        alamat46110055.Text = ""
        ala146110055.Text = ""
        ala246110055.Text = ""
        ala346110055.Text = ""
        ala446110055.Text = ""
        ala546110055.Text = ""
    End Sub

 
End Class


Langkah - langkah menjalankan Latihan 08 :
1.  Klik start debugging.
2.  Isi text box yang berstatus input, sesuai dengan keinginan anda.
3.  Hasil akan muncul sendiri setelah anda menginput textbox yang tersedia untuk di input.
4.  Untuk menutup klik close.