[VBS] Mensortir Data Menggunakan Metoda Bubble Shot

Crowja-Coderz

' Mensortir Data dengan metoda Bubble Shot
Dim Temp

arrContoh=Array(4,1,2,7,5,6,9,10,8,3)

MsgBox "Data Sebelum"

For Each X In arrContoh
  MsgBox x
Next 

For i =LBound(arrContoh) To UBound(arrContoh)
  For j=LBound(arrContoh) To UBound(arrContoh)
    If j<>UBound(arrContoh) Then
    
     '-------------------------------------------------------
     ' Sortir!, > untuk kecil ke besar, < untuk besar ke kecil
        If arrContoh(j) > arrContoh(j+1) Then
     ' ----------------------------------------- ------------
     ' ------------------------------------------------------
     
        Temp=arrContoh(j)
        arrContoh(j)=arrContoh(j+1)
        arrContoh(j+1)=Temp
      End If
    End if
  Next
next

MsgBox "Data Sesudah"

For Each X In arrContoh
  MsgBox x
Next 

' 2010 Crowja

Jangan Lupa Komentar Yaa..