Menampilkan kotak pesan “InputBox” dengan VB.NET 2010

Contoh sederhana menampilkan kotak masukan pengguna dengan perintah InputBox dengan Visual Basic.NET 2010. Selain itu saya tambahkan penerapan Tombol kejadian Ok/Cancel dan validasi masukan dari pengguna.

 

I. Standar Penerapan Masukan Pengguna

1. Berupa Nilai String

   1: Dim InputNama, InputEMail, InputTelepon As String

   2: InputNama = InputBox("Masukan Nama Lengkap Anda: ", "Contoh Masukan String")

   3: InputEMail = InputBox("Masukan Alamat E-Mail Anda: ", "Contoh Masukan String")

   4: InputTelepon = InputBox("Masukan Nomor Telpone Anda: ", "Contoh Masukan String")

   5: MsgBox("Halo, " + InputNama + vbCrLf + "Alamat E-Mail anda adalah " + InputEMail + vbCrLf + "dan Nomor Telepone anda adalah " + InputTelepon, MsgBoxStyle.Information, "Selamat Datang")

2. Berupa Nilai Numerik

   1: Dim InputNama, InputTahunSekarang, InputTahunLahir As String

   2: Dim Usia As Integer

   3: InputNama = InputBox("Masukan Nama Lengkap Anda:", "Contoh Masukan String")

   4: InputTahunSekarang = InputBox("Masukan Tahun Sekarang:", "Contoh Masukan Numeric")

   5: InputTahunLahir = InputBox("Masukan Tahun Kelahiran Anda:", "Contoh Masukan Numeric")

   6: Usia = Val(InputTahunSekarang) - Val(InputTahunLahir)

   7: MsgBox("Halo, " + Chr(34) + InputNama + Chr(34) + vbCrLf + "Tahun ini anda berusia " + Usia.ToString + " tahun", MsgBoxStyle.Information, "Contoh Hasil Validasi")

II. Penerapan Validasi Masukan Pengguna

1. Berupa Nilai String

   1: Dim InputNama, InputEMail, InputTelepon As String

   2: Dim ValidasiInputNama, ValidasiInputEmail, ValidasiInputTelepon As Boolean

   3:  

   4: Do

   5:     InputNama = InputBox("Masukan Nama Lengkap Anda: ", "Contoh Masukan String")

   6:     If String.IsNullOrEmpty(InputNama) Then

   7:         MsgBox("Anda belum memasukan data Nama Lengkap Anda?" + vbCrLf + "Untuk menghindari kesalahan program, Harap isikan data yang diminta", MsgBoxStyle.Exclamation, "Contoh Validasi String")

   8:     Else

   9:         ValidasiInputNama = True

  10:     End If

  11: Loop Until ValidasiInputNama

  12:  

  13: Do

  14:     InputEMail = InputBox("Masukan Alamat E-Mail Anda: ", "Contoh Masukan String")

  15:     If String.IsNullOrEmpty(InputEMail) Then

  16:         MsgBox("Anda belum memasukan data Alamat E-Mail Anda?" + vbCrLf + "Untuk menghindari kesalahan program, Harap isikan data yang diminta", MsgBoxStyle.Exclamation, "Contoh Validasi String")

  17:     Else

  18:         ValidasiInputEmail = True

  19:     End If

  20: Loop Until ValidasiInputEmail

  21:  

  22: Do

  23:     InputTelepon = InputBox("Masukan Nomor Telpone Anda: ", "Contoh Masukan String")

  24:     If String.IsNullOrEmpty(InputTelepon) Then

  25:         MsgBox("Anda belum memasukan data Nomor Telpone Anda?" + vbCrLf + "Untuk menghindari kesalahan program, Harap isikan data yang diminta", MsgBoxStyle.Exclamation, "Contoh Validasi String")

  26:     Else

  27:         ValidasiInputTelepon = True

  28:     End If

  29: Loop Until ValidasiInputTelepon

  30:  

  31: MsgBox("Halo, " + InputNama + vbCrLf + "Alamat E-Mail anda adalah " + InputEMail + vbCrLf + "dan Nomor Telepone anda adalah " + InputTelepon, MsgBoxStyle.Information, "Selamat Datang")

2. Berupa Nilai Numerik

   1: Dim ValidasiInputNama As Boolean

   2: Dim ValidasiInputTahunSekarang As Boolean

   3: Dim ValidasiInputTahunLahir As Boolean

   4: Dim InputNama As String

   5: Dim InputTahunSekarang As String

   6: Dim InputTahunLahir As String

   7: Dim Usia As Integer

   8:  

   9: Do

  10:     InputNama = InputBox("Masukan Nama Lengkap Anda:", "Contoh Masukan String")

  11:     If String.IsNullOrEmpty(InputNama) Then

  12:         MsgBox("Anda belum memasukan data Nama Lengkap Anda?" + vbCrLf + "Untuk menghindari kesalahan program, Harap isikan data yang diminta", MsgBoxStyle.Exclamation, "Contoh Validasi String")

  13:     Else

  14:         ValidasiInputNama = True

  15:     End If

  16: Loop Until ValidasiInputNama

  17:  

  18: Do

  19:     InputTahunSekarang = InputBox("Masukan Tahun Sekarang: ", "Contoh Masukan Numeric")

  20:     If String.IsNullOrEmpty(InputTahunSekarang) Then

  21:         MsgBox("Anda belum memasukan data Tahun Sekarang?" + vbCrLf + "Untuk menghindari kesalahan program, Harap isikan data yang diminta", MsgBoxStyle.Exclamation, "Contoh Validasi")

  22:     ElseIf Not IsNumeric(InputTahunSekarang) Then

  23:         MsgBox("Kotak masukan ini hanya dapat di isi dengan angka", MsgBoxStyle.Critical, "Kesalahan")

  24:     Else

  25:         ValidasiInputTahunSekarang = True

  26:     End If

  27: Loop Until ValidasiInputTahunSekarang

  28:  

  29: Do

  30:     InputTahunLahir = InputBox("Masukan Tahun Kelahiran Anda: ", "Contoh Masukan Numeric")

  31:     If String.IsNullOrEmpty(InputTahunLahir) Then

  32:         MsgBox("Anda belum memasukan data Tahun Lahir?" + vbCrLf + "Untuk menghindari kesalahan program, Harap isikan data yang diminta", MsgBoxStyle.Exclamation, "Contoh Validasi")

  33:     ElseIf Not IsNumeric(InputTahunLahir) Then

  34:         MsgBox("Kotak masukan ini hanya dapat di isi dengan angka", MsgBoxStyle.Critical, "Kesalahan")

  35:     Else

  36:         ValidasiInputTahunLahir = True

  37:     End If

  38: Loop Until ValidasiInputTahunLahir

  39:  

  40: Usia = InputTahunSekarang - InputTahunLahir

  41: MsgBox("Halo, " + Chr(34) + InputNama + Chr(34) + vbCrLf + "Tahun ini anda berusia " + Usia.ToString + " tahun", MsgBoxStyle.Information, "Contoh Hasil Validasi")

Contoh lain:

   1: Dim InputNama, InputUsia As String

   2: Dim ValidasiInputNama, ValidasiInputUsia As Boolean

   3: Dim Usia As Integer

   4:  

   5: Do

   6:     InputNama = InputBox("Masukan Nama Lengkap Anda:", "Contoh Masukan Numeric")

   7:     If String.IsNullOrEmpty(InputNama) Then

   8:         MsgBox("Anda belum memasukan data Nama Lengkap Anda?" + vbCrLf + "Untuk menghindari kesalahan program, Harap isikan data yang diminta", MsgBoxStyle.Exclamation, "Contoh Validasi")

   9:     Else

  10:         ValidasiInputNama = True

  11:     End If

  12: Loop Until ValidasiInputNama

  13:  

  14: Do

  15:     InputUsia = InputBox("Masukan Usia Anda:", "Contoh Masukan Numeric")

  16:     If String.IsNullOrEmpty(InputUsia) Then

  17:         MsgBox("Anda belum memasukan data Usia Anda?" + vbCrLf + "Untuk menghindari kesalahan program, Harap isikan data yang diminta", MsgBoxStyle.Exclamation, "Contoh Validasi")

  18:     ElseIf Not IsNumeric(InputUsia) Then

  19:         MsgBox("Kotak masukan ini hanya dapat di isi dengan angka", MsgBoxStyle.Critical, "Kesalahan")

  20:     Else

  21:         ValidasiInputUsia = True

  22:     End If

  23: Loop Until ValidasiInputUsia

  24:  

  25: Usia = Val(System.DateTime.Now.ToString("yyyy")) - InputUsia

  26: MsgBox("Halo, " + Chr(34) + InputNama + Chr(34) + vbCrLf + "Anda lahir pada tahun " + Usia.ToString, MsgBoxStyle.Information, "Contoh Hasil Validasi")

   1: Dim Menu, PilihanMenu As String

   2: Dim ValidasiPilihanMenu As Boolean

   3: Menu = ("1. Komputer Build-Up" + vbCrLf + "2. Laptop" + vbCrLf + "3. Tablet PC" + vbCrLf + "4. Lain-lain" + vbCrLf)

   4:  

   5: Do

   6:     PilihanMenu = InputBox(Menu + "Pilih salah satu [1-4]:", "Selamat Datang")

   7:     If String.IsNullOrEmpty(PilihanMenu) Then

   8:         MsgBox("Anda belum memilih pilihan apapun" + vbCrLf + "Untuk menghindari kesalahan program, Harap isikan data yang diminta", MsgBoxStyle.Exclamation, "Contoh Validasi")

   9:     ElseIf Not IsNumeric(PilihanMenu) Then

  10:         MsgBox("Kotak masukan ini hanya dapat di isi dengan angka", MsgBoxStyle.Critical, "Kesalahan")

  11:     ElseIf Val(PilihanMenu) <= 0 Or Val(PilihanMenu) > 4 Then

  12:         MsgBox("Pilihan yang anda isikan salah!!!" + vbCrLf + "Harap dibaca dengan lebih teliti", MsgBoxStyle.Critical, "Kesalahan")

  13:     Else

  14:         ValidasiPilihanMenu = True

  15:     End If

  16: Loop Until ValidasiPilihanMenu

  17:  

  18: Select Case Val(PilihanMenu)

  19: Case 1

  20:     PilihanMenu = "Komputer Build-Up"

  21: Case 2

  22:     PilihanMenu = "Laptop"

  23: Case 3

  24:     PilihanMenu = "Tablet PC"

  25: Case 4

  26:     Dim InputLain2 As String

  27:     Dim ValidasiInputLain2 As Boolean

  28:     Do

  29:         InputLain2 = InputBox("Masukan nama jenis barang yang dipilih?", "Input lain-lain")

  30:         If String.IsNullOrEmpty(InputLain2) Then

  31:             MsgBox("Anda belum mengisikan nama jenis barang apapun" + vbCrLf + "Untuk menghindari kesalahan program, Harap isikan data yang diminta", MsgBoxStyle.Exclamation, "Contoh Validasi")

  32:         ElseIf IsNumeric(InputLain2) Then

  33:             MsgBox("Kotak masukan ini hanya dapat di isi dengan huruf", MsgBoxStyle.Critical, "Kesalahan")

  34:         Else

  35:             ValidasiInputLain2 = True

  36:         End If

  37:     Loop Until ValidasiInputLain2

  38:     PilihanMenu = InputLain2

  39: End Select

  40: Dim Pesan = MsgBox("Anda memilih " + Chr(34) + PilihanMenu + Chr(34), MsgBoxStyle.Information, "Contoh Hasil Validasi")

   1: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

   2:     Dim Menu, PilihanMenu As String

   3:     Dim ValidasiPilihanMenu As Boolean

   4:     Menu = ("1. Komputer Build-Up" + vbCrLf + "2. Laptop" + vbCrLf + "3. Tablet PC" + vbCrLf + "4. Lain-lain" + vbCrLf)

   5:  

   6:     Do

   7:         PilihanMenu = InputBox(Menu + "Pilih salah satu [1-4]:", "Selamat Datang")

   8:         If String.IsNullOrEmpty(PilihanMenu) Then

   9:             MsgBox("Anda belum memilih pilihan apapun" + vbCrLf + "Untuk menghindari kesalahan program, Harap isikan data yang diminta", MsgBoxStyle.Exclamation, "Contoh Validasi")

  10:         ElseIf Not IsNumeric(PilihanMenu) Then

  11:             MsgBox("Kotak masukan ini hanya dapat di isi dengan angka", MsgBoxStyle.Critical, "Kesalahan")

  12:         ElseIf Val(PilihanMenu) <= 0 Or Val(PilihanMenu) > 4 Then

  13:             MsgBox("Pilihan yang anda isikan salah!!!" + vbCrLf + "Harap dibaca dengan lebih teliti", MsgBoxStyle.Critical, "Kesalahan")

  14:         Else

  15:             ValidasiPilihanMenu = True

  16:         End If

  17:     Loop Until ValidasiPilihanMenu

  18:  

  19:     Select Case Val(PilihanMenu)

  20:     Case 1

  21:         PilihanMenu = "Komputer Build-Up"

  22:     Case 2

  23:         PilihanMenu = "Laptop"

  24:     Case 3

  25:         PilihanMenu = "Tablet PC"

  26:     Case 4

  27:         Dim InputLain2 As String

  28:         Dim ValidasiInputLain2 As Boolean

  29:         Do

  30:             InputLain2 = InputBox("Masukan nama jenis barang yang dipilih?", "Input lain-lain")

  31:             If String.IsNullOrEmpty(InputLain2) Then

  32:                 MsgBox("Anda belum mengisikan nama jenis barang apapun" + vbCrLf + "Untuk menghindari kesalahan program, Harap isikan data yang diminta", MsgBoxStyle.Exclamation, "Contoh Validasi")

  33:             ElseIf IsNumeric(InputLain2) Then

  34:                 MsgBox("Kotak masukan ini hanya dapat di isi dengan huruf", MsgBoxStyle.Critical, "Kesalahan")

  35:             Else

  36:                 ValidasiInputLain2 = True

  37:             End If

  38:         Loop Until ValidasiInputLain2

  39:         PilihanMenu = InputLain2

  40:     End Select

  41:     TextBox1.Text = PilihanMenu

  42: End Sub

III. Validasi Banyaknya Masukan Yang Dapat Diterima

   1: Dim ValidasiInputNama As Boolean

   2: Dim ValidasiInputTahunSekarang As Boolean

   3: Dim ValidasiInputTahunLahir As Boolean

   4: Dim InputNama As String

   5: Dim InputTahunSekarang As String

   6: Dim InputTahunLahir As String

   7: Dim Usia As Integer

   8:  

   9: Do

  10:     InputNama = InputBox("Masukan Nama Lengkap Anda:", "Contoh Masukan String")

  11:     If String.IsNullOrEmpty(InputNama) Then

  12:         MsgBox("Anda belum memasukan data Nama Lengkap Anda?" + vbCrLf + "Untuk menghindari kesalahan program, Harap isikan data yang diminta", MsgBoxStyle.Exclamation, "Contoh Validasi String")

  13:     Else

  14:         ValidasiInputNama = True

  15:     End If

  16: Loop Until ValidasiInputNama

  17:  

  18: Do

  19:     InputTahunSekarang = InputBox("Masukan Tahun Sekarang: ", "Contoh Masukan Numeric")

  20:     If String.IsNullOrEmpty(InputTahunSekarang) Then

  21:         MsgBox("Anda belum memasukan data Tahun Sekarang?" + vbCrLf + "Untuk menghindari kesalahan program, Harap isikan data yang diminta", MsgBoxStyle.Exclamation, "Contoh Validasi")

  22:     ElseIf Not IsNumeric(InputTahunSekarang) Then

  23:         MsgBox("Kotak masukan ini hanya dapat di isi dengan angka", MsgBoxStyle.Critical, "Kesalahan")

  24:     ElseIf Len(InputTahunSekarang) <> 4 Then

  25:         MsgBox("Kotak masukan ini hanya dapat di isikan dengan" + vbCrLf + "4 buah karakter dan tidak lebih maupun kurang", MsgBoxStyle.Information, "Contoh Max Input")

  26:     Else

  27:         ValidasiInputTahunSekarang = True

  28:     End If

  29: Loop Until ValidasiInputTahunSekarang

  30:  

  31:         

  32: Do

  33:     InputTahunLahir = InputBox("Masukan Tahun Kelahiran Anda: ", "Contoh Masukan Numeric")

  34:     If String.IsNullOrEmpty(InputTahunLahir) Then

  35:         MsgBox("Anda belum memasukan data Tahun Lahir?" + vbCrLf + "Untuk menghindari kesalahan program, Harap isikan data yang diminta", MsgBoxStyle.Exclamation, "Contoh Validasi")

  36:     ElseIf Not IsNumeric(InputTahunLahir) Then

  37:         MsgBox("Kotak masukan ini hanya dapat di isi dengan angka", MsgBoxStyle.Critical, "Kesalahan")

  38:     ElseIf Len(InputTahunLahir) <> 4 Then

  39:         MsgBox("Kotak masukan ini hanya dapat di isikan dengan" + vbCrLf + "4 buah karakter dan tidak lebih maupun kurang", MsgBoxStyle.Information, "Contoh Max Input")

  40:     Else

  41:         ValidasiInputTahunLahir = True

  42:     End If

  43: Loop Until ValidasiInputTahunLahir

  44:  

  45: Usia = InputTahunSekarang - InputTahunLahir

  46: MsgBox("Halo, " + Chr(34) + InputNama + Chr(34) + vbCrLf + "Tahun ini anda berusia " + Usia.ToString + " tahun", MsgBoxStyle.Information, "Contoh Hasil Validasi")