Membuat Aplikasi SMS dengan Visual Basic Mscomm

Membuat Aplikasi SMS dengan Visual Basic Mscomm

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)

Demikian aplikasi untuk kirim sms dengan menggunakan mscomm VB


Cara Install Windows 7 lengkap gambar dan setting partisi
Membuat Program Stopwatch Sederhana dengan Visual Basic 6.0
Membuat  Debian 5 Lenny Repository List  
Perintah dasar AT COMMAND dengan HP siemens c55

Pengertian VPN, Manfaat dan Cara Cerja VPN
Laptop HP,  Notebook HP, Accessories HP
De Prima Terra, Kawasan industri dan pergudangan di Bandung Indonesia,
 Call centre provider / Customer servis operator pulsa 
lomba seo, seo lomba, kontes seo

Posted in: Membuat Aplikasi SMS dengan Visual Basic Mscomm