Membuat Awal Kata Menjadi Abjad Kapital

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


5. Jika sudah coba jalankan program,

kemudian tuliskan sebuah kalimat, di sini aku menuliskan judul artikel "Membuat Awal Kata Menjadi Huruf Kapital" di text 1, dan di text 2 yaitu penulisnya "Routeros Mikrotik"

sekian tutorial kali ini biar bermanfaat, 

Comments