latihan_08_46110023

pada form latihan 08 terdapat tiga object yaitu label, textbox dan button

object label

Dalam form latihan ini terdapat 12 buah label. Label-label tersebut 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

Selain Object Label, dalam form ini terdapat 16 buah textbox ( 12 status input dan 4 status read only ) status input digunakan untuk memasukkan nama dan alamat pada textbox yang berada di bawah label yang bertuliskan nama dan alamat. Sedangkan status read only digunakan untuk menampilkan hasil cerita yang merupakan sambungan kata dari textbox yang berstatus input sehingga akan menghasilkan sebuah cerita yang menarik pada textbox yang berstatus read only.

object button

Selain dua buah object diatas, terdapat juga 1 buah object button yang bertuliskan close yang berfungsi untuk keluar dari form latihan 08.

 Script Unique :
Script yang digunakan pada latihan ini sama dengan yang ada pada latihan 7

Even :

ButtonClick

TextChanged

Property

Property TextBox ==> ReadOnly=True

Property TextBox ==> Multiline=True

Property TextBox ==> Scrolbar=vertical

langkah-langkah membuat form atihan 08

1. Buat desaign seperti gambar dibawah ini:

  2. Setelah anda membuat desaign seperti gambar di atas, beri nama setiap object yang ada pada form tersebut kecuali object label. textbox yang berwarna putih tersebut berstatus input sedangkan yang berwarna gelap berstatus read only. setelah itu buatlah script seperti di bawah ini:

Public Class LAtihan_08_46110023
    Private Sub CERITA1()
        CRT1_46110023.Text = NS_46110023.Text & " adalah seorang siswa yang terbiasa hidup di perkotaan, dia tinggal di" & AS_46110023.Text & ". Karena ayah " & NS_46110023.Text & " dipindah tugaskan di sebuah pedesaan terpencil, maka " & NS_46110023.Text & " juga ikut pindah sekolah. Untungnya, di sekolah barunya " & NS_46110023.Text & " punya teman yang sangat baik yang bernama " & T1_46110023.Text & "tinggal di" & AT1_46110023.Text & ". sehingga " & NS_46110023.Text & " merasa betah. Di sekolah barunya, ternyata " & NS_46110023.Text & " ditaksir oleh salah seorang siswa yang sangat populer di sekolahnya yaitu " & T4_46110023.Text & ". " & T4_46110023.Text & " adalah ketua OSIS dan pemain basket terhebat di sekolah tersebut, dia tinggal di" & AT4_46110023.Text & ". Dan " & NS_46110023.Text & " juga naksir sama " & T4_46110023.Text & "."
    End Sub
    Private Sub CERITA2()
        CRT2_46110023.Text = " disekolah " & NS_46110023.Text & " ada seorang teman anak yang bernama " & T3_46110023.Text & ". " & T3_46110023.Text & " adalah orang yang sangat sombong. " & T3_46110023.Text & " memilki dua orang teman yang bernama " & T2_46110023.Text & " dan " & T5_46110023.Text & ". masing-masing tinggal di" & AT3_46110023.Text & AT5_46110023.Text & " Di sekolahnya, mereka dijuluki sebagai GENG ANGKUH."

    End Sub
    Private Sub CERITA3()
        CRT3_46110023.Text = T4_46110023.Text & " memiliki dua orang sudara yang bernama " & T2_46110023.Text & " dan " & T1_46110023.Text & ". Mereka bertiga sangat akur, kompak, dan sering jalan bareng."

    End Sub
    Private Sub CERITA4()
        CRT4_46110023.Text = NS_46110023.Text & " mempunyai dua orang sahabat. Lucunya, mereka hanya bersahabat lewat dunia maya yaitu dengan chatting lewat YM dan FB. Awalnya " & NS_46110023.Text & " mendapat alamat email " & T1_46110023.Text & " dari salah seorang temannya yang bernama " & T4_46110023.Text & ". Semenjak saai itulah mereka bersahabat walaupun hanya lewat dunia maya."

    End Sub

    Private Sub NS_46110023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NS_46110023.TextChanged
        CERITA1()
        CERITA2()
        CERITA3()
        CERITA4()
    End Sub

    Private Sub T1_46110023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T1_46110023.TextChanged
        CERITA1()
        CERITA2()
        CERITA3()
        CERITA4()
    End Sub

    Private Sub T2_46110023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T2_46110023.TextChanged
        CERITA1()
        CERITA2()
        CERITA3()
        CERITA4()
    End Sub

    Private Sub T3_46110023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T3_46110023.TextChanged
        CERITA1()
        CERITA2()
        CERITA3()
        CERITA4()
    End Sub

    Private Sub T4_46110023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T4_46110023.TextChanged
        CERITA1()
        CERITA2()
        CERITA3()
        CERITA4()
    End Sub

    Private Sub T5_46110023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T5_46110023.TextChanged
        CERITA1()
        CERITA2()
        CERITA3()
        CERITA4()
    End Sub

    Private Sub AS_46110023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AS_46110023.TextChanged
        CERITA1()
        CERITA2()
        CERITA3()
        CERITA4()
    End Sub

    Private Sub AT1_46110023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AT1_46110023.TextChanged
        CERITA1()
        CERITA2()
        CERITA3()
        CERITA4()
    End Sub

    Private Sub AT2_46110023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AT2_46110023.TextChanged
        CERITA1()
        CERITA2()
        CERITA3()
        CERITA4()
    End Sub


    Private Sub AT3_46110023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AT3_46110023.TextChanged
        CERITA1()
        CERITA2()
        CERITA3()
        CERITA4()
    End Sub

    Private Sub AT4_46110023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AT4_46110023.TextChanged
        CERITA1()
        CERITA2()
        CERITA3()
        CERITA4()
    End Sub

    Private Sub AT5_46110023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AT5_46110023.TextChanged
        CERITA1()
        CERITA2()
        CERITA3()
        CERITA4()
    End Sub
End Class

 3. Setelah itu, untuk menjalankan form tersebut, anda tinggal memasukkan nama anda dan teman-teman anda beserta alamatnya. Maka, 4 textbox yang berstatus read only tersebut  akan menampilkan cerita yang berbeda-beda dan menarik untuk anda baca.