Latihan 08 APKOM 4 D3B Akuntansi PNUP

A.    Object-object dalam Latihan_08_36110051 :

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

      Anda_36110051.Text = ""

C.     Even

      Anda_36110051_TextChanged
      Close_36110051_Click

D.    Property

Property TextBox ==> ReadOnly=True

 

·         Prosedur :

1.              Buka Ms. Visual Studio

2.       Klik Create Project

3.       Ketik nama file yang ingin disimpan

4.       Akan terbuka jendela pekerjaan Ms. Visual Studio

5.       Design form dengan menggunakan tools pada toolbox

6.       Buat text pada form dengan menggunakan object label dengan nama :

a.         “Nama”

b.        “ Alamat”

c.         “Anda”

d.        “Teman1”

e.         “Teman2”

f.         “Teman3”

g.        “Teman4”

h.        “Teman5”

i.          “Cerita1”

j.          “Cerita2”

k.        “Cerita3”

l.          “Cerita4”

7.       Buat kolom sesuai dengan design pada latihan 8 dengan menggunakan object textbox, kolom sebanyak 21 dengan nama :

1.      Anda_36110051

2.      Teman1_36110051

3.      Teman2_36110051

4.      Teman3_36110051

5.      Teman4_36110051

6.      Teman5_36110051

7.      AlamatA_36110051

8.      Alamat1_36110051

9.      Alamat2_36110051

10.        Alamat3_36110051

11.        Alamat4_36110051

12.        Alamat5_36110051

13.        Cerita1_36110051

14.        Cerita2_36110051

15.        Cerita3_36110051

16.        Cerita4_36110051

8.      Buat tombol dengan menggunakan objek Button bernama :

Close1_36110051 yang berisikan teks “Close”

9.      Setelah itu masuk ke lembar “Vb” dan buat Script seperti berikut :

Public Class Latihan_08_36110051

    Private Sub Latihan_08_36110051_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Anda_36110051_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Anda_36110051.TextChanged

        Cerita1_36110051.Text = Anda_36110051.Text & " adalah seorang siswa yang terbiasa hidup di perkotaan. Karena ayah " & Anda_36110051.Text & " dipindahtugaskan di sebuah pedesaan terpencil, maka " & Anda_36110051.Text & " juga ikut pindah sekolah. Untungnya, di sekolah barunya " & Anda_36110051.Text & " punya teman yang sangat baik yang bernama " & Teman5_36110051.Text & " sehingga " & Anda_36110051.Text & " merasa betah. Ternyata " & Teman5_36110051.Text & " adalah anak kepala desa."

        Cerita2_36110051.Text = Teman1_36110051.Text & " adalah orang yang sangat sombong. " & Teman1_36110051.Text & " memilki dua orang teman yang bernama " & Teman3_36110051.Text & " dan " & Teman4_36110051.Text & ". Di sekolahnyanya, mereka dijuluki sebagai GENG CALLEDA."

        Cerita3_36110051.Text = Teman2_36110051.Text & " memiliki dua orang sudara yang bernama " & Teman1_36110051.Text & " dan " & Teman3_36110051.Text & ". Mereka bertiga sangat akur, kompak, dan sering jalan bareng."

        Cerita4_36110051.Text = Teman3_36110051.Text & " mempunyai dua orang sahabat. Lucunya, mereka hanya bersahabat lewat dunia maya yaitu dengan chatting lewat YM dan FB. Awalnya " & Teman1_36110051.Text & " mendapat alamat email " & Teman3_36110051.Text & " dari salah seorang temannya yang bernama " & Teman5_36110051.Text & ". Semenjak saai itulah mereka bersahabat walaupun hanya lewat dunia maya."

    End Sub

    Private Sub Teman1_36110051_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Teman1_36110051.TextChanged

        Cerita1_36110051.Text = Anda_36110051.Text & " adalah seorang siswa yang terbiasa hidup di perkotaan. Karena ayah " & Anda_36110051.Text & " dipindahtugaskan di sebuah pedesaan terpencil, maka " & Anda_36110051.Text & " juga ikut pindah sekolah. Untungnya, di sekolah barunya " & Anda_36110051.Text & " punya teman yang sangat baik yang bernama " & Teman5_36110051.Text & " sehingga " & Anda_36110051.Text & " merasa betah. Ternyata " & Teman5_36110051.Text & " adalah anak kepala desa."

        Cerita2_36110051.Text = Teman1_36110051.Text & " adalah orang yang sangat sombong. " & Teman1_36110051.Text & " memilki dua orang teman yang bernama " & Teman3_36110051.Text & " dan " & Teman4_36110051.Text & ". Di sekolahnyanya, mereka dijuluki sebagai GENG CALLEDA."

        Cerita3_36110051.Text = Teman2_36110051.Text & " memiliki dua orang sudara yang bernama " & Teman1_36110051.Text & " dan " & Teman3_36110051.Text & ". Mereka bertiga sangat akur, kompak, dan sering jalan bareng."

        Cerita4_36110051.Text = Teman3_36110051.Text & " mempunyai dua orang sahabat. Lucunya, mereka hanya bersahabat lewat dunia maya yaitu dengan chatting lewat YM dan FB. Awalnya " & Teman1_36110051.Text & " mendapat alamat email " & Teman3_36110051.Text & " dari salah seorang temannya yang bernama " & Teman5_36110051.Text & ". Semenjak saai itulah mereka bersahabat walaupun hanya lewat dunia maya."

    End Sub

    Private Sub Teman2_36110051_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Teman2_36110051.TextChanged

        Cerita1_36110051.Text = Anda_36110051.Text & " adalah seorang siswa yang terbiasa hidup di perkotaan. Karena ayah " & Anda_36110051.Text & " dipindahtugaskan di sebuah pedesaan terpencil, maka " & Anda_36110051.Text & " juga ikut pindah sekolah. Untungnya, di sekolah barunya " & Anda_36110051.Text & " punya teman yang sangat baik yang bernama " & Teman5_36110051.Text & " sehingga " & Anda_36110051.Text & " merasa betah. Ternyata " & Teman5_36110051.Text & " adalah anak kepala desa."

        Cerita2_36110051.Text = Teman1_36110051.Text & " adalah orang yang sangat sombong. " & Teman1_36110051.Text & " memilki dua orang teman yang bernama " & Teman3_36110051.Text & " dan " & Teman4_36110051.Text & ". Di sekolahnyanya, mereka dijuluki sebagai GENG CALLEDA."

        Cerita3_36110051.Text = Teman2_36110051.Text & " memiliki dua orang sudara yang bernama " & Teman1_36110051.Text & " dan " & Teman3_36110051.Text & ". Mereka bertiga sangat akur, kompak, dan sering jalan bareng."

        Cerita4_36110051.Text = Teman3_36110051.Text & " mempunyai dua orang sahabat. Lucunya, mereka hanya bersahabat lewat dunia maya yaitu dengan chatting lewat YM dan FB. Awalnya " & Teman1_36110051.Text & " mendapat alamat email " & Teman3_36110051.Text & " dari salah seorang temannya yang bernama " & Teman5_36110051.Text & ". Semenjak saai itulah mereka bersahabat walaupun hanya lewat dunia maya."

    End Sub

    Private Sub Teman3_36110051_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Teman3_36110051.TextChanged

        Cerita1_36110051.Text = Anda_36110051.Text & " adalah seorang siswa yang terbiasa hidup di perkotaan. Karena ayah " & Anda_36110051.Text & " dipindahtugaskan di sebuah pedesaan terpencil, maka " & Anda_36110051.Text & " juga ikut pindah sekolah. Untungnya, di sekolah barunya " & Anda_36110051.Text & " punya teman yang sangat baik yang bernama " & Teman5_36110051.Text & " sehingga " & Anda_36110051.Text & " merasa betah. Ternyata " & Teman5_36110051.Text & " adalah anak kepala desa."

        Cerita2_36110051.Text = Teman1_36110051.Text & " adalah orang yang sangat sombong. " & Teman1_36110051.Text & " memilki dua orang teman yang bernama " & Teman3_36110051.Text & " dan " & Teman4_36110051.Text & ". Di sekolahnyanya, mereka dijuluki sebagai GENG CALLEDA."

        Cerita3_36110051.Text = Teman2_36110051.Text & " memiliki dua orang sudara yang bernama " & Teman1_36110051.Text & " dan " & Teman3_36110051.Text & ". Mereka bertiga sangat akur, kompak, dan sering jalan bareng."

        Cerita4_36110051.Text = Teman3_36110051.Text & " mempunyai dua orang sahabat. Lucunya, mereka hanya bersahabat lewat dunia maya yaitu dengan chatting lewat YM dan FB. Awalnya " & Teman1_36110051.Text & " mendapat alamat email " & Teman3_36110051.Text & " dari salah seorang temannya yang bernama " & Teman5_36110051.Text & ". Semenjak saai itulah mereka bersahabat walaupun hanya lewat dunia maya."

    End Sub

    Private Sub Teman4_36110051_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Teman4_36110051.TextChanged

        Cerita1_36110051.Text = Anda_36110051.Text & " adalah seorang siswa yang terbiasa hidup di perkotaan. Karena ayah " & Anda_36110051.Text & " dipindahtugaskan di sebuah pedesaan terpencil, maka " & Anda_36110051.Text & " juga ikut pindah sekolah. Untungnya, di sekolah barunya " & Anda_36110051.Text & " punya teman yang sangat baik yang bernama " & Teman5_36110051.Text & " sehingga " & Anda_36110051.Text & " merasa betah. Ternyata " & Teman5_36110051.Text & " adalah anak kepala desa."

        Cerita2_36110051.Text = Teman1_36110051.Text & " adalah orang yang sangat sombong. " & Teman1_36110051.Text & " memilki dua orang teman yang bernama " & Teman3_36110051.Text & " dan " & Teman4_36110051.Text & ". Di sekolahnyanya, mereka dijuluki sebagai GENG CALLEDA."

        Cerita3_36110051.Text = Teman2_36110051.Text & " memiliki dua orang sudara yang bernama " & Teman1_36110051.Text & " dan " & Teman3_36110051.Text & ". Mereka bertiga sangat akur, kompak, dan sering jalan bareng."

        Cerita4_36110051.Text = Teman3_36110051.Text & " mempunyai dua orang sahabat. Lucunya, mereka hanya bersahabat lewat dunia maya yaitu dengan chatting lewat YM dan FB. Awalnya " & Teman1_36110051.Text & " mendapat alamat email " & Teman3_36110051.Text & " dari salah seorang temannya yang bernama " & Teman5_36110051.Text & ". Semenjak saai itulah mereka bersahabat walaupun hanya lewat dunia maya."

    End Sub

    Private Sub Teman5_36110051_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Teman5_36110051.TextChanged

        Cerita1_36110051.Text = Anda_36110051.Text & " adalah seorang siswa yang terbiasa hidup di perkotaan. Karena ayah " & Anda_36110051.Text & " dipindahtugaskan di sebuah pedesaan terpencil, maka " & Anda_36110051.Text & " juga ikut pindah sekolah. Untungnya, di sekolah barunya " & Anda_36110051.Text & " punya teman yang sangat baik yang bernama " & Teman5_36110051.Text & " sehingga " & Anda_36110051.Text & " merasa betah. Ternyata " & Teman5_36110051.Text & " adalah anak kepala desa."

        Cerita2_36110051.Text = Teman1_36110051.Text & " adalah orang yang sangat sombong. " & Teman1_36110051.Text & " memilki dua orang teman yang bernama " & Teman3_36110051.Text & " dan " & Teman4_36110051.Text & ". Di sekolahnyanya, mereka dijuluki sebagai GENG CALLEDA."

        Cerita3_36110051.Text = Teman2_36110051.Text & " memiliki dua orang sudara yang bernama " & Teman1_36110051.Text & " dan " & Teman3_36110051.Text & ". Mereka bertiga sangat akur, kompak, dan sering jalan bareng."

        Cerita4_36110051.Text = Teman3_36110051.Text & " mempunyai dua orang sahabat. Lucunya, mereka hanya bersahabat lewat dunia maya yaitu dengan chatting lewat YM dan FB. Awalnya " & Teman1_36110051.Text & " mendapat alamat email " & Teman3_36110051.Text & " dari salah seorang temannya yang bernama " & Teman5_36110051.Text & ". Semenjak saai itulah mereka bersahabat walaupun hanya lewat dunia maya."

    End Sub

    Private Sub Close_36110051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Close1_36110051.Click

        Anda_36110051.Text = ""

        Teman1_36110051.Text = ""

        Teman2_36110051.Text = ""

        Teman3_36110051.Text = ""

        Teman4_36110051.Text = ""

        Teman5_36110051.Text = ""

        Cerita1_36110051.Text = ""

        Cerita2_36110051.Text = ""

        Cerita3_36110051.Text = ""

        Cerita4_36110051.Text = ""

    End Sub

End Class

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