Membuat Awal Kata Menjadi Huruf Kapital


Di tutorial sebelumnya mengenai saya sudah pernah menjelaskan mengenai Cara Membuat Sebuah Kata Menjadi Huruf Kapital / Kecil semuanya, kali ini kita akan membuat huruf di awal kata akan menjadi huruf kapital, format penulisan kata seperti ini sering kita jumpai dalam penulisan sebuah judul, seperti judul film,  judul sebuah buku, dan judul sebuah artikel, dan penulisan nama lengkap, baiklah 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 seperti 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 huruf As String * 1
  Pedia = ""
  For Blues = 1 To Len(Kata)
    huruf = 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


5. Jika sudah coba jalankan program,

lalu tuliskan sebuah kalimat, di sini saya menuliskan judul artikel "Membuat Awal Kata Menjadi Huruf Kapital" di text 1, dan di text 2 adalah penulisnya "Blues Pedia"

sekian tutorial kali ini semoga bermanfaat, 


Bantu kembangkan Blues Pedia yuk, caranya share artikel ini :

G+



0 Response to "Membuat Awal Kata Menjadi Huruf Kapital"

Post a Comment