Sunday, July 22, 2012

SMS Gateway Dengan Visual Basic

Sangat 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.

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:
1. Program Visual Basic harus sudah terinstall dikomputer Anda pastinya.
2. Download file Mfbus (sudah saya sertakan bersama contoh program), kemudian ekstrak ke folder windows\system32.
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 "
4. Jangna lupa kabel datanya harus sudah terhubung dengan komputer Anda.

Setelah persiapan diatas Anda lakukan, tahap selanjutnya buat form seperti ini di program VB Anda:

- Double klik commandbutton "Connect" kemudian beri script berikut:

Private Sub Command1_Click()
'Untuk koneksi antara Handphone
'dengan Komputer. Nilai "COM1" dapat
'berubah-ubah sesuai dengan nomor
' COM yang digunakan namun
'jika menggunakan fbus biasanya
'antara COM1 atau COM2
MFBUS15Control1.Connect "COM1"

'Untuk menampilkan signal Handphone
Label1.Caption = "Signal : " & MFBUS15Control1.RfLevel

'Untuk mencek apakah koneksi berhasil atau gagal
If MFBUS15Control1.Connected = True Then
MsgBox "KONEKSI BERHASIL"
Else
MsgBox "KONEKSI GAGAL"
End If
End Sub

- Untuk Disconnectnya tempelkan program berikut:

Private Sub Command2_Click()
' Script memutus koneksi
MFBUS15Control1.Disconnect

'Untuk menyembunyikan tampilan nilai signal
Label1.Caption = "Signal : "
End Sub

Ingat yang ada gambar tulisan Fbus disana muncul jika Activex Mfbus sudah diaktifin. Setelah semuanya beres coba jalankan programnya.
Untuk mengetahui port berapa yang digunakan lihat di Device Manager.

Contoh program visual basic untuk sms gateway informasi valas dapat di download disini:
http://rapidshare.com/files/216611750/Program_SMS.rar.html

Source :  http://tinggiraja.blogspot.com/


HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari SMS Gateway Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

1 comment:

  1. Thank you for informative article! It has been extremely helpful. I wish that you will continue posting your knowledge with us.

    Ocala mobile ads

    ReplyDelete