Tutorial Lengkap VB.NET - Contoh Aplikasi Test Properties pada VB.NET

Aplikasi ini dibuat untuk bertujuan untuk memahami properties pada VB.NET. Dari teori Tutorial Lengkap VB.NET - Object, Property, Method dan Event yang dibahas sebelumnya. Berikut beberapa contoh aplikasi Test Properties pada VB.NET  dibawah ini :

Contoh aplikasi 1 

1. Rancanglah terlebih dahulu User Interface(UI) pada aplikasi anda seperti gambar dibawah ini. 

2. Lalu anda dapat mengatur properties windows pada aplikasi anda, disini saya hanya mengatur beberapa object saja.

3. Doubel click pada button 1 (Proses) dan ketik ulang kode dibawah ini :

Label2.Text = TxtNama.Text

4. Setelah itu double click juga pada button 2 (Selesai), dan copas script dibawah ini :

End

5. Maka tampilan semua kode seperti gambar dibawah ini :

Public Class FrmLat1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnProses.Click

        Label2.Text = TxtNama.Text

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        End

    End Sub

End Class

6. Tekan F5 untuk menjalankan aplikasi, maka setelah dijalankan seperti gambar dibawah ini.

Contoh aplikasi 2

1.  Rancanglah terlebih dahulu User Interface(UI) pada aplikasi anda seperti gambar dibawah ini. 

2. Lalu anda dapat mengatur properties windows pada aplikasi anda, disini saya hanya mengatur beberapa object saja.

3. Doubel click pada button 1 (Tambah) dan ketik ulang kode dibawah ini :

lsbKota.Items.Add(cboKota.Text)

4. Doubel click pada button 2 (Hapus) dan ketik ulang kode dibawah ini :

lsbKota.Items.Remove(lsbKota.Text)

5. Doubel click pada button 3 (Bersih) dan ketik ulang kode dibawah ini :

lsbKota.Items.Clear()

6. Doubel click pada button 4 (Selesai) dan ketik ulang kode dibawah ini :

End

7. Maka tampilan semua kode seperti gambar dibawah ini :

Public Class frmLat2

    Private Sub frm2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        cboKota.Items.Add("Bandung")

        cboKota.Items.Add("Jakarta")

        cboKota.Items.Add("Medan")

        cboKota.Items.Add("Surabaya")

    End Sub

   

    Private Sub btnTambah_Click(sender As Object, e As EventArgs) Handles btnTambah.Click

        lsbKota.Items.Add(cboKota.Text)

    End Sub

    Private Sub btnHapus_Click(sender As Object, e As EventArgs) Handles btnHapus.Click

        lsbKota.Items.Remove(lsbKota.Text)

    End Sub

    Private Sub btnBersih_Click(sender As Object, e As EventArgs) Handles btnBersih.Click

        lsbKota.Items.Clear()

    End Sub

    Private Sub btnSelesai_Click(sender As Object, e As EventArgs) Handles btnSelesai.Click

        End

    End Sub

End Class

8. Tekan F5 untuk menjalankan aplikasi, maka setelah dijalankan seperti gambar dibawah ini. 

Tweet