Latihan_08_46110006

1.      Deskripsi from

Object Label

Pada Object Label 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 TextBox

Pada Object TextBox Terdapat 16 textbox (12 status input, 4 berstatus read only dan have a scrollbar(vertikal). Status input digunakan untuk memasukkan nilai Sedangkan Status Read Only digunakan untuk menampilkan hasil pada fungsi yang telah di kerjakan.

Object Button

Terdapat 1 buah 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.

Event :

Textchanged

2.      Cara Membuat From Latihan 08 :

1.      Pilih item Toolbar “Project” kemudian pilih “Add Windows From”

 

2.   Setelah mengKlik “Add Windows From”, akan muncul tabel dibawah ini. Lalu rename pada Name menjadi nama form anda misalnya “ Latihan_08_46110006”.

          

3.     Buatlah desain dibawah ini dengan menggunakan toolbox TextBox, Label dan Button.

              

          

                                                   Hijau : Label
                                              Biru      : TextBox
                                              Ungu     : Have a Scrollbar

 

    4.      Klik kanan lalu pilih “View Code” setelah itu ketik rumus untuk menjalankan from diatas.

Public Class Latihan_08_46110006

    Private Sub Cerita1()

        Cerita1_46110006.Text = AN46110006.Text & " adalah seorang siswa yang terbiasa hidup di perkotaan tepatnya di " & _

       ALM446110006.Text & ". Karena ayah " & AN46110006.Text & " dipindahtugaskan di sebuah pedesaan terpencil, maka " & _

       AN46110006.Text & " juga ikut pindah sekolah. Untungnya, di sekolah barunya " & AN46110006.Text & _

       " punya teman yang sangat baik yang bernama " & T546110006.Text & " sehingga " & AN46110006.Text & _

       " merasa betah. Di sekolah barunya, ternyata " & AN46110006.Text & " ditaksir oleh salah seorang siswa" & _

       " yang sangat populer di sekolahnya yaitu " & T146110006.Text & ". Dia tinggal di " & ALM146110006.Text & ". " & _

       T146110006.Text & " adalah ketua  OSIS dan pemain basket terhebat di sekolah tersebut. Dan " & T146110006.Text & _

       " juga naksir sama " & AN46110006.Text & "."

    End Sub

    Private Sub Cerita2()

        Cerita2_46110006.Text = T146110006.Text & " adalah orang yang sangat sombong, dia tinggal di " & ALM146110006.Text & _

        ". " & T146110006.Text & " memilki dua orang teman yang bernama " & T346110006.Text & " dan " & T446110006.Text & _

        ". Di sekolahnya, mereka dijuluki sebagai GENG ANGKUH."

    End Sub

    Private Sub Cerita3()

        Cerita3_46110006.Text = T246110006.Text & " memiliki dua orang sudara yang bernama " & T146110006.Text & ", yang tinggal di " & _

        ALM146110006.Text & T346110006.Text & ", yang tinggal di " & ALM346110006.Text & ". Mereka bertiga sangat akur, kompak, dan sering jalan bareng."

    End Sub

    Private Sub Cerita4()

        Cerita4_46110006.Text = T346110006.Text & " mempunyai dua orang sahabat. Lucunya, mereka hanya bersahabat lewat" & _

        "dunia maya yaitu dengan chatting lewat YM dan FB. Awalnya " & T146110006.Text & " mendapat alamat email " & _

        T346110006.Text & " dari salah seorang temannya yang bernama " & T546110006.Text & _

        ". Semenjak saai itulah mereka bersahabat walaupun hanya lewat dunia maya."

    End Sub

    Private Sub AN46110006_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles AN46110006.TextChanged

        Cerita1()

        Cerita2()

        Cerita3()

        Cerita4()

    End Sub

    Private Sub T146110006_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles T146110006.TextChanged

        Cerita1()

        Cerita2()

        Cerita3()

        Cerita4()

    End Sub

    Private Sub T246110006_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles T246110006.TextChanged

        Cerita1()

        Cerita2()

        Cerita3()

        Cerita4()

    End Sub

    Private Sub T346110006_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles T346110006.TextChanged

        Cerita1()

        Cerita2()

        Cerita3()

        Cerita4()

    End Sub

    Private Sub T446110006_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles T446110006.TextChanged

        Cerita1()

        Cerita2()

        Cerita3()

        Cerita4()

    End Sub

    Private Sub T546110006_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles T546110006.TextChanged

        Cerita1()

        Cerita2()

        Cerita3()

        Cerita4()

    End Sub

    Private Sub ALM46110006_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ALM46110006.TextChanged

        Cerita1()

        Cerita2()

        Cerita3()

        Cerita4()

    End Sub

    Private Sub ALM146110006_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ALM146110006.TextChanged

        Cerita1()

        Cerita2()

        Cerita3()

        Cerita4()

    End Sub

    Private Sub ALM246110006_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ALM246110006.TextChanged

        Cerita1()

        Cerita2()

        Cerita3()

        Cerita4()

    End Sub

    Private Sub ALM346110006_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ALM346110006.TextChanged

        Cerita1()

        Cerita2()

        Cerita3()

        Cerita4()

    End Sub

    Private Sub ALM446110006_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ALM446110006.TextChanged

        Cerita1()

        Cerita2()

        Cerita3()

        Cerita4()

    End Sub

    Private Sub ALM546110006_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ALM546110006.TextChanged

        Cerita1()

        Cerita2()

        Cerita3()

        Cerita4()

    End Sub

    Private Sub Close_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Close_46110006.Click

        End

    End Sub

End Class

3. Langkah untuk menjalankan from 08 :

1.    Klik start debugging.

2.    Isi TextBox yang berstatus input, sesuai dengan yang anda inginkan.

3.  Setelah anda menginput TextBox yang telah tersedia, hasilnya akan tampil sendiri pada form

4.  Klik “Close” untuk menutup.