latihan_08_36110040

Form Latihan_08_36110040 Terdapat tiga object yaitu label, textbox, dan button:

Object Label

Terdapat dua belas label (yang bertuliskan Nama, Alamat, Anda, Teman 1, Teman 2, Teman 3, Teman 4, Teman 5, Cerita 1, Cerita 2, Cerita 3, Cerita 4)

Object  Textbox

Terdapat enam belas textbox (dua belas status input; empat status read only). Status input digunakan untuk memasukkan nilai yang akan diperhitungkan. Sedangkan status ReadOnly digunakan untuk menghasilkan angka-angka yang telah di input.

Object Button

Terdapat satu object button yaitu Close yang dimana digunakan untuk mengosongkan kembali kolom TextBox.

Script Unique

Untuk Button Close:

A36110040.Text = ""

Even

Close_36110031_Click

Property

Property TextBox ==> ReadOnly=True

Tahap Penyelesaian Latihan_08_36110040

1.      Buka Project yang telah dibuat, lalu buka solution Explorer

2.      Setelah itu klik kanan nama project, pilih add dan klik “new item”

3.      Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_08 dan add.

4.      Buat Form Latihan_08 dibawah ini:

 5.      Berikut ini Rumus untuk menjalankan Form diatas:

Public Class LATIHAN_08_36110040

    Private Sub A36110040_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles alamat36110040.TextChanged, a36110040.TextChanged, alamat136110040.TextChanged, t1_36110040.TextChanged, alamat236110040.TextChanged, t2_36110040.TextChanged, alamat336110040.TextChanged, t3_36110040.TextChanged, alamat436110040.TextChanged, t4_36110040.TextChanged, alamat536110040.TextChanged, t5_36110040.TextChanged

        rahmi1()

        rahmi2()

        RAHMI3()

        RAHMI4()

    End Sub

    Private Sub rahmi1()

        cer1_36110040.Text = "NAMA SAYA ADALAH " & a36110040.Text & " SAYA TINGGAL DI " & alamat36110040.Text & "SAYA HANYA SUKA MAKAN DAN TIDUR"

    End Sub

    Private Sub rahmi2()

        cer2_36110040.Text = "SAYA PUNYA TEMAN YANG BERNAMA " & t1_36110040.Text & " DAN " & t2_36110040.Text & ".MEREKA TINGGAL  DI " & alamat136110040.Text & "." & alamat236110040.Text & ". MEREKA SAHABAT KARIBKU"

    End Sub

    Private Sub RAHMI3()

        cer3_36110040.Text = "SAYA  JUGA PUNYA TEMAN YANG BERNAMA " & t3_36110040.Text & " DAN " & t4_36110040.Text & ". MEREKA TINGGAL DI " & alamat436110040.Text & "." & alamat536110040.Text & ". MEREKA ITU SEPERTI TOM AND JERRY....HAHAHAHA"

    End Sub

    Private Sub RAHMI4()

        cer4_36110040.Text = "SELAIN MEREKA,ADA 1 LAGI TEMAN SAYA YANG PALING CANTIK, YAITU " & t5_36110040.Text & "DIA SANGAT CANTIK. AKAN DIA SANGATT OON DAN POLOS. DIA TINGGAL DI " & alamat536110040.Text & ". INI CERITAKU MANA CERITAMU"

    End Sub

    Private Sub close_36110040_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles close_36110040.Click

        a36110040.Text = ""

        t1_36110040.Text = ""

        t2_36110040.Text = ""

        t3_36110040.Text = ""

        t4_36110040.Text = ""

        t5_36110040.Text = ""

        alamat36110040.Text = ""

        alamat136110040.Text = ""

        alamat236110040.Text = ""

        alamat336110040.Text = ""

        alamat436110040.Text = ""

        alamat536110040.Text = ""

        cer1_36110040.Text = ""

        cer2_36110040.Text = ""

        cer3_36110040.Text = ""

        cer4_36110040.Text = ""

    End Sub

End Class

6.      Setelah itu jalankan Programnya dengan menekan “start debugging”

7.      Kemudian simpan file tersebut dengan menekan icon SAVE