latihan_08_36110036

Deskripsi latihan_8_36110036

A.         Object label

          Terdapat 12 label (yang bertuliskan nama, alamat, anda, teman1, teman2, teman3, teman4, teman5, cerita1, cerita2, cerita3, cerita4)

B.         Object textbox

      Terdapat 16 textbox (12 status input), dan empat status (read only, multiline, dan  scrollbars). Status input digunakan untuk memasukkan nama dan alamat, sedangkan Status Read Only digunakan untuk menampilkan hasil cerita.

C.         Object button

Terdapat satu object button (close). Tombol close tersebut digunakan untuk mengosongkan nilai pada semua textbox.

D.         Script unique

                 Membuat call prosedur:

Private Sub ceritasatu()

        ceritasatu_36110036.Text = " nama saya " & ns_36110036.Text & ", alamat saya " & alamatku_36110036.Text & ". waktu SMP saya mempunyai teman yang bernama " & nama1_36110036.Text & ". tempat tinggal kami jauh dari sekolah karena itu, setiap pukul 6 pagi kami sudah berangkat kesekolah. tapi semenjak lulus SMP kami tidak pernah bertemu lagi dia sekolah di SMA sedangkan saya sekolah di SMK dan sekarang dia tinggal di kalimanta alamatnya " & alamat1_36110036.Text & ". sampai sekarang saya masih sering bertukar informasi dengan " & nama1_36110036.Text & "."

                  Untuk Textchanged:

Private Sub ns_36110036_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ns_36110036.TextChanged, nama1_36110036.TextChanged, nama1_36110036.TextChanged, nama2_36110036.TextAlignChanged, nama2_36110036.TextChanged, nama3_36110036.TextChanged, nama3_36110036.TextChanged, nama4_36110036.TextChanged, nama4_36110036.TextChanged, nama5_36110036.TextChanged, alamatku_36110036.TextChanged, alamat1_36110036.TextChanged, alamat2_36110036.TextChanged, alamat3_36110036.TextChanged, alamat4_36110036.TextChanged, alamat5_36110036.TextChanged

        ceritasatu()

        ceritadua()

        ceritatiga()

             ceritaempat() 

Untuk  button close:

ns_36110036.Text = ""

        nama1_36110036.Text = ""

        nama2_36110036.Text = ""

        nama3_36110036.Text = ""

        nama4_36110036.Text = ""

        nama5_36110036.Text = ""

        alamatku_36110036.Text = ""

        alamat1_36110036.Text = ""

        alamat2_36110036.Text = ""

        alamat3_36110036.Text = ""

        alamat4_36110036.Text = ""

        alamat5_36110036.Text = ""

        ceritasatu_36110036.Text = ""

        ceritadua_36110036.Text = ""

        ceritatiga_36110036.Text = ""

              ceritaempat_36110036.Text = ""

E.  Even

   Close_36110036_Click

    ns_36110036_TextChanged

F.        Property

Property TextBox:
   ReadOnly = True
   multiline = true 
   scrollbars = vertikal

Langkah-langkah mengerjakan latihan_8_36110036

1.        Buka Ms. Visual Studio

           2.          Buka project yang telah dibuat, dan buka solution explorer

           3.          Klik  kanan nama project ==> add ==> new item

4.          Klik New Item, setelah terbuka  pilih windows form dan ketik nama form  lalu klik  Add

5.             Kemudian klik file yang disimpan,  maka akan terbuka jendela pekerjaan dari Ms. Visual  Studio

 

6.          Desaign form dengan menggunakan tools pada toolbox

7.          Buat text pada form dengan menggunakan label:

 a.       Nama

 b.      Alamat

 c.        Anda

 d.      teman1

 e.      teman2

 f.        teman3

 g.       teman4

 h.      teman5

 i.         cerita1

 j.        cerita2

 k.        cerita3

 l.         cerita4

           8.          Buat kolom pada form dengan menggunakan textbox,  sebanyak 16  kolom:

a.       Kolom 1 diberi nama ns_36110036

b.      Kolom 2 diberi nama nama1_36110036

c.       Kolom 3 diberi nama nama2_36110036

d.      Kolom 4 diberi nama nama3_36110036

e.      Kolom 5 diberi nama nama4_36110036

f.        Kolom 6 diberi nama nama5_36110036

g.       Kolom 7 diberi nama alamatku_36110036

h.      Kolom 8 diberi nama alamat1_36110036

i.         Kolom 9 diberi nama alamat2_36110036

j.        Kolom 10 diberi nama alamat3_36110036

k.       Kolom 11 diberi nama alamat4_36110036

l.         Kolom 12 diberi nama alamat5_36110036

9.      Buat  tombol button berisi tulisan close 

10.    setelah desaign selesai  dibuatlah rumusnya

              11.     berikut adalah rumus untuk menjalankan latihan_08_36110036

    Public Class latihan_08_36110036

    Private Sub ceritasatu()

        ceritasatu_36110036.Text = " nama saya " & ns_36110036.Text & ", alamat saya " & alamatku_36110036.Text & ". waktu SMP saya mempunyai teman yang bernama " & nama1_36110036.Text & ". tempat tinggal kami jauh dari sekolah karena itu, setiap pukul 6 pagi kami sudah berangkat kesekolah. tapi semenjak lulus SMP kami tidak pernah bertemu lagi dia sekolah di SMA sedangkan saya sekolah di SMK dan sekarang dia tinggal di kalimanta alamatnya " & alamat1_36110036.Text & ". sampai sekarang saya masih sering bertukar informasi dengan " & nama1_36110036.Text & "."

    End Sub

    Private Sub ceritadua()

        ceritadua_36110036.Text = " waktu SMK saya mempunyai teman yang bernama " & nama2_36110036.Text & " dia tinggal di " & alamat2_36110036.Text & ", dia selalu memberika memberikan motivasi-motivasi kepada saya."

    End Sub

    Private Sub ceritatiga()

        ceritatiga_36110036.Text = " waktu lulus SMK saya melanjutkan pendidikan diperguruan tinggi bersama teman saya namanya " & nama3_36110036.Text & ". dia tinggal di " & alamat3_36110036.Text & ", dan sekarang dia tinggal sekostan dengan saya."

    End Sub

    Private Sub ceritaempat()

        ceritaempat_36110036.Text = " baru-baru ini saya bertemu dengan teman SMP saya yang sekarang kuliah di UI yang namanya " & nama4_36110036.Text & ", dia mengambil jurusan hukum dan sekarang dia tinggal di " & alamat4_36110036.Text & ". dan kebetulan dia satu kampus dengan teman SMK saya namanya " & nama5_36110036.Text & " yang beralamat di " & alamat5_36110036.Text & "."

    End Sub

    Private Sub ns_36110036_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ns_36110036.TextChanged, nama1_36110036.TextChanged, nama1_36110036.TextChanged, nama2_36110036.TextAlignChanged, nama2_36110036.TextChanged, nama3_36110036.TextChanged, nama3_36110036.TextChanged, nama4_36110036.TextChanged, nama4_36110036.TextChanged, nama5_36110036.TextChanged, alamatku_36110036.TextChanged, alamat1_36110036.TextChanged, alamat2_36110036.TextChanged, alamat3_36110036.TextChanged, alamat4_36110036.TextChanged, alamat5_36110036.TextChanged

        ceritasatu()

        ceritadua()

        ceritatiga()

        ceritaempat()

    End Sub

    Private Sub Close_36110036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Close_36110036.Click

        ns_36110036.Text = ""

        nama1_36110036.Text = ""

        nama2_36110036.Text = ""

        nama3_36110036.Text = ""

        nama4_36110036.Text = ""

        nama5_36110036.Text = ""

        alamatku_36110036.Text = ""

        alamat1_36110036.Text = ""

        alamat2_36110036.Text = ""

        alamat3_36110036.Text = ""

        alamat4_36110036.Text = ""

        alamat5_36110036.Text = ""

        ceritasatu_36110036.Text = ""

        ceritadua_36110036.Text = ""

        ceritatiga_36110036.Text = ""

        ceritaempat_36110036.Text = ""

    End Sub

End Class

  12.    setelah rumus selesai, program dijalankan dengan menggunakan start debugging

13.    setelah program jalan maka file disave.