|
Membuat Hurup Capital Pada Awal Kata
Coding berikut ini digunakan untuk menampilkan huruf pertama dari
setiap kata dalam suatu 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.
Tampilan Form1
'Pembuat : Ujexs Base 2009
'Tanngal : 26 Oktober 2009
'tempat : Labor STMIK NH JAMBI
Public Function AwalKataKapital(strKalimat As String)
Dim i As Integer
Dim Temp As String
Dim Lokasi As Integer
Dim huruf As String * 1
Temp$ = ""
For i% = 1 To Len(strKalimat)
huruf = Chr(Asc(Mid(strKalimat, i%, 1)))
If Len(Trim(huruf)) < 1 Then
Lokasi% = i% + 1
End If
If i% = Lokasi% Or i% = 1 Then
Temp$ = Temp$ + UCase(Chr(Asc(Mid(strKalimat, _
i%, 1))))
Else
Temp$ = Temp$ + LCase(Chr(Asc(Mid(strKalimat, _
i%, 1))))
End If
Next i
AwalKataKapital = Temp$
End Function
Private Sub Text1_Change()
Dim posisi As Integer
posisi = Text1.SelStart
Text1.Text = AwalKataKapital(Text1.Text)
Text1.SelStart = posisi
End Sub
Download disini :
== Hurup Kapital==
Good Luck !
Salam Kenal AMCJ