DETEKSI HURUF VOKAL PADA KATA ATAU KALIMAT DENGAN VB.NET

               Pada kesempatan ini, saya akan memposting hasil iseng – iseng saya, yakni cara deteksi huruf vocal dari sebuah kata atau kalimat. Di sini saya menggunakan bahasa pemrograman VB.NET 2010. Jadi, jika anda sudah install di PC atau laptop anda, anda bisa memulai untuk mencobanya , tapi jika belum, ya bisa diinstall dulu. Hehe.. Sebenarnya mau pake VB versi berapa aja ga masalah. Hehe.. karena ini simple kok.. hehe. Jadi ya terserah teman – teman aja yak.
Oke, sekarang saya kasitahu langkah – langkahnya ya.

             Pertama, buka dulu Visual Studio 2010 teman – teman, Kemudian klik New Project dan terserah teman – teman untuk kasih nama pada project tersebut, kalau saya, saya kasih nama cekhurufvokal.

            Kedua, silahkan siapkan 1 komponen Textbox, 1 komponen label dan 1 komponen Button seperti gambar di bawah ini.

                                                                             

  Ketiga, silahkan buat code seperti di bawah ini dan kemudian di jalankan ya.

Public Class Form1

    Dim vokal(4) As String

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        vokal(0) = "a"

        vokal(1) = "i"

        vokal(2) = "u"

        vokal(3) = "e"

        vokal(4) = "o"

        For i As Integer = 0 To 4

            If InStr(TextBox1.Text, vokal(i)) Or InStr(TextBox1.Text, vokal(i).ToUpper) Then

                Dim c As String

                c = InStr(TextBox1.Text, vokal(i))

                MessageBox.Show(vokal(i))

            End If

        Next

      

    End Sub

    Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        vokal(0) = "a"

        vokal(1) = "i"

        vokal(2) = "u"

        vokal(3) = "e"

        vokal(4) = "o"

        If e.KeyChar = ChrW(Keys.Enter) Then

            For i As Integer = 0 To 4

                If InStr(TextBox1.Text, vokal(i)) Or InStr(TextBox1.Text, vokal(i).ToUpper) Then

                    Dim c As String

                    c = InStr(TextBox1.Text, vokal(i))

                    MessageBox.Show(vokal(i))

                End If

            Next

        End If

    End Sub

End Class

           Keempat, silahkan lihat hasilnya. Hehehe. Selain klik tombol Button 1, hasilnya juga akan muncul ketika teman – teman tekan tombol Enter di Keyboard teman  - teman sendiri. Hehehe.

Sekian ya dari saya, Selamat mencoba. Tuhan Memberkati.