Menghitung Jumlah Hurup Vocal Pada VB 6.0

Pada pertemuan kali ini kita akan membahas bagaimana menghitung jumlah hurup Vocal (A,I,U,E,O) dalam suatu Text Box.

Pertama tama mari kita buat tampilan form seperti gambar dibawah ini:

 

Setelah form di atas dibuat, kita akan atur properties dari masing-masing komponent sebagai berikut: 

Component	Properties	Pengaturan
Text1	MultiLine	True
	ScrollBars	Vertical
Text2	text	Dikosongkan
	enable	False
Command1	caption	Proses
Command2	caption	Keluar

Selanjutnya kita akan memberi perintah pada masing-masing command Proses dan Keluar. Double klik tombol proses kemudian isi dengan kode program berikut:

Private Sub cmd_proses_Click() Dim P As Byte Dim tampung As Byte tampung = 0 For a = 1 To Len(Text1.Text) Select Case UCase(Right(Left(Text1.Text, a), 1))     Case "A"     tampung = tampung + 1     Case "I"     tampung = tampung + 1     Case "U"     tampung = tampung + 1     Case "E"     tampung = tampung + 1     Case "O"     tampung = tampung + 1 End Select Next Text2.Text = tampung End Sub

 

Kode diatas berfungsi untuk menghitung jumlah hurup vocal yang terdapat pada text1.

Double klik tombol keluar kemudian isi dengan kode program berikut:

Private Sub cmd_keluar_Click() Unload Me End Sub

 

Kode diatas berfungsi untuk mengakhiri program. 

Ilustrasinya setelah program dijalankan:

Setelah form dijalankan user akan menginput kata atau kalimat pada text1 setelah itu user mengklik tombol proses, maka secara otomatis akan ditampilkan jumlah hurup Vocal pada text2. Tombol keluar untuk keluar dari aplikasi.

Sekian dari saya mengenai cara menghitung jumlah hurup Vocal pada VB 6. Sampai ketemu pada artikel selanjutnya.