Aplikasi Manipulasi Teks dengan Visual Basic 2008
Baca Juga
Aplikasi Manipulasi Teks dengan Visual Basic 2008 - Mungkin anda pernah menggunakan Ms.Word untuk mengetik sebuah surat, artikel atau yang lain, ada perintah keyboard Shift + F3 yang dapat digunakan di Ms. Word untuk mengubah teks menjadi UPERCASE, lowercase, Proper Case dan Reverse. Pada tutorial ini saya akan membuat aplikasi manipulasi teks seperti di Ms.Word, berikut langkah - langkahnya:
1. Buatlah project baru
2. Desain project sesuai dengan gambar berikut :
3. Masukan control – control berikut :
No | Object | Property | Nilai |
---|---|---|---|
1 | Form1 | Text | Aplikasi Manipulasi Text |
2 | Label1 | Text | Kalimat: |
3 | TextBox1 | Name Text | TxtInput - |
4 | Label2 | Name Text BorderStyle AutoSize | LblHasil - FixedSingle False |
5 | Button1 | Name Text | BtnUCase UPERCASE |
6 | Button2 | Name Text | BtnLCase Lower case |
7 | Button3 | Name Text | BtnProperCase Proper Case |
8 | Button4 | Name Text | BtnReverse Reverse |
4. Berikut kode program masing – masing Button :
Button UPERCASE
Private Sub BtnUCase_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnUCase.Click LblHasil.Text = Strings.UCase(TxtInput.Text) End Sub |
Button lower case
Private Sub BtnLCase_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnLCase.Click LblHasil.Text = Strings.LCase(TxtInput.Text) End Sub |
Private Sub BtnProperCase_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnProperCase.Click LblHasil.Text = StrConv(TxtInput.Text, VbStrConv.ProperCase) End Sub |
Private Sub BtnReverse_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnReverse.Click LblHasil.Text = Strings.StrReverse(TxtInput.Text) End Sub |
Debugging atau melalui icon Start Debugging
0 Response to "Aplikasi Manipulasi Teks dengan Visual Basic 2008"
Post a Comment