Hai gan! Lama tak berjumpa dengan kalian 😀 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
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:
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
Keunggulan Aplikasi Manajemen Surat ini : Memakai PHP Framework Codeigniter, sehingga frameworknya bisa lebih ringan,…
Dalam suatu Perusahaan maupun Badan Kepegawaian tentu membutuhkan karyawan agar mampu melaksanakan tujuan untuk mencapai…
selain menggunakan email, contact di dunia mayapun merambah dengan sistem sms gateway, dan yang sering…
dalam dunia medispun telah menggunakan system komputasi, berupa aplikasi berbasis desktop maupun under web. kali…
Aplikasi web merupakan salah satu media yang tepat untuk memberikan informasi kepada warga atau masyarakat…
Aplikasi Sistem Informasi Akedemik Sekolah menggunkan PHP MySQl atau berbasis web ini merupakan sebuah sebuah…