Mengurutkan Abjad dengan Visual Basic 6.0 ~ Nant's Light. . .

Assalamu’alaikum Wr.Wb

Nantslight – Pagi.. Wah kayaknya badan lagi gak enak.. kenapa ya..? Meskipun gak enak badan, hal ini tidak akan menghalangiku tuk nongkrong di depan pc.. (^_^), Kayak anak kecil aja masih ngurutin abjad.. Ya itung-itung buat ngisi blog aja.., ntar bisa di kembangin sendiri dan di tambahkan di aplikasi yang anda buat.. (^_^) .

OK langsung aja.....

Pertama buka IDE VB6-nya dulu,

Kemudian Tambahkan 2 Textbox, 1 CommandButton, 2 Label

Dengan properti sbb,

Name	Properties
Text1	Text	Dikosongkan
Text2	Text	Dikosongin
Label1	Caption	Masukkan huruf acak :
Label2	Caption	Hasil :
Command1	Caption	Urutkan

Atur Tata letaknya kurang lebih seperti ini,

Setelah itu masukkan kode di bawah ini..

---------------------------------------------------------------------------------------------------

Option Explicit

Private Sub Command1_Click()

Dim Huruf() As String, an As Integer, _

br As Integer, HurufTemp As String

Text2.Text = ""

ReDim Huruf(Len(Text1.Text) - 1)

For an = 1 To Len(Text1.Text)

Huruf(an - 1) = Mid(Text1.Text, an, 1)

Next an

For an = LBound(Huruf) To UBound(Huruf)

For br = LBound(Huruf) To UBound(Huruf) - 1

If Huruf(br) > Huruf(br + 1) Then

HurufTemp = Huruf(br + 1)

Huruf(br + 1) = Huruf(br)

Huruf(br) = HurufTemp

End If

Next br

Next an

For an = LBound(Huruf) To UBound(Huruf)

Text2.Text = Text2.Text & Huruf(an)

Next an

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

End Sub

---------------------------------------------------------------------------------------------------

Setelah itu janlankan aplikasi tersebut dan lihat kemudian cobalah aplikasi yang kita buat barusan,, Sekian dulu ya,,o ya kalau anda ingin langsung sourcenya bisa di unduh di sini..

Selamat Mencoba..

Semoga Bermanfaat..

Wassalamu’alaikum Wr.Wb

These icons link to social bookmarking sites where readers can share and discover new web pages.