Membangun SMS Gate Way (Auto Replay) dengan Visual Basic 6.0
Membangun SMS Gate Way (Auto Replay) dengan Visual Basic 6.0
Huppsss……hallo sobat, bagaimana kabar hari ini, siap dengan pelajaran yang ini…? Membangun SMS Gate Way (Auto Replay) dengan Visual Basic 6.0 dengan database SQL, yup kita mulai, pelaratan yang wajib disiapkan …:
- Modem waveCom ( yang menggunakan port Serial – saya menggunakan yang model ini) bila pembaca ingin menggunakan Modem Wavecom yang port USB juga bisa, namun harus disesuaikan COMPORT nya….( device manager ).
- Software Visual Basic 6.0 ( bajakan boleh )
- Software XAMPP ( SQL,Apache webserver)
- Software ODBC Connector
- Kabel serial ( untuk modem yang menggunakan port serial )
- Power supply modem wavecom
Cerita sedikit tentang Proyek ini, Membangun SMS Gate Way (Auto Replay) dengan Visual Basic 6.0
Juragan mendapat tugas dari lembaga sebuah sekolah SMK di kabupaten Banyuwangi untuk membuat pengumuman dan pendaftaran REUNI Alumni melalui SMS dengan database SQL. Seluruh data sms yang dikirim oleh alumni melalui Pendaftaran Reuni via SMS disimpan kedalam database SQL, dan bisa langsung dilihat melalui web sekolah secara RealTime melaui sub domain web sekolah ( dengan format yang sudah ditetapkan – melalui iklan spanduk sehingga para alumni bisa membaca ketentuan cara mendaftar via SMS).
Cara kerja sistem :
Saya memegang prinsip kesederhanaan dalam berfikir namun tepat hasilnya. ( yang penting pelanggan puas )
Seperangkat komputer yang saya sediakan dihubungkan dengan jaringan internet, komputer server ini berbasis OS WINDOWS XP. Didalamnya saya install Software VB 6.0, XAMPP dan kelengkapan webserver.
Alumni mengirim SMS dengan format : #daftar#nama#jurusan#tahun lulus#
dikirim ke nomor sms center, misal 081646474888, maka seluruh pesan yang diterima ModemWaveCom yang sudah berisi SIMCARD dengan pulsanya, akan dibaca modem dan otomatis disimpan ke database SQL dengan bantuan interface Visual basic., artinya -> Visual basic terhuung dengan database SQL dan ModemWaveCom.
Setiap sms masuk dengan format yang benar pasti di balas dengan kalimat balasan ( bisa diubah-ubah ) melalui sms juga.
Cara Membangun SMS GateWay :
Web server di nyalakan, SQL service dijalankan (Buka Control Panel XAMPP – bila pembaca tidak pernah belajar menggunakan XAMPP cari tutorial di google aja, mudah koq).
Kemudian Modem WaveCOM diberi SIM CARD dengan nomor tertentu yang sudah diisi pulsa, modem dinyalakan ( dihubungkan dengan power supply ). Langkah selanjutnya modem dihubungkan dengan komputer melalui com port yang tersedia.
Bila anda pertama kali membeli Modem WaveCOM biasanya belum disetting Mode TEXT, defaultnya modemWaveCOM di setting PDU. Nah untuk mengubah Format PDU ke format TEXT ( sms ) perlu konfigurasi menggunakan perintah AT+COMMAND yaitu : AT+CMGF=1 ( enter )
Bagaimana cara untuk mengirimkan perintah ini ke modem WaveCom..? mudah sekali, silahkan download software PUTTY ( saya sarankan untuk pembaca yang menggunakan WIN7 atau Win8 ) karena Hyperterminal gak ada di OS tersebut.
gambar program putty
Ketik Perintah : AT (enter )
ada balasan dari modem : OK
kemudian ketik perintah : AT+CMGL=1 (enter ) perintah ini untuk melihat konfigurasi format sms yang disediakan
ketik perintah : AT+CMGF=1 ( enter )
ada balasan : OK
nah sekarang ModemWaveCOM sudah diubah settingnya je format TEXT , dan tutup program PUTTY.
Silahkan buka browser ( saya menggunakan mozilla firefox) ketik pada URL alamat , localhost/phpmyadmin
Buat Database dengan nama “alumni“ ( dimohon untuk tetap mengikuti tutorial yang saya berikan, suoaya error yg mungkin terjadi saat uji coba bisa mudah diatasi )
Ketik perintah ini pada form SQL
Create Database `alumni`;
CREATE TABLE `sms_alumni` (
`sms_id` int(4) NOT NULL auto_increment,
`no_hp` varchar(30) collate latin1_general_ci NOT NULL default ‘ ‘,
`nama` varchar(30) collate latin1_general_ci NOT NULL default ‘ ‘,
`tahun_lulus` varchar(10) collate latin1_general_ci default ‘ ‘,
`jurusan` varchar(30) collate latin1_general_ci default ‘ ‘,
`aprove` varchar(2) collate latin1_general_ci default ‘ ‘,
`tgl_daftar` datetime NOT NULL,
PRIMARY KEY (`sms_id`)
) ENGINE=MyISAM DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=33 ;
sekarang buka di phpmyadmin, periksalah apakah sudah ada database alumni dengan tabel sms_alumni….?mudah-mudahan sampai disini bisa dimengerti.
dan bukalah program VB.60 ( source code ) perhatikan potongan program dibawah ini,
wajib diperhatikan untuk pemula, bahwa sistem sms gate way ini, dibuat menggunakan beberapa fungsi , koneksi database, koneksi ke modem menggunakan MSCOMM Control ( yang ada dalam komponen VB 6.0 ), pemisah string sms masuk, parsing Jawaban ( potongan dan model / Format SMS ) ,
Listing Program ini ditulis di General .
Option ExplicitDim strBuffer As String
Dim blnFirstLoad As Boolean
Public Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Kemudian menghubungkan Visual Basic dengan ODBC conncector silahkan donwload di alamat ini ( Download ODBC Windows ) cara menghubungkan ODBC dengan Visual basic silahkan baca artikel “Menghubungkan VB 6.0 dengan databse SQL menggunakan ODBC “ .
Selanjutnya ketik program ini di Form Load.
Private Sub Buat_Koneksi() ‘koneksi ke SQL
Dim ConnString As String
Dim db_name As String
Dim db_server As String
Dim db_user As String
Dim db_pass As String
Dim db_port As String
‘On Error GoTo koneksi_error
db_name = “alumni”
db_server = “localhost”
db_user = “root”
db_pass = “setiahati”
db_port = “3306″
ConnString = “DRIVER={MySql ODBC 5.1 Driver};SERVER=” & _
db_server & “; DATABASE=” & db_name & “;UID=” & db_user & _
“;PWD=” & db_pass & “;PORT=” & db_port & “;OPTION=3″With Conn
.ConnectionString = ConnString
.Open
End WithOn Error GoTo 0
Exit Sub
koneksi_error:
MsgBox “Gagal koneksi ke SQL”, vbInformation, “Periksa Server”
End Sub
…….
Lanjutan Artikel
Berikut ini adalah potongan program untuk konfigurasi Port komputer yang akan terhubung dengan MODEM WaveCom
Private Sub Form_Load()
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
With MSComm1
.CommPort = 1
.Settings = “115200,N,8,1″
.Handshaking = comRTS
.RTSEnable = True
.DTREnable = True
.RThreshold = 1
.SThreshold = 1
.InputMode = comInputModeText
.InputLen = 0
.PortOpen = True
End With
Buat_Koneksi
SetDatagrid
End Sub
With MSComm1
.CommPort = 1
.Settings = “115200,N,8,1″
.Handshaking = comRTS
.RTSEnable = True
.DTREnable = True
.RThreshold = 1
.SThreshold = 1
.InputMode = comInputModeText
.InputLen = 0
.PortOpen = True
End With
Buat_Koneksi
SetDatagrid
End Sub
Dan untuk pengecekan karakter tanda # ( tanda pagar sebagai pemisah string ) pada saat registrasi yang menggunakan format #DAFTAR#NAMA#JURUSAN#TAHUNLULUS#
untuk memisahkan data string tersebut ada beberapa cara salah satunya, dengan menggunakan perintah Instr, perhatikan listing dibawah ini, bila menggunakan perintah SPLIT(data, tanda_pemisah) juga bisa, namun kelemahannya adalah ketika ada sms masuk dengan format yang salah atau kelebihan tanda # ( tanda pagar ) maka program tidak bisa memilah data dengan benar….
Private Sub MSComm1_OnComm()
Dim periksa As Integer
…..
Select Case MSComm1.CommEvent
Case comEvReceive
strBuffer = strBuffer & MSComm1.Input
Do
strBuffer = strBuffer & MSComm1.Input
Loop While MSComm1.InBufferCount
Dim periksa As Integer
…..
Select Case MSComm1.CommEvent
Case comEvReceive
strBuffer = strBuffer & MSComm1.Input
Do
strBuffer = strBuffer & MSComm1.Input
Loop While MSComm1.InBufferCount
If InStr(1, strBuffer, “#DAFTAR”) Then ‘ periksa string #DAFTAR
txtPesan.Text = txtSatu ‘salin ke txtPesan
End If
……
txtPesan.Text = txtSatu ‘salin ke txtPesan
End If
……
……
‘txtSatu.Text = Text1.Text
periksa = Len(txtSatu.Text) ‘periksa jumlah data PDU
If periksa > 40 Then ‘jika datanya lebih dari 40 maka valid lanjutkan..!!
Pisah_String
End If
End If
‘txtSatu.Text = Text1.Text
periksa = Len(txtSatu.Text) ‘periksa jumlah data PDU
If periksa > 40 Then ‘jika datanya lebih dari 40 maka valid lanjutkan..!!
Pisah_String
End If
End If
End If
End Select
End Sub
End Sub
oh ya, karena banyak permintaan aplikasi SMS GATEWAY…. saya berharap para pembaca berkenan menghargai hasil kerja keras tim Laros Edu, karena kami juga butuh Bergadang – mikirin program…dan penyewaaan HOSTING….untuk itu, Kalo mau FULL SOURCE CODE….silahkan melakukan DONASI….
Fitur Aplikasi SMS GATE WAY ( Auto Replay ) :
1. Menggunakan Database SQL
2.Manajemen Data sudah terhubung dengan WEB, kami buatkan interface / antarmuka web sebagai laporan sms masuk, setiap ada sms masuk, maka tampilan di halaman web akan otomatis menyesuaikan….
3. Bisa Auto replay meski ada antrian banyak….
4. Aplikasi gak pernah HANG… dan sudah kami uji coba 1 bulan tanpa dimatikan…. kami mengujinya di salah satu pelanggan kami di sebuah SMK untuk aplikasi SMS ALUMNI
5. Source Code dapat anda kembangkan, setelah DONASI – kami akan memandu anda untuk dapat terus mengembangkan aplikasi tersebut sampai bisa….
Berapa nilai Donasi nya… ? gak banyak koq….. Kami mulai dengan harga Rp. 100.0000
kami berharap keihklasannya….pengujung, bila tidak ada dana cukup silahkan iuran Rp.5rb sesama teman, sejumlah 20 orang…. khan cukup untk donasi…. nantinya SOURCCE CODE dipelajari bersama-sama….
….karena mata sudah ngantuk penulisan artikel hanya sampai disini……kapan2 lagi mampir ya , mohon ijo2 nya…
|
|
Ilmu Komputer 95
|
|
0 Comments
