Setting Gammu di VB6

Kali ini kita akan sedikit membahas bagaimana agar SMS Gateway yang telah kita buat bisa lebih interaktif tidak hanya sekedar informasi sms masuk dan keluar. Bahasa pemrograman yang kita gunakan adalah vb.6 walaupun beberapa orang sudah menganggap usang namun tools ini masih banyak digunakan.

Tabel yang menjadi perhatian adalah inbox, outbox dan sentitems

Tabel inbox : tabel untuk menampung sms yang masuk melalui modem

Tabel outbox : tabel untuk menampung sementara sms yang keluar

Tabel sentitems : tabel untuk menampung sms keluar setelah sebelumnya mengalami antrian pada tabel outbox.

Salah satu interaksi yang bisa kita lakukan adalah auto reply sms.

Kita bisa menambahkan tabel induk_inbox yang berisi satu field (id integer) untuk menandakan bahwa setiap file dapat dieksekusi satu per satu sesuai dengan urutan masuk ke database.

Logika yang bisa diterapkan adalah sebagai berikut:

Cek apakah nilai id pada tabel inbox lebih besar dari pada id pada tabel induk_inbox, jika ya maka tambahkan niali satu pada id di tabel induk_inbox dan lakukan

Parsing isi sms (disesuaikan dengan kebutuhan misal untuk Administrasi Kemahasiswaan)

Contoh Isi SMS : NILAI [spasi] NPM

Parsing isi sms dan tampung dalam variabel

Kata_pertama = MID(isi_sms,1,INSTR(1,isi_sms,” “,vbtextcompare)-1) è NILAI

Kata_kedua = MID(isi_sms, INSTR(1,isi_sms,” “,vbtextcompare)+1, len(isi_sms)- INSTR(1,isi_sms,” “,vbtextcompare) è NPM

Maka lakukan pengecekan terhadap kata pertama

SELECT Case kata_pertama

Case “Nilai”

Query nilai dari database sesuai dengan nilai NPM yang dimasukan

Jika file ditemukan maka kirim balasan sms

Jika tidak maka kirim balasan data tidak ditemukan

Case …

Case else

Kirim balasan “Format Salah”

End Select

Untuk fungsi send sms bisa dilakukan dengan mengisikan satu record pada tabel outbox seperti :

Insert into outbox values(current_date, current_date, current_date,””,destination number,”Default_No_compression”,””,”-1”,Balasan SMS,””,”False”,”255”,””,”0000-00-00 oo:00:00”,”default”,”Gammu 1.20”)