Tutorial Visual Basic .net Membuat Aplikasi Windows Sederhana

Salam. Baik. Selamat datang kembali di tutorial visual basic.net dalam kanal kode.ilmuwebsite.com...

Baiklah pada tutorial kali ini kita akan coba membahas mengenai bagaimana membuat aplikasi windows dengan form input sederhana menggunakan environment Visual Studio 2010.

Baik aplikasi yang akan kita buat kali ini adalah input biodata diri anda...

mungkin kita langsung saja pada pembuatan aplikasi selamat mengikuti...

1. Buka Aplikasi Visual Studio 2010

2. Pilih new Project.

Tampilan awal projek vb.net

3. Berinama projectnya misalkan “ProjectLatihan”. Lalu anda pilih Windows Form Aplication lalu pilih OK

dialog new project

4. Kemudian akan masuk pada area kerja visual basic.net

workspace

5. Lalu buat lah desain Form seperti berikut ini:

Desain Form Biodata

Keterangan Desain Form Biodata

Keterangan Properties:

Objek	Properties
Form1	Text : Input Biodata Name : frmBiodata
Label1	Text : Form Biodata
Label2	Text : Nama Depan
Label3	Text : Nama Belakang
Label4	Text : Tempat Lahir
Label5	Text : Tanggal Lahir
Label6	Text : Jenis Kelamin
Label7	Text : Alamat
Textbox1	Name : txtNamaDepan TabIndex : 1
Textbox2	Name : txtNamaBelakang TabIndex : 2
Textbox3	Name : txtTempatLahir TabIndex : 3
Textbox4	Name : txtAlamat TabIndex : 7
Datepicker1	Name : dtpTglLahir TabIndex : 4
Radiobutton1	Text : Laki-Laki Name : rdLaki TabIndex : 5
Radiobutton2	Text : Perempuan Name : rdPerempuan TabIndex : 6
Button1	Text : Ok Name : btnOk TabIndex : 8
Button2	Text : Cancel Name : btnCancel TabIndex : 9

Berikut adalah cara mengatur properties objek pada Visual Studio 2010

Pengaturan properties objek

6. Kemudian buat form baru, berikut adalah desain formnya:

Menambah form baru apda pr

Menambah Form

Desain Form Hasil

Keterangan Properties

Objek	Properties
Form1	Text : Biodata Name : frmHasil
Label1	Text : Biodata Anda
Label2	Text : Nama Anda
Label3	Text : Anda Lahir di
Label4	Text : Pada Tanggal
Label5	Text : Tanggal Lahir
Label6	Text : Anda Seorang
Label7	Text : Anda Tinggal di
Label8	Text : Nama Name : lblNama
Label9	Text : Tempat Lahir Name : lblTempatLahir
Label10	Text : Tanggal Lahir Name : lblTanggalLahir
Label11	Text : Jenis Kelamin Name : lblJenisKelamin
Label12	Text : Alamat Name : lblAlamat

7. Selanjutnya kita berikan event pada btnOk, caranya anda klik 2x pada btnOk

Menambahkan event pada objek form

8. Lalu akan muncul perintah seperti dibawah ini:

Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click

End Sub

9. Lalu ketikan perintah dibawah ini diatas perintah tadi Private Sub btnOk_Click

'Dekalarasi Variabel
'Variabel namaDepan, namaBelakang, tempatLahir, alamat, jenisKelamin didefinisikan
'sebagai variabel bertype string
Dim namaDepan, namaBelakang, tempatLahir, alamat, jenisKelamin As String
'variabel tglLahir didefinisikan bertype Date
Dim tglLahir As Date

Untuk lebih jelasnya lihat kode dibawah ini

'Dekalarasi Variabel
'Variabel namaDepan, namaBelakang, tempatLahir, alamat, jenisKelamin didefinisikan
'sebagai variabel bertype string
Dim namaDepan, namaBelakang, tempatLahir, alamat, jenisKelamin As String
'variabel tglLahir didefinisikan bertype Date
Dim tglLahir As Date


Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click

End Sub

10. Lalu masukkan perintah ini didalam didalam perintah ini Private Sub btnOk_Click

'Mengisi setiap variabel dari input form

'Mengisi variabel namaDepan dari input txtNamaDepan
namaDepan = txtNamaDepan.Text
'Mengisi variabel namaBelakang dari input txtNamaBelakang
namaBelakang = txtNamaBelakang.Text
'Mengisi variabel tempatLahir dari input txtTempatLahir
tempatLahir = txtTempatLahir.Text
'Mengisi variabel tglLahir dari input txtTglLahir
tglLahir = dtpTglLahir.Value

'Jika objek rdLaki yang di pilih
If rdLaki.Checked = True Then
    'Mengisi variabel jenisKelamin dari input rdLaki
    jenisKelamin = rdLaki.Text

    'Selain itu
Else
    'Mengisi variabel jenisKelamin dari input rdPerempuan
    jenisKelamin = rdPerempuan.Text

End If

alamat = txtAlamat.Text

'Menampilkan form lain yang bernama frmHasil
frmHasil.Show()

'Menampilkan isi dalam variabel kedalam label yang ada pada frmHasil
'Label lblNama menampilkan isi dari variabel namaDepan dan namaBelakang
frmHasil.lblNama.Text = namaDepan + " " + namaBelakang
'Label lblTempatLahir menampilkan isi dari variabel tempatLahir
frmHasil.lblTempatLahir.Text = tempatLahir
'Label lblTanggalLahir menampilkan isi dari variabel tanggal lahir
'dengan format long date (ex: 30 Januari 1989)
frmHasil.lblTanggalLahir.Text = FormatDateTime(tglLahir, DateFormat.LongDate)
'Label lblJenisKelamin menampilkan isi dari variabel jenisKelamin
frmHasil.lblJenisKelamin.Text = jenisKelamin
'Label lblAlamat menampilkan isi dari variabel alamat
frmHasil.lblAlamat.Text = alamat

Untuk lebih jelasnya lihat perintah dibawah ini

Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click

'Mengisi setiap variabel dari input form

'Mengisi variabel namaDepan dari input txtNamaDepan
namaDepan = txtNamaDepan.Text
'Mengisi variabel namaBelakang dari input txtNamaBelakang
namaBelakang = txtNamaBelakang.Text
'Mengisi variabel tempatLahir dari input txtTempatLahir
tempatLahir = txtTempatLahir.Text
'Mengisi variabel tglLahir dari input txtTglLahir
tglLahir = dtpTglLahir.Value

'Jika objek rdLaki yang di pilih
If rdLaki.Checked = True Then
    'Mengisi variabel jenisKelamin dari input rdLaki
    jenisKelamin = rdLaki.Text

    'Selain itu
Else
    'Mengisi variabel jenisKelamin dari input rdPerempuan
    jenisKelamin = rdPerempuan.Text

End If

alamat = txtAlamat.Text

'Menampilkan form lain yang bernama frmHasil
frmHasil.Show()

'Menampilkan isi dalam variabel kedalam label yang ada pada frmHasil
'Label lblNama menampilkan isi dari variabel namaDepan dan namaBelakang
frmHasil.lblNama.Text = namaDepan + " " + namaBelakang
'Label lblTempatLahir menampilkan isi dari variabel tempatLahir
frmHasil.lblTempatLahir.Text = tempatLahir
'Label lblTanggalLahir menampilkan isi dari variabel tanggal lahir
'dengan format long date (ex: 30 Januari 1989)
frmHasil.lblTanggalLahir.Text = FormatDateTime(tglLahir, DateFormat.LongDate)
'Label lblJenisKelamin menampilkan isi dari variabel jenisKelamin
frmHasil.lblJenisKelamin.Text = jenisKelamin
'Label lblAlamat menampilkan isi dari variabel alamat
frmHasil.lblAlamat.Text = alamat

End Sub

11. Lalu kita beri event pada tombol Cancel, caranya sebagai berikut: Pilih pada bagian event objek, lalu pilih eventnya. Bingungkan! :D . Untuk lebih jelasnya lihat gambar di bawah ini:

Memilih objek lain untuk diberikan event

Atau anda dapat klik 2x pada tombol Cancel, seperti pada tombol Ok

12. Lalu masukan perintah berikut ini pada fungsi btnCancel_Click...

'Event ketika tombol cancel diklik
Private Sub btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancel.Click

     Me.Close() 'Menutup form

End Sub

13. Lalu tekan F5, atau klik tombol Play pada visual studio untuk melakukan tes program.

Tombol Play atau Run Program

14. Jika benar maka hasilnya akan terlihat seperti berikut ini

Hasil AKhir Form Input Biodata

Adi L. Hadisaputra

Belajar Pemrogaman

Tutorial Visual Basic .net Membuat Aplikasi Windows Sederhana

Adi L. Hadisaputra

4 komentar:

Produk Terlaris!

Promo Tutorial!! Video Tutorial Web Development (Bangun 5 Project Website) + Video Tutorial Membuat Aplikasi Mobile (Bangun 4 Aplikasi Android) + Bonus Tutorial Membuat Theme Wordpress Premium - 3 Tutorial (5DVD) Hanya Rp 137.500 - Terbatas hanya sampai 17 Desember 2019!

Dapatkan Updatenya!

Facebook Ilmuwebsite

Download GRATIS!!

Labels Cloud

Popular Posts