Awal Kalimat Kapital

kali ini kita latihan fungsi untuk menampilkan huruf pertama dari
setiap kalimat menjadi huruf besar/kapital.

Persiapan:
1. Buat 1 Project baru dengan 1 Form dan 1 TextBox.
2. Ketik coding berikut ke dalam editor form yang bertalian.

Ketik coding berikut ini pada Form.
Public Function AwalKalimatKapital(strKalimat As _ String)
Dim Temp1 As String, Temp2 As String
Dim Lokasi As Integer, i As Integer
Dim huruf As String * 1
Temp1$ = LCase(strKalimat) 'Kecilkan dulu semua
For i% = 1 To Len(Temp1$)
huruf = Chr(Asc(Mid(strKalimat, i%, 1)))
If huruf = "." Then
Lokasi% = i% + 2
End If
If i% = 1 Or i% = Lokasi% Then
Temp2$ = Temp2$ + UCase(Chr(Asc(Mid(Temp1$, _
i%, 1))))
Else
Temp2$ = Temp2$ + LCase(Chr(Asc(Mid(Temp1$, _
i%, 1))))
End If
Next i
AwalKalimatKapital = Temp2$
End Function
Private Sub Text1_Change()
Dim posisi As Integer
posisi = Text1.SelStart
216
Text1.Text = AwalKalimatKapital(Text1.Text)
Text1.SelStart = posisi
End Sub