
Dibuat oleh praktisi yang memiliki pengalaman lebih dari 10 tahun di bidang web development (Pemesanan bisa SMS/WA ke 0838 1157 5876, atau bisa pesan secara online di sini)

Tampilan awal projek vb.net
|
![]() |
dialog new project |
workspace |
Desain Form Biodata
|
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
|
![]() |
Pengaturan properties objek |
Menambah form baru apda pr |
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
|
![]() |
Menambahkan event pada objek form |
Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click End Sub
'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
'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
'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
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
![]() |
Memilih objek lain untuk diberikan event |
'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
![]() |
Tombol Play atau Run Program |
Hasil AKhir Form Input Biodata
|
Terima kasih untuk tutorialnya yang sangat bagus untuk pemula.. ditunggu lanjutannya
BalasHapusAda demonya ?
BalasHapusKomentar ini telah dihapus oleh administrator blog.
BalasHapusKomentar ini telah dihapus oleh administrator blog.
BalasHapus