Data string merupakan dertan atau rangkaian karakter yang membentuk sebuah kata atau kalimat yang di awali dan diakhiri dengan dengan tanda (").
Dalam artikel kali ini admin akan membuat sebuah program dimana data string yang hendak di proses mengambil dari isian pada textbox sehingga tulisan kalimat yang hendak dimanipulasi oleh prgram dapat i ubah-ubah berdasarkan input dari pengguna.
Berikut dibawah ini adalah gambar dari output pogam pengolahan data string :
 |
| Output Pengolahan Data String |
Berikut dibawah ini adalah langkah dalam pembuatan Program Pengolahan Data String dengan Mengunakan VB6 :
1. Buka Form VB6 Anda dengan Standar EXE
2. Pada Form1 desainlah Form seperti gambar dibawah ini :
 |
| Desain Form |
3. Langkah selanjutnya ketiklah kode dibawah ini :
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "Masukan Data String", vbOKOnly, "Informasi"
Text1.SetFocus
Else
Label3.Caption = Left(Text1.Text, 5) ' 5 adalah karakter yang akan kita ambil
Label5.Caption = "Fungsi Left ini untuk mengambil beberapa karakter dari kiri teks"
Text1.SetFocus
End If
End Sub
Private Sub Command2_Click()
If Text1.Text = "" Then
MsgBox "Masukan Data String", vbOKOnly, "Informasi"
Text1.SetFocus
Else
Label3.Caption = Right(Text1.Text, 5) ' 5 adalah karakter yang akan kita ambil
Label5.Caption = "Fungsi Right ini untuk mengambil beberapa karakter dari kanan teks"
Text1.SetFocus
End If
End Sub
Private Sub Command3_Click()
If Text1.Text = "" Then
MsgBox "Masukan Data String", vbOKOnly, "Informasi"
Text1.SetFocus
Else
Label3.Caption = LTrim(Text1.Text)
Label5.Caption = "Fungsi Ltrim ini untuk menghilangkan spasi kiri"
Text1.SetFocus
End If
End Sub
Private Sub Command4_Click()
If Text1.Text = "" Then
MsgBox "Masukan Data String", vbOKOnly, "Informasi"
Text1.SetFocus
Else
Label3.Caption = RTrim(Text1.Text)
Label5.Caption = "Fungsi RTrim ini untuk menghilangkan spasi kanan"
Text1.SetFocus
End If
End Sub
Private Sub Command5_Click()
If Text1.Text = "" Then
MsgBox "Masukan Data String", vbOKOnly, "Informasi"
Text1.SetFocus
Else
Label3.Caption = Trim(Text1.Text)
Label5.Caption = "Fungsi Trim ini untuk menghilangkan spasi kiri dan kanan"
Text1.SetFocus
End If
End Sub
Private Sub Command6_Click()
If Text1.Text = "" Then
MsgBox "Masukan Data String", vbOKOnly, "Informasi"
Text1.SetFocus
Else
Label3.Caption = UCase(Text1.Text)
Label5.Caption = "Fungsi Ucase ini untuk mengubah huruf kecil menjadi huruf besar"
Text1.SetFocus
End If
End Sub
Private Sub Command7_Click()
If Text1.Text = "" Then
MsgBox "Masukan Data String", vbOKOnly, "Informasi"
Text1.SetFocus
Else
Label3.Caption = LCase(Text1.Text)
Label5.Caption = "Fungsi Lcase ini untuk mengubah huruf besar menjadi huruf kecil"
Text1.SetFocus
End If
End Sub
Private Sub Command8_Click()
If Text1.Text = "" Then
MsgBox "Masukan Data String", vbOKOnly, "Informasi"
Text1.SetFocus
Else
Label3.Caption = Mid(Text1.Text, 3, 4) ' 3 adalah karakter awal dimana pengambilan dimulai
' 4 adalah banyaknya karakter yang akan kita ambil
Label5.Caption = "Fungsi Mid ini untuk mengambil sebagian karakter dimana pengambilan awal di tentukan kita sendiri"
Text1.SetFocus
End If
End Sub
Private Sub Command9_Click()
If Text1.Text = "" Then
MsgBox "Masukan Data String", vbOKOnly, "Informasi"
Text1.SetFocus
Else
Label3.Caption = Len(Text1.Text)
Label5.Caption = "Fungsi Len ini untuk menghitung panjang sebuah string"
Text1.SetFocus
End If
End Sub
Private Sub Form_Load()
Text1.Text = ""
Label3.Caption = ""
Label5.Caption = ""
End Sub
4. Kemudian jalankan project Anda, jika tidak ada error maka hasilnya akan tampak pada gambar diawal artikel ini.
Demikianlah atikel singkat kali ini tentang Membuat Program Pengolahan Data String dengan Mengunakan VB6.
Semoga artikel ini bermanfaat buat kita semua, Amin.
Selamat mencoba semoga berhasil
No comments:
Post a Comment