Ilustrasi Tabel Nilai
Ilustrasi Tabel Hasil
Diilustrasikan terdapat sebuah tabel yang akan kita hitung selisih perbandingan dari masing-masing entitas berdasarkan masing-masing kriteria penilaian, yaitu Tabel Nilai. Tabel Nilai berisi skor penilaian masing-masing karyawan terhadap masing-masing kriteria penilaian, yaitu IQ, EQ, dan Penampilan sedangkan Tabel Hasil menampilkan hasil perhitungan selisih skor berdasarkan salah satu kriteria yang telah dipilih (terlihat kriteria yang dipilih pada gambar adalah IQ) dengan membandingkan dari setiap karyawan dimana tabel-tabel tersebut ditampilkan dalam bentuk DataGridView. Jadi, ada DataGridView untuk menampilkan Tabel Nilai (sebut saja DGVNilai) dan ada DataGridView untuk menampilkan Tabel Hasil (sebut saja DGVHasil).
Ilustrasi perhitungan dari Tabel Hasil sebagai berikut:
Skor penilaian dari Pegawai-1 akan dibandingkan dengan skor nilai dari masing-masing pegawai yang lain, yaitu dimulai dari Pegawai-1, Pegawai-2, Pegawai-3, Pegawai-4, dan terakhir Pegawai-5. Skor nilai dari Pegawai-1 untuk IQ adalah 2 kemudian dari skor tersebut akan kita kurangkan dengan skor nilai dari masing-masing pegawai lain. Untuk membandingkan dengan skor nilai Pegawai-1 dengan Pegawai-2 kita mengurangkan 2-5 = -3, lanjut ke Pegawai-3 dengan 2-4 = -2, dan seterusnya.
Berikut ini adalah syntax programnya:
'---
Dim H, N, col As Integer
'col adalah index kolom pada Tabel Nilai
col = ComboBox1.SelectedIndex + 1
For T As Integer = 1 To DGVHasil.Columns.Count - 1
N = DGVNilai.Rows(T - 1).Cells(col).Value
For W As Integer = 0 To DGVNilai.Rows.Count - 1
H = N - DGVNilai.Rows(W).Cells(col).Value
DGVHasil.Rows(W).Cells(T).Value = H
Next 'Baris berikutnya pada DGVNilai
Next 'Kolom berikutnya pada DGVHasil
'---
Tampilan Aplikasi