Berikut program menampilkan jumlah Karakter, Kata & Huruf Hidup menggunakan VB Net :
Public Class Form1
Private Sub btnProses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnProses.Click
Dim
jumlah As Double
= Len(Kalimat.Text)
Dim jkata As
Integer = 0
Dim jhidup As Integer = 0
Dim xkarakter As Char
Dim i As Integer
For i = 1 To jumlah
xkarakter = Microsoft.VisualBasic.Mid(Kalimat.Text, i, 1)
If xkarakter = "
" Then
jkata = jkata + 1
ElseIf UCase(xkarakter) = "A"
Or UCase(xkarakter) = "I"
Or UCase(xkarakter) = "U"
Or UCase(xkarakter) = "E"
Or UCase(xkarakter) = "O"
Then
jhidup =
jhidup + 1
End
If
Next
Label2.Text = "Jumlah
karakter : " & jumlah & vbCrLf & _
"Jumlah
kata : " & jkata + 1 & vbCrLf & _
"Jumlah
huruf hidup : " & jhidup
End Sub
End Class
Tampilan hasilnya terlihat seperti gambar berikut ini :
Demikian program menampilkan jumlah Karakter, Kata & Huruf Hidup menggunakan VB Net semoga bermanfaat.
Begitu ya caranya :)
ReplyDeleteprogramnya ketika dirunning kok nggak bisa ya
ReplyDeletekesalahannya apa nih?
ReplyDeletetulisan public class form1nya warnanya merah
ReplyDeletetulisan public class form1 warnanya merah
ReplyDeletelhoo itu kan emang program vb net? waktu double click button sudah terbentuk public class form1 nya, bukan diketik. jadi kemungkinan error nggak pernah ada. karna bukan dibuat sendiri
Delete