Pernahkah Anda berfikir bagaimana proses membalikkan susunan suatu kata ???
Di Visual Basic 6.0 sendiri terdapat fungsi untuk membalikkan kata, yaitu “StrReverse”. Tapi apakah Anda tau proses yang terjadi didalam fungsi tersebut ???
Postingan ini akan mengupas tuntas proses yang terjadi di dalam fungsi tersebut.
Di Visual Basic 6.0 sendiri terdapat fungsi untuk membalikkan kata, yaitu “StrReverse”. Tapi apakah Anda tau proses yang terjadi didalam fungsi tersebut ???
Postingan ini akan mengupas tuntas proses yang terjadi di dalam fungsi tersebut.
————————————————————————————————————
Private Sub Command1_Click()
Text2.Text = “”
For i = 1 To Len(Text1.Text)
Text2.Text = Text2.Text & Mid(Text1.Text, Len(Text1.Text) – i + 1, 1)
Next i
End Sub
————————————————————————————————————
Private Sub Command1_Click()
Text2.Text = “”
For i = 1 To Len(Text1.Text)
Text2.Text = Text2.Text & Mid(Text1.Text, Len(Text1.Text) – i + 1, 1)
Next i
End Sub
————————————————————————————————————
Download program kata terbalik klik disini.
No comments:
Post a Comment