Latihan_08_46110045

Deskripsi :

Form 8 ada  3 object yaitu label, textbox, dan button.

Object Label : 

Ada 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 :  

Ada 16 textbox. Status input digunakan untuk menginput data. Status Read Only digunakan untuk menampilkan hasilnya.

Object button :

Terdapat 1 buah button yaitu Close yang berfungsi untuk menutup window dari form.

Cara membuat form 8 :

Masukkan rumus seperti ini

Public Class Latihan_08_46110045
    Private Sub CERITA1()
        cerita146110045.Text = "Nama saya adalah " & sy46110045.Text & " saya tinggal di " & alt46110045Text & " saya mempunyai teman karib yang bernama " & tm146110045.Text & " dia sudah lama tinggal di " & alt146110045.Text
    End Sub
    Private Sub CERITA2()
        cerita246110045.Text = "Saya mempunyai teman-teman yang selalu setia menemani saya kemanapun saya pergi mereka adalah " & tm246110045.Text & " dan " & tm346110045.Text & "mereka bertempat tinggal di " & alt246110045.Text & " dan " & alt346110045.Text & "." & "kami tidak pernah terpisahkan."
    End Sub
    Private Sub CERITA3()
        cerita346110045.Text = "di bangku SMA saya mempunyai sahabat yang bernama " & tm446110045.Text & " dia tinggal di " & alt446110045.Text & ", dia baik sekali kepada saya."
    End Sub
    Private Sub CERITA4()
        cerita446110045.Text = tm546110045.Text & " adalah teman sewaktu saya kecil , dia tinggal di " & alt546110045.Text & ". Kami tidak pernah berjumpa lagi karena dia sekarang ada di pulau jawa."
    End Sub

    Private Sub sy46110045_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sy46110045.TextChanged
        CERITA1()
    End Sub

    Private Sub alt46110045_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles alt46110045.TextChanged
        CERITA1()
    End Sub

    Private Sub t146110045_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t146110045.TextChanged
        CERITA1()
    End Sub

    Private Sub alt146110045_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles alt146110045.TextChanged
        CERITA1()
    End Sub

    Private Sub tm246110045_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tm246110045.TextChanged
        CERITA2()
    End Sub

    Private Sub alt246110045_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles alt246110045.TextChanged
        CERITA2()
    End Sub

    Private Sub tm346110045_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tm346110045.TextChanged
        CERITA2()
    End Sub

    Private Sub alt346110045_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles alt346110045.TextChanged
        CERITA2()
    End Sub

    Private Sub tm446110045_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tm446110045.TextChanged
        CERITA3()
    End Sub

    Private Sub alt446110045_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles alt446110045.TextChanged
        CERITA3()
    End Sub

    Private Sub tm546110045_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tm546110045.TextChanged
        CERITA4()
    End Sub

    Private Sub alt546110045_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles alt546110045.TextChanged
        CERITA4()
    End Sub

    Private Sub close46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles close46110045.Click
        cerita146110045.Text = ""
        cerita246110045.Text = ""
        cerita346110045.Text = ""
        cerita446110045.Text = ""
        sy46110045.Text = ""
        tm146110045.Text = ""
        tm246110045.Text = ""
        tm346110045.Text = ""
        tm446110045.Text = ""
        tm546110045.Text = ""
        alt46110045.Text = ""
        alt146110045.Text = ""
        alt246110045.Text = ""
        alt346110045.Text = ""
        alt446110045.Text = ""
        alt546110045.Text = ""
    End Sub

End Class

Even :

Textchanged.

Script unique :

Private Sub close46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles close46110045.Click  => maksudnya adalah procedure yang digunakan untuk menghapus atau menutup window pada form.

Langkah-langkah menjalankan form 8 :

1. Isilah textbox nama anda, alamat anda, teman-teman anda beserta alamatnya masing-masing.

2. Secara otomatis cerita akan muncul dengan sendirinya.

3. Klik close jika anda ingin menghapus cerita yang ada.