LISTING PROGRAM FORM PENDAFTARAN MEMBER BELANJA ONLINE

LISTING PROGRAM FORM PENDAFTARAN MEMBER BELANJA ONLINE

Form 1

Public Class Form1

   

    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 Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Text = "SHOPIEA BELANJA ONLINE"

    End Sub

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

    End Sub

End Class

Form 2

Public Class Form2

   

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

        If TextBox1.Text = "" Then

            MsgBox("Field yang bertanda bintang harus diisi")

            Return

        End If

        If TextBox2.Text = "" Then

            MsgBox("Field yang bertanda bintang harus diisi")

            Return

        End If

        If TextBox3.Text = "" Then

            MsgBox("Field yang bertanda bintang harus diisi")

            Return

        End If

        If TextBox4.Text = "" Then

            MsgBox("Field yang bertanda bintang harus diisi")

            Return

        End If

        If TextBox5.Text = "" Then

            MsgBox("Field yang bertanda bintang harus diisi")

            Return

        End If

        If TextBox6.Text = "" Then

            MsgBox("Field yang bertanda bintang harus diisi")

            Return

        End If

        If TextBox8.Text = "" Then

            MsgBox("Field yang bertanda bintang harus diisi")

            Return

        End If

        If TextBox9.Text = "" Then

            MsgBox("Field yang bertanda bintang harus diisi")

            Return

        End If

        If ComboBox1.Text = "" Then

            MsgBox("Field yang bertanda bintang harus diisi")

            Return

        End If

        If ComboBox2.Text = "" Then

            MsgBox("Field yang bertanda bintang harus diisi")

            Return

        End If

        If ComboBox3.Text = "" Then

            MsgBox("Field yang bertanda bintang harus diisi")

            Return

        End If

        Form3.Show()

        Me.Hide()

    End Sub

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

        Me.Text = "SHOPIEA BELANJA ONLINE"

    End Sub

    Private Sub TextBox10_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox10.KeyPress

        Dim masukan As Boolean = Char.IsDigit(e.KeyChar)

        If (Not masukan) Then e.Handled = True

    End Sub

    Private Sub TextBox9_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox9.KeyPress

        Dim masukan As Boolean = Char.IsDigit(e.KeyChar)

        If (Not masukan) Then e.Handled = True

    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

    End Sub

End Class

Form 3

Public Class Form3

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

        If TextBox2.Text = "" Then

            MsgBox("Field yang bertanda bintang harus diisi")

            Return

        End If

        If TextBox4.Text = "" Then

            MsgBox("Field yang bertanda bintang harus diisi")

            Return

        End If

        Form4.Show()

        Me.Hide()

    End Sub

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

        Me.Text = "SHOPIEA BELANJA ONLINE"

    End Sub

End Class

Form 4

Public Class Form4

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

        If TextBox1.Text = "" Then

            MsgBox("Field yang bertanda bintang harus diisi")

            Return

        End If

        If TextBox2.Text = "" Then

            MsgBox("Field yang bertanda bintang harus diisi")

            Return

        End If

        If TextBox3.Text = "" Then

            MsgBox("Field yang bertanda bintang harus diisi")

            Return

        End If

        If TextBox4.Text = "" Then

            MsgBox("Field yang bertanda bintang harus diisi")

            Return

        End If

        MsgBox("SELAMAT!!!! anda telah terdaftar")

        Close()

    End Sub

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

        Me.Text = "SHOPIEA BELANJA ONLINE"

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

End Class