| Sunday, July 23, 2006 |
| Aplliikasii SMS dengan VB & Mobiille |
Ekra Sanggala
ekrasanggala@yahoo.co.uk
PENDAHULUAN
Short Message Service atau yang lebih dikenal dengan SMS saat ini sudah banyak
digunakan oleh masyarakat sebagai alat komunikasi. Kelebihan dari SMS adalah biayanya yang
murah, cepat, dan langsung pada tujuan. Mulai dari anak-anak, remaja, orang dewasa hingga orang
lanjut usia hampir semuanya memanfaatkan teknologi SMS ini. Awalnya SMS hanya digunakan
untuk berkomunikasi antar personal saja. Tetapi kini seiring perkembangan jaman, penggunaan SMS
semakin berkembang. Misalnya untuk polling suatu audisi, mengakses nilai kuliah, mengirim kritik
& saran kepada media massa untuk kemudian dipublikasikan dan banyak lagi penggunaan lainnya.
Untuk dapat melakukan hal-hal tersebut, tentu saja diperlukan dukungan dari software & hardware
yang memadai.
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 yang dapat
didownload secara gratis di www.softwarecave.com.
TENTANG Mobile FBUS 1.5 ActiveX
Mobile FBUS 1.5 ActiveX adalah Freeware ActiveX Control yang digunakan untuk membuat
aplikasi 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.
Lisensi Dokumen:
Copyright © 2003 - 2006 IlmuKomputer.Com
Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara
bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah
atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak
diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari
IlmuKomputer.Com.
Kuliah Umum IlmuKomputer.Com
Copyright © 2003-2006 IlmuKomputer.Com
2
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
Kuliah Umum IlmuKomputer.Com
Copyright © 2003-2006 IlmuKomputer.Com
3
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
Kuliah Umum IlmuKomputer.Com
Copyright © 2003-2006 IlmuKomputer.Com
4
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.
Kuliah Umum IlmuKomputer.Com
Copyright © 2003-2006 IlmuKomputer.Com |
posted by Indra T Sakti @ 10:51 PM  |
|
|
|
|
