Thursday, March 23, 2017
Shell Short
Shell Short
[laelamadjnun.info]- shell short merupakan metode mengurutkan data dengan cara membandingkan suatu data dengan data yang lain yang mempunyai jarak tertentu dan akan menukarnya jika diperlukan, materi ini adalah salah satu materi yang saya dapat saat matakuliah struktur data, untuk jurusan manajemen informatika mungkin tidak asing dengan mata kuliah ini, maaf untuk fowchatnya saya tidak sertakan mungkin bisa di cari di website lain, pada kali ini saya implementasikan langsung melalui bahas pemrograman, karena kita juga kuliah ini cuma di kasih flowchat oleh pak dosen dan mahasiswa di suruh mengimplementasikan ke bahasa pemrograman.
Berikut Source Codenya
Private Sub cmdeksekusi_Click()shel short Silahkan Download
Dim i, t, j, jarak As Long
Dim a(100) As Integer
n = Len(Trim(Me.txtUtama.Text))
For i = 1 To n
a(i) = Asc(Mid(Me.txtUtama.Text, i, 1))
Next i
jarak = CInt(Int(n / 2))
Do While jarak > 0
For i = 1 To n - jarak
j = i + jarak
If a(i) > a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next i
jarak = CInt(jarak / 2)
Loop
For i = 1 To n
kar = Chr(a(i))
kalimat = kalimat + kar
Me.lbHasil.Caption = kalimat
Next i
End Sub
Semoga Membantu
Password :laelamadjnun
Go to link Download
