[VB.NET] การจัดอันดับที่มีค่าคะแนนเท่ากัน (Duplicate Ranking)

thongkorn

ความหมายของการจัดอันดับที่มีค่าคะแนนเท่ากัน ก็จะคล้ายๆกับการเล่นกอล์ฟนั่นแหละครับ เช่นตามภาพ อันดับที่ 9 มีคะแนนเท่ากัน 3 คน ดังนั้นอันดับที่ 10 และ 11 ก็เลยไม่มี พอนับคนถัดไปก็จะไล่เรียงไปในลำดับที่ 12 ...  


มาดูโค้ดกันเถอะ ...

1. ' / ----------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / More info: http://www.g2gnet.com/webboard
   
8. ' /
   
9. ' / Purpose: How to sort duplicate ranking in DataGridView without DataBase.
   
10. ' / Microsoft Visual Basic .NET (2010)
    
11. ' /
    
12. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
13. ' / You can modify and/or distribute without to inform the developer.
    
14. ' / ----------------------------------------------------------------
    
15. Public Class frmRankingDuplicate
    
16.     Dim dt As DataTable
    
17.     Dim MaxRow As Integer = 15
    
18. 
    
19.     ' / ----------------------------------------------------------------
    
20.     '// Initialize DataGridView @Run Time
    
21.     Private Sub InitGrid()
    
22.         With dgvData
    
23.             .RowHeadersVisible = False
    
24.             .AllowUserToAddRows = False
    
25.             .AllowUserToDeleteRows = False
    
26.             .AllowUserToResizeRows = False
    
27.             .MultiSelect = True
    
28.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
    
29.             .ReadOnly = True
    
30.             .Font = New Font("Tahoma", 9)
    
31.             ' Autosize Column
    
32.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
33.             .AutoResizeColumns()
    
34.             '// Even-Odd Color
    
35.             .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
    
36.             ' Adjust Header Styles
    
37.             With .ColumnHeadersDefaultCellStyle
    
38.                 .BackColor = Color.Navy
    
39.                 .ForeColor = Color.Black ' Color.White
    
40.                 .Font = New Font("Tahoma", 9, FontStyle.Bold)
    
41.             End With
    
42.         End With
    
43.     End Sub
    
44. 
    
45.     Private Sub frmRankingDuplicate_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
46.         Me.Dispose()
    
47.         Application.Exit()
    
48.     End Sub
    
49. 
    
50.     ' / ----------------------------------------------------------------
    
51.     Private Sub frmRankingDuplicate_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
52.         Call InitGrid()
    
53.         Call Ranking()
    
54.     End Sub
    
55. 
    
56.     ' / ----------------------------------------------------------------
    
57.     Private Sub Ranking()
    
58.         Dim ds As New DataSet()
    
59.         dt = New DataTable
    
60.         dt.Columns.Add("Student", GetType(String))
    
61.         dt.Columns.Add("Subject A", GetType(Integer))
    
62.         dt.Columns.Add("Subject B", GetType(Integer))
    
63.         dt.Columns.Add("Subject C", GetType(Integer))
    
64.         dt.Columns.Add("Average", GetType(Double))
    
65.         dgvData.DataSource = dt
    
66.         '//
    
67.         Randomize()
    
68.         Dim RandomClass As New Random()
    
69.         For i As Integer = 0 To MaxRow - 1
    
70.             Dim dr As DataRow = dt.NewRow()
    
71.             '// RandomClass
    
72.             dr(0) = "Student " & i + 1
    
73.             dr(1) = RandomClass.Next(0, 100)
    
74.             dr(2) = RandomClass.Next(0, 100)
    
75.             dr(3) = RandomClass.Next(0, 100)
    
76.             Dim SumCol As Double = 0
    
77.             For iCol As Byte = 1 To 3 'MaxCol
    
78.                 SumCol = SumCol + dr(iCol)
    
79.             Next
    
80.             dr(4) = Format(SumCol / 3, "0.00")
    
81.             '//
    
82.             dt.Rows.Add(dr)
    
83.         Next
    
84.         '// Calcualte ranking
    
85.         dgvData.DataSource = RankingDuplicate(dt, "Average")
    
86.     End Sub
    
87. 
    
88.     ' / ----------------------------------------------------------------
    
89.     Public Function RankingDuplicate(dt As DataTable, fld As String) As DataTable
    
90.         '// Descending (Z --> A)
    
91.         Dim rankingDt = (From row In dt.AsEnumerable() Order By row.Field(Of Double)(fld) Descending.CopyToDataTable())
    
92.         rankingDt.Columns.Add("Ranking")
    
93.         Dim rank As Integer = 1
    
94.         Dim count As Integer = 1
    
95.         For i As Integer = 0 To rankingDt.Rows.Count - 2
    
96.             rankingDt.Rows(i)("Ranking") = rank
    
97.             '// If not duplicate value then increment +1.
    
98.             If rankingDt.Rows(i)(fld).ToString() <> rankingDt.Rows(i + 1)(fld).ToString() Then
    
99.                 rank += 1
    
100.                 rank = count + 1
     
101.             End If
     
102.             count += 1
     
103.         Next
     
104.         rankingDt.Rows(rankingDt.Rows.Count - 1)("Ranking") = rank
     
105.         Return rankingDt
     
106.     End Function
     
107. 
     
108.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
     
109.         Me.Close()
     
110.     End Sub
     
111. 
     
112.     Private Sub btnProcess_Click(sender As System.Object, e As System.EventArgs) Handles btnProcess.Click
     
113.         Call Ranking()
     
114.     End Sub
     
115. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้ที่นี่ ...