| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 23:49:03 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=167c9af2331ea6a6fb0d09f9e9a7525135c663383953f5f870380639e099014ca%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22qkQK0Gqz_s4_LLBeUm-8-5oWxsxiBeMC%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d240773b7bf473-BLR
Form1 - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form1
- Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
- Application.Exit()
- End Sub
- ' Save Button: Displays the entered data in a message box
- Private Sub btnSimpan_Click(sender As Object, e As EventArgs) Handles btnSimpan.Click
- ' Check if any required field is empty
- nama = txtNama.Text
- tempatLahir = txtTempat.Text
- tanggalLahir = dtpTanggal.Value.ToString("dd MMMM yyyy")
- gender = If(rbtnLaki.Checked, "Laki-laki", If(rbtnPerempuan.Checked, "Perempuan", String.Empty))
- agama = cbAgama.SelectedItem?.ToString()
- asalSekolah = txtAsal.Text
- noHP = txtNo.Text
- alamat = txtAlamat.Text
- email = txtEmail.Text
- namaAyah = txtAyah.Text
- namaIbu = txtIbu.Text
- noHPO = txtNoHPO.Text
- If String.IsNullOrWhiteSpace(nama) OrElse
- String.IsNullOrWhiteSpace(tempatLahir) OrElse
- String.IsNullOrWhiteSpace(gender) OrElse
- String.IsNullOrWhiteSpace(agama) OrElse
- String.IsNullOrWhiteSpace(asalSekolah) OrElse
- String.IsNullOrWhiteSpace(noHP) OrElse
- String.IsNullOrWhiteSpace(alamat) OrElse
- String.IsNullOrWhiteSpace(email) OrElse
- String.IsNullOrWhiteSpace(namaAyah) OrElse
- String.IsNullOrWhiteSpace(namaIbu) OrElse
- String.IsNullOrWhiteSpace(noHPO) Then
- MessageBox.Show("Harap isi semua data yang diperlukan.", "Data Tidak Lengkap", MessageBoxButtons.OK, MessageBoxIcon.Warning)
- Return
- End If
- btnSimpan.Enabled = False
- btnLanjutkan.Enabled = True
- End Sub
- ' Lanjutkan Button: Opens the next form (Form2)
- ' Lanjutkan Button: Opens the next form (Form2) if all required fields are filled
- Private Sub btnLanjutkan_Click(sender As Object, e As EventArgs) Handles btnLanjutkan.Click
- ' Open Form2 and hide the current form
- Dim form2 As New Form2()
- form2.Show()
- Me.Hide()
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
-
💵 Make 3000$ in 20 minutes 💵
JavaScript | 4 sec ago | 0.24 KB
-
⭐✅ Marketplace Glitch ✅ Working ✅ NEVER SEEN...
JavaScript | 5 sec ago | 0.25 KB
-
📌 Swapzone +37% glitch
JavaScript | 13 sec ago | 0.24 KB
-
✅⭐ Make huge profits on trading ⭐⭐ 8
JavaScript | 15 sec ago | 0.25 KB
-
📝 Exchange profit method
JavaScript | 22 sec ago | 0.24 KB
-
⭐✅ Marketplace Glitch ✅ Working ✅ NEVER SEEN...
JavaScript | 24 sec ago | 0.25 KB
-
⭐ Free Crypto Method ⭐
JavaScript | 32 sec ago | 0.24 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ W
JavaScript | 33 sec ago | 0.25 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
