Latihan_08_36110031

Tahap Penyelesaian Latihan_08_36110031

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. seperti pada gambar dibawah:

 

4.      Buat Form Latihan_08 dibawah ini:

 

5.      Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_08_36110031

   Private Sub cerita1()

Cerita1_36110031.Text = "Nama saya adalah " & Nsaya_36110031.Text & ". " & "saya punya teman bernama " & Nteman1_36110031.Text & ", " & "dia tinggal dijalan " & Ateman1_36110031.Text

    End Sub

   Private Sub cerita2()

Cerita2_36110031.Text = "Setiap hari minggu, saya selalu ke pantai sama teman saya. " & "Nama teman saya adalah " & Nteman2_36110031.Text & ". " & Nteman2_36110031.Text & " tinggal dijalan " & Ateman2_36110031.Text

   End Sub

   Private Sub cerita3()

Cerita3_36110031.Text = "Kemarin saya pergi ke acara ultah adik saya. " & "Nama adik saya " & Nteman3_36110031.Text & ", " & "Adik saya berulang tahun di Jalan " & Ateman3_36110031.Text

    End Sub

    Private Sub cerita4()

Cerita4_36110031.Text = Nteman4_36110031.Text & " adalah teman saya. " & " dia punya adik bernama " & Nteman5_36110031.Text & " dia tinggal bersama adiknya dijalan " & Ateman4_36110031.Text

    End Sub

    Private Sub Nsaya_36110031_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nsaya_36110031.TextChanged, Nteman1_36110031.TextChanged, Nteman2_36110031.TextChanged, Nteman3_36110031.TextChanged, Nteman4_36110031.TextChanged, Nteman5_36110031.TextChanged, Asaya_36110031.TextChanged, Ateman1_36110031.TextChanged, Ateman2_36110031.TextChanged, Ateman3_36110031.TextChanged, Ateman4_36110031.TextChanged, Ateman5_36110031.TextChanged

        cerita1()

        cerita2()

        cerita3()

        cerita4()

    End Sub

    Private Sub Close_36110031_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Close_36110031.Click

        Nsaya_36110031.Text = ""

        Nteman1_36110031.Text = ""

        Nteman2_36110031.Text = ""

        Nteman3_36110031.Text = ""

        Nteman4_36110031.Text = ""

        Nteman5_36110031.Text = ""

        Asaya_36110031.Text = ""

        Ateman1_36110031.Text = ""

        Ateman2_36110031.Text = ""

        Ateman3_36110031.Text = ""

        Ateman4_36110031.Text = ""

        Ateman5_36110031.Text = ""

        Cerita1_36110031.Text = ""

        Cerita2_36110031.Text = ""

        Cerita3_36110031.Text = ""

        Cerita4_36110031.Text = ""

    End Sub

End Class

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

 

7.      Kemudian simpan file tersebut dengan menekan icon “Save”

 

8.      Selesai.

   

Deskripsi Latihan_08_36110031

Form Latihan 08 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 Text Box

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:

Nsaya_36110031.Text = ""

Even

Close_36110031_Click

Property

Property TextBox  ==> ReadOnly = True