Kamis, 25 November 2010

Membuat Fungsi Awal Kata Menjadi Huruf Besar Pada Visual Basic 6.0

Postingan pertama pada bulan ini, apa kabar semuanya, sedikit basa-basi pastilah tidak akan merugikan anda, hehe..., untuk postingan kali ini kita akan bahas sebuah fungsi yang dapat merubah setiap huruf awal pada sebuah kata menjadi huruf besar atau capslock.

Buka sebuah project baru (Standard.Exe), pada Form1 tambahkan sebuah textbox lalu set properti Height dan Width dengan ukuran yang agak besar pastikan properti Multiline anda set menjadi True, agar textbox nya bisa diperlebar sampai kebawah, dan biarkan properti Name sesuai dengan nama standarnya.

Sekarang mari kita berpindah ke mode editor, klik View -> Code, dan masukkan code berikut ini :
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
Tekan F5 untuk menjalankan project, coba anda ketikkan beberapa kata pada textbox yang telah kita sediakan, maka setiap huruf awal pada kata tersebut otomatis akan berubah menjadi huruf besar.

Selamat mencoba.

2 komentar: