Kirim *Reg#Jawaban A# ke nomer 0899763412xx, mungkin kita tidak asing dengan iklan ataupun ajakan dari presenter di sebuah televisi sekarang ini. Ataupun bentuk yang lain semisal, ya ini adalah sebuah bentuk aplikasi dari layanan SMS. Inilah yang disebut dengan SMS gateway secara sederhana. Konsep SMS gateway adalah sederhana. Yaitu, menerima SMS, mengolah pesan masuk sesuai syntax yang ditentukan, dan menghubungkan ke database, baik itu mencari database, menyimpan ataupun yang lainnya.Hampir semua bank sekarang menyediakan layanan SMS banking, yang memberikan layanan dengan mengirimkan SMS dengan format syntax yang telah ditentukan.
Pada kali ini, Anda akan belajar bagaimana mengolah pesan masuk (SMS inbox), menjadi keyword yang dapat digunakan dalam pengolahan data database. Misalnya aplikasu SMS gateway untuk layanan akademik di sekolah.
Dicontohkan, syntax SMS untuk meminta data nilai suatu pelajaran adalah:
*Nilai#MataPelajaran#Kelas#Semester#
Dengan contoh dalam SMS client adalah, *Nilai#Matematika#VII#02#
Dari syntax di atas, Anda bisa mendapatkan empat keyword (kata kunci) yang selanjutnya dapat digunakan dalam pemrosesan data base, yaitu Nilai, Matematika, VII, 02.
Algoritma yang digunakan adalah:
- temukan posisi karakter bintang ‘*’ dari pesan
- temukan posisi karakter pagar ‘#’ pertama dari pesan
- ambil keyword pertama yang posisinya adalah posisi_bintang+1 sampai posisi_pagarpertama-1
- temukan posisi karakter pagar ‘#’ kedua dari pesan
- ambil keyword kedua yang posisinya adalah posisi_pagarpertama+1 sampai posisi_pagarkedua-1
- temukan posisi karakter pagar ‘#’ ketiga dari pesan
- ambil keyword ketiga yang posisinya adalah posisi_pagarkedua+1 sampai posisi_pagarketiga-1
- temukan posisi karakter pagar ‘#’ keempat dari pesan
- ambil keyword keempat yang posisinya adalah posisi_pagarketiga+1 sampai posisi_pagarkeempat-1
bagaimanakah implementasi tiap langkah di atas dalam syntax VB 6?
Mari kita pelajari langkah-demi langkah.
- untuk mencari posisi sebuah karakter dalam sebuah string, VB sudah menyediakan library. Kita bisa menggunakan syntax
InStr(Teks, KarakterDicari)
Dari contoh dapat dilakukan dengan
posBintang=InStr(Text1.Text, “*”)
posPagar1 = InStr(Text1, “#”)
dari sini Anda mendapat posisi karakter bintang dan karakter pagar1
- untuk mengambil string dari sebuah string lain dengan posisi awal sampai sejumlah karakter dapat digunakan dengan syntax
Mid(Teks,PosAwal,PanjangKar)
Dari contoh di atas Anda bisa mendapatkan string keyword dengan code:
Text2 = Mid(Text1, posBintang + 1, posPagar1 – posBintang – 1)
- kemudian untuk mencari keyword kedua adalah mengetahui posisi pagar kedua pada sisa string dan mengambil posisinya dalam string tersebut.
Setelah posisi pagar kedua diketahui, ambil string dengan posisi awal adalah posisi pagar pertama sejumlah selisih posisi pagar kedua dan pagar pertama.
code yang digunakan adalah:
‘keyword 2
temp = Right(Text1, Len(Text1) – posPagar1)
posPagar2 = InStr(temp, “#”)
Text3 = Mid(temp, 1, posPagar2 – 1)
- untuk mencari keyword ketiga adalah mengetahui posisi pagar ketiga pada sisa string dan mengambil posisinya dalam string tersebut.
Setelah posisi pagar ketiga diketahui, ambil string dengan posisi awal adalah posisi pagar kedua sejumlah selisih posisi pagar ketiga dan pagar kedua.
code yang digunakan adalah:
‘keyword 3
temp1 = Right(temp, Len(temp) – posPagar2)
posPagar3 = InStr(temp1, “#”)
Text4 = Mid(temp1, 1, posPagar3 – 1)
- untuk mencari keyword ketiga adalah mengetahui posisi pagar ketiga pada sisa string dan mengambil posisinya dalam string tersebut.
Setelah posisi pagar keempat diketahui, ambil string dengan posisi awal adalah posisi pagar ketiga sejumlah selisih posisi pagar keempat dan pagar ketiga.
code yang digunakan adalah:
‘keyword 4
temp = Right(temp1, Len(temp1) – posPagar3)
posPagar4 = InStr(temp, “#”)
Text5 = Mid(temp, 1, posPagar4 – 1)
- Untuk lebih lengkapnya, code diatas adalah:
Dim posBintang As Integer, posPagar1 As Integer, posPagar2 As Integer, posPagar3 As Integer, posPagar4 As Integer
Dim temp As String, temp1 As String
‘keyword 1
posBintang = InStr(Text1, “*”)
posPagar1 = InStr(Text1, “#”)
Text2 = Mid(Text1, posBintang + 1, posPagar1 – posBintang – 1)
‘keyword 2
temp = Right(Text1, Len(Text1) – posPagar1)
posPagar2 = InStr(temp, “#”)
Text3 = Mid(temp, 1, posPagar2 – 1)
‘keyword 3
temp1 = Right(temp, Len(temp) – posPagar2)
posPagar3 = InStr(temp1, “#”)
Text4 = Mid(temp1, 1, posPagar3 – 1)
‘keyword 4
temp = Right(temp1, Len(temp1) – posPagar3)
posPagar4 = InStr(temp, “#”)
Text5 = Mid(temp, 1, posPagar4 – 1)
Dengan demikian Anda sudah bisa mendapatkan empat keyword yang ada dalam pesan, untuk selanjutnya dapat digunakan sebagai parameter dalam pengolahan database.
Demikian semoga bermanfaat.
Source : http://rohmadi.com/2011/03/23/
