TUTORIAL PROGRAM FORM PENDAFTARAN

TUTORIAL PROGRAM FORM PENDAFTARAN

      Pertama kita buka Microsoft Visual Basic 2010 dan pilih new project.  

      Kemudian buatlah 6 form, dengan memilih Project

      Klik Add windows form

Komponen toolbox yang digunakan :

No	Komponen	Properties	Keterangan
1	Form1	Name	Form1
2	Label1	Name	Label1
		Text	Nama Depan
3	Label2	Name	Label2
		Text	Nama Tengah
4	Label3	Name	Label3
		Text	Nama Belakang
5	Label4	Name	Label4
		Text	Jenis Kelamin
6	Label5	Name	Label5
		Text	Tanggal Lahir
7	Label7	Name	Label7
		Text	Email
8	Label8	Name	Label8
		Text	Password
9	Label9	Name	Label9
		Text	Ulang Password
10	Label11	Name	Label11
		Text	Negara Asal
11	Label12	Name	Label12
		Text	DATA PRIBADI
12	TextBox1	Name	TextBox1
13	TextBox2	Name	TextBox2
14	TextBox3	Name	TextBox3
15	TextBox4	Name	TextBox4
16	TextBox5	Name	TextBox5
17	RadioButton1	Name	RadioButton1
		Text	Laki-laki
18	RadioButton2	Name	RadioButton2
		Text	Perempuan
19	ComboBox1	Name	ComboBox1
		Text	Tanggal
20	ComboBox2	Name	ComboBox2
		Text	Bulan
21	ComboBox3	Name	ComboBox3
		Text	Tahun
22	ComboBox4	Name	ComboBox4
		Text	Pilih Negara …
23	CheckBox1	Name	CheckBox1
		Text	Saya menerima ketentuan yang telah ditetapkan
24	Button1	Name	Button1
		Text	Lanjut
25	Form2	Name	Form2
26	Label1	Name	Label1
		Text	Pertanyaan 1
27	Label4	Name	Label4
		Text	Pertanyaan 2
28	Label5	Name	Label5
		Text	Verifikasi Kode
29	Label6	Name	Label6
		Text	Tulisan di dalam kotak
30	Label7	Name	Label7
		Text	VERIFIKASI DATA
31	ComboBox1	Name	ComboBox1
		Text	Pilih pertanyaan sendiri
32	ComboBox2	Name	ComboBox2
		Text	Pilih pertanyaan sendiri
33	TextBox1	Name	TextBox1
34	TextBox2	Name	TextBox2
35	TextBox3	Name	TextBox3
36	PictureBox1	Name	PictureBox1
		Image	WindowsApplication1.My.Resources.Resources.examplesa
37	Button1	Name	Button1
		Text	Daftar
38	Button2	Name	Button2
		Text	Kembali
39	Form3	Name	Form3
40	Label1	Name	Label1
		Text	Pemberitahuan telah dikirim ke email Anda. Silakan buka email Anda dan lakukan konfirmasi
41	Button1	Name	Button1
		Text	Selesai
42	Form4	Name	Form4
43	Label1	Name	Label1
		Text	SELAMAT DATANG DI ADRIAN HARTANTO LOVERS
44	PictureBox1	Name	PictureBox1
		Image	WindowsApplication1.My.Resources.Resources.DSC_0098
45	Button1	Name	Button1
		Text	MASUK DI SINI
46	Form5	Name	Form5
47	Label1	Name	Label1
		Text	Silakan periksa kembali kode verifikasi Anda
48	Button1	Name	Button1
		Text	Kembali
49	Form6	Name	Form6
50	Label1	Name	Label1
		Text	Apakah Anda ingin mendaftar di Adrian Hartanto Lovers??
51	Button1	Name	Button1
		Text	Daftar
52	Button2	Name	Button2
		Text	Kembali

Kemudian masukkan listing berikut :

Pada Form 1

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.BackColor = Color.CornflowerBlue

        Me.ForeColor = Color.Honeydew

    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub

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

        Form2.Show()

        Me.Hide()

    End Sub

    Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pass.TextChanged

    End Sub

End Class

Pada Form 2

Public Class Form2

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

    End Sub

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

        If TextBox3.Text = "holistic" Then

            Form3.Show()

            Me.Hide()

        Else

            MsgBox("Periksa kembali kode verifikasi Anda")

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Form1.Show()

        Me.Hide()

    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.BackColor = Color.ForestGreen

        Me.ForeColor = Color.GhostWhite

    End Sub

End Class

Pada Form 3

Public Class Form3

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

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

        Form6.Show()

        Me.Hide()

    End Sub

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.BackColor = Color.PeachPuff

        Me.ForeColor = Color.Coral

    End Sub

End Class

Pada Form 4

Public Class Form4

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

        Form6.Show()

        Me.Hide()

    End Sub

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.BackColor = Color.Cyan

        Me.ForeColor = Color.Crimson

    End Sub

End Class

Pada Form 5

Public Class Form5

    Private Sub EventLog1_EntryWritten(ByVal sender As System.Object, ByVal e As System.Diagnostics.EntryWrittenEventArgs) Handles EventLog1.EntryWritten

    End Sub

    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class

Pada Form 6

Public Class Form6

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

        Form1.Show()

        Me.Hide()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.Close()

    End Sub

    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.BackColor = Color.Firebrick

        Me.ForeColor = Color.BurlyWood

    End Sub

End Class