Thursday, August 15, 2013

Contoh VB6 Kode Cek Stok SEV Indosat (STK)

Di bawah ini merupakan contoh kode yang digunakan untuk mengecek stok SEV Indosat.

Peralatan yang dibutuhkan:

  1. Modem GSM
  2. Kartu chip Indosat

Adapun kodenya adalah sebagai berikut:

Option Explicit 

'-----------------------------------------------------------------------------
'http://khoiriyyah.blogspot.com
'-----------------------------------------------------------------------------

Dim strBuffer As String

Private Sub cmdSend_Click()
txtResult.Text = ""
txtProcess.Text = ""
strBuffer = ""
If UCase$(Left$(txtATCommand.Text, 2)) <> "AT" Then
MSComm1.Output = txtATCommand.Text & Chr(26)
Else
MSComm1.Output = txtATCommand.Text & vbCrLf
End If
End Sub

Private Sub Form_Load()
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
With MSComm1
.CommPort = 3 'Port disesuaikan
.Settings = "115200,N,8,1"
.Handshaking = comRTS
.RTSEnable = True
.DTREnable = True
.RThreshold = 1
.SThreshold = 1
.InputMode = comInputModeText
.InputLen = 0
.PortOpen = True
End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
End Sub

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
strBuffer = strBuffer & MSComm1.Input
End Select
txtProcess.Text = strBuffer
txtProcess.SelStart = Len(txtProcess.Text)
Do
strBuffer = strBuffer & MSComm1.Input
Loop While MSComm1.InBufferCount

If InStr(1, strBuffer, "+STIN: 99" & vbCrLf) Then
MSComm1.Output = "AT+STGI=99" & vbCrLf
strBuffer = ""
ElseIf InStr(1, strBuffer, "+STIN: 9" & vbCrLf) Then
MSComm1.Output = "AT+STGI=9" & vbCrLf
strBuffer = ""
ElseIf InStr(1, strBuffer, "+STIN: 6" & vbCrLf) Then
MSComm1.Output = "AT+STGI=6" & vbCrLf
strBuffer = ""
ElseIf InStr(1, strBuffer, "+STIN: 3" & vbCrLf) Then
MSComm1.Output = "AT+STGI=3" & vbCrLf
strBuffer = ""
ElseIf InStr(1, strBuffer, "+STIN: 1" & vbCrLf) Then
MSComm1.Output = "AT+STGI=1" & vbCrLf
strBuffer = ""
End If

If InStr(1, strBuffer, "+STGI") Then
If InStr(1, strBuffer, "SEV Menu") Then
MSComm1.Output = "AT+STGR=0,1,3" & vbCrLf
strBuffer = ""
End If

If InStr(1, strBuffer, "Inventory") Then
MSComm1.Output = "AT+STGR=6,1,1" & vbCr
strBuffer = ""
End If
If InStr(1, strBuffer, "Optional") Then
MSComm1.Output = "AT+STGR=6,1,1" & vbCr
strBuffer = ""
End If
If InStr(1, strBuffer, "Enter MPIN") Then
MSComm1.Output = "AT+STGR=3,1" & vbCr
MSComm1.Output = "313131" & Chr(26) 'PIN disesuaikan, hati-hati 3x salah PIN kartu akan diblokir
strBuffer = ""
End If
End If

End Sub

Catatan penting:

  1. Sebelumnya kita harus mengaktifkan terlebih dahulu menu STK-nya seperti yang telah dijelaskan dalam posting disini.
  2. Setelah seluruhnya selesai, yang harus kita lakukan adalah mengetikan AT+STGI=0 dan klik tombol Send seperti yang terlihat pada gambar di bawah:

Cek STOK SEV Indosat
Gambar - Cek STOK SEV Indosat

Download: Contoh kode VB6 cek stok SEV Indosat

Keywords: contoh, cek, gambar, vb6, code, visual, basic, 6.0, contok, chek, kode, html, contohcek, stk, output, instr, indosat, contoh-contoh, coding, source, mscomm1.output