penyimpanan data pegawai secara sederhana

Public Class Form1

    Dim id(99) As String

    Dim nama(99) As String

    Dim department(99) As Integer

    Dim gender(99) As Integers

    Dim c(99) As Integer

    Dim phyton(99) As Integer

    Dim vb(99) As Integer

    Dim java(99) As Integer

    Dim ctr As Integer

    Dim ctrNama As Integer

    Dim tampil As Integer

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

        If ComboBox1.Text = "General Affair" Then

            TextBox3.Text = "Rp. 5.000.000,-"

        ElseIf ComboBox1.Text = "Manager" Then

            TextBox3.Text = "Rp. 10.000.000,-"

        ElseIf ComboBox1.Text = "Supervisor" Then

            TextBox3.Text = "Rp. 15.000.000,-"

        Else

            TextBox3.Text = ""

        End If

    End Sub

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

        If TextBox1.Text = "" Then

            Dim cek As Boolean = True

            For i As Integer = 1 To ctr - 1

                If TextBox2.Text = nama(i) Then

                    cek = False

                End If

            Next

            If cek Then

                Dim pisah() As String = TextBox2.Text.Split(" ")

                Dim idTemp As String = pisah(0).Substring(0, 1) & pisah(1).Substring(0, 1) & (ctrNama)

                id(ctr) = idTemp

                nama(ctr) = TextBox2.Text

                department(ctr) = ComboBox1.SelectedIndex

                If RadioButton1.Checked Then

                    gender(ctr) = 0

                Else

                    gender(ctr) = 1

                End If

                If CheckBox1.Checked Then

                    c(ctr) = 1

                Else

                    c(ctr) = 0

                End If

                If CheckBox2.Checked Then

                    phyton(ctr) = 1

                Else

                    phyton(ctr) = 0

                End If

                If CheckBox3.Checked Then

                    vb(ctr) = 1

                Else

                    vb(ctr) = 0

                End If

                If CheckBox4.Checked Then

                    java(ctr) = 1

                Else

                    java(ctr) = 0

                End If

                ctr += 1

                ctrNama += 1

                ListBox1.Items.Add(TextBox2.Text)

                TextBox1.Clear()

                TextBox2.Clear()

                TextBox3.Clear()

                ComboBox1.Text = ""

                RadioButton1.Checked = True

                CheckBox1.Checked = False

                CheckBox2.Checked = False

                CheckBox3.Checked = False

                CheckBox4.Checked = False

            Else

                MsgBox("Nama Sudah dipakai")

            End If

        Else

            Dim pisah() As String = TextBox2.Text.Split(" ")

            Dim idTemp As String = pisah(0).Substring(0, 1) & pisah(1).Substring(0, 1) & (ctrNama)

            id(ctr) = idTemp

            nama(ctr) = TextBox2.Text

            department(ctr) = ComboBox1.SelectedIndex

            If RadioButton1.Checked Then

                gender(ctr) = 0

            Else

                gender(ctr) = 1

            End If

            If CheckBox1.Checked Then

                c(ctr) = 1

            Else

                c(ctr) = 0

            End If

            If CheckBox2.Checked Then

                phyton(ctr) = 1

            Else

                phyton(ctr) = 0

            End If

            If CheckBox3.Checked Then

                vb(ctr) = 1

            Else

                vb(ctr) = 0

            End If

            If CheckBox4.Checked Then

                java(ctr) = 1

            Else

                java(ctr) = 0

            End If

            ctr += 1

            ctrNama += 1

            ListBox1.Items.Add(TextBox2.Text)

            TextBox1.Clear()

            TextBox2.Clear()

            TextBox3.Clear()

            ComboBox1.Text = ""

            RadioButton1.Checked = True

            CheckBox1.Checked = False

            CheckBox2.Checked = False

            CheckBox3.Checked = False

            CheckBox4.Checked = False

            For i As Integer = tampil To ctr - 2

                id(i) = id(i + 1)

                nama(i) = nama(i + 1)

                department(i) = department(i + 1)

                gender(i) = gender(i + 1)

                c(i) = c(i + 1)

                phyton(i) = phyton(i + 1)

                vb(i) = vb(i + 1)

                java(i) = java(i + 1)

            Next

            ctr -= 1

            ListBox1.Items.Clear()

            For i As Integer = 1 To ctr - 1

                ListBox1.Items.Add(nama(i))

            Next

        End If

       

    End Sub

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

        ctr = 1

        ctrNama = 1

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged

        Dim notif As String = ""

        Dim angka As Integer = ListBox1.SelectedIndex + 1

        For i As Integer = 1 To ctr - 1

            If nama(i) = ListBox1.SelectedItem Then

                angka = i

                tampil = i

            End If

        Next

        TextBox1.Text = id(angka)

        notif &= "ID = " & TextBox1.Text & vbNewLine

        TextBox2.Text = nama(angka)

        notif &= "Nama = " & TextBox2.Text & vbNewLine

        If department(angka) = 0 Then

            ComboBox1.Text = "General Affair"

            TextBox3.Text = "Rp. 5.000.000,-"

        ElseIf department(angka) = 1 Then

            ComboBox1.Text = "Manager"

            TextBox3.Text = "Rp. 10.000.000,-"

        ElseIf department(angka) = 2 Then

            ComboBox1.Text = "Supervisor"

            TextBox3.Text = "Rp. 15.000.000,-"

        End If

        notif &= "Department = " & ComboBox1.Text & vbNewLine

        notif &= "Salary = " & TextBox3.Text & vbNewLine

        If gender(angka) = 0 Then

            RadioButton1.Checked = True

            notif &= "Gender = Male" & vbNewLine

        Else

            RadioButton2.Checked = True

            notif &= "Gender = Female" & vbNewLine

        End If

        notif &= "Programming skill = " & vbNewLine

        If c(angka) = 1 Then

            CheckBox1.Checked = True

            notif &= "   - C++" & vbNewLine

        Else

            CheckBox1.Checked = False

        End If

        If phyton(angka) = 1 Then

            CheckBox2.Checked = True

            notif &= "   - Phyton" & vbNewLine

        Else

            CheckBox2.Checked = False

        End If

        If vb(angka) = 1 Then

            CheckBox3.Checked = True

            notif &= "   - Visual Basic" & vbNewLine

        Else

            CheckBox3.Checked = False

        End If

        If java(angka) = 1 Then

            CheckBox4.Checked = True

            notif &= "   - Java" & vbNewLine

        Else

            CheckBox4.Checked = False

        End If

        MsgBox(notif)

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        ListBox1.Items.Clear()

        For i As Integer = 1 To ctr - 1

            If nama(i).Contains(TextBox4.Text) Then

                ListBox1.Items.Add(nama(i))

            End If

        Next

        TextBox4.Text = ""

    End Sub

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

        Dim angka As Integer = ListBox1.SelectedIndex + 1

        For i As Integer = 1 To ctr - 1

            If nama(i) = ListBox1.SelectedItem Then

                angka = i

            End If

        Next

        For i As Integer = angka To ctr - 2

            id(i) = id(i + 1)

            nama(i) = nama(i + 1)

            department(i) = department(i + 1)

            gender(i) = gender(i + 1)

            c(i) = c(i + 1)

            phyton(i) = phyton(i + 1)

            vb(i) = vb(i + 1)

            java(i) = java(i + 1)

        Next

        ctr -= 1

        ListBox1.Items.Clear()

        For i As Integer = 1 To ctr - 1

            ListBox1.Items.Add(nama(i))

        Next

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        TextBox1.Clear()

        TextBox2.Clear()

        TextBox3.Clear()

        ComboBox1.Text = ""

        RadioButton1.Checked = True

        CheckBox1.Checked = False

        CheckBox2.Checked = False

        CheckBox3.Checked = False

        CheckBox4.Checked = False

    End Sub

End Class