Deskripsi dan Prosedur Latihan_08_36110039

     Deskripsi Form Latihan_08_36110039 

Terdapat tiga object yaitu label, textbox, dan button:

1.    Object Label
Terdapat dua belas object 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 data yang akan dimasukkan dalam perhitungan. Status ReadOnly digunakan untuk menampilkan hasil dari data-data yang sudah diinput.

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


     Script Unique
Pada saat Textchanged
cer1_36110039.Text = "Nama saya " & nanda_36110039.Text & ". Saya tinggal di " & almt_36110039.Text & ". Saya mempunyai banyak sahabat diantaranya " & n1_36110039.Text & "," & n2_36110039.Text & "," & n3_36110039.Text & "," & n4_36110039.Text & "," & n5_36110039.Text & ". Mereka semua sangat baik kepada saya. Rumah " & n1_36110039.Text & " terletak di " & a1_36110039.Text & ".  Rumah " & n2_36110039.Text & " terletak di " & a2_36110039.Text & ". Rumah " & n3_36110039.Text & " terletak di " & a3_36110039.Text & ". Rumah " & n4_36110039.Text & " terletak di " & a4_36110039.Text & " dan Rumah " & n5_36110039.Text & " terletak di " & a5_36110039.Text & "."

Pada saat Button click
nanda_36110039.Text = ""

     Even
nanda_36110039_TextChanged
Button1_36110039_Click

     Property
Property TextBox ==> ReadOnly=True

Prosedur menjalankan Latihan_08_36110039:

1.    Klik Start dan pilih Microsoft Visual Studio 2008.
      

2.    Klik menu file dan pilih New Project.
      

3.    Ketik nama dan pilih lokasi yang diinginkan pada masing-masing tempat yang tersedia, klik Ok.
      

4.    Klik menu view dan pilih toolbox.
      

5.    Kemudian pilih object Label dan buat sebanyak 12. Pada properti text masing-masing label, isilah kalimat berikut: nama, alamat, anda, teman 1, teman 2, teman 3, teman 4, teman 5, cerita 1, cerita 2, cerita 3, dan cerita 4.
   
6.    Kemudian pilih object textbox dan buat sebanyak 16 (duabelas status input dan empat status ReadOnly, properti ScrollBars diatur menjadi vertical, Multiline diatur menjadi True, ReadOnly diatur menjadi True, dan (Name) diisi sesuai nama yang anda inginkan dan nomor stambuk anda pada akhir nama tersebut).

7.    Kemudian pilih object Button dan buat sebanyak 1. Isi properti text menjadi close, lalu properti name menjadi nama yang anda inginkan dan nomor stambuk pada akhir nama tersebut.


8.    Setelah perintah diatas dilakukan maka jadilah seperti kolom dibawah ini:
      


9.    Klik 2x textbox nama anda sehingga muncul perintah berikutnya dan masukkan rumus seperti ini:
Private Sub nanda_36110039_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nanda_36110039.TextChanged, almt_36110039.TextChanged, n1_36110039.TextChanged, a1_36110039.TextChanged, n2_36110039.TextChanged, a2_36110039.TextChanged, n3_36110039.TextChanged, a4_36110039.TextChanged, n5_36110039.TextChanged, a5_36110039.TextChanged
        cer1_36110039.Text = "Nama saya " & nanda_36110039.Text & ". Saya tinggal di " & almt_36110039.Text & ". Saya mempunyai banyak sahabat diantaranya " & n1_36110039.Text & "," & n2_36110039.Text & "," & n3_36110039.Text & "," & n4_36110039.Text & "," & n5_36110039.Text & ". Mereka semua sangat baik kepada saya. Rumah " & n1_36110039.Text & " terletak di " & a1_36110039.Text & ".  Rumah " & n2_36110039.Text & " terletak di " & a2_36110039.Text & ". Rumah " & n3_36110039.Text & " terletak di " & a3_36110039.Text & ". Rumah " & n4_36110039.Text & " terletak di " & a4_36110039.Text & " dan Rumah " & n5_36110039.Text & " terletak di " & a5_36110039.Text & "."
        cer2_36110039.Text = " Nama saya " & nanda_36110039.Text & ". Saya bertempat tinggal di " & almt_36110039.Text & ". Saya mempunyai gank yang terdiri dari " & n1_36110039.Text & "," & n2_36110039.Text & "," & n3_36110039.Text & "," & n4_36110039.Text & ", dan " & n5_36110039.Text & ". Basecamp kami terletak di " & a3_36110039.Text & "."
        cer3_36110039.Text = " Nama saya " & nanda_36110039.Text & ". Saya mempunyai teman yaitu " & n1_36110039.Text & " dan " & n3_36110039.Text & ". Kami berteman sejak kecil. Rumah " & n1_36110039.Text & " terletak di " & a1_36110039.Text & " dan rumah " & n3_36110039.Text & " terletak di " & a3_36110039.Text & "."
        cer4_36110039.Text = " Nama saya " & nanda_36110039.Text & ". Saya mempunyai teman baik yang bernama " & n2_36110039.Text & " ," & n4_36110039.Text & " dan " & n5_36110039.Text & ". Kami tinggal di satu rumah yang terletak di " & a5_36110039.Text & "."

 End Sub

10.    Kemudian Klik 2x close sehingga muncul perintah berikutnya dan masukkan rumus seperti ini:
Private Sub Button1_36110039_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1_36110039.Click
        nanda_36110039.Text = ""
        n1_36110039.Text = ""
        n2_36110039.Text = ""
        n3_36110039.Text = ""
        n4_36110039.Text = ""
        n5_36110039.Text = ""
        almt_36110039.Text = ""
        a1_36110039.Text = ""
        a2_36110039.Text = ""
        a3_36110039.Text = ""
        a4_36110039.Text = ""
        a5_36110039.Text = ""
        cer1_36110039.Text = ""
        cer2_36110039.Text = ""
        cer3_36110039.Text = ""
        cer4_36110039.Text = ""

End Sub

11.    Untuk melihat apakah program yang anda telah buat sudah benar atau belum tepat maka klik icon Start Debugging dan isi kolom yang perlu diisi dan klik tombol Close untuk mengetahui fungsi dan hasilnya.