Latihan_8_36110052

Latihan_08_36110052

A.   Object-object dalam Latihan_08_36110052 :

1.     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, dan cerita 4).

2.   Object Textbox

    Terdapat enam belas textbox (dua belas status input; empat status read only). Status input digunakan untuk memasukkan nilai yang akan dimasukkan dalam perhitungan. Status Read Only digunakan untuk menampilkan hasil perhitungan dari angka-angkat yang sudah diinput.

3.  Object Button

    Terdapat satu object button (Close). Button Close digunakan untuk mengosongkan kembali semua TextBox.

B.     Script Unique

  Untuk button Close

    CLOSE_36110052.Text = ""

C.       Even

   CLOSE_36110052­_Click

   TextBox1_36110052_TextChanged

D.        Property

   Property TextBox ==> ReadOnly=True

Langkah-langkah kerja  latihan_8_36110052

1.      Buat new windows form dengan cara ketik project àadd windows form  pada project yang telah dibuat dan berikan nama form yang diinginkan

Contoh: latihan_8_36110052

2.      Design form dengan menggunakan tools pada toolbox

3.      Buat  12 label dengan menggunakan toolbox dan ubah text setiap label tersebut,text setiap label dapat dilihat pada gambar diatas dimulai dari nama,alamat,anda,teman1, dst.

4.      Buat 12 textbox dan berikan nama masing-masing textbox tersebut,contoh saya berikan nama:

Textbox1_36110052 sampai textbox12_36110052

5.      Buat 4 lagi textbox tetapi ubah statusnya menjadi read only, caranya klik kanan àproperties àcari kalimat read only dan ubah statusnya menjadi false

6.      Ubah juga scroolbar ke-4 textbox diatas menjadi vertical dan berikan nama masing-masing textbox diatas. Contoh saya berikan nama CERITA1_36110052, CERITA2_36110052, CERITA3_36110052, CERITA4_36110052

7.      Buat satu button dan ubah textnya menjadi close

8.      Berikan nama button tersebut,contoh saya berikan nama close_36110052

9.      Setelah selesai form, masuk ke lembar Vb dan masukkan script

Private Sub VIA1()

        CERITA1_36110052.Text = " NAMA SAYA ADALAH " & TextBox1_36110052.Text & " SEKARANG INI SAYA TINGGAL DI MAKASSAR TEPATNYA DI " & TextBox7_36110052.Text & "." & " DI SINI SAYA TINGGAL TANPA ORANG TUA KARENA ORANG TUA SAYA SEKARANG ADA DI TORAJA " & "." & "SAYA MULAI TINGGAL DI SINI SEMENJAK SAYA MULAI KULIAH DI POLITEKNIK NEGERI UJUNG PANDANG " & "." & " AWAL HARUS TINGGAL D SINI TANPA ORANG TUA SANGAT BERAT KARENA DARI AWAL SAYA TIDAK PERNAH JAUH DARI ORANG TUA " & "." & " TETAPI " & "," & " JIKA HARUS BERMANJA-MANJA DAN SELALU MENGHARAPKAN ORANG TUA SAYA BERFIKIR KAPAN SAYA BISA MANDIRI KARENA ITULAH MULAI SEKARANG SAYA HARUS MANDIRI " & " ALASAN KEDUA SAYA MASIH BISA BERTAHAN SAMPE SEKARANG KARENA SAYA MELIHAT BANYAK TEMAN-TEMAN SAYA YANG JUGA MENGALAMI NASIB YANG SAMA SEPERTI SAYA " & "." & " CONTOHNYA " & TEXTBOX2_36110052.Text & " DIA TINGGAL DI DAERAH " & TextBox8_36110052.Text & " DAN JUGA " & TextBox3_36110052.Text & " YANG TINGGAL SANGAT JAUH DARI ORANG TUANYA KARENA ORANG TUANYA ADA DI KALIMANTAN DAN DIA HARUS KULIAH DI MAKASSAR " & "." & " SAAT INI DIA TINGGAL DI " & TextBox9_36110052.Text & " BEDA DENGAN TEMAN SAYA YANG BERNAMA " & TextBox3_36110052.Text & " DIA MASIH BERUNTUNG DARI KAMI SEMUA KARENA IA MASIH TINGGAL BERSAMA ORANG TUANYA DI " & TextBox9_36110052.Text & "." & " KETIGA TEMAN SAYA YANG LAIN JUGA TINGGAL JAUH DARI ORANG TUA MISALNYA " & TextBox4_36110052.Text & " DIA TINGGAL DI " & TextBox10_36110052.Text & " DAN " & TextBox5_36110052.Text & " YANG JUGA TINGGAL DI " & TextBox11_36110052.Text & " RUMAH MEREKA BERDEKATAN " & "." & " ADA JUGA TEMAN SAYAYANG TINGGAL BERSAMA SANAK SAUDARANYA YANG ADA D MAKASSAR " & "." & " CONTOHNYA  " & TextBox5_36110052.Text & "YANG TINGGAL DI " & TextBox12_36110052.Text & "."

    End Sub

    Private Sub VIA2()

        CERITA2_36110052.Text = " NAMA SAYA ADALAH " & TextBox1_36110052.Text & " SAAT INI SAYA BERUMUR 15 TAHUN " & "." & " SAYA SEKARANG KULIAH DI POLITEKNIL NEGERI UJUNG PANDANG JURUSAN AKUNTANSI " & "." & " SAYA TINGGAL DI " & TextBox7_36110052.Text & " TEMAN SAYA BERNAMA " & TEXTBOX2_36110052.Text & " SAAT DIA BERUMUR 15 TAHUN " & "." & " KULIAH DI POLITEKNIL NEGERI UJUNG PANDANG JURUSAN AKUNTANSI " & "." & " DI TINGGAL DI " & TextBox8_36110052.Text & "TEMAN SAYA YANG LAIN BERNAMA " & TextBox3_36110052.Text & " SAAT INI DIA BERUMUR 20 TAHUN " & " SAYA SEKARANG KULIAH DI POLITEKNIL NEGERI UJUNG PANDANG JURUSAN AKUNTANSI " & "." & " DIA TINGGAL DI " & TextBox9_36110052.Text & " TEMAN SAYA YANG LAIN BERNAMA " & TextBox4_36110052.Text & " DIA KULIAH DI UNIVERISITAS MUSLIM INDONESIA JURUSAN KEDOKTERAN " & "." & " SAAT INI DIA TINGGAL BERSAMA DENGAN KAKAK-KAKAKNYA YANG JUGA KULIAH DAN BEKERJA DI DAERAH YANG SAMA " & "." & " DIA TINGGAL DI " & TextBox10_36110052.Text & "," & " SELAIN KELUARGANYA " & TextBox4_36110052.Text & " JUGA TINGGAL DENGAN DUA TEMAN SAYA YANG LAIN YANG BERNAMA " & TextBox5_36110052.Text & " DAN " & TextBox6_36110052.Text & "." & " AWALNYA " & TextBox5_36110052.Text & " TINGGAL DI " & TextBox11_36110052.Text & " DAN " & TextBox6_36110052.Text & " TINGGAL DI " & TextBox12_36110052.Text & " TETAPI KARENA MEREKA TIDAK BETAH AKHIRNYA MEREKA MEMILIH TINGGAL BERSAMA-SAMA" & "."

 End Sub

Private Sub VIA3()

        CERITA3_36110052.Text = TEXTBOX2_36110052.Text & " ADALAH SEORANG SISWA YANG TINGGAL DI PERKOTAAN DAN AYAHNYA " & " DIPINFAH TUGASKAN DI DAERAH TERPENCIL,MAKA " & TEXTBOX2_36110052.Text & "JUGA IKUT PINDAH SEKOLAH,UNTUNGNYA DI SEKOLAH BARU  " & TEXTBOX1.Text & " PUNYA TEMAN YANG SANGAT BAIK YANG BERNAMA " & TEXTBOX6_36110052 & " SENINGGA " & TEXTBOX2_36110052.TEXT & " MERASA BETAH. DI SEKOLAH BARUNYA, TERNYATA " & TEXTBOX2_36110052.TEXT & " DITAKSIR OLEH SALAH SEORANG SISWA YANG SANGAT POPULER DI SEKOLAHNYA YAITU" & TEXTBOX3_36110052.TEXT & ". " & TEXTBOX3_36110052.TEXT & " ADALAH KETUA OSIS DAN PEMAIN BASKET TERHEBAT DI SEKOLAH TERSEBUT. DAN " & TEXTBOX2_36110052.TEXT & " JUGA NAKSIR SAMA " & TEXTBOX3_36110052.TEXT & "."

    End Sub

    Private Sub VIA4()

        CERITA4_36110052.TEXT = TEXTBOX3_36110052.TEXT & " MEMPUNYAI DUA ORANG SAHABAT. LUCUNYA, MEREKA HANYA BERSAHABAT LEWAT DUNIA MAYA YAITU DENGAN CHATTING LEWAT YM DAN FB. AWALNYA " & TEXTBOX3_36110052.TEXT & " MENDAPAT ALAMAT EMAIL " & TEXTBOX4_36110052.TEXT & " DARI SALAH SEORANG TEMANNYA YANG BERNAMA " & TEXTBOX6_36110052.TEXT & ". SEMENJAK SAAI ITULAH MEREKA BERSAHABAT WALAUPUN HANYA LEWAT DUNIA MAYA."

    End Sub

    Private Sub TextBox1_36110052_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1_36110052.TextChanged, TEXTBOX2_36110052.TextChanged, TextBox3_36110052.TextChanged, TextBox4_36110052.TextChanged, TextBox5_36110052.TextChanged, TextBox6_36110052.TextChanged, TextBox7_36110052.TextChanged, TextBox8_36110052.TextChanged, TextBox9_36110052.TextChanged, TextBox10_36110052.TextChanged, TextBox11_36110052.TextChanged, TEXTBOX2_36110052.TextChanged

        VIA1()

        VIA2()

        VIA3()

        VIA4()

     Private Sub CLOSE_36110052_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CLOSE_36110052.Click

        TextBox1_36110052.Text = ""

        TextBox10_36110052.Text = ""

        TextBox11_36110052.Text = ""

        TextBox12_36110052.Text = ""

        TEXTBOX2_36110052.Text = ""

        TextBox3_36110052.Text = ""

        TextBox4_36110052.Text = ""

        TextBox5_36110052.Text = ""

        TextBox6_36110052.Text = ""

        TextBox7_36110052.Text = ""

        TextBox8_36110052.Text = ""

        TextBox9_36110052.Text = ""

        CERITA1_36110052.Text = ""

        CERITA2_36110052.Text = ""

        CERITA3_36110052.Text = ""

        CERITA4_36110052.Text = ""

10.  Uji  program dengan mengklik “Start  Debbuging” dan save program dengan mengklik “Save”.

11.  Selesai