Sudah lama tidak melakukan posting dan ternyata sekarang sudah hampir masuk ke akhir bulan November 2011, 1 hari kemarin kita merayakan Hari Sumpah Pemuda yang ke 83, salah satu hari yang bersejarah dalam perjalanan hidup bangsa Indonesia dalam mempersatukan bahasa, tanah air dan bangsa menjadi satu dalam istilah lainya Bhineka Tunggal Ika tapi buktinya tidak Ika (baca:satu).

Maaf jadi melantur kemana-mana, untuk postingan kali ini saya akan sedikit memberikan gambaran tentang SMS Gateway, terutama fokusnya "Cara Mengirim SMS ke Banyak Nomor" dengan bahasa program yang akan kita pakai adalah Visual Basic Classic dan Software Database MySQL sebagai media penyimpanan datanya serta tools gammu sebagai gateway Handphone ke MySQL.


Dan bahan-bahan yang harus kita persiapkan selain komputer kesayangan kita, bisa anda pelajari dulu tutorial yang sudah saya sampaikan sebelumnya yaitu Pengantar Membuat Aplikasi SMS. Kalau sudah memahami silahkan dilanjutkan kepaparan berikut di bawah ini.



1. Desain Interface dengan visual basic percis seperti gambar dibawah ini  dan saya harap anda sudah terbiasa dengan bahasa yang satu ini :D
    Gambar 1. Desain Interface
     2. Coding program,
    '/--------------------------------------------------------------\
    ' Nama Program : FarrahaSMS '
    ' Pembuat : Eka Riana '
    ' Sifat : Open Source '
    ' Email : ngoprex.eka@gmail.com '
    ' Website : ngopre-x.blogspot.com '
    ' Phone : 02199530400 '
    '\--------------------------------------------------------------/

    Option Explicit

    Private Sub cmdKirim_Click()
    Dim xNumber As String
    Dim i As Integer
    For i = 0 To List1.ListCount
    xNumber = List1.List(i)
    StrSQL = ""
    StrSQL = "Insert Into outbox (DestinationNumber," _
    & " TextDecoded)" _
    & " values ('" & xNumber & "'," _
    & "'" & TxtIsiPesan.Text & "')"
    Conn.Execute StrSQL
    Next i
    List1.Clear
    TxtIsiPesan.Text = ""
    End Sub

    Private Sub cmdTambah_Click()
    List1.AddItem txtNoTujuan.Text
    txtNoTujuan.Text = ""
    End Sub


    Private Sub Form_Activate()
    txtNoTujuan.SetFocus
    End Sub

    Private Sub Form_Load()
    Call KoneksiMySQL
    TxtIsiPesan.MaxLength = 160
    TxtIsiPesan.Text = ""
    End Sub


    Private Sub TxtIsiPesan_Change()
    Label6.Caption = Len(TxtIsiPesan.Text)
    If Label6.Caption = 160 Then
    MsgBox "Batas Max SMS hanya 160", vbInformation, _
    "FarrahaSOfT"
    Exit Sub
    End If
    End Sub

    Private Sub txtNoTujuan_KeyPress(KeyAscii As Integer)
    'Tidak dipakai
    If KeyAscii = 27 Then frmPhoneList.Show
    End Sub

    Jangan lupa untuk membuat prosedur KoneksiMySQL pada modul, coding programnya bisa dilihat dibawah ini :

    Public Conn         As New ADODB.Connection
    Public RsKirim As New ADODB.Recordset

    Public Sub KoneksiMySQL()

    On Error GoTo salah

    If Conn.State <> 0 Then Conn.Close

    Set Conn = New ADODB.Connection

    Conn.CursorLocation = adUseClient

    Conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
    & "SERVER=localhost;" _
    & "DATABASE=sms;" _
    & "UID=root;PWD="
    Conn.Open

    Exit Sub

    salah:
    MsgBox Err.Description, vbCritical, "ERROR!"

    End Sub

    3. Silahkan test dengan cara running program yang sudah kita buat, kemudian masukkan beberapa nomor, jangan lupa masukkan isi pesan yang mau dikirim, Klik Tombol Kirim SMS, lihat hasilnya apakah SMS yang kita kirim sudah sampai di nomor tujuan atau belum.

    Tambahan :
    Jangan lupa untuk menjalankan Daemon SMSD nya.

    Demikian paparan yang saya sampaikan ini, paparan ini hanyalah sebuah dokumentasi pribadi semata, bila ada yang ingin disampaikan silahkan berikan komentar dibawah ini.

    Untuk source codenya silahkan unduh di ----> BulkSMS