Tips Membuat Text Bolak Balik Dengan Visual Basic

Untuk tips kali ini saya akan membagi sedikit cara bagaimana kita membuat sebuah kata bisa di bolak balik semaunya. Dengan cara ini akan sedikit menyusahkan bagi para pembaca karya anda yach sebagai hiburan lah. Misal contohnya:

krebo
menjadi
obekr

dan lain lain sesuai keinginan anda.

Memang klo dipikirkan buat apa juga membuat kerjaan kayak gini. Namun jika di telusuri lebih jauh hal ini bisa juga di gunakan untuk encrypt sederhana. Atau juga untuk mempertajam pengetahuan tentang visual basic terutama mengenai fungsi seperti mid for next if else dll

Object yang di persiapkan adalah

1. 3 Text box yaitu text1, text2, text3
2. 2 Option Button yaitu option1, option2
3. 1 Label untuk penanda saja
4. 1 Command Button yaitu command1


Utuk text1 kosong, text 2 kosong text3 dengan text = 1. Untuk option1 caption = ododiw oke owob klo untuk option2 captionnya = owob oke ododiw. Command1 captionya = &Conver. Dan tempatkan beberapa object tersebut sesuai kemauan anda

Setelah di masukan maka tekan F7 masukan source code berikut

Private Sub Command1_Click()
Texts = Text1.Text
Kelipatan = Text3.Text
If Texts <> "" And Kelipatan <> "" Then
If Option1.Value = True Then
For i = 1 To Len(Texts) Step Kelipatan
katas = Mid(Texts, i, Kelipatan) & katas
Next
End If

If Option2.Value = True Then
TextSp = Split(Texts, " ")
For xx = 0 To UBound(TextSp)
Texte = TextSp(xx)
kata = ""
For i = 1 To Len(Texte) Step Kelipatan
kata = Mid(Texte, i, Kelipatan) & kata
Next
katas = katas & kata & " "
Next
End If
Text2.Text = katas
Else
MsgBox "Ada pilihan yang masih kosong", vbCritical, "Error Convert"
End If
End Sub

Ada pertanyaan silahkan. Atau mau ketemu para jagoan visual basic di forum pakar pakar visual basic indonesia silahkan saja. Entar juga ketemu member baru seperti saya