[laelamadjnun.info]- Mata kuliah struktur data, mungkin alian yang kuliah di jurusan manajenen informatika paling tidak pernah, sedang mengambil atau akan mengambil mata kuliah ini, ya di matan kuliah ini kita dituntut untuk bisa bermain-main dengan logika dan penguasaan coding yang lumayan menguras otak, karena disini kita harus bisa mengganti bahkan menghapus sebagian dari teks yang kita tuliskan, sebagai contoh pada kasus ini kita hasus bisa mengganti dan menghapus kata dari kata KEBUMEN, seperti pada gambar disamping, disini saya menggunakan bahasa pemrograman vb 6.0 dan sourcodenya seperti dibbawah ini, silahkan anda sesuaikan dengan nama form yang anda gunakan, kalo source code dibawah ini langsung di copy paste tidak akan berhasil, karena nama text box nya sudah saya rubah buan nama default lagi.
Berikut Source Codenya
Private Sub cmdEdit_Click()
Dim Data As String
Dim CariData As String
Dim Rubah As String
Dim i As Integer
Dim k As String
Dim j As String
Dim PjgData As String
Dim PjgCari As String
Dim PjgRubah As String
Data = Me.txtData.Text
CariData = Me.txtCariData.Text
Rubah = Me.txtRubahData.Text
PjgData = Len(Me.txtData.Text)
PjgCari = Len(Me.txtCariData.Text)
PjgRubah = Len(Me.txtRubahData.Text)
jml = 0
For i = 1 To PjgData
k = Mid(Data, i, PjgCari)
If k = CariData Then
jml = jml + 1
End If
Next i
Me.txtHasilEdit.Text = Replace$(Data, CariData, Rubah)
End Sub
Private Sub cmdHapus_Click()
Dim Data As String
Dim CariData As String
Dim Rubah As String
Dim i As Integer
Dim k As String
Dim j As String
Dim PjgData As String
Dim PjgCari As String
Dim PjgRubah As String
Data = Me.txtData.Text
CariData = Me.txtCariData.Text
Rubah = Me.txtRubahData.Text
PjgData = Len(Me.txtData.Text)
PjgCari = Len(Me.txtCariData.Text)
PjgRubah = Len(Me.txtRubahData.Text)
jml = 0
For i = 1 To PjgData
k = Mid(Data, i, PjgCari)
If k = CariData Then
jml = jml + 1
End If
Next i
Me.txtHasilHapus.Text = Replace$(Data, CariData, "")
End Sub
Kalo Mau Download Projectnya Silahkan Click
Terima kasih telah membaca artikel tentang Struktur Data Edit & Hapus di blog TEKNOLOGI INFORMASI jika anda ingin menyebar luaskan artikel ini di mohon untuk mencantumkan link sebagai Sumbernya, dan bila artikel ini bermanfaat silakan bookmark halaman ini di web browser anda, dengan cara menekan Ctrl + D pada tombol keyboard anda.