Latihan_08_46110007

A. Langkah-Langkah Penyelesaian Form Latihan_08
·  Buka project yang telah dibuat sebelumnya. 
·  Click project kemudian pilih add windows form, seperti pada gambar dibawah ini



·  Ketik nama form "Latihan_08_46110007" pada name kemudian click add 
 

·  Buat form seperti berikut  





·  Setelah form selesai masukkan rumus seperti dibawah ini  
Public Class Latihan_08_46110007
    Private Sub C1()
        C1_46110007.Text = "Nama saya " & ANDA_46110007.Text & " saya tinggal di " & ALAMAT_46110007.Text & " saya mempunyai teman akrab, hampir setiap saat kami bersama dia bernama bernama " & T1_46110007.Text & " dia tinggal di " & AL1_46110007.Text
    End Sub
    Private Sub C2()
        C2_46110007.Text = "Saya juga mempunyai sahabat baik mereka selalu ada kapanpun itu, mereka adalah " & T2_46110007.Text & " dan satu lagi " & T3_46110007.Text & "mereka tinggal di " & AL2_46110007.Text & " dan " & AL3_46110007.Text & "." & "kami dari kelas dan ekskul yang sama."
    End Sub
    Private Sub C3()
        C3_46110007.Text = "Sewaktu liburan saya bertemu dengan teman lama saya dia bernama " & T4_46110007.Text & " dia tinggal di " & AL4_46110007.Text & ", dia sangat ramah dan baik pada semua orang."
    End Sub
    Private Sub C4()
        C4_46110007.Text = T5_46110007.Text & " adalah tetangga saya sewaktu kecil, saat ini dia tidak lagi menjadi tetangga saya, sekarang dia tinggal di " & AL5_46110007.Text & ". Dulu kami sering menghabiskan waktu bersama."
    End Sub

    Private Sub ANDA_46110007_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ANDA_46110007.TextChanged
        C1()
    End Sub

    Private Sub ALAMAT_46110007_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ALAMAT_46110007.TextChanged
        C1()
    End Sub

    Private Sub T1_46110007_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles T1_46110007.TextChanged
        C1()
    End Sub

    Private Sub AL1_46110007_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles AL1_46110007.TextChanged
        C1()
    End Sub

    Private Sub T2_46110007_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles T2_46110007.TextChanged
        C2()
    End Sub

    Private Sub AL2_46110007_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles AL2_46110007.TextChanged
        C2()
    End Sub
    Private Sub T3_46110007_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles T3_46110007.TextChanged
        C2()
    End Sub

    Private Sub AL3_46110007_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles AL3_46110007.TextChanged
        C2()
    End Sub

    Private Sub T4_46110007_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles T4_46110007.TextChanged
        C3()
    End Sub

    Private Sub AL4_46110007_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles AL4_46110007.TextChanged
        C3()
    End Sub

    Private Sub T5_46110007_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles T5_46110007.TextChanged
        C4()
    End Sub

    Private Sub AL5_46110007_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles AL5_46110007.TextChanged
        C4()
    End Sub

    Private Sub CLOSE_46110007_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CLOSE_46110007.Click
        C1_46110007.Text = ""
        C2_46110007.Text = ""
        C3_46110007.Text = ""
        C4_46110007.Text = ""
        ANDA_46110007.Text = ""
        ALAMAT_46110007.Text = ""
        T1_46110007.Text = ""
        T2_46110007.Text = ""
        T3_46110007.Text = ""
        T4_46110007.Text = ""
        T5_46110007.Text = ""
        AL1_46110007.Text = ""
        AL2_46110007.Text = ""
        AL3_46110007.Text = ""
        AL4_46110007.Text = ""
        AL5_46110007.Text = ""
    End Sub
End Class

·  Untuk menjalankan form tekan F5 


B. Deskripsi Form Latihan 08
Pada form latihan 08 ada 3 object yang digunakan yaitu label, textbox dan button.

Object Label
Terdapat 12 label pada form latihan 08 (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 form ini ada 16 textbox yang digunakan (12 status input dan 4 status readonly). Status input digunakan untuk memasukkan data sedangkan readonly akan menampilkan hasil analisa setelah data di input ke textbox yang berstatus input.

Object Button                                                                
Terdapat 1 object button (close). Tombol close digunakan untuk kembali ke tampilan awal program atau menghapus data hasil analisa dan data yang telah diinput.

Script Unique
Membuat call prosedur yang berisi penggabungan kata/teks dari beberapa textbox.

Private Sub C1()
    C1_46110007.Text = "Nama saya " & ANDA_46110007.Text & " saya tinggal di " & ALAMAT_46110007.Text & " saya mempunyai teman akrab, hampir setiap saat kami bersama dia bernama bernama " & T1_46110007.Text & " dia tinggal di " & AL1_46110007.Text
End Sub

Even
ButtonClick
Textchanged

Property
Property TextBox =>              ReadOnly = True
                                                Multiline = True
                                                Scrollbar = Vertical

Langkah-Langkah Menjalankan Form Latihan 08
  1. Input nama dan alamat pada textbox yang yang telah tersedia. Secara otomatis textbox berstatus readonly (cerita 1, 2, 3 dan 4) akan terisi cerita berdasarkan nama dan alamat yang telah diinput.
  2.  Klik tombol “close” untuk kembali ke tampilan awal program atau menghapus data pada textbox input dan readonly.
  3.  Selamat mencoba (:


Label: edit post
0 Responses

Posting Komentar

Langganan: Posting Komentar (Atom)