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

Array

Array disebut juga sebagai variabel yang memiliki banyak nilai. Kegunaannya yaitu menyimpan sebuah nilai sementara.
Array diperlukan untuk memperkecil semakin banyaknya pembuatan variabel sementara fungsinya hampir sejenis.
Array dapat dibuat dengan menggunakan perintah yang sama seperti ketika kita membuat sebuah variabel, yaitu menggunakan perintah dim:

     Dim namaarray(jumlahnilai) As tipedata

Contoh pembuatan array:

     Dim kumpulan(5) As Integer

Array kumpulan di atas dapat diisi sebanyak 5 buah di dalamnya. Contoh:
kumpulan(0) = 25
kumpulan(1) = 35
kumpulan(2) = 5
kumpulan(3) = 3
kumpulan(4) = 56

(0)-(4) disebut sebagai Index yaitu nomor urut array, Index inilah yang membedakan penggunaan array yang satu dengan array yang lainnya.
Array juga dapat dijumlahkan. Contoh:
hasil = kumpulan(0) + kumpulan (2)

Seperti pada contoh, Index selalu diawali dari 0.
Array selalu memiliki batas bawah & batas atas (25 & 56)

Contoh Code Penggunaan Array:

Public Class Form1
    Dim namamhs() As String = {"ervin", "herry", "winarta", "daniel", "shahrul"}
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim teks As String
        teks = ComboBox1.Text
        ComboBox1.Items.Clear()
        For i As Integer = 0 To 4
            ComboBox1.Items.Add(namamhs(i))

        Next

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        ComboBox2.Items.Clear()
        ComboBox2.Text = namamhs(ComboBox1.SelectedIndex)
    End Sub
End Class