Tutorial Membuat Aplikasi Pembalik Kata Dengan VB6 - Apabila Anda sedang mencari informasi terkait dengan Tutorial Membuat Aplikasi Pembalik Kata Dengan VB6, maka anda ada di website yang benar, yaitu Aneka source code aplikasi, Rekomendasi kami untuk Tutorial Membuat Aplikasi Pembalik Kata Dengan VB6 berikut mungkin adalah cocok dengan yang anda butuhkan saat ini.

Tutorial Membuat Aplikasi Pembalik Kata Dengan VB6

Hai gan! Lama tak berjumpa dengan kalian :D kali ini saya akan memberikan sebuah tutorial sederhana dari visual basic 6. Yaitu tentang tata cara membuat aplikasi pembalik kata dengan benar. Sebenernya saya membuat apps ini hanya untuk iseng iseng saja, tapi lumayan buat pembelajaran dari bahasa pemrogrammannya, dengan alasan alasan mengapa bisa membuat kata terbalik.



Step 1:
buka dulu dong visual basic 6 nya, terus create new exe / new exe project. hehe

Step 2:
siapin 1 textbox, dan 1 commandbutton

step 3:
klik kanan pada mouse tepat di form1. Kemudian klik view code. Ctrl + a terus klik delete / ganti semua code dengan code ini:

[php]
Option Explicit

Private Sub Command1_Click()

On Error Resume Next

Dim kata As String
Dim gabung As String
Dim hitung As Integer
Dim arraykata

'Text1.Text mengambil text di dalam textbox Text1 nama dari textbox.
kata = Text1.Text

'Hapus spasi jika ada di awal dan akhir kata.
kata = Trim$(kata)

'Buat kata menjadi array dan spasi sebagai pembatasnya.
arraykata = Split(kata, " ", , vbTextCompare)

'Buat perulangan dari nilai terkecil sampai nilai terbesar di variabel "arraykata".
For hitung = LBound(arraykata) To UBound(arraykata)

'Jika string di dalam array tidak kosong maka...
If Trim$(arraykata(hitung)) <> "" Then
'Balik kata-kata di variabel "arraykata" dan masukan ke dalam variabel "gabung"
gabung = gabung & StrReverse(arraykata(hitung)) & " "
End If

'Proses Event selanjutnya.
DoEvents

'Lanjutkan menghitung.
Next hitung

'Hapus spasi jika ada di awal dan akhir kata pada variabel "gabung".
gabung = Trim$(gabung)

'Cetak semua kata di variabel "gabung" ke dalam TextBox.
Text1.Text = ""
Text1.Text = gabung
End Sub
[/php]

Tuh di dalem kodenya udah ane kasih penjelasan dari setiap bait. Tapi penjelasannya gausah diapus, itu buat keterangan :D

Terima kasih telah membaca tentang Tutorial Membuat Aplikasi Pembalik Kata Dengan VB6

Aneka Source Code Aplikasi - Tutorial Membuat Aplikasi Pembalik Kata Dengan VB6, Semoga bisa membantu anda dalam belajar pemrograman atau mungkin dapat juga menjadi ide atau inspirasi untuk membuat karya baru yang lebih baik lagi.

Anda sedang membaca Tutorial Membuat Aplikasi Pembalik Kata Dengan VB6 artikel tentang aneka source code aplikasi https://anekasourcecode.blogspot.com/2016/01/tutorial-membuat-aplikasi-pembalik-kata.html Semoga blog sederhana ini dapat membantu dan bermanfaat bagi anda.

Tweet