Latihan_08_36110029

v Deskripsi Latihan_08_36110029

Object Label

Terdapat 12  Label (yang bertuliskan: nama, alamat, anda, teman1, teman2, teman3, teman4, teman5, cerita1, cerita2, cerita3, dan cerita4).

Object TextBox

Terdapat 16 Textbox  (yang terdiri dari 12 textbox berstatus input, 4 textbox berstatus read only).

Object Button

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

 

Script Unique

Untuk prosedur:

C1_36110029.Text = anda_36110029.Text & "Adalah seorang Mahasiswi Akuntansi PNUP. " & anda_36110029.Text & " tinggal di " & AL_36110029.Text & " dan " & anda_36110029.Text & " mempunyai dua saudara."

Hana()

Untuk button close:

anda_36110029.Text = ""

Event

anda_36110029_TextChanged

CLose_36110029_Click

Property

Property TextBox ==> ReadOnly=True

v   Prosedur  Latihan_08_36110029

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_08_36110029  sudah dibuat maka selanjutnya kita membuat listing program pada jendela code:

Public Class Latihan_08_36110029 
    Private Sub anda_36110029_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles anda_36110029.TextChanged, Teman1_36110029.TextChanged, Teman2_36110029.TextChanged, Teman3_36110029.TextChanged, Teman4_36110029.TextChanged, Teman5_36110029.TextChanged, AL_36110029.TextChanged, AL2_36110029.TextChanged, AL3_36110029.TextChanged, AL5_36110029.TextChanged
        C1_36110029.Text = anda_36110029.Text & "Adalah seorang Mahasiswi Akuntansi PNUP. " & anda_36110029.Text & " tinggal di " & AL_36110029.Text & " dan " & anda_36110029.Text & " mempunyai dua saudara."
        C2_36110029.Text = anda_36110029.Text & " dan " & Teman1_36110029.Text & " adalah sahabat dari awal masuk di PNUP. " & Teman4_36110029.Text & " dia jg sering ikut ngumpul."
        C3_36110029.Text = Teman2_36110029.Text & " kakak " & Teman1_36110029.Text & " yang tinggal di " & AL2_36110029.Text & " bersama " & Teman1_36110029.Text & "."
        C4_36110029.Text = Teman5_36110029.Text & " teman yang sangat baik kepada " & anda_36110029.Text & " begitu jg dengan adiknya yang bernama " & Teman3_36110029.Text & " mereka tinggal di " & AL5_36110029.Text & ". di " & AL3_36110029.Text & " sangat rawan pencurian."

    End Sub

    Private Sub CLose_36110029_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CLose_36110029.Click
        anda_36110029.Text = ""
        Teman1_36110029.Text = ""
        Teman2_36110029.Text = ""
        Teman3_36110029.Text = ""
        Teman4_36110029.Text = ""
        Teman5_36110029.Text = ""
        AL_36110029.Text = ""
        AL1_36110029.Text = ""
        AL2_36110029.Text = ""
        AL3_36110029.Text = ""
        AL4_36110029.Text = ""
        AL5_36110029.Text = ""
        C1_36110029.Text = ""
        C2_36110029.Text = ""
        C3_36110029.Text = ""
        C4_36110029.Text = ""
    End Sub
End Class

 

6.      Tekan F5 pada keyboard untuk menjalankan form, kemudian ketik angka  pada kolom dan perhatikan hasilnya.