Cek Pulsa dengan VB 6

Dalam postingan kali ini masih membahas salah satu bagian dari SMS Gateway, tapi bukan dengan gammu sebagai tools engine SMS Gateway yang cukup handal untuk membangun aplikasi SMS Gateway, gammu tidak hanya sekedar mampu untuk mengirim sms, menerima sms tapi dengan kemampuan bahasa pemrograman tertentu tools tersebut mampu dijadikan sebagai tool pendukung pembuatan aplikasi yang besar. 

Rasanya sudah sangat lama sekali tidak membuat postingan di blog ini, bukan persoalan waktu dan atau materi yang tidak memadai tapi karena kesibukan yang sangat tidak beraturan ditambah dengan persoalan yang sering menghantam secara perlahan-lahan namun cukup menyakitkan. :D (wakekeke jadi curhat).

Dilatar belakangi dengan masalah gammu yang saya rasa sangat kurang mampu untuk melakukan pengecekan pulsa, akhirnya cari cara lain untuk melakukan cek pulsa dengan provider yang ada di Indonesia, mulai dari XL, IM3, Simpati, dan lain sebagainya. Pada paparan sebelumnya saya sudah memberikan gambaran cara mengecek pulsa dengan gammu, silahkan lihat di url yang Cek Pulsa dengan Gammu.



You Ready,,,,, sebelum lanjutkan, maka terlebih dahulu kita persiapkan alat-alatnya baik peralatan untuk hardwarenya maupun untuk softwarenya.

Persiapkan Hardware
> Modem Wavecom dan atau modem yang lainnya (saya sendiri pakai modem Wavecom Fastrack)
> Kabel Data kalau kita memakai HP (dulu saya pakai Sony Erricson dan Siement C55)

Persiapkan Software
> Visual Basic 6.0

Setelah hardware dan software sudah lengkap dan sudah disiapkan dengan baik, maka persiapkan juga beberapa tools yang lainnya yaitu :
> Kopi pahit
> Cemilan
> Soft Drink
> Dan lain-lain yang membikin anda tidak Sakau

Tahapan-tahapannya :
1. Buka Visual Basic
2. Pilih Project Baru (Standard Exe) dan klik Open (lihat gambar)

Gambar 1 ; Project New

3. Tambahkan object MSComm, dengan cara :
    >> Klik Menu Project
    >> Pilih dan klik komponents (lihat gambar)

Gambar 2 ; New Component

    >> Cari dan Centang Microsoft Comm Control 6.0 (Sp6)

Gambar 3 ; MS Comm Control

     >> Klik Ok

4. Buat Interface atau Desain form untuk Cek Pulsa (lihat gambar)

Gambar 4 ; Form Cek Pulsa

5. Buat Source Code untuk form tersebut, kurang lebih seperti di bawah ini :

Option Explicit

'Fungsi API untuk Freeze
Private Declare Sub Sleep _
Lib "kernel32" (ByVal dwMilliseconds As Long)

'Cek Pulsa
Private Sub Command1_Click()
    Dim TextCommand, strCommand As String
    
    AturKomponen
    Me.MousePointer = 11
    
    strCommand = "AT+CUSD=1," & Chr(34) & Text2.Text _
                & Chr(34) & vbCrLf
    
    MSComm1.Output = strCommand
    
    Sleep 5000
    
    Me.MousePointer = vbDefault
    
End Sub

'Atur MS Comm
Private Sub AturKomponen()
    MSComm1.Settings = "115200,N,8,1"
    MSComm1.InputLen = 0
    MSComm1.RThreshold = 1
    MSComm1.InBufferSize = 32
    MSComm1.OutBufferSize = 0
    MSComm1.RTSEnable = True
    MSComm1.CommPort = 1
    MSComm1.PortOpen = True
End Sub

'Kosongkan Text
Private Sub Form_Activate()
    Text1.Text = vbNullString
    Text2.Text = vbNullString
    Text2.SetFocus
End Sub

'Tutup Koneksi ke Modem
Private Sub Form_Unload(Cancel As Integer)
    If MSComm1.PortOpen = True Then
        MSComm1.PortOpen = False
    End If
End Sub

'Tangkap setiap data yang masuk
Private Sub MSComm1_OnComm()
    Dim strBuffer As String
    Select Case MSComm1.CommEvent
        Case comEvReceive
            strBuffer = strBuffer & MSComm1.Input
    End Select
    Me.Text1.Text = strBuffer
End Sub  

5. Test dengan cara menekan F5

    Sebelum anda mengklik tombol Execute, isi terlebih dahulu kode untuk melakukan cek pulsa, sebagai contoh saya mau cek pulsa IM3, maka kode yang saya masukkan adalah 555, setiap kode pulsa harus diapit dengan simbol * (bintang) dan # (pagar). Lihat captured di bawah ini :

Gambar 5 ; Hasil Cek Pulsa

Demikian paparan mengenai SMS Gateway dalam pemrograman Visual Basic dengan memanfaatkan komponen MS Comm, untuk selanjutnya akan berlanjut ke Cek Pulsa dengan VB Session 2 dengan paparan lebih fokus ke arah melakukan parsing terhadap hasil keluaran dari MS Comm tersebut. 

Terakhir, paparan ini semata-mata hanyalah untuk melakukan dokumentasi pribadi, agar sewaktu-waktu lupa maka dengan sangat mudahnya tinggal koneksi ke Internet dan langsung buka blog ini.

Salam,

Eka Riana