PROGRAM SORTING
Berikut adalah kumpulan Bubble pada pemrograman, dapat digunakan dalam pemrograman vb maupun delphi.Fungsi dari Bubble sendiri adalah untuk program sorting data atau yang disebut dengan mengurutkan data dari yang terkecil ke terbesar(ascending) maupun sebaliknya.
1. Bubble 01:
Sub Bubble01()
Dim X, Y, C As Integer
For X = 1 To N - 1
For Y = X + 1 To N
If AR(X) < AR(Y) Then
C = AR(X)
AR(X) = AR(Y)
AR(Y) = C
End If
Next
Next
End Sub
Dituliskan pada Buttonnya, berikut coding dibawah :
Bubble01()
T = ""
For X = 1 To N
T += Trim(Str(AR(X))) & " "
Next
TextBox2.Text = T
End Sub
2. Bubble 02 :
Sub Bubble02()
Dim X, Y, C As Integer
For X = 1 To N
For Y = 1 To N - X
If AR(Y) > AR(Y + 1) Then 'ascending
C = AR(Y)
AR(Y) = AR(Y + 1)
AR(Y + 1) = C
End If
Next Y
Next X
End Sub
Dituliskan pada Buttonnya, berikut coding dibawah :
Bubble02()
T = ""
For X = 1 To N
T += Trim(Str(AR(X))) & " "
Next
TextBox2.Text = T
End Sub
Sub Bubble03()
Dim X, Y, C, F As Integer
X = 0
Do
F = 0
X = X + 1
For Y = 1 To N - X
If AR(Y) > AR(Y + 1) Then 'ascending
C = AR(Y)
AR(Y) = AR(Y + 1)
AR(Y + 1) = C
F = 1
End If
Next Y
Loop Until F = 0
End Sub
Dituliskan pada Buttonnya, berikut coding dibawah :
Bubble03()
T = ""
For X = 1 To N
T += Trim(Str(AR(X))) & " "
Next
TextBox2.Text = T
Sub Bubble04()
Dim X, Y, C, S As Integer
For X = 1 To N - 1
S = X
For Y = X + 1 To N
If AR(S) < AR(Y) Then S = Y 'descending
Next Y
If S <> X Then
C = AR(S)
AR(S) = AR(X)
AR(X) = C
End If
Next X
End Sub
Bubble04()
T = ""
For X = 1 To N
T += Trim(Str(AR(X))) & " "
Next
TextBox2.Text = T
Sub Bubble05()
Dim X, Y, C, G, F As Integer
G = N \ 2
While G > 0
Do
F = 0
For X = 1 To N - G
If AR(X) > AR(X + G) Then 'ascending
C = AR(X)
AR(X) = AR(X + G)
AR(X + G) = C
F = 1
End If
Next X
Loop Until F = 0
G = G \ 2
End While
End Sub
Bubble05()
T = ""
For X = 1 To N
T += Trim(Str(AR(X))) & " "
Next
TextBox2.Text = T
Demikian informasi tentang Bubble Sort. Semoga bermanfaat. n
0 komentar:
Posting Komentar