Latihan_02_36110034

Deskripsi penyelesaian

Form Latihan_02_36110034  terdapat tiga object yaitu Label, Textbox, dan Button:

Object Label

Terdapat sembilan label : (ceritaku yang menarik ; nama saya ; alamat sekrang ; nama ayah ; nama ibu ; teman terbaik di SD ; teman terbaik di SMP ; teman terbaik di SMA ; teman terbaik di politeknik ).

Object Text Box

Terdapat sembilan textbox (delapan status input; satu status read only). Status input digunakan untuk memasukkan nilai .

Status input (nama saya ; alamat sekrang ; nama ayah ; nama ibu ; teman terbaik di SD ; teman terbaik di SMP ; teman terbaik di SMA ; teman terbaik di politeknik ).dan readonly digunakan untuk memperlihatkan hasil “KISAHKU”.

Object Button

Terdapat dua object button (kisahku dan sekian). Tombol kisahku digunakan untuk menampilkan hasil input data-data dari object TextBox yang berstatus input .

Sedangkan sekian digunakan untuk mengosongkan data-data semua TextBox.

Script Unique 

Buttom "kisahku"

      INPUT_36110034.Text = "Nama saya adalah" & ns_36110034.Text & ", " & "saya adalah cowok/cewek berusia 20 Tahun," & " sekarang ini saya tinggal di " & as_36110034.Text & "." & "Orang tua saya bernama" & na_36110034.Text & "dan" & ni_36110034.Text & "," & " mereka berdua mengharapkan saya untuk tetap belajar keras demi masa depan yang lebih baik." & "Saya telah mengenyam pendidikan selama puluhan tahun mulai dari sekolah dasar hingga di Politeknik," & " selama mengenyam pendidikan tersebut saya memiliki beberapa teman terbaik." & "Di sekolah dasar saya memiliki teman yang sangat baik bernama" & TSD_36110034.Text & "," & " setelah lulus di sekolah dasar " & TSD_36110034.Text & "melanjutkan pendidikan di sekolah yang berbeda dengan saya," & " saya melanjutkan pendidikan di SLTP Favorit dan" & TSD_36110034.Text & "pindah ke Jakarta." & "Di SLTP tempat saya belajar terdapat teman yang selalu membantu memberi saya semangat hingga saya lulus sama-sama di sekolah," & " namanya adalah" & TSLTP_36110034.Text & "." & "Setelah selesai di SLTP kami sama-melanjutkan di sebuah SLTA," & " namun ketika di SLTA si" & TSLTP_36110034.Text & " memilih Jurusan IPA dan saya sendiri di jurusan IPS," & " di kelas saya terdapat seorang perempuan yang sangat pintar dan orangnya baik pada saya namanya adalah" & TSLTA_36110034.Text & " ," & " dia tidak pernah tidak menduduki peringkat I." & "Di Politeknik juga ada teman baik mesti tidak satu kelas dengan saya," & " namanya ialah " & TPOLI_36110034.Text & "." & "Hingga semester ini saya masih berteman baik dengan si" & TPOLI_36110034.Text & "."

Buttom "sekian"
            ns_36110034.Text = ""

        as_36110034.Text = ""

        na_36110034.Text = ""

        ni_36110034.Text = ""

        TSD_36110034.Text = ""

        TSLTP_36110034.Text = ""

        TSLTA_36110034.Text = ""

        TPOLI_36110034.Text = ""

        INPUT_36110034.Text = ""

Even

kisahku_36110034_Clik

sekian_36110034_Click

Property

Property TextBox ==> ReadOnly=True

Prosedur penyelesaian

1.   buka project yang telah dibuat sebelumnya klik add new item => add windows form => ganti nama project => add.

 

2.   membuat form dengan menggunakan Label, Textbox, dan Button yang ada dalam "Toolbox”.

 

3.   ganti nama textbox dan button menggunakan "Properties Window".

4.   Klik 2x pada kotak design untuk membuka lembar vb
 Masukkan rumus berikut untuk menyelesaikan latihan_02_36110034.

     Public Class latihan_02_36110034

    Private Sub KISAH_36110034_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KISAH_36110034.Click

        INPUT_36110034.Text = "Nama saya adalah" & ns_36110034.Text & ", " & "saya adalah cowok/cewek berusia 20 Tahun," & " sekarang ini saya tinggal di " & as_36110034.Text & "." & "Orang tua saya bernama" & na_36110034.Text & "dan" & ni_36110034.Text & "," & " mereka berdua mengharapkan saya untuk tetap belajar keras demi masa depan yang lebih baik." & "Saya telah mengenyam pendidikan selama puluhan tahun mulai dari sekolah dasar hingga di Politeknik," & " selama mengenyam pendidikan tersebut saya memiliki beberapa teman terbaik." & "Di sekolah dasar saya memiliki teman yang sangat baik bernama" & TSD_36110034.Text & "," & " setelah lulus di sekolah dasar " & TSD_36110034.Text & "melanjutkan pendidikan di sekolah yang berbeda dengan saya," & " saya melanjutkan pendidikan di SLTP Favorit dan" & TSD_36110034.Text & "pindah ke Jakarta." & "Di SLTP tempat saya belajar terdapat teman yang selalu membantu memberi saya semangat hingga saya lulus sama-sama di sekolah," & " namanya adalah" & TSLTP_36110034.Text & "." & "Setelah selesai di SLTP kami sama-melanjutkan di sebuah SLTA," & " namun ketika di SLTA si" & TSLTP_36110034.Text & " memilih Jurusan IPA dan saya sendiri di jurusan IPS," & " di kelas saya terdapat seorang perempuan yang sangat pintar dan orangnya baik pada saya namanya adalah" & TSLTA_36110034.Text & " ," & " dia tidak pernah tidak menduduki peringkat I." & "Di Politeknik juga ada teman baik mesti tidak satu kelas dengan saya," & " namanya ialah " & TPOLI_36110034.Text & "." & "Hingga semester ini saya masih berteman baik dengan si" & TPOLI_36110034.Text & "."

    End Sub

   

    Private Sub SEKIAN_36110034_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SEKIAN_36110034.Click

        ns_36110034.Text = ""

        as_36110034.Text = ""

        na_36110034.Text = ""

        ni_36110034.Text = ""

        TSD_36110034.Text = ""

        TSLTP_36110034.Text = ""

        TSLTA_36110034.Text = ""

        TPOLI_36110034.Text = ""

        INPUT_36110034.Text = ""

    End Sub

End Class

7. Jalankan program dengan “start debugging”.

 

8. Selesai.