Program Pendaftaran

Source Code pada Form 1 (pendaftaran)

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        cmbprodi.Items.Add("Ilmu Hukum")
        cmbprodi.Items.Add("Sistem Informasi")
        cmbprodi.Items.Add("Akuntansi")
        cmbprodi.Items.Add("Manajemen")
        cmbprodi.Items.Add("Sastra Inggris")
        tbnama.Text = ""
        tbasal.Text = ""
        tbbiaya.Text = "0"
        tbbiayasks.Text = "0"
        tbsks.Text = "24"
        tbtotalsks.Text = "0"
        tbbiaya.Enabled = False
        tbbiayasks.Enabled = False
        tbsks.Enabled = False
        tbtotalsks.Enabled = False
    End Sub

    Private Sub cmbprodi_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbprodi.SelectedIndexChanged
        If cmbprodi.Text = "Ilmu Hukum" Then
            tbbiaya.Text = "5000000"
        ElseIf cmbprodi.Text = "Sistem Informasi" Then
            tbbiaya.Text = "4000000"
        ElseIf cmbprodi.Text = "Akuntansi" Then
            tbbiaya.Text = "6000000"
        ElseIf cmbprodi.Text = "Manajemen" Then
            tbbiaya.Text = "5500000"
        ElseIf cmbprodi.Text = "Sastra Inggris" Then
            tbbiaya.Text = "4000000"
        End If
    End Sub

    Private Sub rpagi_CheckedChanged(sender As Object, e As EventArgs) Handles rpagi.CheckedChanged
        tbbiayasks.Text = "200000"
        tbtotalsks.Text = Convert.ToInt32(tbbiayasks.Text) * Convert.ToInt32(tbsks.Text)
    End Sub

    Private Sub rmalam_CheckedChanged(sender As Object, e As EventArgs) Handles rmalam.CheckedChanged
        tbbiayasks.Text = "165000"
        tbtotalsks.Text = Convert.ToInt32(tbbiayasks.Text) * Convert.ToInt32(tbsks.Text)
    End Sub

    Private Sub rshift_CheckedChanged(sender As Object, e As EventArgs) Handles rshift.CheckedChanged
        tbbiayasks.Text = "225000"
        tbtotalsks.Text = Convert.ToInt32(tbbiayasks.Text) * Convert.ToInt32(tbsks.Text)
    End Sub

    Private Sub btnbatal_Click(sender As Object, e As EventArgs) Handles btnbatal.Click
        Close()
    End Sub

    Private Sub btndaftar_Click(sender As Object, e As EventArgs) Handles btndaftar.Click
        If tbnama.Text = "" Or tbasal.Text = "" Or cmbprodi.Text = "" Or tbtotalsks.Text = "0" Then
            MessageBox.Show("Harap isi data dengan lengkap")
        Else
            Form2.Show()
        End If
    End Sub
End Class

Source Code pada Form 2 (pembayaran)

Public Class Form2

    Dim studi, sks, total As Integer
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        tbbiaya.Text = Form1.tbbiaya.Text
        tbtotalsks.Text = Form1.tbtotalsks.Text
        tbtotalbayar.Text = "0"
        tbbiaya.Enabled = False
        tbtotalsks.Enabled = False
        tbtotalbayar.Enabled = False
        rcash.Checked = True
        rbca.Checked = False
        rbri.Checked = False
    End Sub

    Private Sub btnbayar_Click(sender As Object, e As EventArgs) Handles btnbayar.Click
        If rcash.Checked = False And rbca.Checked = False And rbri.Checked = False Then
            MessageBox.Show("Harap pilih metode pembayaran")
        Else
            MessageBox.Show("Terimakasih telah mendaftar " & Form1.tbnama.Text)
            Close()
            Form1.Close()
        End If
    End Sub

    Private Sub rcash_CheckedChanged(sender As Object, e As EventArgs) Handles rcash.CheckedChanged
        studi = Convert.ToInt32(tbbiaya.Text)
        sks = Convert.ToInt32(tbtotalsks.Text)
        total = 0
        If rcash.Checked = True Then
            total = studi + sks
        End If
        tbtotalbayar.Text = total
    End Sub

    Private Sub rbca_CheckedChanged(sender As Object, e As EventArgs) Handles rbca.CheckedChanged
        studi = Convert.ToInt32(tbbiaya.Text)
        sks = Convert.ToInt32(tbtotalsks.Text)
        total = 0
        If rbca.Checked = True Then
            total = studi + sks
            total = total + total * 3 / 100
        End If
        tbtotalbayar.Text = total
    End Sub

    Private Sub rbri_CheckedChanged(sender As Object, e As EventArgs) Handles rbri.CheckedChanged
        studi = Convert.ToInt32(tbbiaya.Text)
        sks = Convert.ToInt32(tbtotalsks.Text)
        total = 0
        If rbri.Checked = True Then
            total = studi + sks
            total = total + total * 4 / 100
        End If
        tbtotalbayar.Text = total
    End Sub
End Class