Sunday, July 22, 2012

Mengirim SMS dengan Visual Basic .NET

Pada kesempatan ini, Anda akan mempelajari bagaimana mengirim pesan singkat melalui Visual Basic .NET menggunakan Modem GSM Wavecom. Modem Wavecom memiliki beberapa perintah AT Command yang berhubungan dengan SMS, diantara untuk mengirim, menghapus, membaca, dan lainnya. Komunikasi antara modem GSM dengan VB .NET melalui port serial. Sehingga Anda akan mudah melakukannya karena pada VB .NET sudah tersedia tool untuk komunikasi melalui port serial.
Mengirim SMS



Untuk mengirim SMS melalui modem, lakukan langkah-langkah berikut ini:
1. AT
balasan “OK” jika modem berfungsi
2. AT+CMGF=1
mengatur mode Teks
3. AT+CSCA= ”+XXXX”
nomer SMS Center, tergantung SIM Card yang digunakan
Untuk mengirim pesan:
4. AT+CMGS= ”+NNNN” <Enter>
nomer handphone yang akan dituju
5. Pesan_yang_akan_kita_kirim <Ctrl+Z>
Kemudian, bagaimanakah jika menggunakan VB .NET?
Langkah-langkahnya sama dengan diatas.
1. SerialPort1.WriteLine(“AT”)
mengirim perintah AT ke port serial
2. SerialPort1.WriteLine(“AT+CMGF=1″ & vbCrLf)
mengirim perintah AT+CMGF=1 dan Enter, yaitu kita mengatur modem agar bekerja dalam mode teks.
3. SerialPort1.WriteLine(“AT+CSCA=” & Chr(34) & txtCenter.Text & Chr(34) & vbCrLf)
mengirim perintah AT+CSCA diikuti nomer SMS Center dan Enter. Nomer SMS Center di sini tergantung dari operator SIM card yang dipakai, sehingga bisa disesuaikan
4. SerialPort1.WriteLine(“AT+CMGS=” & Chr(34) & txtNotujuan.Text & Chr(34) & vbCrLf)
mengirim perintah AT+CMGS diikuti nomer tujuan SMS dan enter. Nomer tujuan bisa semua operator.
5. SerialPort1.WriteLine(txtPesan.Text & Chr(26)) ‘SMS sending
mengirim isi pesan diikuti Ctrl+z


dengan demikian isi SMS akan terkirim sukses.
Untuk lebih jelasnya, silakan pelajari pada code VB .NET yang disertakan. Semoga bermanfaat.

Source :  http://rohmadi.com/2011/03/21/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari SMS Gateway Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

2 comments:

  1. mas berarti ini kita mengambil port yang disambungkan pada modem ya.?

    ReplyDelete
  2. kirim sms via vb+at command :
    bisa lihat video https://youtu.be/lvGASDO38wQ


    Try
    With SerialPort1
    .Write("at+cmgf=1" & vbCrLf)
    Threading.Thread.Sleep(1000)
    .Write("at+cmgs=" & Chr(34) & TextBox1.Text & Chr(34) & vbCrLf)
    .Write(TextBox2.Text & Chr(26))
    Threading.Thread.Sleep(1000)
    End With
    Catch ex As Exception

    End Try

    ReplyDelete