Membalik Kalimat dan Huruf dengan Visual Basic .Net
Minggu, 11 Oktober 2015
Edit
| Ada keperluan menguraikan kalimat tertentu dari suatu dokumen. Misalnya Anda ingin mengumpulkan sejumlah email yang terdapat dalam halaman html hasil pencarian dari google. Program membalik kalimat dan membalikkan huruf ini dapat dijadikan sebagai dasar untuk melakukan hal di atas. Anda tinggal mengembangkan logika Anda. Lihat gambar di bawah ini adalah rancangan form nya:  Jika anda belum mengerti membuat form seperti di atas bisa lihat Video Kursus Visual Basic Net dasar saya klik di sini Di bawah ini adalah kode nya: Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Kalimat As String = TextBox1.Text Dim Kata() As String = Split(Kalimat, Space(1)) Dim i As Integer Dim KataBalik As String = "" For i = UBound(Kata) To 0 Step -1 KataBalik &= Kata(i) & Space(1) Next TextBox2.Text = KataBalik End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim Kalimat As String = TextBox1.Text Dim HurufBalik As String = "" Dim i As Integer For i = Kalimat.Length To 1 Step -1 HurufBalik &= Mid(Kalimat, i, 1) Next TextBox2.Text = HurufBalik End Sub End Class |
Jika Anda belum mengerti dasar-dasar pembrograman dengan visual basic .net anda juga bisa baca e-book saya yang berjudul EBOOK TUTORIAL TRIK DASAR BELAJAR VISUAL BASIC .NET |