VB6 SMS Gateway: Contoh Mengirim Kode USSD

Mengenai cara mengirim kode USSD dari aplikasi yang dibuat menggunakan bahasa pemrograman VB6 - USSD merupakan singkatan dari Unstructured Supplementary Service Data. USSD biasanya diawali dengan tanda bintang (*) dan diakhiri dengan tanda pagar (#). Contoh USSD:

• *888#
• *101#
• *109*72348937857623#

Dibawah ini merupakan contoh mengirim kode USSD, yang digunakan untuk mengecek pulsa Simpati:

Option Explicit

Dim strBuffer As String

Private Sub Command1_Click()
    Text1.Text = ""
    strBuffer = ""
    If MSComm1.PortOpen = True Then MSComm1.PbortOpen = False
    With MSComm1
        .CommPort = 3
        .Settings = "115200,N,8,1"
        .Handshaking = comRTS
        .RTSEnable = True
        .DTREnable = True
        .RThreshold = 1
        .SThreshold = 1
        .InputMode = comInputModeText
        .InputLen = 0
        .PortOpen = True
        .Output = "AT+CUSD=1," & Chr(34) & "*888#" & Chr(34) & ",15" & vbCrLf
    End With
End Sub

Private Sub MSComm1_OnComm()
    strBuffer = strBuffer & MSComm1.Input
    Dim x As String
    If InStr(1, strBuffer, ",15") Then
        Dim s() As String
        s = Split(strBuffer, vbCrLf)
        Dim i As Integer
        For i = 0 To UBound(s)
            If InStr(1, s(i), "+CUSD") Then
                x = s(i)
            End If
        Next
    End If
    If x <> "" Then
       s = Split(x, ",")
       Text1.Text = Mid$(s(1), 2, Len(s(1)) - 2)
    End If
End Sub

Maka hasilnya adalah seperti gambar di bawah ini:

Contoh USSD Cek pulsa Simpati  

 

 

 

 

 

 

 

 

 

 

 

 

 

HOT INFO

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