Visual Basic : Mengirim SMS Menggunakan Modem GSM/HSDPA

Tulisan ini akan membahas bagaimana membuat aplikasi dari Visual Basic 6 yang dapat mengirim SMS melalui modem GSM/HSDPA. Cara yang akan dibahas pada tulisan ini, mungkin akan berguna jika anda hendak membuat aplikasi yang memiliki fitur tambahasan seperti mengirim SMS. Jika anda ingin membuat aplikasi SMS Gateway, anda dapat mengembangkannya.
Inti dari pengiriman SMS dengan modem GS/HSDPA ini adalah “AT Command”. AT Command digunakan dalam pemrograman untuk mengirimkan instruksi pada modem.
Untuk persiapan anda akan membutuhkan:
- PC dengan Sistem Operasi Windows XP
- Microsoft Visual Basic 6
- Sebuah Modem GSM/HSDPA berikut Drivernya. Pada percobaan yang dilakukan penulis, modem yang digunakan adalah modem ZTE
Sebelum tahap Coding, pastikan anda telah menginstal driver modem yang akan anda gunakan. Setelah itu cek nomor port COM tempat modem tersebut dapat diakses. Caranya adalah sebagai berikut:
1. Klik Kanan My Computr
2. Klik Properties, lalu Klik Hardware
3. Pada Tab Properties Klik Device Manager
4. Temukan Modem GSM anda pada pilihan Modem, Lalu Klik Kanan dan Klik Properties
5. Pada Form Propeties Modem, Pilih Tab Modem
6. Disini anda dapat melihat dua informasi yang anda butuhkan yaitu:
a. Nomor Port COM modem anda
b.Info Kecepatan Modem anda
Catat kedua informasi di atas!!
Sekarang anda dapat lanjut ke bagian Coding di Visual Basic, prosesnya sangat sederhana yaitu:
1. Membuka Koneksi ke Modem
2. Mengirim SMS
Oh iya, anda akan butuh Control MSComm. Letakkan MSComm di form yang akan digunakan untuk mengirim SMS.

Procedure untuk membuka koneksi ke Modem sebagai berikut:
Sub ConnectToModem()
With MSComm1
.CommPort = 10
.Settings = “9600,N,8,1″
.Handshaking = comRTS
.RTSEnable = True
.DTREnable = True
.RThreshold = 1
.SThreshold = 1
.InputMode = comInputModeText
.InputLen = 0
.PortOpen = True
End With
End Sub
Perhatikan, pada bagian .CommPort isikan nomor port yang sesuai dengan nomor port Comm modem anda. Begitupula pada .Settings, ganti angka 9600 dengan yang sesuai anda dapatkan sebelumnya.
Adapun procedure untuk mengirim SMS, sebagai berikut:
Sub Kirim_SMS()
MSComm1.Output = “AT” & vbCrLf
Sleep 500
MSComm1.Output = “AT+CMGF=1″ & vbCrLf
Sleep 500
MSComm1.Output = “AT+CMGS=” & Chr(34) & noHP & Chr(34) & vbCrLf
Sleep 1000
MSComm1.Output = isiPesan & Chr(26)
Sleep 2000
End Sub
Jangan lupa pada bagian deklarasi variabel masukkan code di bawah ini:
Private Declare Sub Sleep Lib “kernel32″ (ByVal dwMilliseconds As Long)
Jika, ada yang butuh contoh aplikasinya silakan download contohnya. Jangan lupa setelah download, ganti ekstensinya menjadi .zip