tag:blogger.com,1999:blog-84366950496237424972024-03-18T20:54:10.040-07:00SMS Gateway Visual Basicadminhttp://www.blogger.com/profile/16445734425204986540noreply@blogger.comBlogger10125tag:blogger.com,1999:blog-8436695049623742497.post-55527433209664895452012-07-22T21:18:00.000-07:002012-07-22T21:18:34.992-07:00SMS Gateway Dengan Visual BasicSangat banyak tutorial SMS Gateway jika Anda browsing lewat om google.com, tinggal pilih mau yang bersifat open source menggunakan Kannel di Linux atau dengan gammu yang bisa digunakan di Windows atau di Linux, dan bagi Anda penggemar windows dan familiar dengan program Visual Basic atau Delphi pasti sangat banyak sekali Anda temukan, saya pernah berkunjung ke situs http://bengkelprogram.com, disitu sangat banyak sekali membahas tentang SMS Gateway dengan menggunakan program Delphi dan Visual Basic.<br />
<br />
Walaupun saya tidak begitu banyak mengerti SMS Gateway menggunakan Visual Basic dan Delphi tapi ini ada sedikit sharing buat rekan2 yang membutuhkannya, yang saya temukan dari beberapa artikel. YUp langsung saja contoh koneksi handphone ke program dengan visual basic:<br />
1. Program Visual Basic harus sudah terinstall dikomputer Anda pastinya.<br />
2. Download file Mfbus (sudah saya sertakan bersama contoh program), kemudian ekstrak ke folder windows\system32.<br />
3. Registrasi dulu MFbus nya melalui command promt atau di klik aja tuh yang sudah ada di folder contoh prograh yang bertuliskan Regsvr32), jika dengna command promt caranaya ketik di kotak Run "regsvr32 Mfbus15.ocx "<br />
4. Jangna lupa kabel datanya harus sudah terhubung dengan komputer Anda.<br />
<br />
Setelah persiapan diatas Anda lakukan, tahap selanjutnya buat form seperti ini di program VB Anda:<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiyljTKfjAmU2Ng6NpkY1wCR4Pk6VLE-zSRYMZd3xx15HyUTGZQFbExrmy7Qe3moLqzoZea16k61dnLJk5YCF2YFPKQdaNObA5y0hoxKtVrdlQbRhqkpSwKuzJDKXVF28e6311PzfWA-bdd/s1600-h/gbr1.JPG"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5320118538838761874" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiyljTKfjAmU2Ng6NpkY1wCR4Pk6VLE-zSRYMZd3xx15HyUTGZQFbExrmy7Qe3moLqzoZea16k61dnLJk5YCF2YFPKQdaNObA5y0hoxKtVrdlQbRhqkpSwKuzJDKXVF28e6311PzfWA-bdd/s320/gbr1.JPG" style="cursor: pointer; float: right; height: 239px; margin: 0pt 0pt 10px 10px; width: 320px;" /></a><br />
- Double klik commandbutton "Connect" kemudian beri script berikut:<br />
<br />
<span style="font-weight: bold;">Private Sub Command1_Click() </span><br />
<span style="font-weight: bold;"> </span> 'Untuk koneksi antara Handphone<br />
'dengan Komputer. Nilai "COM1" dapat<br />
<span style="font-weight: bold;"> </span> 'berubah-ubah sesuai dengan nomor<br />
' COM yang digunakan namun<br />
<span style="font-weight: bold;"> </span> 'jika menggunakan fbus biasanya<br />
'antara COM1 atau COM2<br />
<span style="font-weight: bold;"> MFBUS15Control1.Connect "COM1" </span><br />
<span style="font-weight: bold;"> </span><br />
<span style="font-weight: bold;"> </span> 'Untuk menampilkan signal Handphone<br />
<span style="font-weight: bold;"> Label1.Caption = "Signal : " & MFBUS15Control1.RfLevel </span><br />
<span style="font-weight: bold;"> </span><br />
<span style="font-weight: bold;"> </span>'Untuk mencek apakah koneksi berhasil atau gagal<br />
<span style="font-weight: bold;"> If MFBUS15Control1.Connected = True Then </span><br />
<span style="font-weight: bold;"> MsgBox "KONEKSI BERHASIL" </span><br />
<span style="font-weight: bold;"> Else </span><br />
<span style="font-weight: bold;"> MsgBox "KONEKSI GAGAL" </span><br />
<span style="font-weight: bold;"> End If </span><br />
<span style="font-weight: bold;">End Sub </span><br />
<br />
- Untuk Disconnectnya tempelkan program berikut:<br />
<br />
<span style="font-weight: bold;">Private Sub Command2_Click() </span><br />
<span style="font-weight: bold;"> </span>' Script memutus koneksi<br />
<span style="font-weight: bold;"> MFBUS15Control1.Disconnect </span><br />
<span style="font-weight: bold;"> </span><br />
<span style="font-weight: bold;"> </span> 'Untuk menyembunyikan tampilan nilai signal<br />
<span style="font-weight: bold;"> Label1.Caption = "Signal : " </span><br />
<span style="font-weight: bold;">End Sub </span><br />
<br />
Ingat yang ada gambar tulisan Fbus disana muncul jika Activex Mfbus sudah diaktifin. Setelah semuanya beres coba jalankan programnya.<br />
Untuk mengetahui port berapa yang digunakan lihat di Device Manager.<br />
<br />
Contoh program visual basic untuk sms gateway informasi valas dapat di download disini:<br />
<a href="http://rapidshare.com/files/216611750/Program_SMS.rar.html" rel="nofollow" style="color: black;" target="_blank"><span style="font-weight: bold;">http://rapidshare.com/files/216611750/Program_SMS.rar.html</span></a><br />
<br />
<span style="color: purple;"><span style="color: black;">Source : http://tinggiraja.blogspot.com/</span></span><span style="color: purple; font-weight: bold;"><br />
</span>adminhttp://www.blogger.com/profile/16445734425204986540noreply@blogger.com1tag:blogger.com,1999:blog-8436695049623742497.post-34252573657605529332012-07-22T21:14:00.000-07:002012-07-22T21:14:54.908-07:00How to send SMS from VB.Net using HTTP requsts<h1>Introduction</h1><div align="justify">Visual Basic .Net is an excellent programming language for creating dynamic web pages and standard applications. It offers great flexibility in all fields. VB.Net developers are often required to add mobile messaging capability to their applications. Sending SMS text messages to mobile users, tracking the status of these messages and the ability to receive SMS text messages can greatly improve the value of a VB.Net program. If you are faced with such a requirement, the simplest and most convenient way to add SMS messaging functionality to your system is to use an HTTP SMS gateway, such as Ozeki NG SMS Gateway and to post SMS messages to this gateway using HTTP requests (Figure 1). </div><br />
<br />
<img src="http://www.ozekisms.com/attachments/585/2009_08_10_VisualBasicDotNet_httprequest.gif" /><br />
<div align="justify">Figure 1 - How to send SMS from VB.NET using HTTP requests</div><div align="justify">If you use HTTP in your VB.Net application, you can also receive SMS messages. You can do this in two ways. You can configure an <a href="http://www.ozekisms.com/index.php?owpn=193" rel="nofollow" target="_blank">HTTP Client user</a> in Ozeki NG SMS Gateway to forward incoming SMS messages to your VB.Net program. This solution requires you to be able to process incoming HTTP requests. The second option is to periodically download incoming messages and message delivery reports from Ozeki NG SMS Gateway.</div><h1>Prerequisites</h1><div align="justify"> To be able to send SMS messages from your VB.Net application, you need to download and install Ozeki NG SMS Gateway. After Ozeki NG SMS Gateway has been installed, you can use Microsoft Visual Studio or any other IDE, that let's you develop VB.Net code, to develop your solution. You can use the source code on this webpage to create the functionality. So here is your checklist:</div><ul><li><a href="http://www.ozekisms.com/index.php?owpn=112" rel="nofollow" target="_blank">Download Ozeki NG SMS Gateway</a><br />
</li>
<li><a href="http://www.microsoft.com/express/vb/Default.aspx" rel="nofollow" target="_blank">Microsot VisualBasic 2008 Express Edition</a><br />
</li>
<li><a href="http://www.ozekisms.com/attachments/587/send-sms-vb.net-http-sms-example.zip" rel="nofollow" target="_blank">send-sms-vb.net-http-sms-example.zip</a><br />
</li>
</ul><h1>Setting up the system and writing the code</h1><div align="justify"> Ozeki NG SMS Gateway can be setup very easily. The <a href="http://www.ozekisms.com/index.php?owpn=133" rel="nofollow" target="_blank">SMS quick start guide</a> gives you information on how to install and connect this gateway to the mobile network. After you have installed Ozeki NG SMS Gateway, you need to create a HTTP Server user in it. You can do this by clicking on the "Add new user or application..." link in it's management window. When you create the HTTP Server user, you provide a username and password. You need to use this username and password in the VB.Net source code. </div><h1>Step 1 - Setup the connection parameters in the VB.Net example code</h1><div align="justify">If you open the VB.Net demo project, you will find the following section:</div><table bgcolor="#DAF3FE" border="0"><tbody>
<tr> <td><pre>Dim request As HttpWebRequest
Dim response As HttpWebResponse = Nothing
Dim url As String
Dim username As String = "admin"
Dim password As String = "abc123"
Dim host As String = "http://127.0.0.1:9501"
Dim originator As String = "06201234567"
</pre></td> </tr>
</tbody></table><div align="justify">In this section, you need to provide the username and password you have specified, when you have created the HTTP Server user in Ozeki NG SMS Gateway. If your VB.Net application runs on a different computer, then the one Ozeki NG SMS Gateway is installed on, you need to change the host parameter es well. You can also specify a sender ID value to be used as the originator phone number when you are sending SMS messages. </div><h1>Step 2 - Compose of the URL</h1><div align="justify">The next section of the VB.Net HTTP SMS example code is the composition of the HTTP URL, that will be used to post your SMS message to the SMS Gateway. This URL contains parameters that are specified in the <a href="http://www.ozekisms.com/index.php?owpn=372" rel="nofollow" target="_blank">Ozeki HTTP SMS API specification</a>. Note that when you compose this URL you have to URL encode the values. This is necessary to make sure special characters will not break the HTTP specification. </div><table bgcolor="#DAF3FE" border="0"><tbody>
<tr> <td><pre>url = host + "/api?action=sendmessage&" _
& "username=" & HttpUtility.UrlEncode(username) _
& "&password=" + HttpUtility.UrlEncode(password) _
& "&recipient=" + HttpUtility.UrlEncode(tbReceiver.Text) _
& "&messagetype=SMS:TEXT" _
& "&messagedata=" + HttpUtility.UrlEncode(tbMessage.Text) _
& "&originator=" + HttpUtility.UrlEncode(originator) _
& "&serviceprovider=" _
& "&responseformat=html"
</pre></td> </tr>
</tbody></table><h1>Step 3 - Submit the URL</h1><div align="justify">To send your SMS message you need to initiate a HTTP request using the Webrequest VB.Net method. After the request has been sent, you can read the response returned by the SMS gateway using the request.GetResponse() method and you can show the response message in a popup window.</div><table bgcolor="#DAF3FE" border="0"><tbody>
<tr> <td><pre>request = DirectCast(WebRequest.Create(url), HttpWebRequest)</pre></td> </tr>
</tbody></table><div align="justify">Receiving the answer.</div><table bgcolor="#DAF3FE" border="0"><tbody>
<tr> <td><pre>response = DirectCast(request.GetResponse(), HttpWebResponse)</pre></td> </tr>
</tbody></table><div align="justify">Displaying the answer in a pop-up window</div><table bgcolor="#DAF3FE" border="0"><tbody>
<tr> <td><pre>MessageBox.Show("Response: " & response.StatusDescription)</pre></td> </tr>
</tbody></table><div align="justify">As you can see it is very simple to send an SMS message through an HTTP request. All you have to do is understand the <a href="http://www.ozekisms.com/index.php?owpn=413" rel="nofollow" target="_blank">HTTP SMS API parameters</a> and you need to send and receive a request using the built in VB.Net methods. Finally take a look at the full source code we used in this article:</div><h1>Full source code</h1><div align="justify"><span style="font-size: x-small;">Please feel free to use and modify the source code sample.</span></div><pre>Imports System
Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Web
Public Class fMain
Private Sub bSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bSend.Click
Dim request As HttpWebRequest
Dim response As HttpWebResponse = Nothing
Dim url As String
Dim username As String
Dim password As String
Dim host As String
Dim originator As String
Try
host = "http://127.0.0.1:9501"
originator = "06201234567"
username = "admin"
password = "abc123"
url = host + "/api?action=sendmessage&" _
& "username=" & HttpUtility.UrlEncode(username) _
& "&password=" + HttpUtility.UrlEncode(password) _
& "&recipient=" + HttpUtility.UrlEncode(tbReceiver.Text) _
& "&messagetype=SMS:TEXT" _
& "&messagedata=" + HttpUtility.UrlEncode(tbMessage.Text) _
& "&originator=" + HttpUtility.UrlEncode(originator) _
& "&serviceprovider=GSMModem1" _
& "&responseformat=html"
request = DirectCast(WebRequest.Create(url), HttpWebRequest)
response = DirectCast(request.GetResponse(), HttpWebResponse)
MessageBox.Show("Response: " & response.StatusDescription)
Catch ex As Exception
End Try
End Sub
End Class </pre><pre> </pre><pre><span style="font-size: small;"><span style="font-family: Times,"Times New Roman",serif;">Source : www.ozekisms.com/</span></span></pre><pre></pre><pre></pre>adminhttp://www.blogger.com/profile/16445734425204986540noreply@blogger.com1tag:blogger.com,1999:blog-8436695049623742497.post-69452209089548597752012-07-22T21:11:00.000-07:002012-07-22T21:11:51.115-07:00Mengenal Cara Kerja SMS Gateway<div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;"><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">Artikel ini merupakan kelanjutan dari artikel sebelumnya yang berjudul “Mengenal Cara Kerja SMS”, disini akan dijelaskan mengenai cara kerja SMS Gateway. Jika kita mendengar istilah SMS Gateway maka kita akan membayangkan sebuah sistem aplikasi yang dapat menerima dan melakukan pengiriman sms, dan biasanya sistem tersebut terdiri dari sebuah receiver, misal: GSM modem atau HP yang terhubung ke sebuah PC/Komputer dan aplikasi yang berjalan didalamnya. Namun, penjelasan dalam artikel ini akan sedikit berbeda, disini akan dijelaskan mengenai cara kerja SMS Gateway yang digunakan disisi provider telekomunikasi (operator), seperti Telkomsel, XL, Indosat dll. Anda juga akan mengetahui bagaimana proses yang terjadi pada layanan polling, sms premium, sms-banking, sms Broadcast dll di Operator.</span></div><div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;"><b><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">Apa itu SMS Gateway ?</span></b><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div><div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;"><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">SMS gateway adalah sebuah perangkat yang menawarkan layanan transit SMS, mentransformasikan pesan ke jaringan selular dari media lain, atau sebaliknya, sehingga memungkinkan pengiriman atau penerimaan pesan SMS dengan atau tanpa menggunakan ponsel. (</span><span lang="EN-US"><a href="http://en.wikipedia.org/wiki/SMS_gateway" rel="nofollow" target="_blank"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">wikipedia</span></a></span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">).</span></div><div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;"><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">Sebagaimana penjelasan diatas, SMS Gateway dapat terhubung ke media lain seperti perangkat SMSC dan server milik Content Provider melalui link IP untuk memproses suatu layanan SMS.</span></div><div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;"><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">Sebuah sistem SMS Gateway, umumnya terdiri komponen Hardware ( Server/Komputer yang dilengkapi dengan perangkat jaringan) dan Software (Aplikasi yang digunakan untuk pengolahan pesan). Dan untuk sebuah sistem yang besar umumnya menggunakan Database untuk penyimpanan data.</span></div><div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;"><b><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">Kedudukan SMS Gateway dalam Network GSM.</span></b><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div><div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;"><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">Berikut ini adalah contoh kedudukan SMS Gateway di dalam jaringan milik operator beserta protokol komunikasi yang dipakai.</span></div><div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;"><span lang="EN-US"><a href="http://duniadhana.files.wordpress.com/2010/03/smsgw31.jpg"><span lang="IN" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-ansi-language: IN; mso-fareast-font-family: "Times New Roman"; mso-fareast-language: IN; mso-no-proof: yes; text-decoration: none; text-underline: none;"> </span></a></span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div><div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;"><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">Dari gambar diatas terlihat bahwa SMS Gateway berfungsi sebagai penghubung yang melakukan relay sms antara ESME (External Short Message Entitiy) dan SMSC dan sebaliknya. Komunikasi antara ESME dan SMS Gateway dapat menggunakan protokol SMPP atau dengan HTTP, sementara ke SMSC menggunakan SMPP.</span></div><div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;"><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">ESME adalah entitas luar yang dapat berupa server aplikasi penyedia layanan (Application Service Provider) yang dimiliki oleh Content Provider, aplikasi Perbankan, server polling, dan lain-lain yang dapat menerima pesan, memproses pesan dan mengirim respons atas pesan yang masuk , serta perangkat lain seperti email gateway, WAP proxy server , Voice mail server.</span></div><div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;"><b><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">Protokol SMPP (Short Message Peer to Peer )</span></b><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div><div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;"><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">SMPP adalah protokol yang cukup populer yang terbuka, protokol standar industri yang dirancang untuk menyediakan antarmuka komunikasi data yang fleksibel untuk transfer data pesan singkat antar entitas SMS, seperti ESME dan SMSC. SMPP yang banyak digunakan sekarang adalah SMPP v3.4. SMPP cukup populer dipakai karena memberikan kapasitas yang besar dan kecepatan transfer sms yang cepat.</span></div><div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;"><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">Dalam komunikasi dengan menggunakan SMPP protokol, ada yang berfungsi sebagai SMPP server dan yang lain sebagai SMPP Client. Sebagaimana diagram diatas SMS Gateway selain berfungsi sebagai SMPP server juga dapat berfungsi sebagai SMPP Client.</span></div><div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;"><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">[ ESME ] ————–> [ SMSGW]</span></div><div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;"><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">ESME = SMPP Client, SMSGW = SMPP Server</span></div><div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;"><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">[ SMPP ] ————–> [ SMSC ]</span></div><div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;"><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">SMSGW = SMPP Client, SMSC = SMPP Server</span></div><div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;"><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">Sebuah SMPP Client setidaknya memerlukan 4 buah parameter untuk dapat berkomunikasi dengan SMPP Server, seperti: IP Address SMPP Server, Nomor Port, User name dan Password.</span></div><div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;"><b><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">Protokol HTTP ( Hypertext Transfer Protocol)</span></b><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div><div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;"><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">HTTP adalah sebuah protokol jaringan lapisan aplikasi yang digunakan untuk sistem informasi terdistribusi, kolaboratif, dan menggunakan hipermedia. Kita semua cukup familiar dengan protokol ini, protokol yang digunakan untuk aplikasi web. Sebagaimana SMPP, dalam komunikasinya bersifat client-server, misal : Web Browser sebagai client dan Web Server.</span></div><div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;"><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">Ada dua metode dalam protokol HTTP, yaitu metode GET dan POST. Dua metode tersebut dapat dipilih sesuai kebutuhan.</span></div><div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;"><b><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">Contoh Alur SMS</span></b><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div><div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;"><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">Dari keterangan diatas kita dapat membayangkan bagaimana alur suatu layanan berbasis sms berjalan, misal: Sms premium.</span></div><div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;"><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">1) Customer/Mobile Station(MS) melakukan pengiriman pesan.</span></div><div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;"><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">2) SMS masuk ke SMSC melalui jaringan mobile.</span></div><div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;"><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">3) Dari SMSC, pesan akan ditransfer ke Content Provider melewati SMS Gateway.</span></div><div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;"><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">4) Pesan yang masuk ke Content Provider akan diproses oleh aplikasi, kemudian respons dikirim ke MS.</span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal">Source : http://garrygila.blogspot.com/</div><div class="MsoNormal"><br />
</div>adminhttp://www.blogger.com/profile/16445734425204986540noreply@blogger.com1tag:blogger.com,1999:blog-8436695049623742497.post-43155118503975192962012-07-22T21:05:00.000-07:002012-07-22T21:05:04.947-07:00Teknologi SMS Gateway dengan AT Command<strong>Sekilas Tentang SMS Gateway</strong><br />
Layanan pesan singkat atau Surat masa singkat (bahasa Inggris: Short Message Service disingkat SMS) adalah sebuah layanan yang dilaksanakan dengan sebuah telepon genggam untuk mengirim atau menerima pesan-pesan pendek. Pada mulanya SMS dirancang sebagai bagian daripada GSM, tetapi sekarang sudah didapatkan pada jaringan bergerak lainnya termasuk jaringan UMTS.<br />
<br />
Sebuah pesan SMS maksimal terdiri dari 140 bytes, dengan kata lain sebuah pesan bisa memuat 140 karakter 8-bit, 160 karakter 7-bit atau 70 karakter 16-bit untuk bahasa Jepang, bahasa Mandarin dan bahasa Korea yang memakai Hanzi (Aksara Kanji / Hanja). Selain 140 bytes ini ada data-data lain yang termasuk. Adapula beberapa metode untuk mengirim pesan yang lebih dari 140 bytes, tetapi seorang pengguna harus membayar lebih dari sekali.<span class="fullpost"><br />
<br />
SMS bisa pula untuk mengirim gambar, suara dan film. SMS bentuk ini disebut MMS.<br />
Pesan-pesan SMS dikirim dari sebuah telepon genggam ke pusat pesan (SMSC dalam bahasa Inggris), di sini pesan disimpan dan mencoba mengirimnya selama beberapa kali. Setelah sebuah waktu yang telah ditentukan, biasanya 1 hari atau 2 hari, lalu pesan dihapus. Seorang pengguna bisa mendapatkan konfirmasi dari pusat pesan ini.<br />
<br />
SMS Gateway merupakan pintu gerbang bagi penyebaran Informasi dengan menggunakan SMS. Anda dapat menyebarkan pesan ke ratusan nomor secara otomatis dan cepat yang langsung terhubung dengan database nomor-nomor ponsel saja tanpa harus mengetik ratusan nomor dan pesan di ponsel anda karena semua nomor akan diambil secara otomatis dari database tersebut. Selain itu, dengan adanya SMS Gateway anda dapat mengcustomisasi pesan-pesan yang ingin dikirim. Dengan menggunakan program tambahan yang dapat dibuat sendiri, pengirim pesan dapat lebih fleksibel dalam mengirim berita karena biasanya pesan yang ingin dikirim berbeda-beda untuk masing-masing penerimanya.<br />
<br />
SMS Gateway adalah jenis sms dua arah. Menariknya bahwa semua tarif yang diberlakukan adalah tarif sms normal sesuai dengan apa yang diberlakukan oleh operator. Karena sifatnya yang dua arah, maka jenis sms ini sangat cocok digunakan sebagai SMS Center sebuah organisasi atau perusahaan dalam rangka meningkatkan kualitas komunikasi antara anggota komunitas organisasi atau pegawai di dalam perusahaan.<br />
<br />
Selain itu, dengan adanya SMS Gateway, Anda dapat mengatur pesan-pesan yang ingin dikirim. Dengan menggunakan program tambahan yang dapat dibuat sendiri, pengiriman pesan dapat lebih fleksibel dalam mengirim berita karena biasanya pesan yang ingin dikirim berbeda-beda untuk masing-masing penerimanya (kustomisasi pesan).<br />
<br />
<strong>Kebutuhan Hardware</strong><br />
Untuk kebutuhan SMS Gateway tidak terlalu belebihan dan juga fleksibel karena bisa dibuat dengan :<br />
1. PC maupun Notebook. Yang mutlak dibutuhkan adalah sebuah komputer tentunya ada USB atau port serial COM <br />
2. Sebuah ponsel atau modem yang mendukung AT Command<br />
3. Kabel data (Kabel berantarmuka serial yang dapat menghubungi ponsel dengan PC) atau dapat munggunakan InfraRed dan piranti lunak sebagai SMS Gateway. <br />
<br />
Untuk menggunakan InfraRed anda membutuhkan sebuah ponsel yang juga memiliki fasilitas tsb, tapi tidak dianjurkan untuk kebutuhan SMS gateway karena komunikasi dengan InfraRed tidak terlalu baik (jika tergeser gampang putus).<br />
<br />
<br />
<strong>Kebutuhan Software</strong><br />
Disini penulis menggunakan bahasa pemrograman Visual Basic 6.0 dan untuk pengertian perintah yang dipakai menggunakan AT Command. AT Command adalah perintah-perintah yang digunakan dalam komunikasi dengan serial port. Dengan AT Command kita dapat mengetahui vendor dari Handphone yang digunakan, kekuatan sinyal, membaca pesan yang ada pada SIM Card, megirim pesan, mendeteksi pesan SMS baru yang masuk secara otomatis, menghapus pesan pada SIM Card dan masih banyak lagi.<br />
<br />
Dalam program SMS Gateway yang akan kita buat nanti, tidak semua perintah AT Command digunakan. Kita hanya menggunakan beberapa perintah AT yang ada hubungannya dengan sistem kerja dari program SMS Gateway. Adapun perintah yang akan digunakan adalah sebagai berikut :<br />
<br />
<strong>Command - Keterangan</strong><br />
AT <em>Mengecek apakah Handphone telah terhubung</em><br />
AT+CMGF <em>Untuk menetapkan format mode dari terminal</em><br />
AT+CSCS <em>Untuk menetapkan jenis encoding</em><br />
AT+CNMI <em>Untuk mendeteksi pesan SMS baru masuk secara otomatis</em><br />
AT+CMGL <em>Membuka daftar SMS yang ada pada SIM Card</em><br />
AT+CMGS <em>Mengirim pesan SMS</em><br />
AT+CMGR <em>Membaca pesan SMS</em><br />
AT+CMGD <em>Menghapus pasan SMS</em><br />
ATE1 <em>Mengatur ECHO</em><br />
ATV1 <em>Mengatur input dan output berupa naskah</em><br />
AT+CGMI <em>Mengecek Merek HP</em><br />
AT+CGMM <em>Mengecek Seri HP</em><br />
AT+CGMR <em>Mengecek Versi Keluaran HP</em><br />
AT+CBC <em>Mengecek Baterai</em><br />
AT+CSQ <em>Mengecek Kualitas Sinyal</em><br />
AT+CCLK? <em>Mengecek Jam (waktu) pada HP</em><br />
AT+CALM=< n > <em>Mengecek Suara/dering HP saat di Telepon (ada Telepon Masuk)</em><br />
<br />
‘n’ adalah adalah angka yang menunjukkan jenis dering<br />
0 = berdering<br />
1 dan 2 = Silent (Diam)<br />
<br />
AT^SCID <em>Mengecek ID SIM CARD</em><br />
AT+CGSN <em>Mengecek Nomor IMEI</em><br />
AT+CLIP=1 <em>Menampilkan nomor telepon pemanggil</em><br />
AT+CLCC <em>Menampilkan nomor telepon yang sedang memanggil</em><br />
AT+COPN <em>Menampilkan Nama Sumua Operator di dunia</em><br />
AT+COPS? <em>Menampilkan nama operator dari SIM yang digunakan</em><br />
AT+CPBR=< n > <em>Membaca nomor telepon yang disimpan pada buku telepon (SIM CARD)</em><br />
‘n’ adalah nomor urut penyimpanan<br />
AT+CPMS=< md > <em>Mengatur Memori dari HP</em><br />
‘md’ adalah memori yang digunakan<br />
ME = <em>Memori HP</em><br />
SM = <em>Memori SIM CARD</em><br />
<br />
<strong>Langkah-langkah pengcodingan:</strong><br />
Nah sekarang buka Program Microsoft Visual Basic Anda dan ikuti langkah berikut ini:<br />
1. Buka aplikasi VB 6 anda dan pilih standard exe lalu open<br />
2. Tambahkan 1 modul dengan cara klik menu project - add module lalu tambahkan koding dibawah ini :</span><br />
<div class="alert">Option Explicit<br />
<br />
Public Function RemoveInternationalDiallingCode _<br />
(ByVal tTelNumber As String) As String<br />
RemoveInternationalDiallingCode = "0" & Mid(tTelNumber, 4)<br />
End Function<br />
<br />
Public Function GetSMSNum(ByVal tSMSNotification As String) As String<br />
Dim lCRPos As Long<br />
<br />
lCRPos = InStrRev(tSMSNotification, vbCr)<br />
If lCRPos > 0 Then GetSMSNum = Mid(tSMSNotification, lCRPos - 2, 2)<br />
If Left(GetSMSNum, 1) = "," Then GetSMSNum = Right(GetSMSNum, 1)<br />
End Function<br />
<br />
Public Function ReadSMS(comms As MSComm, _<br />
ByVal tSMSNum As String, tMessage As String, _<br />
tSender As String, tDate As String, _<br />
tTime As String, bRead As Boolean) As Boolean<br />
Dim tChar As String * 1<br />
Dim i As Long<br />
Dim tRead As String<br />
Dim lQuoteNum As Long<br />
Dim tDateTime As String<br />
Dim tData As String<br />
<br />
Const TIMEOUT = 10000<br />
<br />
On Error GoTo ErrHandler<br />
<br />
tData = "AT+CMGR=" & tSMSNum & vbCr<br />
comms.InBufferCount = 0<br />
comms.Output = tData<br />
tData = ""<br />
<br />
i = timeGetTime<br />
Do While timeGetTime - i <= TIMEOUT And InStr(tData, "OK" & vbCrLf) = 0 And InStr(tData, "ERROR" & vbCrLf) = 0<br />
DoEvents<br />
If comms.InBufferCount > 0 Then<br />
tChar = comms.Input<br />
tData = tData & tChar<br />
End If<br />
Loop<br />
<br />
If InStr(tData, "ERROR") = 0 And tData <> "" Then<br />
For i = 1 To Len(tData)<br />
tChar = Mid(tData, i, 1)<br />
If tChar = """" Then lQuoteNum = lQuoteNum + 1<br />
If lQuoteNum = 1 And tChar <> """" Then tRead = tRead & tChar<br />
If lQuoteNum = 3 And tChar <> """" Then tSender = tSender & tChar<br />
If lQuoteNum = 5 And tChar <> """" Then tDateTime = tDateTime & tChar<br />
If lQuoteNum = 6 And tChar <> """" Then tMessage = tMessage & tChar<br />
Next i<br />
<br />
bRead = (tRead = "REC READ")<br />
tDate = Left(tDateTime, 8)<br />
tTime = Mid(tDateTime, 10, 8)<br />
tMessage = Mid(tMessage, 3)<br />
tMessage = Mid(tMessage, 1, InStr(tMessage, vbCr) - 1)<br />
ReadSMS = True<br />
End If<br />
Exit Function<br />
<br />
ErrHandler:<br />
ReadSMS = False<br />
End Function<br />
<br />
Public Function DeleteAllSMSes(comms As MSComm) As Boolean<br />
Dim i As Long<br />
<br />
For i = 1 To 15<br />
DeleteAllSMSes = InStr(TransmitAndReceiveData(comms, "AT+CMGD=" & i & vbCr), "OK")<br />
Next i<br />
End Function<br />
<br />
Public Function DeleteSMS(comms As MSComm, ByVal lSMSNum As Long) As Boolean<br />
DeleteSMS = InStr(TransmitAndReceiveData(comms, "AT+CMGD=" & lSMSNum & vbCr), "OK")<br />
End Function<br />
<br />
Public Function SendSMS(comms As MSComm, ByVal tSMSNum As String, ByVal tMessage As String) As Boolean<br />
SendSMS = InStr(TransmitAndReceiveData(comms, "AT+CMGS=" & """" & tSMSNum & """" & vbCr & tMessage & Chr(26)), "OK")<br />
End Function<br />
<br />
Public Function TestModem(comms As MSComm) As String<br />
TestModem = TransmitAndReceiveData(comms, "AT")<br />
End Function<br />
<br />
Public Function ManufacturerInfo(comms As MSComm) As String<br />
ManufacturerInfo = TransmitAndReceiveData(comms, "AT+CGMI")<br />
End Function<br />
<br />
Public Function ModelInfo(comms As MSComm) As String<br />
ModelInfo = TransmitAndReceiveData(comms, "AT+CGMM")<br />
End Function<br />
<br />
Public Function FirmwareInfo(comms As MSComm) As String<br />
FirmwareInfo = TransmitAndReceiveData(comms, "AT+CGMR")<br />
End Function<br />
<br />
Public Function IMEIInfo(comms As MSComm) As String<br />
IMEIInfo = TransmitAndReceiveData(comms, "AT+CGSN")<br />
End Function<br />
<br />
Public Function IMSIInfo(comms As MSComm) As String<br />
IMSIInfo = TransmitAndReceiveData(comms, "AT+CIMI")<br />
End Function<br />
<br />
Public Function EF_CCIDInfo(comms As MSComm) As String<br />
EF_CCIDInfo = TransmitAndReceiveData(comms, "AT+CCID")<br />
End Function<br />
<br />
Public Function NetworkRegStatus(comms As MSComm) As String<br />
NetworkRegStatus = TransmitAndReceiveData(comms, "AT+CREG?")<br />
End Function<br />
<br />
Public Function AvailablePLMNs(comms As MSComm) As String<br />
AvailablePLMNs = TransmitAndReceiveData(comms, "AT+COPS?")<br />
End Function<br />
<br />
Public Function NetworkFieldStrength(comms As MSComm) As String<br />
NetworkFieldStrength = TransmitAndReceiveData(comms, "AT+CSQ")<br />
End Function<br />
<br />
Public Function MainCellMainParams(comms As MSComm) As String<br />
MainCellMainParams = TransmitAndReceiveData(comms, "AT+CCED=0")<br />
End Function<br />
<br />
Public Function TransmitAndReceiveData(comms As MSComm, ByVal tData As String) As String<br />
Dim lTime As Long<br />
<br />
Const TIMEOUT = 10000<br />
<br />
tData = tData & vbCr<br />
<br />
With comms<br />
.InBufferCount = 0<br />
.Output = tData<br />
tData = ""<br />
<br />
lTime = timeGetTime<br />
tData = ""<br />
Do While timeGetTime - lTime <= TIMEOUT And InStr(tData, "OK") = 0 And InStr(tData, "ERROR" & vbCrLf) = 0<br />
DoEvents<br />
If .InBufferCount > 0 Then tData = tData & .Input<br />
Loop<br />
End With<br />
<br />
TransmitAndReceiveData = tData<br />
End Function </div>4. Tambahkan komponen mscomm punyanya microsoft<br />
5. Set boudrate dan lainnya sesuai dengan setingan HP atau modem anda lalu pada form load isikan perintah inisialisasi modem/hp.<br />
6. Silahkan test send sms dengan menggunakan fungsi SendSMS dan silahkan coba-coba fungsi lainnya.<br />
7. Selamat mencoba.<br />
<br />
Source : http://seven-technology.blogspot.com/adminhttp://www.blogger.com/profile/16445734425204986540noreply@blogger.com3tag:blogger.com,1999:blog-8436695049623742497.post-23705523093726707192012-07-22T20:59:00.000-07:002012-07-22T20:59:20.408-07:00[Seri Tutorial SMS Gateway] Membuat Aplikasi Mengirim dan Menerima SMS dengan Visual Basic 6 dan Lawoo SMS Gateway<div class="s">Lawoo SMS Gateway dapat dikolaborasikan dengan bahasa pemrograman apapun yang Anda kuasai. Pada tutorial sebelumnya telah disajikan cara membuat script PHP untuk mengirim SMS, maka kali ini akan dibahas pembuatan aplikasi Kirim dan Terima SMS menggunakan Bahasa Pemrograman Visual Basic 6.<br />
<blockquote> Catatan: Saya asumsikan bahwasanya Lawoo SMS Gateway sudah terinstall di Sistem Operasi Windows Anda, dan sudah Anda lakukan konfigurasi seperti yang tercantum di dalam buku manual.<br />
</blockquote><br />
Sebelum masuk ke lingkungan pemrograman Visual Basic 6, ada beberapa langkah yang harus dilakukan terlebih dahulu, yaitu membuat USER DSN menggunakan ODBC. Langkah-langkahnya adalah sebagai berikut:<br />
1. Pada Sistem Operasi Windows, Klik START -> CONTROL PANEL, selanjutnya ketik "ODBC" dibagian SEARCH (pojok kanan atas jendela Control Panel), lebih jelasnya lihat gambar di bawah ini:<br />
<img alt="" height="303" src="http://smsgateway.web.id/uploads/01-Control-Panel.png" width="420" /><br />
<br />
2. Masih di jendela Control Panel seperti gambar di atas, klik <strong>Set up data sources (ODBC)</strong>.<br />
3. Selanjutnya akan muncul jendela ODBC Data Source Administrator dan klik saja tombol [Add...] seperti gambar di bawah ini:<br />
<img alt="" height="377" src="http://smsgateway.web.id/uploads/02-ODBC-Administrator.png" width="461" /><br />
<br />
4. Selanjutnya akan muncul jendela Create New Data Source, pada daftar yang ada, pilih saja MySQL ODBC 3.51 Driver, kemudian klik Next. Lebih jelasnya perhatikan gambar berikut ini:<br />
<img alt="" height="345" src="http://smsgateway.web.id/uploads/03-MySQL-ODBC-351-Driver.png" width="468" /><br />
<br />
5. Selanjutnya akan muncul jendela Connector/ODBC - Add Data Source Name. Pada jendela ini isikan parameter-parameter berikut ini:<br />
<br />
<hr /> <br />
<br />
Data Source Name : LawooVB<br />
Server : localhost<br />
User : root<br />
Password:<br />
Database: lawoo_db<br />
<br />
<hr /> <br />
<br />
Perhatikan gambar di bawah ini agar lebih jelas:<br />
<img alt="" height="360" src="http://smsgateway.web.id/uploads/05-Konfigurasi-Connector-ODBC.png" width="430" /><br />
Setelah mengisi dengan parameter diatas, klik tombol TEST, dan pastikan muncul informasi bahwa pembuatan koneksi berhasil:<br />
<img alt="" height="119" src="http://smsgateway.web.id/uploads/06-Success-Connection-was-made.png" width="228" /><br />
Klik OK untuk menutup jendela konfigurasi data source.<br />
6. Tahap pembuatan koneksi ke MySQL sudah selesai. Tahap berikutnya adalah mulai membuat program dengan Visual Basic 6. Dan Saya asumsikan bahwa Anda setidaknya sudah memahami dasar-dasar pemrograman Visual Basic 6.<br />
7. Buka Microsoft Visual Basic 6, buat sebuah form kosong.<br />
8. Kemudian Klik Menu PROJECT --> COMPONENTS. Pada daftar komponen, pilih: (a) Microsoft ADO Data Control 6.0, dan (b) Microsoft DataGrid Control 6.0 kemudian klik OK. Lebih jelasnya perhatikan gambar berikut:<br />
<img alt="" height="404" src="http://smsgateway.web.id/uploads/07-Jendela-Komponen.png" width="455" /><br />
<br />
9. Selanjutnya desainlah sebuah form seperti pada gambar berikut ini:<br />
<img alt="" height="678" src="http://smsgateway.web.id/uploads/desain-form-kirim-dan-terima-sms.PNG" width="508" /><br />
Adapun komponen-komponen yang ditambahkan ke dalam form dan properti yang diatur adalah sebagai berikut:<br />
<img alt="" height="635" src="http://smsgateway.web.id/uploads/pengaturan-properties-komponen.PNG" width="503" /><br />
10. Selanjutnya memulai pembuatan kode programnya. Untuk masuk ke editor program, klik menu VIEW-CODE. kemudian ketik baris-baris kode berikut:<br />
Private Sub IsiModem()<br />
With adoMODEM<br />
.CommandType = adCmdText<br />
.RecordSource = "SELECT * FROM modem"<br />
.Refresh<br />
If .Recordset.RecordCount > 0 Then<br />
cboModem.Clear<br />
.Recordset.MoveFirst<br />
While Not .Recordset.EOF<br />
cboModem.AddItem .Recordset.Fields("IMEI").Value<br />
.Recordset.MoveNext<br />
Wend<br />
End If<br />
End With<br />
If cboModem.ListCount > 0 Then cboModem.ListIndex = 0<br />
End Sub<br />
==========================<br />
Private Sub TampilkanOutbox()<br />
With adoOUTBOX<br />
.CommandType = adCmdText<br />
.RecordSource = "SELECT DESTINATIONNUMBER, MESSAGES, SENDINGDATETIME, PRIORITY, IMEI FROM outbox"<br />
.Refresh<br />
lblStatusOutbox.Caption = "Jumlah Antrian SMS: " & .Recordset.RecordCount<br />
End With<br />
With dgOUTBOX<br />
.RowHeight = 600<br />
Set .DataSource = adoOUTBOX<br />
.Columns(0).Caption = "No. Tujuan"<br />
.Columns(1).Caption = "Pesan"<br />
.Columns(2).Caption = "Tgl. Jam"<br />
.Columns(3).Caption = "Prioritas"<br />
.Columns(4).Caption = "IMEI"<br />
.Columns(0).Width = 1100<br />
.Columns(1).Width = 3500<br />
.Columns(2).Width = 800<br />
.Columns(3).Width = 800<br />
.Columns(4).Width = 800<br />
.Columns(0).WrapText = True<br />
.Columns(1).WrapText = True<br />
.Columns(2).WrapText = True<br />
.Columns(3).WrapText = True<br />
.Columns(4).WrapText = True<br />
End With<br />
End Sub<br />
==========================<br />
Private Sub TampilkanInbox()<br />
With adoINBOX<br />
.CommandType = adCmdText<br />
.RecordSource = "SELECT NOOA, UD, SCTS_D, SCTS_T FROM inbox ORDER BY ID DESC"<br />
.Refresh<br />
lblStatusInbox.Caption = "Jumlah SMS di Inbox: " & .Recordset.RecordCount<br />
End With<br />
With dgINBOX<br />
.RowHeight = 600<br />
Set .DataSource = adoINBOX<br />
.Columns(0).Caption = "No. Pengirim"<br />
.Columns(1).Caption = "Pesan"<br />
.Columns(2).Caption = "Tgl"<br />
.Columns(3).Caption = "Jam"<br />
.Columns(0).Width = 1000<br />
.Columns(1).Width = 3500<br />
.Columns(2).Width = 800<br />
.Columns(3).Width = 800<br />
.Columns(0).WrapText = True<br />
.Columns(1).WrapText = True<br />
.Columns(2).WrapText = True<br />
.Columns(3).WrapText = True<br />
End With<br />
End Sub<br />
==========================<br />
Private Sub cmdKirim_Click()<br />
Dim vIMEI As String<br />
Dim vNoTujuan As String<br />
Dim vPesan As String<br />
Dim vTimeStamp As String<br />
Dim vPriority As Integer<br />
vIMEI = cboModem.Text<br />
vNoTujuan = txtNoTujuan.Text<br />
vPesan = txtPesan.Text<br />
vTimeStamp = Format(Now, "yyyy-MM-dd HH:mm")<br />
vPriority = 5 'Normal<br />
With adoOUTBOX<br />
.Recordset.AddNew<br />
.Recordset.Fields("SENDINGDATETIME").Value = vTimeStamp<br />
.Recordset.Fields("MESSAGES").Value = vPesan<br />
.Recordset.Fields("DESTINATIONNUMBER").Value = vNoTujuan<br />
.Recordset.Fields("PRIORITY").Value = vPriority<br />
.Recordset.Fields("IMEI").Value = vIMEI<br />
.Recordset.Update<br />
End With<br />
txtNoTujuan.Text = ""<br />
txtPesan.Text = ""<br />
End Sub<br />
==========================<br />
Private Sub cmdTutup_Click()<br />
Unload Me<br />
End Sub<br />
==========================<br />
Private Sub Form_Load()<br />
adoINBOX.ConnectionString = "DSN=LawooVB"<br />
adoOUTBOX.ConnectionString = "DSN=LawooVB"<br />
adoMODEM.ConnectionString = "DSN=LawooVB"<br />
IsiModem<br />
TampilkanOutbox<br />
TampilkanInbox<br />
End Sub<br />
==========================<br />
Private Sub Timer1_Timer()<br />
TampilkanOutbox<br />
TampilkanInbox<br />
End Sub<br />
==========================<br />
11. Selesai, Simpan form dan project Anda, kemudian Jalankan program dengan menekan tombol F5 atau ikon START.<br />
<img alt="" height="677" src="http://smsgateway.web.id/uploads/09-Program-Kirim-dan-terima-sms-sedang-dijalankan.png" width="508" /><br />
12. Saatnya mengujicoba mengirim dan menerima SMS dengan Lawoo SMS Gateway. Pastikan Server Lawoo SMS Gateway sudah berjalan agar program yang Anda buat diatas dapat mengirim dan menerima SMS dengan lancar.<br />
13. Selamat berkarya. Untuk source code program pada tutorial ini dapat <a href="http://smsgateway.web.id/uploads/sample-lawoo-vb6.zip" rel="nofollow" target="_blank" title="Download Sample Source Code">di download di sini</a>.<br />
<br />
Source: http://smsgateway.web.id/<br />
<br />
</div>adminhttp://www.blogger.com/profile/16445734425204986540noreply@blogger.com6tag:blogger.com,1999:blog-8436695049623742497.post-76298268646172805582012-07-22T20:52:00.000-07:002012-07-22T20:52:51.612-07:00Mengirim SMS dengan Visual Basic .NET<a href="http://roohmadi.files.wordpress.com/2011/03/vbnet.jpg"><img alt="" class="alignleft size-thumbnail wp-image-175" height="108" src="http://roohmadi.files.wordpress.com/2011/03/vbnet.jpg?w=150&h=108" title="vbNet" width="150" /></a>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.<br />
<strong>Mengirim SMS</strong><br />
<strong><a href="http://roohmadi.files.wordpress.com/2011/03/vbsms.jpg"><img alt="" class="alignleft size-thumbnail wp-image-176" height="119" src="http://roohmadi.files.wordpress.com/2011/03/vbsms.jpg?w=150&h=119" title="vbSMS" width="150" /></a></strong> <br />
<strong><br />
</strong><br />
Untuk mengirim SMS melalui modem, lakukan langkah-langkah berikut ini:<br />
1. AT<br />
balasan “OK” jika modem berfungsi<br />
2. AT+CMGF=1<br />
mengatur mode Teks<br />
3. AT+CSCA= ”+XXXX”<br />
nomer SMS Center, tergantung SIM Card yang digunakan<br />
Untuk mengirim pesan:<br />
4. AT+CMGS= ”+NNNN” <Enter><br />
nomer handphone yang akan dituju<br />
5. Pesan_yang_akan_kita_kirim <Ctrl+Z><br />
Kemudian, bagaimanakah jika menggunakan VB .NET?<br />
Langkah-langkahnya sama dengan diatas.<br />
1. SerialPort1.WriteLine(“AT”)<br />
<em>mengirim perintah AT ke port serial</em><br />
2. SerialPort1.WriteLine(“AT+CMGF=1″ & vbCrLf)<br />
<em>mengirim perintah AT+CMGF=1 dan Enter, yaitu kita mengatur modem agar bekerja dalam mode teks.</em><br />
3. SerialPort1.WriteLine(“AT+CSCA=” & Chr(34) & txtCenter.Text & Chr(34) & vbCrLf)<br />
<em>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</em><br />
4. SerialPort1.WriteLine(“AT+CMGS=” & Chr(34) & txtNotujuan.Text & Chr(34) & vbCrLf)<br />
<em>mengirim perintah AT+CMGS diikuti nomer tujuan SMS dan enter. Nomer tujuan bisa semua operator.</em><br />
5. SerialPort1.WriteLine(txtPesan.Text & Chr(26)) ‘SMS sending<br />
<em>mengirim isi pesan diikuti Ctrl+z</em><br />
<em><br />
</em><br />
dengan demikian isi SMS akan terkirim sukses.<br />
Untuk lebih jelasnya, silakan pelajari pada <a href="http://www.4shared.com/file/FSkCfMEz/SMS_VB_NET.html" rel="nofollow" target="_blank">code VB .NET</a> yang disertakan. Semoga bermanfaat.<br />
<br />
Source : http://rohmadi.com/2011/03/21/adminhttp://www.blogger.com/profile/16445734425204986540noreply@blogger.com2tag:blogger.com,1999:blog-8436695049623742497.post-11820964635288485582012-07-22T20:49:00.000-07:002012-07-22T20:49:57.860-07:00Mengirim dan menerima SMS menggunakan HyperTerminal melalui Modem GSM Serial<a href="http://roohmadi.files.wordpress.com/2011/03/modem.jpg"><img alt="" class="alignleft size-thumbnail wp-image-60" height="112" src="http://roohmadi.files.wordpress.com/2011/03/modem.jpg?w=150&h=112" title="modem" width="150" /></a>Pada kesempatan ini akan saya berikan sedikit contoh bagaimana mengirim dan menerima sms menggunakan hyperterminal melalui modem GSM serial. Seperti kita sudah ketahui, bahwa program bawaan Windows® adalah sebuah program yang sangat familiar bagi orang yang hobby ataupun seorang teknisi yang sering berhubungan dengan interfacing. Hyperterminal merupakan software yang universal dan mudah penggunaannya.<br />
Dengan menggunakan hyperterminal kita bisa mengatur setting serial port sesuai dengan hardware yang akan kita gunakan. Seperti seting baud rate, stop bit, parity, data bit, dan flow control.<br />
Bagaimanakah cara membuat sebuah koneksi interface dengan hyperterminal? Berikut langkah-langkah yang bisa dilakukan:<br />
1. Buka <strong>Hyperterminal</strong><br />
<strong> </strong><strong> </strong><br />
2. Selanjutnya akan muncul dialog box berikut, pilih <strong>Cancel</strong><br />
<br />
<strong><a href="http://roohmadi.files.wordpress.com/2011/03/hyper1.jpg"><img alt="" class="alignleft size-medium wp-image-52" height="262" src="http://roohmadi.files.wordpress.com/2011/03/hyper1.jpg?w=300&h=262" title="hyper1" width="300" /></a><br />
</strong><br />
<br />
<strong> </strong><strong> </strong><br />
3. Kemudian pilih <strong>Yes</strong><br />
<strong><a href="http://roohmadi.files.wordpress.com/2011/03/hyper2.jpg"><img alt="" class="alignleft size-medium wp-image-53" height="50" src="http://roohmadi.files.wordpress.com/2011/03/hyper2.jpg?w=300&h=50" title="hyper2" width="300" /></a></strong><br />
<strong> </strong><strong> </strong><br />
<br />
4. Pilih <strong>OK</strong><br />
<strong><a href="http://roohmadi.files.wordpress.com/2011/03/hyper3.jpg"><img alt="" class="alignleft size-medium wp-image-54" height="68" src="http://roohmadi.files.wordpress.com/2011/03/hyper3.jpg?w=300&h=68" title="hyper3" width="300" /></a></strong><br />
<br />
5. Pada Connection Description berikut, berilah nama <strong>SMS</strong><br />
<strong><a href="http://roohmadi.files.wordpress.com/2011/03/hyper5.jpg"><img alt="" class="alignleft size-medium wp-image-56" height="270" src="http://roohmadi.files.wordpress.com/2011/03/hyper5.jpg?w=300&h=270" title="hyper5" width="300" /></a></strong><br />
<br />
6. Kemudian pilihlah <strong>Serial Port</strong> yang akan digunakan dengan memilih dari combo box <strong>Connect using</strong>. Kemudian klik <strong>OK.</strong><br />
<br />
<strong><a href="http://roohmadi.files.wordpress.com/2011/03/hyper6.jpg"><img alt="" class="alignleft size-medium wp-image-57" height="300" src="http://roohmadi.files.wordpress.com/2011/03/hyper6.jpg?w=295&h=300" title="hyper6" width="295" /></a></strong><br />
<br />
<br />
7. Selanjutnya kita tentukan Port setting seperti berikut. Kemudian pilih <strong>OK</strong><br />
<br />
<strong><a href="http://roohmadi.files.wordpress.com/2011/03/hyper7.jpg"><img alt="" class="alignleft size-medium wp-image-58" height="300" src="http://roohmadi.files.wordpress.com/2011/03/hyper7.jpg?w=253&h=300" title="hyper7" width="253" /></a></strong><br />
<strong></strong> <br />
8. Tampilan dibawah ini adalah workspace hyperterminal yang akan kita gunakan untuk berkomunikasi dengan modem<br />
<a href="http://roohmadi.files.wordpress.com/2011/03/hyper8.jpg"><img alt="" class="alignleft size-medium wp-image-59" height="201" src="http://roohmadi.files.wordpress.com/2011/03/hyper8.jpg?w=300&h=201" title="hyper8" width="300" /></a><br />
<br />
Untuk melakukan komunikasi dengan modem GSM serial, kita menggunakan AT+Command. AT+Command adalah kumpulan perintah yang diawali dengan AT untuk berkomunikasi dengan modem. Modem yang saya gunakan adalah Wavecom® Fastrack yang murah dan mudah dibeli. Modem yang saya gunakan memiliki sekumpulan AT+Command yang terangkum pada panduan yang dapat dilihat <span style="text-decoration: underline;">disini</span>. Pada dasarnya modem yang dapat digunakan adalah modem yang support dengan AT+Command, walaupun pada beberapa merk modem mungkin memiliki beberapa perintah yang berbeda tergantung dari vendor pembuatnya.<br />
Selanjutnya saya akan mencoba mengakses modem dengan perintah AT+Command. Diantaranya, informasi yang dapat saya ambil adalah: Manufacturer identification, Request model identification, Request revision identification, Product Serial Number, Request IMSI, Card Identification, Capabilities list, dan lain-lain. Lebih lengkapnya dapat dilihat pada wavecom command.<br />
Saya akan mendapatkan informasi diatas dari modem yang saya gunakan.<br />
<ul><li><strong>Manufacturer identification</strong></li>
</ul>Pada hyperterminal ketik <strong>AT+CGMI</strong> kemudian diikuti <strong>Enter</strong>. Perintah ini akan memberikan identitas/nama pembuat modem GSM.<br />
<table border="1" cellpadding="0" cellspacing="0"><tbody>
<tr> <td valign="top" width="177">Hyperterminal –> Modem</td> <td valign="top" width="184">AT+CGMI</td> <td valign="top" width="222">Mendapatkan nama pembuat</td> </tr>
<tr> <td valign="top" width="177">Modem à Hyperteminal</td> <td valign="top" width="184">WAVECOM MODEMOK</td> <td valign="top" width="222">Perintah valid, Wavecom modem</td> </tr>
</tbody> </table><a href="http://roohmadi.files.wordpress.com/2011/03/atcgmi1.jpg"><img alt="" class="alignleft size-medium wp-image-105" height="201" src="http://roohmadi.files.wordpress.com/2011/03/atcgmi1.jpg?w=300&h=201" title="AT+CGMI" width="300" /></a><br />
<ul><li><strong>Request model identification</strong></li>
</ul>Pada hyperterminal ketik <strong>AT+CGMM</strong> kemudian diikuti <strong>Enter</strong>. Perintah ini akan mendapatkan band (GSM 900, DCS 1800 atau PCS 1900) yang support dengan modem yang digunakan. Jawaban dari modem dapat kombinsi dari ketiganya.<br />
<table border="1" cellpadding="0" cellspacing="0"><tbody>
<tr> <td valign="top" width="177">Hyperterminal –> Modem</td> <td valign="top" width="184">AT+CGMM</td> <td valign="top" width="222">Mendapatkan versi hardware</td> </tr>
<tr> <td valign="top" width="177">Modem à Hyperteminal</td> <td valign="top" width="184">MULTIBAND 900E 1800OK</td> <td valign="top" width="222"><br />
</td> </tr>
</tbody> </table><strong> </strong><br />
<strong> </strong><br />
<a href="http://roohmadi.files.wordpress.com/2011/03/atcgmm1.jpg"><img alt="" class="alignleft size-medium wp-image-106" height="201" src="http://roohmadi.files.wordpress.com/2011/03/atcgmm1.jpg?w=300&h=201" title="AT+CGMM" width="300" /></a><br />
<ul><li><strong>Request revision identification</strong></li>
</ul>Pada hyperterminal ketik <strong>AT+CGMR</strong> kemudian diikuti <strong>Enter</strong>. Perintah ini akan mendapatkan versi software.<br />
<table border="1" cellpadding="0" cellspacing="0"><tbody>
<tr> <td valign="top" width="177">Hyperterminal à Modem</td> <td valign="top" width="184">AT+CGMR</td> <td valign="top" width="222">Mendapatkan versi software</td> </tr>
<tr> <td valign="top" width="177">Modem à Hyperteminal</td> <td valign="top" width="184">641b09gg.Q2403A 1320676 061804 14:38OK</td> <td valign="top" width="222"><br />
</td> </tr>
</tbody> </table><strong> </strong><br />
<strong> </strong><br />
<strong> </strong><br />
<a href="http://roohmadi.files.wordpress.com/2011/03/atcgmr1.jpg"><img alt="" class="alignleft size-medium wp-image-107" height="201" src="http://roohmadi.files.wordpress.com/2011/03/atcgmr1.jpg?w=300&h=201" title="AT+CGMR" width="300" /></a><br />
<ul><li><strong>Product Serial Number</strong></li>
</ul>Pada hyperterminal ketik <strong>AT+CGSN</strong> kemudian diikuti <strong>Enter</strong>. Perintah ini akan mendapatkan IMEI dari modem yang digunakan.<br />
<table border="1" cellpadding="0" cellspacing="0"><tbody>
<tr> <td valign="top" width="177">Hyperterminal –> Modem</td> <td valign="top" width="184">AT+CGSN</td> <td valign="top" width="222">Mendapatkan IMEI</td> </tr>
<tr> <td valign="top" width="177">Modem à Hyperteminal</td> <td valign="top" width="184">352129002454434OK</td> <td valign="top" width="222">IMEI yang ada di EEPROM</td> </tr>
<tr> <td valign="top" width="177">Hyperterminal à Modem</td> <td valign="top" width="184">AT+CGSN</td> <td valign="top" width="222">Meminta IMEI</td> </tr>
<tr> <td valign="top" width="177">Modem à Hyperteminal</td> <td valign="top" width="184">+CME ERROR: 22</td> <td valign="top" width="222">IMEI tidak ditemukan di EEPROM</td> </tr>
</tbody> </table><strong> </strong><br />
<strong> </strong><br />
<strong> </strong><br />
<a href="http://roohmadi.files.wordpress.com/2011/03/atcgsn1.jpg"><img alt="" class="alignleft size-medium wp-image-108" height="201" src="http://roohmadi.files.wordpress.com/2011/03/atcgsn1.jpg?w=300&h=201" title="AT+CGSN" width="300" /></a><br />
<br />
Dan untuk informasi lainnya dapat merujuk pada AT+Command yang ada.<br />
Selanjutnya kita akan mencoba menggunakan hyperterminal untuk mengirim dan menerima SMS melalui Modem GSM serial. Perintah-perintah yang digunakan adalah: AT+CMGF, AT+CSCA, AT+CMGS, AT+CNMI, AT+CMGR, AT+CMGD.<br />
<strong>Mengirim SMS</strong><br />
Tes koneksi hyperterminal dengan Modem GSM menggunakan perintah <strong>AT</strong> diikuti <strong>Enter</strong>. Jika koneksi terhubung maka akan muncul <strong>OK</strong>. Selanjutnya kita ketik berikut:<br />
AT balasan “OK” jika modem berfungsi<br />
AT+CMGF=1 mengatur mode Teks<br />
AT+CSCA= ”+XXXX” nomer SMS Center, tergantung SIM Card yang digunakan<br />
Untuk mengirim pesan:<br />
AT+CMGS= ”+NNNN” <Enter> nomer handphone yang akan dituju<br />
Pesan_yang_akan_kita_kirim <Ctrl+Z><br />
<a href="http://roohmadi.files.wordpress.com/2011/03/sms.jpg"><img alt="" class="alignleft size-medium wp-image-112" height="201" src="http://roohmadi.files.wordpress.com/2011/03/sms.jpg?w=300&h=201" title="sms" width="300" /></a><br />
<br />
<strong>Menerima SMS</strong><br />
Kemudian bagaimanakan jika kita ingin menerima pesan? Modem GSM dapat disetting dengan dua cara, pertama Immediate, dan kedua Notification. Berikut langkah yang dapat dilakukan.<br />
Tes koneksi hyperterminal dengan Modem GSM menggunakan perintah <strong>AT</strong> diikuti <strong>Enter</strong>. Jika koneksi terhubung maka akan muncul <strong>OK</strong>. Selanjutnya kita ketik berikut:<br />
a. Immediate, ketika kita ingin hyperterminal menerima pesan yang masuk secara detil. GSM modem akan langsung mengirim pesan ke komputer dengan perintah +CMT.<br />
AT+CMGF=1<br />
AT+CNMI=1,2,0,0,0 mengatur agar modem mengirim pesan ke computer saat diterima<br />
Saat pesan diterima, maka computer akan menerima<br />
+CMT: “+nnnn”,,”10/12/06,06:04:10+28”<br />
Pesan_balasan_dari_handphone<br />
<a href="http://roohmadi.files.wordpress.com/2011/03/sms11.jpg"><img alt="" class="alignleft size-medium wp-image-111" height="200" src="http://roohmadi.files.wordpress.com/2011/03/sms11.jpg?w=300&h=200" title="SMS1" width="300" /></a><br />
<br />
Computer akan memantau port serial secara kontinyu dan menampilkan pesan jika telah diterima.<br />
b. Notification, ketika pesan diterima, maka GSM akan mengirim notifikasi ke computer menggunakan perintah +CMTI diikuti nomer memori pesan tersimpan.<br />
AT+CMGF=1<br />
AT+CNMI=1,1,0,0,0<br />
mengatur agar modem mengirim notifikasi ke computer saat diterima<br />
Saat pesan diterima, maka computer akan menerima<br />
+CMTI: “SM”,9 pesan tersimpan pada memori nomer 9<br />
<a href="http://roohmadi.files.wordpress.com/2011/03/sms21.jpg"><img alt="" class="alignleft size-medium wp-image-114" height="200" src="http://roohmadi.files.wordpress.com/2011/03/sms21.jpg?w=300&h=200" title="SMS2" width="300" /></a><br />
<br />
Ketik AT+CMGR=9 untuk membaca pesan dari memori nomer 9<br />
<a href="http://roohmadi.files.wordpress.com/2011/03/sms31.jpg"><img alt="" class="alignleft size-medium wp-image-115" height="200" src="http://roohmadi.files.wordpress.com/2011/03/sms31.jpg?w=300&h=200" title="SMS3" width="300" /></a><br />
<br />
Balasan dari modem:<br />
+CMGR: “REC UNREAD”,”+nnnnn”,”10/12/06,06:13:06+28”<br />
Pesan_balasan<br />
OK<br />
Kemudian ketik AT+CMGD=9 menghapus pesan pada nomer memori 9<br />
<a href="http://roohmadi.files.wordpress.com/2011/03/sms41.jpg"><img alt="" class="alignleft size-medium wp-image-116" height="200" src="http://roohmadi.files.wordpress.com/2011/03/sms41.jpg?w=300&h=200" title="SMS4" width="300" /></a><br />
<br />
Demikian langkah-langkah untuk mengirim dan menerima sms menggunakan hyperterminal. Pada dasarnya untuk mengirim dan menerima SMS dapat menggunakan program-program yang lain, misalnya: Visual Basic 6.0, Visual Basic .NET, C++, Delphi atau pun yang lainnya dengan prinsip yang sama.<br />
SMS dapat digunakan untuk pengukura jarak jauh (telemetri), pengendalian jarak jauh (telecommand), SMS gateway, dan lainnya.<br />
Semoga bermanfaat.<br />
<br />
Source : http://rohmadi.com/2011/03/11/adminhttp://www.blogger.com/profile/16445734425204986540noreply@blogger.com1tag:blogger.com,1999:blog-8436695049623742497.post-51581891984489623382012-07-22T20:44:00.000-07:002012-07-22T20:44:47.550-07:00Membuat SMS Gateway dengan Visual Basic 6.0 (1)<a href="http://roohmadi.files.wordpress.com/2011/03/splitvb61.jpg"><img alt="" class="alignleft size-thumbnail wp-image-187" height="105" src="http://roohmadi.files.wordpress.com/2011/03/splitvb61.jpg?w=150&h=105" title="SplitVB61" width="150" /></a>Kirim *Reg#Jawaban A# ke nomer 0899763412xx, mungkin kita tidak asing dengan iklan ataupun ajakan dari presenter di sebuah televisi sekarang ini. Ataupun bentuk yang lain semisal, ya ini adalah sebuah bentuk aplikasi dari layanan SMS. Inilah yang disebut dengan SMS gateway secara sederhana. Konsep SMS gateway adalah sederhana. Yaitu, menerima SMS, mengolah pesan masuk sesuai syntax yang ditentukan, dan menghubungkan ke database, baik itu mencari database, menyimpan ataupun yang lainnya.<br />
Hampir semua bank sekarang menyediakan layanan SMS banking, yang memberikan layanan dengan mengirimkan SMS dengan format syntax yang telah ditentukan.<br />
Pada kali ini, Anda akan belajar bagaimana mengolah pesan masuk (SMS inbox), menjadi keyword yang dapat digunakan dalam pengolahan data database. Misalnya aplikasu SMS gateway untuk layanan akademik di sekolah.<br />
Dicontohkan, syntax SMS untuk meminta data nilai suatu pelajaran adalah:<br />
*Nilai#MataPelajaran#Kelas#Semester#<br />
Dengan contoh dalam SMS client adalah, *Nilai#Matematika#VII#02#<br />
Dari syntax di atas, Anda bisa mendapatkan empat keyword (kata kunci) yang selanjutnya dapat digunakan dalam pemrosesan data base, yaitu Nilai, Matematika, VII, 02.<br />
Algoritma yang digunakan adalah:<br />
- temukan posisi karakter bintang ‘*’ dari pesan<br />
- temukan posisi karakter pagar ‘#’ pertama dari pesan<br />
- ambil keyword pertama yang posisinya adalah posisi_bintang+1 sampai posisi_pagarpertama-1<br />
- temukan posisi karakter pagar ‘#’ kedua dari pesan<br />
- ambil keyword kedua yang posisinya adalah posisi_pagarpertama+1 sampai posisi_pagarkedua-1<br />
- temukan posisi karakter pagar ‘#’ ketiga dari pesan<br />
- ambil keyword ketiga yang posisinya adalah posisi_pagarkedua+1 sampai posisi_pagarketiga-1<br />
- temukan posisi karakter pagar ‘#’ keempat dari pesan<br />
- ambil keyword keempat yang posisinya adalah posisi_pagarketiga+1 sampai posisi_pagarkeempat-1<br />
bagaimanakah implementasi tiap langkah di atas dalam syntax VB 6?<br />
Mari kita pelajari langkah-demi langkah.<br />
- untuk mencari posisi sebuah karakter dalam sebuah string, VB sudah menyediakan library. Kita bisa menggunakan syntax<br />
InStr(Teks, KarakterDicari)<br />
Dari contoh dapat dilakukan dengan<br />
posBintang=InStr(Text1.Text, “*”)<br />
posPagar1 = InStr(Text1, “#”)<br />
dari sini Anda mendapat posisi karakter bintang dan karakter pagar1<br />
- untuk mengambil string dari sebuah string lain dengan posisi awal sampai sejumlah karakter dapat digunakan dengan syntax<br />
Mid(Teks,PosAwal,PanjangKar)<br />
<br />
<a href="http://roohmadi.files.wordpress.com/2011/03/splitvb62.jpg"><img alt="" class="size-medium wp-image-188 alignnone" height="211" src="http://roohmadi.files.wordpress.com/2011/03/splitvb62.jpg?w=300&h=211" title="SplitVB62" width="300" /></a><br />
<br />
Dari contoh di atas Anda bisa mendapatkan string keyword dengan code:<br />
Text2 = Mid(Text1, posBintang + 1, posPagar1 – posBintang – 1)<br />
- kemudian untuk mencari keyword kedua adalah mengetahui posisi pagar kedua pada sisa string dan mengambil posisinya dalam string tersebut.<br />
<br />
<a href="http://roohmadi.files.wordpress.com/2011/03/splitvb63.jpg"><img alt="" class="size-medium wp-image-189 alignnone" height="211" src="http://roohmadi.files.wordpress.com/2011/03/splitvb63.jpg?w=300&h=211" title="SplitVB63" width="300" /></a><br />
<br />
Setelah posisi pagar kedua diketahui, ambil string dengan posisi awal adalah posisi pagar pertama sejumlah selisih posisi pagar kedua dan pagar pertama.<br />
code yang digunakan adalah:<br />
<em>‘keyword 2</em><br />
<em>temp = Right(Text1, Len(Text1) – posPagar1)</em><br />
<em>posPagar2 = InStr(temp, “#”)</em><br />
<em>Text3 = Mid(temp, 1, posPagar2 – 1)</em><br />
<br />
- untuk mencari keyword ketiga adalah mengetahui posisi pagar ketiga pada sisa string dan mengambil posisinya dalam string tersebut.<br />
<br />
<a href="http://roohmadi.files.wordpress.com/2011/03/splitvb64.jpg"><img alt="" class="size-medium wp-image-190 alignnone" height="211" src="http://roohmadi.files.wordpress.com/2011/03/splitvb64.jpg?w=300&h=211" title="SplitVB64" width="300" /></a><br />
<br />
Setelah posisi pagar ketiga diketahui, ambil string dengan posisi awal adalah posisi pagar kedua sejumlah selisih posisi pagar ketiga dan pagar kedua.<br />
code yang digunakan adalah:<br />
<em>‘keyword 3</em><br />
<em>temp1 = Right(temp, Len(temp) – posPagar2)</em><br />
<em>posPagar3 = InStr(temp1, “#”)</em><br />
<em>Text4 = Mid(temp1, 1, posPagar3 – 1)</em><br />
- untuk mencari keyword ketiga adalah mengetahui posisi pagar ketiga pada sisa string dan mengambil posisinya dalam string tersebut.<br />
<br />
<a href="http://roohmadi.files.wordpress.com/2011/03/splitvb65.jpg"><img alt="" class="size-medium wp-image-191 alignnone" height="211" src="http://roohmadi.files.wordpress.com/2011/03/splitvb65.jpg?w=300&h=211" title="SplitVB65" width="300" /></a><br />
<br />
Setelah posisi pagar keempat diketahui, ambil string dengan posisi awal adalah posisi pagar ketiga sejumlah selisih posisi pagar keempat dan pagar ketiga.<br />
code yang digunakan adalah:<br />
<em>‘keyword 4</em><br />
<em>temp = Right(temp1, Len(temp1) – posPagar3)</em><br />
<em>posPagar4 = InStr(temp, “#”)</em><br />
<em>Text5 = Mid(temp, 1, posPagar4 – 1)</em><br />
- Untuk lebih lengkapnya, code diatas adalah:<br />
<em>Dim posBintang As Integer, posPagar1 As Integer, posPagar2 As Integer, posPagar3 As Integer, posPagar4 As Integer</em><br />
<em>Dim temp As String, temp1 As String</em><br />
<br />
<em>‘keyword 1</em><br />
<em>posBintang = InStr(Text1, “*”)</em><br />
<em>posPagar1 = InStr(Text1, “#”)</em><br />
<em>Text2 = Mid(Text1, posBintang + 1, posPagar1 – posBintang – 1)</em><br />
<br />
<em>‘keyword 2</em><br />
<em>temp = Right(Text1, Len(Text1) – posPagar1)</em><br />
<em>posPagar2 = InStr(temp, “#”)</em><br />
<em>Text3 = Mid(temp, 1, posPagar2 – 1)</em><br />
<br />
<em>‘keyword 3</em><br />
<em>temp1 = Right(temp, Len(temp) – posPagar2)</em><br />
<em>posPagar3 = InStr(temp1, “#”)</em><br />
<em>Text4 = Mid(temp1, 1, posPagar3 – 1)</em><br />
<br />
<em>‘keyword 4</em><br />
<em>temp = Right(temp1, Len(temp1) – posPagar3)</em><br />
<em>posPagar4 = InStr(temp, “#”)</em><br />
<em>Text5 = Mid(temp, 1, posPagar4 – 1)</em><br />
Dengan demikian Anda sudah bisa mendapatkan empat keyword yang ada dalam pesan, untuk selanjutnya dapat digunakan sebagai parameter dalam pengolahan database.<br />
Demikian semoga bermanfaat.<br />
<br />
Source : http://rohmadi.com/2011/03/23/adminhttp://www.blogger.com/profile/16445734425204986540noreply@blogger.com0tag:blogger.com,1999:blog-8436695049623742497.post-63260559655214097912012-07-22T20:41:00.000-07:002012-07-22T20:41:40.359-07:00Modul Tutorial Pemrograman SMS Gateway Tahap Awal<div style="text-align: center;"><img alt="smsgateway" class="aligncenter" height="137" src="http://veriawan.blog.uns.ac.id/files/2012/01/sms_gateway-300x137.jpg" width="300" /></div><div style="text-align: left;">Short Message Service atau lebih dikenal dengan SMS merupakan media komunikasi yang sangat umum di kalangan masyarakat. Hampir semua lapisan masyarakat sudah memiliki handphone dan pastinya mereka sudah mengenal SMS. Karena faktor inilah SMS dijadikan media komunikasi yang hemat, cepat dan terjangkau.</div>SMS semakin berkembang penggunaanya bahkan SMS sudah dipakai sebagai media kampanye. Hehmm..ternyata SMS jika tepat penggunaanya akan sangat powerfull. Akhir-akhir ini juga banyak SMS Spam yang digunakan oleh kalangan tidak bertanggung jawab. Tetapi sekarang kita akan mengenal SMS lebih jauh.<br />
Ternyata pengembangan SMS Gateway atau server SMS tidak sesulit yang dibayangkan. Kita hanya butuh komputer, modem support SMS (plus kartu provider yang ada pulsanya) dan sebuah aplikasi desktop. Kita akan belajar pengembangan aplikasi SMS Gateway menggunakan pemrograman Microsoft Visual Basic 6.0 dan tentunya menggunakan Gammu SMS Engine. Gammu merupakan SMS Engine yang gratis untuk digunakan.<br />
Kita langsung saja menuju coding VB 6.<br />
1. Buat satu modul sebagai koneksi ke tabel Outbox yang sudah ada di basis data. Kita namakan RSOutbox.<br />
2. Berikut adalah kode program koneksi untuk membuka basis data.<br />
Sub dbSMS()<br />
Dim konstring As String<br />
Dim dbName As String<br />
Dim dbServer As String<br />
Dim dbPort As String<br />
Dim dbUser As String<br />
Dim dbPass As String<br />
On Error GoTo konerror<br />
dbName = “db_sms”<br />
dbServer = “localhost”<br />
dbPort = “3306″<br />
dbUser = “root”<br />
dbPass = “”<br />
konstring = “driver={MySQL ODBC 3.51 Driver};SERVER=” & dbServer & “;DATABASE=” & dbName & “;UID=” & dbUser & “;PWD=” & dbPass & “;PORT=” & dbPort & “;OPTION=3″<br />
With Koneksi<br />
.ConnectionString = konstring<br />
.Open<br />
End With<br />
End sub<br />
3. Berikut adalah kode program untuk membuka tabel Outbox yang ada di dalam basis data.<br />
Sub dbOutbox()<br />
With Koneksi<br />
rsOutbox.CursorLocation = adUseClient<br />
strsql = “SELECT outbox.NOTUJUAN, outbox.ISISMS FROM outbox”<br />
rsOutbox.Open strsql, Koneksi, 1, 2<br />
End With<br />
End Sub<br />
4. Selanjutnya tambahkan 1 form dan tambahkan 2 text box dan 1 command button. Textbox1 sebagai ISI SMS, Textbox2 sebagai NOMOR HP TUJUAN dan Command1 sebagai tombol KIRIM. Berikut adalah contoh desain form.<br />
<div class="wp-caption aligncenter" id="attachment_235" style="width: 310px;"><img alt="SMS Gateway" class="size-medium wp-image-235" height="175" src="http://veriawan.blog.uns.ac.id/files/2011/10/pic00-300x175.png" width="300" /><div class="wp-caption-text">SMS Gateway</div></div><div align="center"> </div><div align="center"> </div>5. Selanjutnya doubel klik tombol KIRIM dan masukkan kode program sebagai berikut:<br />
Private Sub Command1_Click()<br />
With rsOutbox<br />
.AddNew<br />
.Fields(”nomortujuan”) = Text2.Text<br />
.Fields(”isisms”) = Text1.Text<br />
.UpdateBatch<br />
End With<br />
End sub<br />
6. It’s done J. Mudah kan… Untuk menggunakan tinggal masukkan ISI SMS ke Textbox1 dan NOMOR TUJUAN ke Textbox2, setelah itu pencet tombol KIRIM dan SMS akan dikirim.<br />
Dapatkan modul tutorial versi lengkap dengan Rp 125.000,-. Anda akan mendapatkan tutorial lengkap untuk menjadi pengembang bisnis SMS Gateway. Isi modul terdiri dari:<br />
a. Panduan instalasi XAMPP (sebagai server lokal), MySQL Connector dan Gammu SMS.<br />
b. Panduan pemrograman aplikasi SMS Gateway menggunakan Visual Basic 6.<br />
c. Plus: Paket PHP sebagai kontrol panel Gammu SMS.<br />
Aplikasi dapat dikembangkan ke arah SMS Massal Kampanye, Pemberitahuan program-program perusahaan, SMS auto-reply, SMS isi pulsa, SMS booking, SMS Reminder, dsb.<br />
<a href="http://veriawan.blog.uns.ac.id/files/2011/10/tutorial-sms-gateway-part-1.pdf" rel="nofollow" target="_blank">DOWNLOAD VERSI PDF >> CLICK ME <<</a><br />
<br />
Source : http://veriawan.blog.uns.ac.id/adminhttp://www.blogger.com/profile/16445734425204986540noreply@blogger.com1tag:blogger.com,1999:blog-8436695049623742497.post-57634775123067687982012-07-22T20:36:00.001-07:002012-07-22T20:37:34.991-07:00Sms Gateway Dengan VBSekedar Sharing Info tentang SMS Gateway ajah…..<br />
Ini di dapat dari blog temen nyari di Google (hee..he..hee..)<br />
Mungkin sebagian orang ga ngerti maksudnya sms gateway itu apa….<br />
SMS gateway adalah sebuah aplikasi yang dijalankan melalui komputer dan terhubung dengan handset (HP) GSM (berhubung yang akan di bahas adalah SMS gateway untuk GSM) untuk dapat mengangani SMS yang masuk maupun yang keluar.<br />
Ada beberapa kelengkapan yang diperlukan untuk membuat SMS gateway menggunakan visual basic 6, antara lain:<br />
<ol><li>Komputer (So pasti @_@)</li>
<li>Handphone (Handset)</li>
<li>Kabel data Serial (kalo mau beli nama pasarnya biasanya kabel 5 in 1)</li>
<li>File MFBUS15.ocx</li>
</ol><br />
File MFBUS15.ocx berfungsi sebagai component untuk melakukan koneksi dengan komputer ketika handphone dihubungkan dengan komputer. Untuk jenis HP yang dapat digunakan dan File MFBUS15.ocx dapat di download <a href="http://en.support.wordpress.com/affiliate-links/" rel="nofollow" target="_blank">disini</a><br />
Lakukan instalasi MFBUS15.ocx, caranya dapat mengikuti perintah yang ada dalam file yang sampean download. Setelah itu ketikan code ini untuk melakukan koneksi :<br />
<div style="text-align: left;">‘koneksi</div><div style="text-align: left;">Me.fbus.Connect “COM1”<br />
If Me.fbus.Connected = True Then<br />
Msgbox “Koneksi Berhasil”<br />
Else<br />
Msgbox “Koneksi Gagal”<br />
End If</div><div style="text-align: left;">Perintah me.fbus.connect adalah perintah untuk koneksi ke modem GSM,lalu “COM1” adalah nomor Port yang digunakan.<br />
Tanda petik jangan dihilangkan, karena harus berupa string. Setelah koneksi terjadi, sekarang kamu bisa melakukan apa saja yang kamu inginkan misalnya membaca SMS ataupun mengirim SMS.</div><div style="text-align: left;"></div>Untuk mengambil SMS gunakan perintah sms.refresh<br />
Me.fbus.SMS.Refresh<br />
Gunakan perintah ini untuk mengambil semua SMS yang ada di handphone, kemudian gunakan perintah Me.fbus.SMS.Inbox(nosms).text untuk membaca SMS di kotak inbox dan Me.fbus.SMS.Outbox(nosms).text untuk SMS di kotak Outbox…<br />
DonLot Di Sini :<br />
<a href="http://upload.wanxp.net/download.php?file=723SMS_Manager_v1.0.rar" rel="nofollow" target="_blank">SMS GateWay</a><br />
Ide awalnya saya dapat ketika ingin membuat sebuah aplikasi untuk mengecek apakah komputer dirumah dalam keadaan mati atau menyala?karena saya sering lupa mematikan komputer ketika akan berangkat kerja.Sehingga apabila masih dalam keadaan menyala,saya tinggal sms ke server di rumah dan komputer akan Shutdown secara otomatis.<br />
Lalu muncullah ide membuat aplikasi sms gateway untuk mematikan komputer dari jarak jauh.Pake Vb aja deh. Setelah bertapa berminggu-minggu, dan bertanya-tanya sama Mbah sakti mandra guna “GOOGLE”, lalu ketemulah dengan MFBUS15.ocx .Awalnya sih pingin cari yang murni Source code,tapi setelah dipikir-pikir jika ada yang lebih mudah, kenapa cari yang susah???<br />
Oke cukup basa-basi langsung aja.<br />
Seperti yang saya bilang tadi, kita butuh yang namanya MFBUS15.ocx bisa tanya-tanya sama mbah google atau sedot <a href="http://fahrul.co.cc/download/mfbus15.zip" rel="nofollow" target="_blank"><b>disini</b></a>… : ) hehehe.<br />
Bagaimana cara penggunaannya?<br />
Sebelumnya kamu harus tahu nomor COM berapa modem GSM atau Handphone kamu terpasang. Saya nyoba pake hp nokia 3310 yang terpasang di COM1.<br />
Masukkan MFBUS15.ocx tadi ke program kamu dan beri nama fbus.<br />
Kemudian lakukan koneksi dengan perintah:<br />
<code><br />
Me.fbus.Connect “COM1”<br />
If Me.fbus.Connected = True Then<br />
Msgbox “Koneksi Berhasil”<br />
Else<br />
Msgbox “Koneksi Gagal”<br />
End If<br />
</code><br />
Nah, perintah me.fbus.connect adalah perintah untuk koneksi ke modem GSM,lalu “COM1” adalah nomor Port yang saya gunakan.<br />
Tanda petik jangan dihilangkan, karena harus berupa string. Setelah koneksi terjadi, sekarang kamu bisa melakukan apa saja yang kamu inginkan misalnya membaca SMS ataupun mengirim SMS.<br />
Untuk mengambil SMS gunakan perintah sms.refresh<br />
Me.fbus.SMS.Refresh<br />
Gunakan perintah ini untuk mengambil semua SMS yang ada di handphone, kemudian gunakan perintah Me.fbus.SMS.Inbox(nosms).text untuk membaca SMS di kotak inbox dan Me.fbus.SMS.Outbox(nosms).text untuk SMS di kotak Outbox…<br />
Rul, trus nosms itu apa??? Begini… Apabila didalam kotak masuk atau Inbox atau pun di Outbox kita ada 5 SMS, trus kamu ingin membaca SMS yang ke 3, maka nosms kamu isi dengan 3 dst… trus klo mau baca semua??? Ya tinggal masukkan aja dalam perulangan<br />
Contoh:<br />
<code><br />
For i = 1 To Me.fbus.SMS.Inbox.Count<br />
Msgbox Me.fbus.SMS.Outbox(i)<br />
Next I<br />
</code><br />
Untuk mengirim SMS kamu bisa gunakan perintah :<br />
Me.fbus.SendSMSMessage notujuan, teks<br />
Notujuan dan teks harus berupa string.<br />
Didalam file yang kamu sedot tadi sudah ada the fucking manual file, silahkan membaca file tersebut namun saya tetap menerima pertanyaan dari kamu-kamu semua.<br />
Selamat mencoba…<br />
PS: Bagian berikutnya mungkin akan membahas mengenai SMS Gateway menggunakan GAMMU.<br />
bagi yang ingin membuat program sejenis ini, saya juga melayani pemesanan Program sejenis (SMS Gateway) atau program-program lainnya. Web juga bisa kok portfolio saya bisa dilihat dihalaman portfolio…<br />
<br />
Source : http://kibagus21.wordpress.com/adminhttp://www.blogger.com/profile/16445734425204986540noreply@blogger.com2