Deskripsi Penyelesaian Latihan_08_36110041

Deskripsi Penyelesaian

Latihan_08_36110041

A.     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 dan empat status read only). Status input digunakan untuk memasukkan data Nama, Alamat, Anda, Teman 1, Teman 2, Teman 3, Teman 4, Teman 5. Status Read Only digunakan untuk menampilkan hasil Cerita 1, Cerita 2, Cerita 3, Cerita 4 dari hasil pengimputan data.

Ø  Object Button

Terdapat satu object button (Close) yang digunakan untuk mengosongkan data pada semua TextBox.

B.     Script Unique 

Untuk Buttom "Close"
NA_36110041.Text = ""

NT1_36110041.Text = ""

NT2_36110041.Text = ""

NT3_36110041.Text = ""

NT4_36110041.Text = ""

NT5_36110041.Text = "")

       

C.     Even

RIZKA()

CLOSE_36110041_Click

D.     Property

Property TextBox ==> ReadOnly=True

Prosedur penyelesaian

1.      Buka Project yang telah dibuat sebelumnya klik Add New Item è Add Windows Form

 

2.      Kemudian beri nama dan klik Add

3.      buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.

      4.    Berikut ini adalah rumus untuk menjalankan form di atas

Public Class latihan_08_36110041

    Private Sub RIZKA()

        C1_36110041.Text = "NAMA SAYA " & NA_36110041.Text & "SAYA TINGGAL DI " & AA_36110041.Text & "." & " SAAT SAYA SD SAYA BERTEMAN DENGAN " & NT1_36110041.Text & "," & " DIA TINGGAL DI " & AT1_36110041.Text & "SAAT SAYA SMP SAYA BERTEMAN DENGAN " & NT2_36110041.Text & " DIA TINGGAL DI " & AT1_36110041.Text & " SELAIN " & NT2_36110041.Text & "SAYA JUGA BERTEMAN DENGAN " & NT3_36110041.Text & " YANG TINGGAL DI " & AT3_36110041.Text & "." & " SAAT SAYA SMA SAY BERTEMAN DENGAN " & NT4_36110041.Text & " YANG TINGGAL DI " & AT4_36110041.Text & " DIA MEMPUNYAI SEPUPU YANG JUGA MENJADI TEMAN SAYA NAMANYA " & NT5_36110041.Text & " DIA TINGGAL DI " & AT5_36110041.Text

        C2_36110041.Text = "HAI PERKENALKAN NAMA SAYA " & NA_36110041.Text & " HMM AKU TINGGAL DI KOTA MAKASSAR TEPATNYA " & AA_36110041.Text & "." & "SAYA MEPUNYAI TEMAN YANG TINGGAL DI " & AT1_36110041.Text & " NAMANYA " & NT1_36110041.Text & "," & " DIA PUNYA SEPUPU YANG MASIH SEK0LAH DI SLTA NAMANYA " & NT2_36110041.Text & " DIA TINGGAL TIDAK JAUH YAITU DI " & AT2_36110041.Text & "." & " SAYA JUGA MEMILIKI TEMAN YANG TINGGAL DI " & AT3_36110041.Text & " NAMANYA " & NT3_36110041.Text & " DIA PUNYA ADIK YANG TINGGAL DI RUMAH NENEKNYA YAITU DI " & AT4_36110041.Text & " NAMANYA " & NT4_36110041.Text & "." & "OH IYA SAYA PUNYA DULU SAYA PUNYA TETANGGA YG SANGAT RESEH NAMANYA " & NT5_36110041.Text & " TAPI UNTUNGLAH DIA SUDAH PINDAH DI DAERAH " & AT5_36110041.Text & "SAMPAI DISINI DULU KLO MASIH MAU LANJUT BACA AJA CERITA 3" & "."

        C3_36110041.Text = " HMMM KETEMU LAGI MASIH INGAT SAYA KAN? YANG TINGGAL DI " & AA_36110041.Text & NA_36110041.Text & "." & " AYA MAU CERITA NIH TENTANG TEMAN BARU SAYA" & "," & " NAMANYA " & NT1_36110041.Text & "DIA TINGGAL DI " & AT1_36110041.Text & " OH IYA DIA PUNYA TEMAN NAMANYA " & NT2_36110041.Text & "DIA TINGGAL DI " & AT2_36110041.Text & "TEMANNYA PUNYA TEMAN YANG NAMANYA " & NT3_36110041.Text & " TEMANNYA TINGGAL DI " & AT3_36110041.Text & "." & " OH IYA TEMAN TEMANNYA " & NT2_36110041.Text & " JUGA PUNYA TEMAN YANG NAMANYA " & NT4_36110041.Text & " YANG TINGGAL DI " & AT4_36110041.Text & "DIA PUNYA SEPUPU YANG BERNAMA " & NT5_36110041.Text & " YANG TINGGAL DI " & AT5_36110041.Text & "."

        C4_36110041.Text = "PERKENALKAN NAMA SAYA " & NA_36110041.Text & " SAYA BERTEMPAT TINGGAL DI " & AA_36110041.Text & "," & " SAYA PUNYA TEMAN YANG NAMANYA " & NT1_36110041.Text & " KATANYA DIA TINGGAL DI " & AT1_36110041.Text & " SELAIN " & NT1_36110041.Text & " SAYA JUGA BERTEMAN DENGAN " & NT2_36110041.Text & " YANG TINGGAL DI " & AT2_36110041.Text & "," & NT3_36110041.Text & " YANG TINGGAL DI " & AT3_36110041.Text & ", " & NT4_36110041.Text & "YANG TINGGAL DI " & AT4_36110041.Text & "," & "DAN " & NT5_36110041.Text & " YANG TINGGAL DI " & AT5_36110041.Text & "ITU SAJA YANG BISA SAYA CERITA SMPAI NANTI" & "."

    End Sub

    Private Sub CLOSE_36110041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CLOSE_36110041.Click

        NA_36110041.Text = ""

        NT1_36110041.Text = ""

        NT2_36110041.Text = ""

        NT3_36110041.Text = ""

        NT4_36110041.Text = ""

        NT5_36110041.Text = ""

        AA_36110041.Text = ""

        AT1_36110041.Text = ""

        AT2_36110041.Text = ""

        AT3_36110041.Text = ""

        AT4_36110041.Text = ""

        AT5_36110041.Text = ""

    End Sub

    Private Sub NA_36110041_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NA_36110041.TextChanged, AA_36110041.TextChanged, NT1_36110041.TextChanged, AT1_36110041.TextChanged, NT2_36110041.TextChanged, AT2_36110041.TextChanged, NT3_36110041.TextChanged, AT3_36110041.TextChanged, NT4_36110041.TextChanged, AT4_36110041.TextChanged, NT5_36110041.TextChanged, AT5_36110041.TextChanged

        RIZKA()

    End Sub

End Class