Latihan_08_46110002

1. Deskripsi from

Object Label

Terdapat 12 object label (yang bertuliskan NAMA, ALAMAT, ANDA, TEMAN 1, TEMAN 2, TEMAN 3, TEMAN 4, TEMAN 5, CERITA1, CERITA2, CERITA3, DAN CERITA4).

Object Textbox

Terdapat enam belas textbox (dua belas status input; empat status read only). Status input digunakan untuk data yang akan dimasukkan dalam cerita. Status Read Only digunakan untuk menampilkan cerita dari data-data yang ada.

Object Button

Terdapat satu object button (Close). Button Close digunakan untuk mengosongkan kembali semua TextBox.

Script Unique

Private Sub cerita1(). Script ini adalah Procedure yang digunakan disetiap fungsi.

 Even

Textchanged

Property

Property TextBox ==> ReadOnly=True

 2.Cara membuat from

      a. Klik Start lalu pilih Microsoft Visual Studio 2008

 

     b. Lalu akan muncul jendela awal Microsoft Visual Studio seperti di bawah ini.klik 2 kali kumpulan   latihan untuk membuka folder

      c. Lalu pilih Project dan pilih add windows from

      d. Kemudian buat form dan add

      e. Buat desai seperti dibawah ini dgn menggunakan toolbox

       f. klik knan pilih view kode. Berikut ini adalah rumus untuk menjalankan form di atas

 Public Class Latihan_08_46110002

    Private Sub cerita1()
        CR1_46110002.Text = NA46110002.Text & " adalah seorang siswa yang terbiasa hidup di perkotaan tepatnya di " & _
        AL1_46110002.Text & ". Karena ayah " & NA46110002.Text & " dipindahtugaskan di sebuah pedesaan terpencil, maka " & _
        NA46110002.Text & " juga ikut pindah sekolah. Untungnya, di sekolah barunya " & NA46110002.Text & _
        " punya teman yang sangat baik yang bernama " & T5_46110002.Text & " sehingga " & NA46110002.Text & _
        " merasa betah. Di sekolah barunya, ternyata " & NA46110002.Text & " ditaksir oleh salah seorang siswa" & _
        T1_46110002.Text & " adalah ketua  OSIS dan pemain basket terhebat di sekolah tersebut. Dan " & T1_46110002.Text & _
        " juga naksir sama " & NA46110002.Text & "."
    End Sub

    Private Sub cerita2()
        CR2_46110002.Text = T1_46110002.Text & " adalah orang yang sangat sombong, dia tinggal di " & AL2_46110002.Text & _
        ". " & T1_46110002.Text & " memilki dua orang teman yang bernama " & T3_46110002.Text & " dan " & T4_46110002.Text & _
        ". Di sekolahnya, mereka dijuluki sebagai GENG ANGKUH."
    End Sub
    Private Sub cerita3()
        CR3_46110002.Text = T2_46110002.Text & " memiliki dua orang sudara yang bernama " & T1_46110002.Text & ", yang tinggal di " & _
        AL2_46110002.Text & T3_46110002.Text & ", yang tinggal di " & AL4_46110002.Text & ". Mereka bertiga sangat akur, kompak, dan sering jalan bareng."
    End Sub
    Private Sub cerita4()
        CR4_46110002.Text = T3_46110002.Text & " mempunyai dua orang sahabat. Lucunya, mereka hanya bersahabat lewat" & _
        "dunia maya yaitu dengan chatting lewat YM dan FB. Awalnya " & T1_46110002.Text & " mendapat alamat email " & _
        T3_46110002.Text & " dari salah seorang temannya yang bernama " & T5_46110002.Text & _
        ". Semenjak saai itulah mereka bersahabat walaupun hanya lewat dunia maya."
    End Sub
    Private Sub NA46110002_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NA46110002.TextChanged
        cerita1()
        cerita2()
        cerita3()
        cerita4()

    End Sub
 
    Private Sub NT1_46110002_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NT1_46110002.TextChanged
        cerita1()
        cerita2()
        cerita3()
        cerita4()
    End Sub

    Private Sub NT2_46110002_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NT2_46110002.TextChanged
        cerita1()
        cerita2()
        cerita3()
        cerita4()

    End Sub

    Private Sub NT3_46110002_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NT3_46110002.TextChanged
        cerita1()
        cerita2()
        cerita3()
        cerita4()

    End Sub

    Private Sub NT4_46110002_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NT4_46110002.TextChanged
        cerita1()
        cerita2()
        cerita3()
        cerita4()

    End Sub

    Private Sub NT5_46110002_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NT5_46110002.TextChanged
        cerita1()
        cerita2()
        cerita3()
        cerita4()

    End Sub

    Private Sub AL1_46110002_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AL1_46110002.TextChanged
        cerita1()
        cerita2()
        cerita3()
        cerita4()

    End Sub

    Private Sub AL2_46110002_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AL2_46110002.TextChanged
        cerita1()
        cerita2()
        cerita3()
        cerita4()

    End Sub

    Private Sub AL3_46110002_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AL3_46110002.TextChanged
        cerita1()
        cerita2()
        cerita3()
        cerita4()

    End Sub

    Private Sub AL4_46110002_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AL4_46110002.TextChanged
        cerita1()
        cerita2()
        cerita3()
        cerita4()

    End Sub

    Private Sub AL5_46110002_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AL5_46110002.TextChanged
        cerita1()
        cerita2()
        cerita3()
        cerita4()

    End Sub

    Private Sub AL6_46110002_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AL6_46110002.TextChanged
        cerita1()
        cerita2()
        cerita3()
        cerita4()
    End Sub


    Private Sub C_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C_46110002.Click
        End
    End Sub
End Class

3.   3. Langkah untuk menjalankan form ini :

a.       Klik start debugging.

b.       Isi text box yang berstatus input

c.       Cerita akan muncul sendri setelah data diiinput pada textbox yang tersedia.

d.      Untuk menutup klik close.