Sms Gateway vb6 programming (basic)

admin — Tue, 04 Aug 2009 19:44:35 +0000

Ini merupakan pelajaran yang sangat menarik bagi saya, dan sudah lama juga saya mencari cara mudah, murah dan ga ribet untuk mencoba praktek dengan mudah membuat aplikasi SMS Gateway dengan Visual Basic 6. Sebenarnya device yang saya gunakan tidak begitu murah bagi saya, namun sangat mudah didapatkan untuk sekarang ini, yaitu saya menggunakan modem Broadband 3G Huawei E156 yang harganya Rp. 550.000,00 (http://www.jakartanotebook.com July 2009), tapi ada juga loh yang harganya 350rb dan bisa anda pakai untuk praktek.

Awalnya saya menggunakan Handphone nokia 7610 untuk praktek namun tidak dapat disisipkan AT-Commands, dan akhirnya saya membeli modem yang awalnya untuk berselancar di dunia internet, namun sempat terpikir untuk mencobanya, karena pada modem tersedia fasilitas Send and receive SMS dengan software bawaannya.

Sebelum anda melangkah ke programming Visual Basic, anda harus mengerti atau tau sedikit dengan perintah-perinta AT, namun anda pasti ingin tahu apa sih dan kenapa disebut “AT” Commands..? AT Commands merupakan perintah yang digunakan pada Hayes-compatible modem. Perintah ini disebut demikian karena pada penulisan perintahnya, kita harus memulainya dengan huruf AT (berasal dari attention).

Mungkin sebaiknya langsung saja pada praktek, masukkan modem anda dan cobalah buka aplikasi HyperTerminal untuk akses Serial Port (Saya menggunakan Settingan 9600,8,n,1 dengan COM2), bagi anda coba cek terlebih dahulu modem anda terdeteksi pada Serial Communication berapa?kemudian bit rate modem anda pun harus sesuai, setelah itu coba untuk “Connect”. Berikut akan saya ulas perintah-perintah yang sering digunakan untuk membuat aplikasi SMS Gateway.

AT
OK

Perintah AT yang berarti Attention, biasanya saya gunakan untuk melakukan pengetesan apakah modem tersebut support AT commands atau tidak, dan modem akan reply pada baris selanjutnya yaitu “OK”.

AT+CMGF=[Message Format]

AT+CMGF=1
OK

Perintah ini sangat penting, karena jika anda tidak mengeksekusi perintah ini secara default (Huawei E156G) sms yang anda baca dengan format 7 bit atau 8 bit atau PDU Mode. Message format sendiri terdapat 2 pilihan yaitu :

0 = PDU Mode (7 bit or 8 bit format)

1 = Text Mode

AT+CMGR=[index]

AT+CMGR=3
+CMGR: Message..

Perintah untuk membaca pesan atau SMS menurut urutan pesan (index)

AT+CSQ=?

Untuk mengetahui Level Signal pada device yang kita gunakan.

AT+CSQ=?

+CSQ: 19,09OK

bentuk format command tersebut adalah +CSQ: (list of supported s), (list of supported ) OK dan berikut kutipan keterangan mengenai parameter http://ww1.freeau.net/freeau/freeau2680.aspx?id=2014

Parameter
Receive level:
0 -113 dBm or less
1 -111 dBm
2…30 -109… -53 dBm
31 -51 dBm or greater
99 not known or not detectable

Bit error rate:
0…7 as RXQUAL values in the table in GSM 05.08
section 8.2.4.
99 not known or not detectable.
To check the bit error rate there must be a call in progress to
obtain realistic values. If no call is set up, there is no BER to be
determined. In this case the indicated value may be 0 or 99,
depending on the SIM card.
Reference
GSM 07.07

To Be Continued..

Sending Message or SMS vb6 Script

Dibawah ini saya berikan contoh script untuk melakukan pengiriman sms :

Private Declare Sub Sleep Lib “KERNEL32″ (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
With MSComm1
.Settings = “115200,n,8,1″
.CommPort = 3 ‘—sesuaikan dengan COM anda
.PortOpen = True
.Output = “AT+IPR=115200″ + Chr(13)
Sleep 715
.Output = “AT E0″ + Chr(13)
Sleep 990
.Output = “AT+CMGF=1″ + Chr(13)
Sleep 100
txtPhone=”0856244031313” ‘—sesuaikan nomor HP tujuan
.Output = “AT+CMGS=” + Chr$(34) + Trim(Me.txtPhone) + Chr$(34) + vbCr
Sleep 1000 ‘ USE API
.Output = “Ini pesan singkat SMS yang dibuat lewat VB6 saya”+ Chr$(26)
.Output = “AT+CPAS” + Chr(13)

MsgBox “Kirim OK”, vbInformation
End With
End Sub

Sumber :

Pertanyaan, Kritik dan saran bisa kirim email ke : gandi@dhirenz.com

Share from my mind » Modem 3G Murah

Sms Gateway vb6 programming (basic)