Latihan_08_36110056

Deskripsi Latihan 08:

Form Latihan 08 terdapat tiga object yaitu Label, textbox,  dan button

Object Label

Terdapat dua belas label (yang bertuliskan nama, alamat ,anda, teman 1,teman 2,   teman 3,   teman 4, teman 5,   cerita 1, cerita 2,cerita 3,   cerita 4)

Object Text Box

Terdapat enam belas textbox (dua belas status input; empat status read only)

Object Button

Terdapat satu object button dengan nama Close digunakan untuk mengosongkan kembali semua TextBox.

Script Unique 

    Private Sub na_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles na_36110056.TextChanged

        cerita1_36110056.Text = "bernama " & na_36110056.Text & " saya bertempat tingaal di " & aa_36110056.Text & ". Saya tinggal bersama keluarga dan memiliki dua orang saudara.

        cerita2_36110056.Text = "saya " & na_36110056.Text & " memiliki hobi yang sama dengan " & nt1_36110056.Text & "," & nt2_36110056.Text & " dan " & nt4_36110056.Text & ", hobi kami yaitu bermain futsal. Kami sering bermain di " & at2_36110056.Text & " , " & nt2_36110056.Text & " karna dia memiliki lapangan futsal yg disewakan di sekitar pekarangannya

        cerita3_36110056.Text = "sehari-hari kami lepas dari hobi yaitu kami sering nongkrong di rumah " & nt3_36110056.Text & " di " & at3_36110056.Text & " dan biasa juga  di rumahnya " & nt4_36110056.Text & " di " & at4_36110056.Text & ". Kami biasaya lupa dengan waktu bila bersama."

      

      Even

Button click

textchanged

Property

Property TextBox ReadOnly=True

Multiline = true

Scroolbar = vertical

 

                                                                    Form latihan 08

Langkah-langkah Penyelesaian Latihan 08 :

•    Buka project yang dibuat sebelumnya
•    Pilih Add new item

•     Setelah terbuka jendela Add new item, pilih windows form  serta anda dapat mengganti nama form, dan setelah itu pilih add

•   Buat form sesuai soal di atas dengan menggunakan Label, Textbox, dan button yang ada dalam Toolbox
•   Setelah form selesai, ubah nama textbox,dan button yang terdapat dalam properties window
• Selanjutnya masukkan formula atau rumus untuk menjalan form  :

Public Class latihan08_36110056
    Private Sub na_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles na_36110056.TextChanged
        cerita1_36110056.Text = "bernama " & na_36110056.Text & " saya bertempat tingaal di " & aa_36110056.Text & ". Saya tinggal bersama keluarga dan memiliki dua orang saudara. Kebiasaan kalau di rumah itu adalah keluar nongkrong sama teman. Saya memiliki banayak teman yang baik diantara " & nt1_36110056.Text & "," & nt2_36110056.Text & " , " & nt3_36110056.Text & " ," & nt4_36110056.Text & " , " & nt5_36110056.Text & "  kami sering menghabiskan waktu bersama."
        cerita2_36110056.Text = "saya " & na_36110056.Text & " memiliki hobi yang sama dengan " & nt1_36110056.Text & "," & nt2_36110056.Text & " dan " & nt4_36110056.Text & ", hobi kami yaitu bermain futsal. Kami sering bermain di " & at2_36110056.Text & " , " & nt2_36110056.Text & " karna dia memiliki lapangan futsal yg disewakan di sekitar pekarangannya. Biasanya setelah kami bermain futsal biasanya kami pergi ke rumah " & nt5_36110056.Text & " di" & at5_36110056.Text & ", soalnya di memiliki usaha rumah makan."
        cerita3_36110056.Text = "sehari-hari kami lepas dari hobi yaitu kami sering nongkrong di rumah " & nt3_36110056.Text & " di " & at3_36110056.Text & " dan biasa juga  di rumahnya " & nt4_36110056.Text & " di " & at4_36110056.Text & ". Kami biasaya lupa dengan waktu bila bersama."
        Cerita4_36110056.Text = "saya " & nt1_36110056.Text & " ini adalah teman terbaik saya karena dia teman saya semenjak kecil dan juga tinggal tidak jauh dari rumahku di " & at1_36110056.Text & ". Itulah sedikit tentang saya. "


    End Sub

    Private Sub aa_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles aa_36110056.TextChanged
        cerita1_36110056.Text = "bernama " & na_36110056.Text & " saya bertempat tingaal di " & aa_36110056.Text & ". Saya tinggal bersama keluarga dan memiliki dua orang saudara. Kebiasaan kalau di rumah itu adalah keluar nongkrong sama teman. Saya memiliki banayak teman yang baik diantara " & nt1_36110056.Text & "," & nt2_36110056.Text & " , " & nt3_36110056.Text & " ," & nt4_36110056.Text & " , " & nt5_36110056.Text & "  kami sering menghabiskan waktu bersama."
        cerita2_36110056.Text = "saya " & na_36110056.Text & " memiliki hobi yang sama dengan " & nt1_36110056.Text & "," & nt2_36110056.Text & " dan " & nt4_36110056.Text & ", hobi kami yaitu bermain futsal. Kami sering bermain di " & at2_36110056.Text & " , " & nt2_36110056.Text & " karna dia memiliki lapangan futsal yg disewakan di sekitar pekarangannya. Biasanya setelah kami bermain futsal biasanya kami pergi ke rumah " & nt5_36110056.Text & " di" & at5_36110056.Text & ", soalnya di memiliki usaha rumah makan."
        cerita3_36110056.Text = "sehari-hari kami lepas dari hobi yaitu kami sering nongkrong di rumah " & nt3_36110056.Text & " di " & at3_36110056.Text & " dan biasa juga  di rumahnya " & nt4_36110056.Text & " di " & at4_36110056.Text & ". Kami biasaya lupa dengan waktu bila bersama."
        Cerita4_36110056.Text = "saya " & nt1_36110056.Text & " ini adalah teman terbaik saya karena dia teman saya semenjak kecil dan juga tinggal tidak jauh dari rumahku di " & at1_36110056.Text & ". Itulah sedikit tentang saya. "


    End Sub

    Private Sub nt1_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nt1_36110056.TextChanged
        cerita1_36110056.Text = "bernama " & na_36110056.Text & " saya bertempat tingaal di " & aa_36110056.Text & ". Saya tinggal bersama keluarga dan memiliki dua orang saudara. Kebiasaan kalau di rumah itu adalah keluar nongkrong sama teman. Saya memiliki banayak teman yang baik diantara " & nt1_36110056.Text & "," & nt2_36110056.Text & " , " & nt3_36110056.Text & " ," & nt4_36110056.Text & " , " & nt5_36110056.Text & "  kami sering menghabiskan waktu bersama."
        cerita2_36110056.Text = "saya " & na_36110056.Text & " memiliki hobi yang sama dengan " & nt1_36110056.Text & "," & nt2_36110056.Text & " dan " & nt4_36110056.Text & ", hobi kami yaitu bermain futsal. Kami sering bermain di " & at2_36110056.Text & " , " & nt2_36110056.Text & " karna dia memiliki lapangan futsal yg disewakan di sekitar pekarangannya. Biasanya setelah kami bermain futsal biasanya kami pergi ke rumah " & nt5_36110056.Text & " di" & at5_36110056.Text & ", soalnya di memiliki usaha rumah makan."
        cerita3_36110056.Text = "sehari-hari kami lepas dari hobi yaitu kami sering nongkrong di rumah " & nt3_36110056.Text & " di " & at3_36110056.Text & " dan biasa juga  di rumahnya " & nt4_36110056.Text & " di " & at4_36110056.Text & ". Kami biasaya lupa dengan waktu bila bersama."
        Cerita4_36110056.Text = "saya " & nt1_36110056.Text & " ini adalah teman terbaik saya karena dia teman saya semenjak kecil dan juga tinggal tidak jauh dari rumahku di " & at1_36110056.Text & ". Itulah sedikit tentang saya. "


    End Sub

    Private Sub at1_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles at1_36110056.TextChanged
        cerita1_36110056.Text = "bernama " & na_36110056.Text & " saya bertempat tingaal di " & aa_36110056.Text & ". Saya tinggal bersama keluarga dan memiliki dua orang saudara. Kebiasaan kalau di rumah itu adalah keluar nongkrong sama teman. Saya memiliki banayak teman yang baik diantara " & nt1_36110056.Text & "," & nt2_36110056.Text & " , " & nt3_36110056.Text & " ," & nt4_36110056.Text & " , " & nt5_36110056.Text & "  kami sering menghabiskan waktu bersama."
        cerita2_36110056.Text = "saya " & na_36110056.Text & " memiliki hobi yang sama dengan " & nt1_36110056.Text & "," & nt2_36110056.Text & " dan " & nt4_36110056.Text & ", hobi kami yaitu bermain futsal. Kami sering bermain di " & at2_36110056.Text & " , " & nt2_36110056.Text & " karna dia memiliki lapangan futsal yg disewakan di sekitar pekarangannya. Biasanya setelah kami bermain futsal biasanya kami pergi ke rumah " & nt5_36110056.Text & " di" & at5_36110056.Text & ", soalnya di memiliki usaha rumah makan."
        cerita3_36110056.Text = "sehari-hari kami lepas dari hobi yaitu kami sering nongkrong di rumah " & nt3_36110056.Text & " di " & at3_36110056.Text & " dan biasa juga  di rumahnya " & nt4_36110056.Text & " di " & at4_36110056.Text & ". Kami biasaya lupa dengan waktu bila bersama."
        Cerita4_36110056.Text = "saya " & nt1_36110056.Text & " ini adalah teman terbaik saya karena dia teman saya semenjak kecil dan juga tinggal tidak jauh dari rumahku di " & at1_36110056.Text & ". Itulah sedikit tentang saya. "


    End Sub

    Private Sub nt2_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nt2_36110056.TextChanged
        cerita1_36110056.Text = "bernama " & na_36110056.Text & " saya bertempat tingaal di " & aa_36110056.Text & ". Saya tinggal bersama keluarga dan memiliki dua orang saudara. Kebiasaan kalau di rumah itu adalah keluar nongkrong sama teman. Saya memiliki banayak teman yang baik diantara " & nt1_36110056.Text & "," & nt2_36110056.Text & " , " & nt3_36110056.Text & " ," & nt4_36110056.Text & " , " & nt5_36110056.Text & "  kami sering menghabiskan waktu bersama."
        cerita2_36110056.Text = "saya " & na_36110056.Text & " memiliki hobi yang sama dengan " & nt1_36110056.Text & "," & nt2_36110056.Text & " dan " & nt4_36110056.Text & ", hobi kami yaitu bermain futsal. Kami sering bermain di " & at2_36110056.Text & " , " & nt2_36110056.Text & " karna dia memiliki lapangan futsal yg disewakan di sekitar pekarangannya. Biasanya setelah kami bermain futsal biasanya kami pergi ke rumah " & nt5_36110056.Text & " di" & at5_36110056.Text & ", soalnya di memiliki usaha rumah makan."
        cerita3_36110056.Text = "sehari-hari kami lepas dari hobi yaitu kami sering nongkrong di rumah " & nt3_36110056.Text & " di " & at3_36110056.Text & " dan biasa juga  di rumahnya " & nt4_36110056.Text & " di " & at4_36110056.Text & ". Kami biasaya lupa dengan waktu bila bersama."
        Cerita4_36110056.Text = "saya " & nt1_36110056.Text & " ini adalah teman terbaik saya karena dia teman saya semenjak kecil dan juga tinggal tidak jauh dari rumahku di " & at1_36110056.Text & ". Itulah sedikit tentang saya. "


    End Sub

    Private Sub at2_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles at2_36110056.TextChanged
        cerita1_36110056.Text = "bernama " & na_36110056.Text & " saya bertempat tingaal di " & aa_36110056.Text & ". Saya tinggal bersama keluarga dan memiliki dua orang saudara. Kebiasaan kalau di rumah itu adalah keluar nongkrong sama teman. Saya memiliki banayak teman yang baik diantara " & nt1_36110056.Text & "," & nt2_36110056.Text & " , " & nt3_36110056.Text & " ," & nt4_36110056.Text & " , " & nt5_36110056.Text & "  kami sering menghabiskan waktu bersama."
        cerita2_36110056.Text = "saya " & na_36110056.Text & " memiliki hobi yang sama dengan " & nt1_36110056.Text & "," & nt2_36110056.Text & " dan " & nt4_36110056.Text & ", hobi kami yaitu bermain futsal. Kami sering bermain di " & at2_36110056.Text & " , " & nt2_36110056.Text & " karna dia memiliki lapangan futsal yg disewakan di sekitar pekarangannya. Biasanya setelah kami bermain futsal biasanya kami pergi ke rumah " & nt5_36110056.Text & " di" & at5_36110056.Text & ", soalnya di memiliki usaha rumah makan."
        cerita3_36110056.Text = "sehari-hari kami lepas dari hobi yaitu kami sering nongkrong di rumah " & nt3_36110056.Text & " di " & at3_36110056.Text & " dan biasa juga  di rumahnya " & nt4_36110056.Text & " di " & at4_36110056.Text & ". Kami biasaya lupa dengan waktu bila bersama."
        Cerita4_36110056.Text = "saya " & nt1_36110056.Text & " ini adalah teman terbaik saya karena dia teman saya semenjak kecil dan juga tinggal tidak jauh dari rumahku di " & at1_36110056.Text & ". Itulah sedikit tentang saya. "


    End Sub

    Private Sub nt3_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nt3_36110056.TextChanged
        cerita1_36110056.Text = "bernama " & na_36110056.Text & " saya bertempat tingaal di " & aa_36110056.Text & ". Saya tinggal bersama keluarga dan memiliki dua orang saudara. Kebiasaan kalau di rumah itu adalah keluar nongkrong sama teman. Saya memiliki banayak teman yang baik diantara " & nt1_36110056.Text & "," & nt2_36110056.Text & " , " & nt3_36110056.Text & " ," & nt4_36110056.Text & " , " & nt5_36110056.Text & "  kami sering menghabiskan waktu bersama."
        cerita2_36110056.Text = "saya " & na_36110056.Text & " memiliki hobi yang sama dengan " & nt1_36110056.Text & "," & nt2_36110056.Text & " dan " & nt4_36110056.Text & ", hobi kami yaitu bermain futsal. Kami sering bermain di " & at2_36110056.Text & " , " & nt2_36110056.Text & " karna dia memiliki lapangan futsal yg disewakan di sekitar pekarangannya. Biasanya setelah kami bermain futsal biasanya kami pergi ke rumah " & nt5_36110056.Text & " di" & at5_36110056.Text & ", soalnya di memiliki usaha rumah makan."
        cerita3_36110056.Text = "sehari-hari kami lepas dari hobi yaitu kami sering nongkrong di rumah " & nt3_36110056.Text & " di " & at3_36110056.Text & " dan biasa juga  di rumahnya " & nt4_36110056.Text & " di " & at4_36110056.Text & ". Kami biasaya lupa dengan waktu bila bersama."
        Cerita4_36110056.Text = "saya " & nt1_36110056.Text & " ini adalah teman terbaik saya karena dia teman saya semenjak kecil dan juga tinggal tidak jauh dari rumahku di " & at1_36110056.Text & ". Itulah sedikit tentang saya. "


    End Sub

    Private Sub at3_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles at3_36110056.TextChanged
        cerita1_36110056.Text = "bernama " & na_36110056.Text & " saya bertempat tingaal di " & aa_36110056.Text & ". Saya tinggal bersama keluarga dan memiliki dua orang saudara. Kebiasaan kalau di rumah itu adalah keluar nongkrong sama teman. Saya memiliki banayak teman yang baik diantara " & nt1_36110056.Text & "," & nt2_36110056.Text & " , " & nt3_36110056.Text & " ," & nt4_36110056.Text & " , " & nt5_36110056.Text & "  kami sering menghabiskan waktu bersama."
        cerita2_36110056.Text = "saya " & na_36110056.Text & " memiliki hobi yang sama dengan " & nt1_36110056.Text & "," & nt2_36110056.Text & " dan " & nt4_36110056.Text & ", hobi kami yaitu bermain futsal. Kami sering bermain di " & at2_36110056.Text & " , " & nt2_36110056.Text & " karna dia memiliki lapangan futsal yg disewakan di sekitar pekarangannya. Biasanya setelah kami bermain futsal biasanya kami pergi ke rumah " & nt5_36110056.Text & " di" & at5_36110056.Text & ", soalnya di memiliki usaha rumah makan."
        cerita3_36110056.Text = "sehari-hari kami lepas dari hobi yaitu kami sering nongkrong di rumah " & nt3_36110056.Text & " di " & at3_36110056.Text & " dan biasa juga  di rumahnya " & nt4_36110056.Text & " di " & at4_36110056.Text & ". Kami biasaya lupa dengan waktu bila bersama."
        Cerita4_36110056.Text = "saya " & nt1_36110056.Text & " ini adalah teman terbaik saya karena dia teman saya semenjak kecil dan juga tinggal tidak jauh dari rumahku di " & at1_36110056.Text & ". Itulah sedikit tentang saya. "


    End Sub

    Private Sub nt4_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nt4_36110056.TextChanged
        cerita1_36110056.Text = "bernama " & na_36110056.Text & " saya bertempat tingaal di " & aa_36110056.Text & ". Saya tinggal bersama keluarga dan memiliki dua orang saudara. Kebiasaan kalau di rumah itu adalah keluar nongkrong sama teman. Saya memiliki banayak teman yang baik diantara " & nt1_36110056.Text & "," & nt2_36110056.Text & " , " & nt3_36110056.Text & " ," & nt4_36110056.Text & " , " & nt5_36110056.Text & "  kami sering menghabiskan waktu bersama."
        cerita2_36110056.Text = "saya " & na_36110056.Text & " memiliki hobi yang sama dengan " & nt1_36110056.Text & "," & nt2_36110056.Text & " dan " & nt4_36110056.Text & ", hobi kami yaitu bermain futsal. Kami sering bermain di " & at2_36110056.Text & " , " & nt2_36110056.Text & " karna dia memiliki lapangan futsal yg disewakan di sekitar pekarangannya. Biasanya setelah kami bermain futsal biasanya kami pergi ke rumah " & nt5_36110056.Text & " di" & at5_36110056.Text & ", soalnya di memiliki usaha rumah makan."
        cerita3_36110056.Text = "sehari-hari kami lepas dari hobi yaitu kami sering nongkrong di rumah " & nt3_36110056.Text & " di " & at3_36110056.Text & " dan biasa juga  di rumahnya " & nt4_36110056.Text & " di " & at4_36110056.Text & ". Kami biasaya lupa dengan waktu bila bersama."
        Cerita4_36110056.Text = "saya " & nt1_36110056.Text & " ini adalah teman terbaik saya karena dia teman saya semenjak kecil dan juga tinggal tidak jauh dari rumahku di " & at1_36110056.Text & ". Itulah sedikit tentang saya. "


    End Sub

    Private Sub at4_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles at4_36110056.TextChanged
        cerita1_36110056.Text = "bernama " & na_36110056.Text & " saya bertempat tingaal di " & aa_36110056.Text & ". Saya tinggal bersama keluarga dan memiliki dua orang saudara. Kebiasaan kalau di rumah itu adalah keluar nongkrong sama teman. Saya memiliki banayak teman yang baik diantara " & nt1_36110056.Text & "," & nt2_36110056.Text & " , " & nt3_36110056.Text & " ," & nt4_36110056.Text & " , " & nt5_36110056.Text & "  kami sering menghabiskan waktu bersama."
        cerita2_36110056.Text = "saya " & na_36110056.Text & " memiliki hobi yang sama dengan " & nt1_36110056.Text & "," & nt2_36110056.Text & " dan " & nt4_36110056.Text & ", hobi kami yaitu bermain futsal. Kami sering bermain di " & at2_36110056.Text & " , " & nt2_36110056.Text & " karna dia memiliki lapangan futsal yg disewakan di sekitar pekarangannya. Biasanya setelah kami bermain futsal biasanya kami pergi ke rumah " & nt5_36110056.Text & " di" & at5_36110056.Text & ", soalnya di memiliki usaha rumah makan."
        cerita3_36110056.Text = "sehari-hari kami lepas dari hobi yaitu kami sering nongkrong di rumah " & nt3_36110056.Text & " di " & at3_36110056.Text & " dan biasa juga  di rumahnya " & nt4_36110056.Text & " di " & at4_36110056.Text & ". Kami biasaya lupa dengan waktu bila bersama."
        Cerita4_36110056.Text = "saya " & nt1_36110056.Text & " ini adalah teman terbaik saya karena dia teman saya semenjak kecil dan juga tinggal tidak jauh dari rumahku di " & at1_36110056.Text & ". Itulah sedikit tentang saya. "


    End Sub

    Private Sub nt5_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nt5_36110056.TextChanged
        cerita1_36110056.Text = "bernama " & na_36110056.Text & " saya bertempat tingaal di " & aa_36110056.Text & ". Saya tinggal bersama keluarga dan memiliki dua orang saudara. Kebiasaan kalau di rumah itu adalah keluar nongkrong sama teman. Saya memiliki banayak teman yang baik diantara " & nt1_36110056.Text & "," & nt2_36110056.Text & " , " & nt3_36110056.Text & " ," & nt4_36110056.Text & " , " & nt5_36110056.Text & "  kami sering menghabiskan waktu bersama."
        cerita2_36110056.Text = "saya " & na_36110056.Text & " memiliki hobi yang sama dengan " & nt1_36110056.Text & "," & nt2_36110056.Text & " dan " & nt4_36110056.Text & ", hobi kami yaitu bermain futsal. Kami sering bermain di " & at2_36110056.Text & " , " & nt2_36110056.Text & " karna dia memiliki lapangan futsal yg disewakan di sekitar pekarangannya. Biasanya setelah kami bermain futsal biasanya kami pergi ke rumah " & nt5_36110056.Text & " di" & at5_36110056.Text & ", soalnya di memiliki usaha rumah makan."
        cerita3_36110056.Text = "sehari-hari kami lepas dari hobi yaitu kami sering nongkrong di rumah " & nt3_36110056.Text & " di " & at3_36110056.Text & " dan biasa juga  di rumahnya " & nt4_36110056.Text & " di " & at4_36110056.Text & ". Kami biasaya lupa dengan waktu bila bersama."
        Cerita4_36110056.Text = "saya " & nt1_36110056.Text & " ini adalah teman terbaik saya karena dia teman saya semenjak kecil dan juga tinggal tidak jauh dari rumahku di " & at1_36110056.Text & ". Itulah sedikit tentang saya. "


    End Sub

    Private Sub at5_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles at5_36110056.TextChanged
        cerita1_36110056.Text = "bernama " & na_36110056.Text & " saya bertempat tingaal di " & aa_36110056.Text & ". Saya tinggal bersama keluarga dan memiliki dua orang saudara. Kebiasaan kalau di rumah itu adalah keluar nongkrong sama teman. Saya memiliki banayak teman yang baik diantara " & nt1_36110056.Text & "," & nt2_36110056.Text & " , " & nt3_36110056.Text & " ," & nt4_36110056.Text & " , " & nt5_36110056.Text & "  kami sering menghabiskan waktu bersama."
        cerita2_36110056.Text = "saya " & na_36110056.Text & " memiliki hobi yang sama dengan " & nt1_36110056.Text & "," & nt2_36110056.Text & " dan " & nt4_36110056.Text & ", hobi kami yaitu bermain futsal. Kami sering bermain di " & at2_36110056.Text & " , " & nt2_36110056.Text & " karna dia memiliki lapangan futsal yg disewakan di sekitar pekarangannya. Biasanya setelah kami bermain futsal biasanya kami pergi ke rumah " & nt5_36110056.Text & " di" & at5_36110056.Text & ", soalnya di memiliki usaha rumah makan."
        cerita3_36110056.Text = "sehari-hari kami lepas dari hobi yaitu kami sering nongkrong di rumah " & nt3_36110056.Text & " di " & at3_36110056.Text & " dan biasa juga  di rumahnya " & nt4_36110056.Text & " di " & at4_36110056.Text & ". Kami biasaya lupa dengan waktu bila bersama."
        Cerita4_36110056.Text = "saya " & nt1_36110056.Text & " ini adalah teman terbaik saya karena dia teman saya semenjak kecil dan juga tinggal tidak jauh dari rumahku di " & at1_36110056.Text & ". Itulah sedikit tentang saya. "


    End Sub
End Class

•           Setelah itu untuk mengujinya dapat memilih start debugging