Manipulasi string
Pada program disini kita akan mengembangkan program mengenai string, string adalah sejumlah karakter yang dapat berupa huruf atau angka. Untuk program ini ikuti langkah berikut :
1.Buka program Visual Basic, pada bagian Create klik OK
2.Pada Nama ketikkan "VB_String", dan klik OK
3.Setelah klik Ok maka akan muncul layar seperti ini :
4.Pada Form, atur property
5.Selanjutnya atur ukuran Form, dan masukkan :
· 4 label, ubah property text menjadi :
- Label1 = “String
- Label2 = “Upper”
- Label3 = ”Lower”
- Label4 = “Reverse”
· 11 textbox
· 5 button, ubah property text menjadi :
- Button1 = “Left”
- Button2 = ”Mid’
- Button3 = “Right”
- Button4 = “Start”
- Button5 = “End”
· 2 label
6.Masukkan komponen Timer dan ubah propertiy enabled menjadi = true dan interval menjadi = 100
7.Atur sedemikian rupa sehingga tampak seperti pada gambar berikut ini :
8.Klik 2 kali pada textbox1.text dan tambahkan kode program untuk merubah text menjadi Upper, Lower, dan Reverse,seperti berikut ini :
Dim T1, U, L, R As String
T1 = TextBox1.Text
U = T1.ToUpper
L = T1.ToLower
R = Microsoft.VisualBasic.StrReverse(T1)
TextBox2.Text = U
TextBox3.Text = L
TextBox4.Text = R
9.Klik 2 akli pada button1 (Left), dan tambahkan kode program berikut :
Dim T1, T9 As String
Dim kiri As Byte
T1 = TextBox1.Text
kiri = CByte(TextBox5.Text)
T9 = Microsoft.VisualBasic.Left(T1, kiri)
TextBox9.Text = T9
10.Klik dua kali pada button2 (Mid), dan ketikkan kode program :
Dim T1, T10 As String
Dim tengah, panjang As Byte
T1 = TextBox1.Text
tengah = CByte(TextBox6.Text)
panjang = CByte(TextBox7.Text)
T10 = Microsoft.VisualBasic.Mid(T1, tengah, panjang)
TextBox10.Text = T10
11.Klik dua kali pada button3 (Right),tambahkan kode program sebagai berikut :
Dim T1, T11 As String
Dim kanan As Byte
T1 = TextBox1.Text
kanan = CByte(TextBox8.Text)
T11 = Microsoft.VisualBasic.Right(T1, kanan)
TextBox11.Text = T11
12.Klik dua kali pada button4 (Start) dan tambahkkan kode program :
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
TextBox8.Clear()
TextBox9.Clear()
TextBox10.Clear()
TextBox11.Clear()
TextBox1.Focus()
13.Pada button 5 (End) tambahkan kode program untuk keluar dari program Manipulasi String :
End
14. Terakhir kita akan menambahkan kode program untuk menampilkan tanggal beserta jam pada waktu sekarang. Tanggal dan jam akan ditampilkan pada label5 dan label6. Untuk membuat klode program tang dimaksud, klik dua kali pada timer1 dan ketikkan kode program berikut ini :
Label5.Text = Now.ToLongDateString
Label6.Text = Now.ToLongTimeString
15.Kompile program dengan cara pilih Menu Bar dan klik Build VB_String
16.Setelah tidak ada kesalahan,jalankan program melalui menu debuging dan klik start debuging
17.Klik button Start, kemudian :
· ketikkan “jenny” pada textbox1
· ketikkan angka 1 pada textbox5, dan klik button Left
· ketikkan angka 2 pada textbox6 dan angka 3pada textbox7, dan klik button Mid
· ketikkan angka 1 pada textbox8 dan klik button Right
· Start jika ingin mencoba lagi dengan teks lainnya
· End jika ingin keluar dari program
