Membuat Program Kirim SMS Sederhana dengan VB6 dan GAMMU Mungkin agan sudah pada tahu dan ada yang sudah bahas tentang ini, tapi sekedar sharing aja, Kalau Repost mohon di gabung saja. Untuk yang menggunakan PHP, JAVA dan lainnya mungkin sudah banyak, saya coba menggunakan VB6. Jika nanti banyak yang minat saya tambahkan yang lain.
Saya akan kasih contoh Program Mengirim SMS sederhana menggunakan VB6, GAMMU dan database menggunakan MySQL
peralatan tempur yang disediakan: - Software VB6 tentunya - ODBC Driver (kalau bisa versi terbaru 5.1) d i unduh di sini: Spoiler for ODBC for ODBC Driver : http://dev.mysql.com/downloads/connector/odbc/ - Web server, saya gunakan XAMPP. Yang lain juga bias misalnya WAMP: Spoiler for Xampp: Xampp: http://www.apachefriends.org/en/xampp-windows.html - GAMMU Bisa di download di sini: Spoiler for GAMMU for GAMMU : http://wammu.eu/download/gammu/win32/ - Henpon tentunya (atau modem lain yang support Gammu). Ane menggunakan Siemens C55 (Gak bisa di donlot tapi harus beli) Langkah-langkahnya: 1. Install VB6, kalau sudah lewati 2. Install Web Server, misalnya XAMPP tadi 3. Install GAMMU/Kalau bisa donlot yang ZIP nya, letakkan di Drive misalnya C:\, ganti foldernya jadi gammu. (anggap saja sudah jadi dan ada di C:\gammu) 4. Cari file gammurc dan smsdrc di C:\Gammu\share\doc\gammu\examples\config 5. Edit file gammurc dan smsdrc menggunakan notepad atau pengolah teks lainnya. Pada file gammurc rubah yang ini: Spoiler for gammurc: gammurc: [gammu] device = com3: (rubah ke port modem/hp agan) connection = at19200 (sesuaikan dengan hp/modem agan)
Pada file smsdrc rubah yang ini Spoiler for smsdrc: smsdrc: [gammu] port = com3:
connection = at19200 service = MYSQL user = root password = pc = localhost database = sms
Catatan: device dan port: tergantung dari port modem agan Connection : tergantung dari koneksi modem/hp agan 6. copykan file gammurc dan smsdrc ke folder C:\Gammu\bin 7. jalankan XAMPP-Control, Klik Start pada Apache, Klik Start pada Mysql 8. di browser ketik http://localhost/phpmyadmin, buat database dengan nama sms, lalu IMPORT file mysql.sql yang letaknya di Quote: C:\Gammu\share\doc\gammu\examples\sql dan klik GO 9. Install ODBC Driver, jika sudah selesai masuk ke Start-->Settings-->Control Panel->Administrative Tools-->Data Sources (ODBC), dari Users DSN klik ADD. 10. Isi Data Source name misalnya SMSX, Server : localhost, port:3306, user:root, Password
kosongkan), Database:sms
Sekarang tinggal coba: 1. Klik Start-->Run, ketik CMD, pada console CMD ketik: cd\Gammu 2. Untuk mengecek modem/hp sudah terkonek apa belum ketik: gammu identify 3. Jika sudah terkoneksi jalankan gammu servicenya, ketik: gammu-smsd -c smsdrc -i Sudah selesai, tahap selanjutnya tinggal masukkan script yang di bawah ke VB, atau source bisa di download di sini: Spoiler for Source Code: http://www.4*shared.com/file/U-BoUo2J/smsvb.html
Spoiler for skrinsut :
Spoiler for source form1: Code: Private Sub Command1_Click() Dim RS As ADODB.Recordset Set RS = New ADODB.Recordset Dim SQL As String Koneksi SQL = "INSERT INTO outbox (DestinationNumber, TextDecoded, CreatorID) VALUES ('" & Nohp.Text & "','" & Pesan.Text & "', 'Gammu')" RS.CursorLocation = adUseClient RS.Open SQL, conn, adOpenDynamic, adLockOptimistic MsgBox "Pesan telah dikirim", vbOKOnly, "Kirim" End Sub
Spoiler for source module1: Code: Option Explicit Public conn As ADODB.Connection Public rs1 As ADODB.Recordset Public Sub Koneksi() On Error GoTo elor: Dim filename As String Dim Server, Uid, Psw, Db As String Set conn = New ADODB.Connection conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;UID=root;PWD=;DATABASE=sms;" _ & "OPTION = " & 1 + 2 + 8 + 32 + 2048 + 163841 conn.Open Exit Sub elor:
MsgBox " Error Koneksi ke MySQL" + Chr(13) + "Pesan Error: " + err.Description, vbCritical, "Error" End Sub
Semoga berguna. Mohon dikoreksi kalau ada yang salah
gak nolak Last edited by tipayun; 09-03-2011 at 04:18 PM..
, yang baek hati ane
