当前位置：网站首页>Array sort 3

Array sort 3

2022-07-26 04:29:00 【VB.Net】

Copyright notice ： This article is an original blog article , For reprint, please indicate the source of this article and the author's network name in a prominent position , May not be used for commercial purposes without the permission of the author .

In the last section, I actually used String Of CompareTo Methods for comparison , It's not very intuitive . In this section, it is easier to see that the return negative value is in the front .

In poker games fight against landlords It is usually according to the king 、 Xiao Wang 、2、A、K、Q、J、10、……、3 The order of size . When doing code design, you can first put it into the array according to the card name , Then sort according to the position of the obtained card names in the array , The specific class code is as follows ：

Public Class poker
    Implements IComparable(Of poker)

    Public Property cardid As Integer
    Public Property cardName As String

    Private cards() As String = {"Red Joker", "Black Joker", "Tow",
                                "Ace", "King", "Queen", "Jack",
                                "Ten", "Nine", "Eight", "Seven", "Six", "Five", "Four", "Three"}

    Sub New(ByVal id As Integer, ByVal Name As String)
        Me.cardid = id
        Me.cardName = Name
    End Sub

    Public Function CompareTo(other As poker) As Integer Implements IComparable(Of poker).CompareTo
        Dim pos1 As Integer
        Dim pos2 As Integer

        pos1 = Array.IndexOf(cards, cardName)
        pos2 = Array.IndexOf(cards, other.cardName)

        If pos1 <= pos2 Then
            Return -1
        Else
            Return 1
        End If
    End Function

    Public Overrides Function ToString() As String
        Return cardid & ":" & cardName
    End Function

End Class

The code ：

If pos1 <= pos2 Then
Return -1
Else
Return 1
End If

It can be simplified as ：

Return (pos1 - pos2)

stay Sub Main Use the following in ：

        Dim testpoker() As poker = New poker() {
                              New poker(1, "Tow"),
                              New poker(2, "Ace"),
                              New poker(3, "Five"),
                              New poker(4, "Red Joker"),
                              New poker(5, "Seven"),
                              New poker(6, "Queen"),
                              New poker(7, "Three"),
                              New poker(8, "Nine")
                              }
        Array.Sort(testpoker)
        For i As Integer = 0 To testpoker.Length - 1
            Console.WriteLine(testpoker(i).ToString & " ")
        Next
        Console.ReadKey()

The sorting output is shown in the following figure ：