Lompat ke konten Lompat ke sidebar Lompat ke footer
Beranda / Aplikasi Vb.net

Contoh Aplikasi Dasar Vb.Net Memakai Object Label, Textbox Dan Button

Objeck-Objek Kontrol standar pada Toolbox pada umumnya dipakai untuk merancang sebuah aktivitas aplikasi , melalui model rancangan pada form.

Pada kesempatan kali ini aku akan menunjukkan sebuah tumpuan pembuatan aplikasi dasar di Vb.net 2008 object-object yang dipakai yakni Label, TextBox, dan Button.
Kalau anda ingin projectnya, link download ada tamat postingan.

Berikut Pembuatannya :
  1. Buatlah tampilan ibarat gambar dibawah Ini.
  2. Isikan Propertinya (sesuai nomer!)
    3. No. Objek Properti Nilai Properti
    1 Form1 StartPosition
    Text    		 CenterScreen
    Aplikasi Dasar
    2 Label1

    Label2

    Label3

    Label4    		 Name
    Text
    Name
    Text
    Name
    Text
    Name
    Text    		 lblnama
    Nama :
    lblkelas
    Kelas :
    lblprog
    Prog. Studi :
    lblalamat
    Alamat :
    3 Textbox1
    Textbox2
    Textbox3
    Textbox4    		 Name
    Name
    Name
    Name    		 txtnama
    txtkelas
    txtprog
    txtalamat
    4 Button1

    Button2

    Button3

    Button4    		 Name
    Text
    Name
    Text
    Name
    Text
    Name
    Text    		 cmdlist
    Lihat List
    cmdkosong
    Kosongkan
    cmdmati
    Matikan
    cmdkeluar
    Keluar
  3. Koding Program Tiap event, Sebagai Berikut :
    • cmdlist_Click
      • Private Sub cmdlist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdlist.Click
           txtnama.Text = "Fery Santoso" ''masukkan nama anda
           txtkelas.Text = "TKJ 12.2" ''masukkan kelas anda
           txtprog.Text = "Teknik Komputer Jaringan" ''masukkan prog. studi anda
           txtalamat.Text = "GunungPati" ''masukkan alamat anda
      End Sub
    • cmdkosong_Click
      • Private Sub cmdkosong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdkosong.Click
           txtnama.Text = " "
           txtkelas.Text = " "
           txtprog.Text = " "
           txtalamat.Text = " "
      End Sub
    • cmdmati_Click
      • Private Sub cmdmati_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdmati.Click
           If cmdmati.Text = "Matikan" Then
                txtnama.Enabled = False
                txtkelas.Enabled = False
                txtprog.Enabled = False
                txtalamat.Enabled = False
                cmdmati.Text = "Hidupkan"
           ElseIf cmdmati.Text = "Hidupkan" Then
                txtnama.Enabled = True
                txtkelas.Enabled = True
                txtprog.Enabled = True
                txtalamat.Enabled = True
                cmdmati.Text = "Matikan"
           End If
      End Sub
    • cmdkeluar_Click
      • Private Sub cmdkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdkeluar.Click
           Close()
      End Sub
  4. kalau sudah semua jalankan! Hasilnya
    • Klik lihatlist
    • Klik kosongkan
    • Klik matikan

Yang Mau Projectnya.
Download

Cara membuka, Extract -> kemudian cari AplikasiDasar.sln -> Buka
Terima kasih!
Sumber https://ferygg.blogspot.com/

Anda mungkin menyukai postingan ini :