Latihan_08_46110038

Deskripsi Form Latihan_08_46110038:

Form Latihan_08_46110038 terdapat tiga object yaitu label, textbox, dan button.

Object Label

Di Latihan_08_46110038 ada 12 label yang berisi teks Nama, Alamat, Anda, Teman 1, Teman 2, Teman 3, Teman 4, Teman 5, Cerita 1, Cerita 2,Cerita 3, dan Cerita 4.

Object Text Box

Di Latihan_08_46110038 ada 16 textbox, 12 status input, 4 berstatus read only dan have a scrollbar (vertikal). Status input digunakan untuk memasukkan data. Status Read Only digunakan untuk menampilkan hasil dari fungsi yang telah di kerjakan.

Object Button

Di Latihan_08_46110038 ada 1 buah button yaitu Close yang berfungsi untuk menutup window form.

Script Unique

    Private Sub pertama()…, digunakan sebagai Procedure yang dapat digunakan disetiap fungsi yang diinginkan tanpa mengulang apa isi procedure tersebut.

Even

Textchanged.

Cara Membuat Form Latihan_08_46110038:

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_46110038  sudah dibuat maka selanjutnya membuat listing program pada jendela code:

Public Class Latihan_08_46110038

    Private Sub pertama()

        n1346110038.Text = "Nama saya" & n146110038.Text & " ,sekarang saya tinggal di " & n746110038.Text & " . saya kuliah di Politeknik Negeri Ujung Pandang . Saya memiliki 5 orang teman, mereka adalah " & n246110038.Text & "," & n346110038.Text & "," & n446110038.Text & "," & n546110038.Text & "," & n646110038.Text & "."

    End Sub

    Private Sub kedua()

        n1446110038.Text = "Temanku" & n246110038.Text & " , tinggal di" & n846110038.Text & ". Sedangkan temanku" & n346110038.Text & " , tinggal di" & n946110038.Text & ".mereka berteman sejak kecil."

    End Sub

    Private Sub ketiga()

        n1546110038.Text = "temanku" & n446110038.Text & " ,tinggal di " & n1046110038.Text & ". Sedangakan " & n546110038.Text & " , tinggal di" & n1146110038.Text & ". mereka baru kenal sejak masuk Politeknik Negeri Ujung Pandang."

    End Sub

    Private Sub keempat()

        n1646110038.Text = "Dia adalah salahsatu temanku di kampus, namanya " & n646110038.Text & ". Dia tinggal di " & n1246110038.Text & ". Kelima temanku yang kusebut namanya, kami sampai skarang sangat akrab."

    End Sub

    Private Sub n146110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles n146110038.TextChanged

        pertama()

    End Sub

    Private Sub n746110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles n746110038.TextChanged

        pertama()

    End Sub

    Private Sub n246110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles n246110038.TextChanged

        pertama()

    End Sub

    Private Sub n846110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles n846110038.TextChanged

        pertama()

    End Sub

    Private Sub n346110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles n346110038.TextChanged

        kedua()

    End Sub

    Private Sub n946110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles n946110038.TextChanged

        kedua()

    End Sub

    Private Sub n446110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles n446110038.TextChanged

        kedua()

    End Sub

    Private Sub n1046110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles n1046110038.TextChanged

        kedua()

    End Sub

    Private Sub n546110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles n546110038.TextChanged

        ketiga()

    End Sub

    Private Sub n1146110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles n1146110038.TextChanged

        ketiga()

    End Sub

    Private Sub n646110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles n646110038.TextChanged

        keempat()

    End Sub

    Private Sub n1246110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles n1246110038.TextChanged

        keempat()

    End Sub

    Private Sub close46110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles close46110038.Click

        n146110038.Text = ""

        n246110038.Text = ""

        n346110038.Text = ""

        n446110038.Text = ""

        n546110038.Text = ""

        n646110038.Text = ""

        n746110038.Text = ""

        n846110038.Text = ""

        n946110038.Text = ""

        n1046110038.Text = ""

        n1146110038.Text = ""

        n1246110038.Text = ""

        n1346110038.Text = ""

        n1446110038.Text = ""

        n1546110038.Text = ""

        n1646110038.Text = ""

    End Sub

End Class

Langkah untuk menjalankan Latihan_08_46110038:

1.  Klik start debugging.

2.  Isi textbox yang berstatus input.

3.  Hasil akan muncul secara otomatis setelah menginput textbox yang tersedia.

4.  Untuk menutup klik close.