مرتب سازی حبابی

[leilast]

سلام
من این الگوریتم رو برای مرتب سازی حبابی نوشتم اما در قسمت Button_click این خطا رو میده.

Error BC30455 Argument not specified for parameter 'aArray' of 'Public Function Exchange(aArray As Object) As Integer()'.

ممنون میشم راهنماییم کنید.




Public Class Form2 Private unsortlist As New Sort




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


End Sub


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


End Sub
End Class
Public Class Sort
Public Property aArray As Integer() = {5, 34, 12, 56, 2, 4, 12, 78, 90, 22, 1, 43}


Public Function Exchange(aArray) As Integer()
Dim i, j, temp As Integer
Dim flag As Integer = 1
For i = 11 To 0 Step -1
flag = 0
For j = 0 To j < i Step +1
If aArray(j) > aArray(j + 1) Then
flag = 1
temp = j
aArray(j) = aArray(j + 1)
aArray(j + 1) = temp
End If
Next
Next
Exchange = aArray
End Function
End Class

[محمد آشتیانی]

سلام
خب طبیعیه خطا میده چون پیاده سازیتون اشتباهه ، کلاس Sort به این شکل میشه


Public Class BubbleSort


Public Function SortArray(inputArray As Integer()) As Integer()


Dim localArray = inputArray.Clone()
Dim i, j, temp As Integer


For i = 0 To localArray.Length - 2
For j = 0 To localArray.Length - i - 2
If localArray(j) > localArray(j + 1) Then
temp = localArray(j)
localArray(j) = localArray(j + 1)
localArray(j + 1) = temp
End If
Next
Next


Return localArray


End Function


End Class


استفاده هم به این صورت


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


Dim bubbleSort As New BubbleSort
Dim array() = bubbleSort.SortArray(New Integer() {5, 34, 12, 56, 2, 4, 12, 78, 90, 22, 1, 43})


End Sub



پیشنهاد میکنم کمی بیشتر مطالعه بفرمائید.