Official StoreTekan tombol di atas untuk membeli semua alat dan bahan eksperimen di web ini

Membuat Software Autoreply SMS dengan Delphi

Yang pada mau bikin software autoreply SMS dengan Delphi, yuk kita belajar bareng. Kegunaan sistem autoreply ini ada banyak sekali tergantung implementasinya, tapi intinya adalah untuk memberikan respon secepat mungkin kepada pengirim SMS  sesuai dengan keyword SMS yang diberikan. Pada artikel kali ini saya ingin member contoh, bagaimana membuat software autoreply SMS, yang fungsinya memudahkan pemilik kendaraan bermotor yang ingin mengetahui kapan masa berlaku STNK-nya habis. Cukup dengan mengirimkan keyword nomor polisi STNK Anda ke nomor hotline SMS, maka Anda akan langsung mendapat reply masa berlaku STNK Anda.

Siapkan database MySQL dengan nama ‘dbnopol’ dan tabel dengan nama ‘tabnopol’. Define tabel ‘tabnopol’ dengan  dua field, yakni ‘nopol’ dan ‘deadline’. Field ‘nopol’ nanti akan kita isi dengan nomor-nomor STNK dan field ‘deadline’ akan berisi data masa berlakunya. Intinya, tabel ‘tabnopol’ akan menyimpan seluruh data nomor polisi/STNK beserta masa berlakunya. Bagaimana cara instalasi database MySQL dan koneksinya dengan Delphi, dapat Anda baca disini.

Sebelum kita membuat sebuah program, alangkah baiknya jika mendefinisikan fungsi/tujuan dibuatnya program ini. Kira-kira program yang nanti kita buat, fungsinya adalah “Jika ada SMS masuk dengan keyword tertentu, ceklah di database ‘dbnopol’. Jika ada data yang dimaksud, reply data tersebut kepada pengirim SMS’. Kalau statement ini kita buat flowchart-nya, kurang lebih seperti pada gambar di bawah.

flowchart autoreply sms

Mari kita coba implementasikan flowchart di atas dalam program Delphi. Buat form baru, dan siapkan komponen beserta properties-nya sebagai berikut :

Component Properties Value
Button1 Caption Setting
Button2 Caption Open COM
Button3 Caption Open db
Memo1
Comport1
DBGrid1 DataSource DataSource1
DBNavigator1 DataSource DataSource1
ZConnection1 Database dbnopol
Protocol Mysql-5
Hostname localhost
User root
ZQuery1 Connection ZConnection1
SQL Select * from tabnopol
DataSource1 DataSet DataSource1

Atur tata letak komponen seperti pada gambar di bawah:

Kemudian masukkan source code berikut, berturut-turut untuk button1, button2 dan button3

Button1 berfungsi untuk pengaturan parameter serial (COM) port, Button2 berguna untuk inisialisasi koneksi dengan modem/handphone melalui virtual serial port dan Button3 adalah untuk membuka koneksi dengan database MySQL.
Kemudian masukkan source code berikut di event OnRxChar milik komponen ComPort1. Source code ini berfungsi untuk handling event SMS masuk dan keluar.

Dan terakhir, masukkan source code berikut ke dalam event OnChange milik komponen Memo1. Source code inilah yang sebenarnya berfungsi sebagai program utama dalam program autoreply SMS ini.

Penjelasan source code di atas :

Potongan kode di bawah dimaksudkan untuk mengetahui jika ada SMS masuk yang diindikasikan dengan munculnya karakter ‘+CMTI’

Potongan kode di bawah dimaksudkan untuk me-‘render’ informasi yang ada dalam SMS yang masuk ke modem/handphone. Informasi yang bisa didapatkan antara lain : status SMS, nomor pengirim, tanggal dan waktu diterima SMS, dan yang terakhir adalah isi SMS itu sendiri.

Kalau yang ini, Anda tentunya sudah bisa menduganya sendiri, kan? Potongan source kode di bawah dimaksudkan untuk mengecek apakah keyword SMS sesuai dengan data di database atau tidak. Jika ada data yang dimaksud akan di-reply data masa berlaku nopol STNK, sedang jika tidak ada data yang dimaksud akan di-reply ‘Maaf nopol Anda tidak terdaftar’.

Running-lah program yang telah Anda buat tadi, dan coba koneksikan dengan modem yang terhubung ke computer dengan menekan tombol ‘Setting’ dan ‘Open COM’. Jangan lupa tekan tombol ‘Open db’ untuk membuka koneksi dengan database MySQL. Jika program Anda benar, seharusnya akan muncul tampilan sebagai berikut.

Keterangan : untuk data tabel di atas diisi secara manual, untuk percobaan (misal: nopol K7777JB, deadline 7/30/2011).

Sekarang coba Anda SMS dengan isi SMS ‘K7777JB’ ke nomor ‘hotline’ (nomor di dalam modem yang terhubung computer), dan perhatikan apakah Anda sudah mendapat reply dari nomor hotline. Coba variasikan isi SMS dengan keyword lain, untuk menguji program ini.

Jika ada yang ingin didiskusikan, bisa mengisi komentar di bawah. Kalo ada yang mau pesan program sama saya juga boleh 🙂 Happy programming 🙂

Incoming search terms:

sms auto reply dengan delphi, membuat sms auto reply dengan delphi, membuat auto reply sms dengan delphi dan comport, script at commend untuk autoreplay delphi, auto reply sms dengan comport, sms autoreplay dengan comport, source code simpan data variabel string di comport delphi 7, muncul cdsi, mengatasi unable to open com port delphi, mengatasi data mismatch pada delphi 7
89 Comments

Add a Comment

Your email address will not be published. Required fields are marked *

error: Content is protected !!