Aplikasi SMS dengan VB & Mobile FBUS 1.5 ActiveX Control

Mungkin banyak orang yang beranggapan bahwa untuk membuat suatu aplikasi SMS itu dibutuhkan software & hardware yang rumit dan mahal. Padahal kita dapat membuatnya dengan relatif mudah & biaya yang terjangkau. Untuk membuat aplikasi SMS yang sederhana kita “hanya” membutuhkan Ponsel NOKIA 6110 atau 5110, kabel data 5 in 1, komputer yang memiliki port COM dan dilengkapi Visual Basic 6, Mobile FBUS 1.5 ActiveX Control dan VB runtimes SP5. Mobile FBUS 1.5 ActiveX adalah Freeware ActiveX Control yang digunakan untuk membuataplikasi yang berhubungan dengan Ponsel. Contoh aplikasi yang dapat dibuat adalah pengirim & penerima SMS, memanipulasi logo operator, mengakses Phonebook dan lain-lain. Mobile FBUS 1.5 ActiveX dapat digunakan pada Ponsel GSM NOKIA yaitu NOKIA 51xx / 61xx dan 3210.

MEMPERSIAPKAN PERANGKAT
Langkah-langkah untuk melakukan persiapan perangkat adalah sebagai berikut:
1.Lakukanlah proses install untuk VB runtimes SP5.
2.Lakukanlah proses extract untuk file mfbus15.zip. Kemudian dari file hasil extract, copykan file gjfbus15.dll, mfbus15.ocx, mfbus15.oca ke directory windows\system32.
3.Lakukanlah proses registrasi untuk Mobile FBUS 1.5 ActiveX Control dengan cara menjalankan perintah regsvr32 mfbus15.ocx pada command prompt.
4.Hubungkan Ponsel NOKIA 6110 atau 5110 ke port COM di komputer menggunakan kabel data yang tersedia. Kemudian aktifkan ponsel tersebut.

PROGRAM UNTUK MENGKONEKSIKAN ANTARA PONSEL DENGAN KOMPUTER
Ikutilah langkah-langkah berikut untuk mengkoneksikan antara ponsel dengan komputer:
1.Jalankan Visual Basic 6.
2.Click menu Project → Components, kemudian berilah tanda √ pada component mobileFBUS control v1.5 dan tekanlah button “OK”. Maka pada daftar components akan muncul suatu component dengan icon
3.Kemudian pada form tambahkan component MFBUS15Control, CommandButton sebanyak 2 buah dan Label. Rubahlah properties untuk bagian caption dari component CommandButton & Label sehingga tampilan form menjadi mirip seperti gambar dibawah ini.

4.Click dua kali pada CommandButton yang mempunyai caption “Connect”, kemudian ketikkan listing program berikut :

Private Sub Command1_Click()
'Untuk mengkoneksikan antara Ponsel dengan Komputer. Nilai "COM1" dapat
'berubah-ubah sesuai dengan nomor COM yang digunakan
MFBUS15Control1.Connect "COM1"
'Untuk menampilkan kekuatan signal yang mampu ditangkap oleh Ponsel
Label1.Caption = "Signal : " & MFBUS15Control1.RfLevel
'Untuk melakukan cek, apakah koneksi berhasil atau gagal
If MFBUS15Control1.Connected = True Then
MsgBox "KONEKSI BERHASIL :-)"
Else
MsgBox "KONEKSI GAGAL :-("
End If
End Sub
5.Click dua kali pada CommandButton yang mempunyai caption “Disconnect”, kemudian ketikkan listing program berikut :
Private Sub Command2_Click()
'Koneksi antara Ponsel dengan Komputer dapat dilepaskan dengan perintah
ini
MFBUS15Control1.Disconnect
'Untuk menyembunyikan tampilan nilai signal
Label1.Caption = "Signal : "
End Sub
6.Jalankan program, kemudian click CommandButton Connect maka program akan memberitahu apakah koneksi berhasil atau gagal. Untuk melepaskan koneksi lakukanlah click pada CommandButton Disconnect.

PROGRAM UNTUK MENGIRIM SMS
Ikutilah langkah-langkah berikut untuk membuat program yang dapat mengirimkan sebuah SMS:
1. Dari form yang telah kita buat sebelumnya, tambahkan sebuah CommandButton dan rubahlah captionnya menjadi “Kirim SMS”. Lalu aturlah letak component-componentnya sehingga tampilannya menjadi seperti gambar dibawah ini.

2.Click dua kali pada CommandButton yang mempunyai caption “Kirim SMS”, kemudian ketikkan listing program berikut :

Private Sub Command3_Click()
'Variabel A adalah variabel yang akan menampung nilai hasil proses
pengiriman SMS
'A akan bernilai TRUE jika pengiriman berhasil dan FALSE jika
pengiriman gagal
'Proses pengiriman SMS ini akan mengembalikan suatu nilai yang bertype
BOOLEAN
'Nomor tujuan untuk pengiriman SMS saat ini adalah ABCDEFGHIJKL. Nomor
ini dapat
'diganti sesuai dengan kebutuhan
'Begitu pula dengan pesan SMS yang dikirimkan dapat diganti sesuai
dengan kebutuhan
A = MFBUS15Control1.SMS.SendMessage("ABCDEFGHIJKL ", "Hallo, ini hanya
test")
'Untuk melakukan cek, apakah pengiriman SMS berhasil atau gagal
If A = True Then
MsgBox "Pengiriman SMS berhasil"
Else
MsgBox "Pengiriman SMS gagal"
End If
End Sub
3.Jalankan program, kemudian click CommandButton Connect sehingga koneksi berhasil. Setelah koneksi berhasil, klik CommandButton Kirim SMS maka program akan memberitahu apakah pengiriman SMS berhasil atau gagal.

PROGRAM UNTUK MENGAMBIL SMS YANG TERDAPAT PADA INBOX
SMS yang dikirim oleh orang lain dan diterima oleh Ponsel kita maka akan disimpan pada Folder
Inbox. Untuk mengambil SMS yang tersimpan pada Folder Inbox tersebut ikutilah langkah-langkah
berikut ini :
1. Dari form yang telah kita buat sebelumnya, tambahkan sebuah CommandButton dan rubahlah captionnya menjadi “Lihat Inbox”. Lalu aturlah letak component-componentnya sehingga tampilannya menjadi seperti gambar dibawah ini.

2.Click dua kali pada CommandButton yang mempunyai caption “Lihat Inbox”, kemudian ketikkan listing program berikut :

Private Sub Command4_Click()
'Refresh perlu dilakukan setiap kali akan melihat INBOX atau OUTBOX
MFBUS15Control1.SMS.Refresh
MsgBox "Jumlah SMS di Inbox : " & MFBUS15Control1.SMS.Inbox.Count
'No pengirim disimpan pada variabel Pengirim
'Angka 1 menunjukan no urut SMS atau letak SMS yang akan ditampilkan.
'Angka tersebut dapat diganti sesuai dengan kebutuhan
Pengirim = MFBUS15Control1.SMS.Inbox(1).Sender
'Isi SMS disimpan pada variabel text
Text = MFBUS15Control1.SMS.Inbox(1).Text
'No Pengirim & Isi SMS ditampilkan bersama-sama pada Message Box
MsgBox Pengirim & ";" & Text
End Sub

3.Jalankan program, kemudian click CommandButton Connect sehingga koneksi berhasil. Setelah koneksi berhasil, klik CommandButton Lihat Inbox maka program akan menampilkan message box yang berisi no pengirim dan isi SMS.