Private Sub getPerangkingan()
        Dim row As Integer = matriksTernormalisasiTable.RowCount
        Dim column As Integer = matriksTernormalisasiTable.ColumnCount
        Dim data = New Double(row, column) {}
        Dim hasil = New Double(row) {}
        Dim result = New String(getJumlahUsaha(), 3) {}
        Dim dt As New DataTable
        Dim ds As New DataSet
        perangkinganTable.ColumnCount = 3
        perangkinganTable.Columns(0).Name = "ID Karyawan"
        perangkinganTable.Columns(1).Name = "Nama Karyawan"
        perangkinganTable.Columns(2).Name = "Nilai"
        perangkinganTable.RowCount = row
        For index1 = 0 To row - 1
            Dim temp As Double = 0.0
            For index2 = 0 To column - 1
                Dim temp2 = FormatNumber(CDbl(CDbl(matriksTernormalisasiTable.Rows(index1).Cells(index2).Value.ToString) * getBobot(matriksTernormalisasiTable.Columns(index2).Name)), 5)
                temp += temp2
            Next
            hasil(index1) = temp
        Next

        Dim x = getJumlahUsaha()
        Dim y = getKriteria.Length
        Dim z = 0

        getPemasok()
        Dim pembagi = getBobotCount()
        Console.WriteLine(pembagi)

        Dim a = 0
        For i = 0 To getJumlahUsaha() - 1
            For j = 0 To 2
                If j = 0 Then
                    result(i, j) = idkaryawan(a)
                ElseIf j = 1 Then
                    result(i, j) = namakaryawan(a)
                ElseIf j = 2 Then
                    result(i, j) = hasil(a)
                Else

                End If
                perangkinganTable.Rows(i).Cells(j).Value = result(i, j)
            Next
            a += 1
        Next
        perangkinganTable.Refresh()

        Dim nama_karyawan = perangkinganTable.Rows(0).Cells(1).Value.ToString
        Dim nilaikaryawan = perangkinganTable.Rows(0).Cells(2).Value.ToString
    End Sub