[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
Terima kasih telah membaca artikel tentang Shell Short di blog TEKNOLOGI INFORMASI jika anda ingin menyebar luaskan artikel ini di mohon untuk mencantumkan link sebagai Sumbernya, dan bila artikel ini bermanfaat silakan bookmark halaman ini di web browser anda, dengan cara menekan Ctrl + D pada tombol keyboard anda.