latihan_08_46110004

Deskripsi form latihan 08
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 sambungan kata dari textbox yang berstatus input sehingga akan menghasilkan sebuah cerita yang berbeda beda dan 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 penyelesaian form latihan 8:

1.Buat desaign seperti gambar dibawah ini:

 2. Setelah anda membuat desaign seperti gambar di atas, berilah nama setiap object yang ada pada form tersebut keculi object label. Perlu diingat kembali bahwa 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_46110004
    Private Sub cerita1()
        C1_46110004.Text = "Nama saya adalah " & A_46110004.Text & ". Saya adalah mahasiswa akuntansi politeknik negeri ujungpandang. Saya tinggal di " & Al_46110004.Text & "  dan memiliki dua orang sahabat yang bernama " & T1_46110004.Text & " dan " & T2_46110004.Text & "." & T1_46110004.Text & " tinggal di " & Al1_46110004.Text & ". Sedangkan " & T2_46110004.Text & " bertempat tinggal di " & Al2_46110004.Text & ". Mereka adalah teman-teman terbaik yang saya miliki di kampus."

    End Sub

    Private Sub cerita2()
        C2_46110004.Text = T3_46110004.Text & " adalah anak yang termasuk pintar khususnya pada mata kuliah aplikasi komputer. Dia selalu menjadi orang yang paling pertama menyelesaikan tugas yang diberikan oleh dosen. Selain itu " & T3_46110004.Text & " merupakan anak dari salah satu dosen yang ada di poltek. Ia tinggal di " & Al3_46110004.Text & " sedangkan " & T4_46110004.Text & " adalah anak yang malas mangikuti perkuliahan. Hanya mata kuliah tertentu saja yang ia ikuti, sementara mata kuliah lainnya sering diabaikan olehnya. Hampir setiap hari " & T4_46110004.Text & "dinasehati oleh teman lainnya yang bernama " & T5_46110004.Text & ". Dia adalah ketua kelas kami. Dia juga termasuk mahasiswa berprestasi di poltek, berbagai prestasi telah ia sumbangkan ke kampus tercinta ini. Selain itu, ia juga merupakan anak yang ramah, baik hati dan suka menolong teman yang kesulitan. " & T5_46110004.Text & " bertempat tinggal di " & Al5_46110004.Text & ",tak jauh dari pusat kota Makassar"
    End Sub

    Private Sub cerita3()
        C3_46110004.Text = "Saya dan " & T4_46110004.Text & "adalah tetangga. Kami sering berangkat ke kampus sama-sama.  Akan tetapi, sesampainya di kampus," & T4_46110004.Text & " sering tidak masuk kelas dan malah lebih memilih nongkrong di kantin. Kami ini merupakan teman sejak dari kecil. Pada dasarnya " & T4_46110004.Text & "merupakan anak yang pintar. Akan tetapi, dia terpengaruh oleh pengaruh lingkungan sehingga ia menjadi anak yang malas. Sewaktu masih di bangku SMA dulu, " & T4_46110004.Text & "sering mewakili sekolah kami lomba matematika dan debat bahasa inggris. Selain itu, ia juga berprestasi di bidang olahrga. Ia adalah kapten tim sepakbola sekolah kami. Tim sepakbola kami termasuk tim yang kuat di antara tim-tim yang ada di daerah kami."
    End Sub

    Private Sub cerita4()
        C4_46110004.Text = "Lain lagi cerita tiga orang teman saya yang lainnya yakni " & T1_46110004.Text & ", " & T2_46110004.Text & " dan " & T5_46110004.Text & ". Mereka sangat senang berorganisasi. Hampir tiap hari mereka mendiskusikan peristiwa-peristiwa yang sedang ramai dibicarakan oleh orang-orang. Hampir semua organisasi kemahasiswaan mereka ikuti karena kesenangan mereka berorganisasi. Bahkan tidak jarang pula mereka turun ke jalan melakukan aksi demonstrasi bersama teman mahasiswa lainnya. Satu hal yang sangat saya kagumi dari mereka adalah meskipun sibuk berorganisasi, mereka masih tetap memperhatikan tugas utama mereka sebagai seorang mahasiswa. "

    End Sub


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


    Private Sub T1_46110004_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles T1_46110004.TextChanged
        cerita1()
        cerita4()
    End Sub


    Private Sub T2_46110004_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles T2_46110004.TextChanged
        cerita1()
        cerita4()
    End Sub


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



    Private Sub T4_46110004_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles T4_46110004.TextChanged
        cerita2()
        cerita3()
    End Sub

    Private Sub T5_46110004_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles T5_46110004.TextChanged
        cerita2()
        cerita4()
    End Sub


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

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

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


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


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

    Private Sub c46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles c46110004.Click
        End
    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.

 4. Langkah selanjutnya adalah "Selamat Mencoba"