.

Ini merupakan pelajaran yang sangat menarik bagi saya, dan sudah lama juga saya mencari cara mudah, murah dan ga ribet untuk mencoba praktek dengan mudah membuat aplikasi SMS Gateway dengan Visual Basic 6. Sebenarnya device yang saya gunakan tidak begitu murah bagi saya, namun sangat mudah didapatkan untuk sekarang ini, yaitu saya menggunakan modem Broadband 3G Huawei E156 yang harganya Rp. 550.000,00 (http://www.jakartanotebook.com July 2009), tapi ada juga loh yang harganya 350rb dan bisa anda pakai untuk praktek.

Awalnya saya menggunakan Handphone nokia 7610 untuk praktek namun tidak dapat disisipkan AT-Commands, dan akhirnya saya membeli modem yang awalnya untuk berselancar di dunia internet, namun sempat terpikir untuk mencobanya, karena pada modem tersedia fasilitas Send and receive SMS dengan software bawaannya.

Sebelum anda melangkah ke programming Visual Basic, anda harus mengerti atau tau sedikit dengan perintah-perinta AT, namun anda pasti ingin tahu apa sih dan kenapa disebut “AT” Commands..? AT Commands merupakan perintah yang digunakan pada Hayes-compatible modem. Perintah ini disebut demikian karena pada penulisan perintahnya, kita harus memulainya dengan huruf AT (berasal dari attention).

Mungkin sebaiknya langsung saja pada praktek, masukkan modem anda dan cobalah buka aplikasi HyperTerminal untuk akses Serial Port (Saya menggunakan Settingan 9600,8,n,1 dengan COM2), bagi anda coba cek terlebih dahulu modem anda terdeteksi pada Serial Communication berapa?kemudian bit rate modem anda pun harus sesuai, setelah itu coba untuk “Connect”. Berikut akan saya ulas perintah-perintah yang sering digunakan untuk membuat aplikasi SMS Gateway.

AT

AT
OK

Perintah AT yang berarti Attention, biasanya saya gunakan untuk melakukan pengetesan apakah modem tersebut support AT commands atau tidak, dan modem akan reply pada baris selanjutnya yaitu “OK”.

AT+CMGF=[Message Format]

AT+CMGF=1
OK

Perintah ini sangat penting, karena jika anda tidak mengeksekusi perintah ini secara default (Huawei E156G) sms yang anda baca dengan format 7 bit atau 8 bit atau PDU Mode. Message format sendiri terdapat 2 pilihan yaitu :

0 = PDU Mode (7 bit or 8 bit format)

1 = Text Mode

AT+CMGR=[index]

AT+CMGR=3
+CMGR: Message..

Perintah untuk membaca pesan atau SMS menurut urutan pesan (index)

AT+CSQ=?

Untuk mengetahui Level Signal pada device yang kita gunakan.

AT+CSQ=?

+CSQ: 19,09OK

bentuk format command tersebut adalah +CSQ: (list of supported s), (list of supported ) OK dan berikut kutipan keterangan mengenai parameter http://ww1.freeau.net/freeau/freeau2680.aspx?id=2014

Parameter
Receive level:
0 -113 dBm or less
1 -111 dBm
2…30 -109… -53 dBm
31 -51 dBm or greater
99 not known or not detectable

Bit error rate:
0…7 as RXQUAL values in the table in GSM 05.08
section 8.2.4.
99 not known or not detectable.
To check the bit error rate there must be a call in progress to
obtain realistic values. If no call is set up, there is no BER to be
determined. In this case the indicated value may be 0 or 99,
depending on the SIM card.
Reference
GSM 07.07

To Be Continued..

Sending Message or SMS vb6 Script

Dibawah ini saya berikan contoh script untuk melakukan pengiriman sms :

Private Declare Sub Sleep Lib “KERNEL32″ (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
With MSComm1
.Settings = “115200,n,8,1″
.CommPort = 3 ‘—sesuaikan dengan COM anda
.PortOpen = True
.Output = “AT+IPR=115200″ + Chr(13)
Sleep 715
.Output = “AT E0″ + Chr(13)
Sleep 990
.Output = “AT+CMGF=1″ + Chr(13)
Sleep 100
txtPhone=”0856244031313” ‘—sesuaikan nomor HP tujuan
.Output = “AT+CMGS=” + Chr$(34) + Trim(Me.txtPhone) + Chr$(34) + vbCr
Sleep 1000 ‘ USE API
.Output = “Ini pesan singkat SMS yang dibuat lewat VB6 saya”+ Chr$(26)
.Output = “AT+CPAS” + Chr(13)

MsgBox “Kirim OK”, vbInformation
End With
End Sub

Sumber :

• http://nds1.nokia.com/phones/files/guides/at_commands.pdf
• http://ww1.freeau.net/freeau/freeau2680.aspx?id=2014

Pertanyaan, Kritik dan saran bisa kirim email ke : gandi@dhirenz.com

]]> http://blogs.dhirenz.com/2009/08/sms-gateway-vb6-programming-basic/feed/ 3 http://blogs.dhirenz.com/2009/03/visual-basic-vb6-sms-gateway/#utm_source=rss&utm_medium=rss&utm_campaign=visual-basic-vb6-sms-gateway http://blogs.dhirenz.com/2009/03/visual-basic-vb6-sms-gateway/#comments Sun, 15 Mar 2009 20:14:46 +0000 admin http://blogs.dhirenz.com/?p=541 Suatu hari saya berkeinginan untuk membuat sebuah server gateway (SMS Automatic Reply) atau sering kita sebut dengan SMS Gateway, dan ternyata connection membutuhkan sebuah komponen untuk menghubungkan antara Visual Basic (VB6) dengan device handphone/mobile. Setelah saya mencari dan akhirnya dapat di search engine google, dan berikut komponen yang saya dapatkan di http://forum.avgoc.com/forum_posts.asp?TID=62

Komponen-komponen yang telah di download sebaiknya disimpan (ekstrak file) di C:\windows\system32\ dan komunikasi hanya dengan handphone yang terdeteksi oleh PC dengan connection COM Port atau Serial Port. Contoh perintah atau syntacs dalam penggunaan MFBUS15 component :
MFBUS15.connect "COM3" {Connection to mobile phone with COM3 serial port number}
MFBUS15.dissconnect {Disconnect to mobile phone device}

And you can see the inbox or comming message, u can send a new message and then you can see delivery report message, see the command (type as string) :
text1.text = MFBUS15.SMS.Inbox
text2.text = MFBUS15.SMS.Outbox
text3.text = MFBUS15.SMS.DeliveryNotifications

Display battery and signal level (type as string) :
text1.text = MFBUS15.batterylevel
text1.text = MFBUS15.Rflevel

And another command you can find on this component, you can find another command with trying source code Visual Basic…

Handphone yang digunakan dengan jaringan GSM dan untuk CDMA saya belum pernah coba

Happy trying it..

Processor	 : Intel Pentium 4

RAM	 : 256 Mb (Minimal)

VGA	 : 128 Mb (Minimal)

Monitor 	 : 17" (1024 x 768)

Other	 : USB Port, Printer Port (LPT)

OS	 : Win XP

* Legalitas

Masyarakat indonesia pada umumnya mempunyai sifat konsumtif yang sangat tinggi, namun jeleknya mereka tidak mau mengeluarkan uang sedikitpun, walaupun jalan yang ditempuh sangatlah tidak baik, contohnya yah saya sendiri Dari pada membeli dengan harga yang tinggi lebih baik membeli bajakan yang mempunyai harga lebih murah walaupun saya tau resikonya lebih besar.

Dari legalitas ini Mysql diunggulkan karena merupakan product dengan lisensi GNU dan disebarkan secara free, sedangkan MS Access merupakan product Microsoft dan lisensi harus dibeli dengan harga yang lumayan tinggi.

* Kapasitas dan efektifitas

Disini tentunya Mysql diunggulkan, dibandingkan dengan Microsoft Access yang lebih lambat dan kapasitas dibawah mysql.

* Stand Alone Application

Namun Mysql harus mengakui kelebihan dari MS Access yang bisa membuat aplikasi didalam aplikasi itu sendiri, banyak aplikasi perkantoran yang masih menggunakannya.

Setelah dijelaskan kelebihan dan kekurangan kedua database tersebut, akhirnya saya mengerti kenapa rekan kerja saya meminta untuk merubah dari MS Access ke Mysql. Namun bagi saya kedua database tersebut mungkin saja sewaktu-waktu akan dipergunakan lagi, bagi saya ini merupakan ilmu dan pengalaman baru. Berikut adalah contoh-contoh connection script :

VB6 to Access ( Visual Basic to Access ) Script

Sebelumnya pastikan refrence pada Visual Basic anda klik Project > refrences > Browse kemudian cari file C:Program FilesCommon FilesSystemadomsado25.tlb atau msado27.tlb

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strSql As String
on Error goto Error
strSql = "SELECT * FROM e_member" ' Select semua field yang berada di tabel e_member
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;" _
& "Data Source=D:Projectdatabase.mdb"
cn.Open
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open strSql, cn, adOpenDynamic, adLockOptimistic, adCmdText
rs.Requery
txtId.text = rs("e_id")
cn.close
Exit Sub
Error:
strMessage = "Pembatalan transaksi"
Call Write_Log(2, pConstSuccess, strMessage, LblUser.Caption)

Script diatas merupakan contoh untuk read database pada MS Access

VB6 to MySql ( Visual Basic to MySql ) Connection

Visual Basic to MySql connection mungkin sering menjadi pertanyaan bagi orang awam yang sedang memperdalam kemampuannya dalam Visual Basic Programming, tidak tersedianya atau tidak support Visual Basic package ( paket visual basic Develpment Software ) terhadap aplikasi yang non Microsoft. Maka dari itu jika kita ingin menghubungkkan antara Visual Basic programming dengan maka saya akan memberikan caranya :

1. Install Aplikasi MySql dan buatlah sebuah database, jika anda menggunakan Operating System WinXP dan ingin menginstall MySql anda bisa menggunakan software appserv, jika ingin download bisa klik disini.
2. Download mysql connector odbc 5.1.5 win32  Driver, anda bisa klik disini untuk download.
3. Ekstrak file kemudian install.bat pada folder ODBC driver.
4. Setelah itu anda harus setup DSN pada komputer anda, berikut saya berikan langkah-langkahnya :

• Masuk ke Control Panel >> Administrative Tools >> Data Sources (ODBC)

Click the image to show with high quality

Kemudian akan muncul form ODBC Data Source Administration, pada Tabs User DNS anda pilih tombol Add disisi sebelah kanan form untuk menambahkan DSN yang baru. Setelah di klik maka akan keluar form Create New Data Source, dan pilih MySQL ODBC 5.1 Driver >> klik Finish.

Click the image to show with high quality

Kemudian akan muncul form seperti gambar disamping, isi data source dengan “AutoStock” (Contoh), kemudian description di isi dengan bebas. Selanjutnya adalah pengisian untuk authentikasi login ke mysql, misalkan pada server di isi localhost (karena saya install mysql di local), masukkan user dan password, kemudian pilih database yang digunakan. Jika sudah selesai lakukan pengecekan koneksi ke database dengan cara klik pada tombol test.

Click the image to show with high quality

Jika Installasi sudah selesai dilakukan, kini saatnya mencoba interfacing antara MySql dengan dengan Visual Basic, contoh script adalah sebagai berikut :
Public Sub ReloadDGRepStock()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strSql As String
strSql = "SELECT * FROM tmp_stock"
Set cn = New ADODB.Connection
cn.Open "dsn=AutoStock"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open strSql, cn, adOpenDynamic, adLockOptimistic, adCmdText
rs.Requery
Set DataGrid3.DataSource = rs
Exit Sub
End Sub

Perbedaan antara koneksi dengan MS Access dengan MySql hanya sedikit saja pada script, yaitu pada open connection dikarenakan tujuan database menggunakan DSN sudah di setup sehingga tidak memerlukan connection string, dan sintaks untuk membuka database berubah menjadi cn.open “dsn=autostock”

Semoga Bermanfaat.

Pasar atau ekonomi saat ini sedang merosot, krisis yang terjadi diseluruh dunia, namun saya memberanikan diri untuk menjual sebual jasa pembuatan program dengan menggunakan Visual Basic. Saya memberanikan diri dengan bisnis sampingan ini dikarenakan ke ingin tauan dan semangat untuk mendalami Visual Basic yang sangat kuat. Adapun project yang pernah dan sedang saya kerjakan (merupakan tugas saya dimana tempat saya bekerja sekarang) :

• Modifikasi software in Treadline Machine for controller  machine activity, modifikasi pada program untuk menampilkan color line pada software.
• Modifikasi software pada mesin treadline, mengganti komunikasi yang sebelumnya menggunakan Fiber Optic kemudian diganti dengan menggunakan kabel UTP yang terhubung dengan LAN.
• Pembuatan program untuk manage data mesin (memerlukan modifikasi PLC), dimana PLC akan memberikan sinyal jika terjadi lost time. Dan semua data setiap activity mesin terrecord dan bisa ditampilkan.

Bagi yang membutuhkan jasa pembuatan program bisa cofirm, Hubungi di +6285624403031 a.n. Gandi Suparlan

Difference with output type so this ideas not effective and efficient because deadline only 2 week, if have to use converter hence having to order with time old ones. So if this ideas can’t be support this project, maybe I have to use the way of secondly.

The Second Ideas is use the available media, so i’m not change or add new media with this project, I am only require to make a change at program. Please see the image “Available Schema”, the way of this schema i have to modification with Banbury Program that is add two address receive data from PLC and sending file (weighing data) to PC. Weighing PC will read the file always 1 second with timer.

Available schema