Di tutorial sebelumnya mengenai aku sudah pernah menjelaskan mengenai Cara Membuat Sebuah Kata Menjadi Huruf Kapital / Kecil semuanya, kali ini kita akan menciptakan abjad di awal kata akan menjadi abjad kapital, format penulisan kata menyerupai ini sering kita jumpai dalam penulisan sebuah judul, menyerupai judul film, judul sebuah buku, dan judul sebuah artikel, dan penulisan nama lengkap, oke berikut tutorialnya :
1. Sebagai langkah awal, buka visual basic dan pilih project standar exe,
2. Lalu tambahkan 2 label, 2 text box dan 2 commad button
3. Atur properties caption untuk masing masing tool box, sehingga menyerupai ini :
4. Jika sudah tuliskan script berikut :
'Awal script untuk mengubah awal kata menjadi kapital
Public Function Blues_Pedia(Kata As String)
Dim Blues As Integer
Dim Pedia As String
Dim XYZ As Integer
Dim abjad As String * 1
Pedia = ""
For Blues = 1 To Len(Kata)
abjad = Chr(Asc(Mid(Kata, Blues, 1)))
If Len(Trim(huruf)) < 1 Then
XYZ = Blues + 1
End If
If Blues = XYZ Or Blues = 1 Then
Pedia = Pedia + UCase(Chr(Asc(Mid(Kata, _
Blues, 1))))
Else
Pedia = Pedia + LCase(Chr(Asc(Mid(Kata, _
Blues, 1))))
End If
Next Blues
Blues_Pedia = Pedia
End Function
'Akhir script
'Script untuk mereset / mengkosongkan text 1 dan text 2
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
'Script untuk menghentikan program
Private Sub Command2_Click()
End
End Sub
'Script untuk menerapkan Function Blues_Pedia di text 1
Private Sub Text1_Change()
Dim BluesPedia As Integer
BluesPedia = Text1.SelStart
Text1.Text = Blues_Pedia(Text1.Text)
Text1.SelStart = BluesPedia
End Sub
'Script untuk menerapkan Function Blues_Pedia di text 2
Private Sub Text2_Change()
Dim BluesPedia As Integer
BluesPedia = Text2.SelStart
Text2.Text = Blues_Pedia(Text2.Text)
Text2.SelStart = BluesPedia
End Sub
Comments
Posting Komentar