การเรียงลำดับ ข้อมูลใน Array VB6

Soutk

สอบถามครับ จะเรียงลำดับ ข้อมูลใน Array ด้วย VB6  ใช้คำสั่งไหนครับ

Soutk

Dim a(4) As String
    Dim i As Integer
    Dim t() As String
    a(0) = 100
    a(1) = 300
    a(2) = 800
    a(3) = 60
    For i = 0 To UBound(a)
       ReDim Preserve t(i)
       t(i) = Application.Large(a, i + 1)
    Next i
    Text.Text = Join(t, ",")

ลองด้วย code นี้แล้ว ERROR object required ที่ คำสั่ง application.Large

thongkorn

มีวิธีการจัดเรียงมีหลายแบบครับ โค้ดตัวอย่างนี้จะแบบง่ายๆหรือ Simple Linear Sort ... หลักการง่ายๆ คือใช้ตัวแปร Array ของตัวมันเองนั่นแหละ เปรียบเทียบค่าตัวมันเอง วิธีการนี้เข้าใจง่าย แต่จะใช้เวลาในการประมวลผลค่อนข้างเยอะ ...

1.     Dim i As Integer, j As Integer
   
2.     '// ตัวแปรชั่วคราวในการสลับค่า
   
3.     Dim temp As Integer
   
4.     Dim a(4) As Integer
   
5.     'a(0) = 100
   
6.     'a(1) = 300
   
7.     'a(2) = 800
   
8.     'a(3) = 600
   
9.     Randomize
   
10.     '// สุ่มตัวเลขทดสอบระหว่าง 1 - 9 จำนวน 4 ค่า
    
11.     For i = 0 To 3
    
12.         a(i) = Int((Rnd * 9) + 1)
    
13.         Debug.Print a(i)
    
14.     Next
    
15.     For i = 0 To UBound(a) - 1
    
16.         For j = i + 1 To 3
    
17.             '// หากค่าเดิมมีค่ามากกว่า เช่น 9 > 4 ให้ทำการ Swap หรือสลับค่า
    
18.             If Val(a(i)) > Val(a(j)) Then
    
19.                 temp = a(i)
    
20.                 a(i) = a(j)
    
21.                 a(j) = temp
    
22.             End If
    
23.         Next
    
24.     Next
    
25.     '// แสดงคำตอบ
    
26.     For i = 0 To UBound(a) - 1
    
27.         Debug.Print a(i)
    
28.     Next

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

  

Soutk

ขอบคุณครับ
จะลองนำไปใช้ครับ

เวลาใช้งาน ข้อมูลในการจัดลำดับจะมาที่ละ 24 ข้อมูลครับ  เลยอยากหาวิธีทีประมวลผลเร็วๆ ครับ

thongkorn

วิธีการ Bubble Sort ...

1. Function BubbleSort(Arr As Variant) As Variant
   
2. 
   
3.     Dim Num As Integer, blnFlag As Boolean, i As Integer, Change As Integer
   
4. 
   
5.     Num = UBound(Arr) - LBound(Arr)
   
6.     Do
   
7.         blnFlag = False
   
8.         For i = 1 To Num
   
9.                 If (Val(Arr(i - 1)) > Val(Arr(i))) Then
   
10.                     Change = Arr(i - 1)
    
11.                     Arr(i - 1) = Arr(i)
    
12.                     Arr(i) = Change
    
13.                     blnFlag = True
    
14.                 End If
    
15.         Next
    
16.      Loop While blnFlag
    
17. End Function

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

ตัวอย่างการเรียกใช้ ...

1.     '// สุ่มตัวเลขระหว่าง 1 - 99 จำนวน 10 ค่า
   
2.     Dim a(10) As Integer
   
3.     Randomize
   
4.     For i = 0 To 9
   
5.         a(i) = Int((Rnd * 99) + 1)
   
6.         Debug.Print a(i)
   
7.     Next
   
8.     '//
   
9.     Call BubbleSort(a)
   
10.     '// แสดงคำตอบ
    
11.     Debug.Print "====== S O R T ======"
    
12.     For i = 1 To UBound(a)
    
13.         Debug.Print a(i)
    
14.     Next

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

ผลลัพธ์ ...
6
54
41
22
27
68
90
28
75
45
====== S O R T ======
6
22
27
28
41
45
54
68
75
90

Soutk

thongkorn ตอบกลับเมื่อ 2018-10-17 16:55
วิธีการ Bubble Sort ...
ตัวอย่างการเรียกใช้ ...

ขอบคุณอย่างแรงครับ อาจารย์