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:

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

READ MORE - Contoh VB6 Kode Cek Stok SEV Indosat (STK)

VB6 Database: Listview Code Generator Source Code

Tools VB6 Add-Ins yang satu ini digunakan untuk mengenerate source code listview untuk berinteraksi dengan database. Cara menggunakan:

• Registrasikan terlebih dahulu komponen VB6 Listview Generator.dll yang terdapat dalam folder bin.
• Buka project VB6
• Klik menu Add-Ins >> VB6 Listview Generator, maka akan muncul form seperti di bawah ini:

Gambar - VB6 Listview Generator

• Pilih database apa saja (terserah), seperti gambar di bawah ini :

Gambar: VB6 Listview Generator - Memilih database

• Pilih tabel apa saja (terserah), seperti gambar di bawah ini:

VB6 Listview Generator - Memilih Tabel

Pilih ID (sebaiknya AUTO INCREMENT), seperti gambar di bawah ini:

VB6 Listview Generator - Memilih ID

• Klik tombol Generate Code.
• Ulangi seluruh langkah di atas sejumlah form listview yang Anda butuhkan.
• Terakhir, edit manual jika ada kode yang kurang sesuai.
• Selesai.

Download: VB6 Listview Generator Source Code. 

READ MORE - VB6 Database: Listview Code Generator Source Code

VB6 DataGrid: Mengatur Tinggi Listitem Dropdown

Membahas hal yang kurang penting mengenai cara mengatur tinggi Listitem pada dropdown datagrid. Seperti biasa menggunakan fungsi API SendMessage yang bisa dilihat penjelasannya disini, kemudian beberapa konstanta ListBox yang bisa Anda lihat penjelasannya disini, serta konstanta ComboBox yang bisa Anda lihat penjelasannya disini.

Option Explicit 
 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 
Private Const LB_SETITEMHEIGHT = &H1A0 
Private Const CB_SETITEMHEIGHT = &H15 
 
Private Sub SetListItemHeight(ctrl As Control, ByVal newHeight As Long) 
    Dim uMsg As Long 
    If TypeOf ctrl Is ListBox Then 
        uMsg = LB_SETITEMHEIGHT 
    ElseIf TypeOf ctrl Is ComboBox Then 
        uMsg = CB_SETITEMHEIGHT 
    Else 
        Exit Sub 
    End If 
    SendMessage ctrl.hwnd, uMsg, 0, ByVal CLng(newHeight And &HFFFF&) 
    ctrl.Refresh 
End Sub 

Contoh penggunaan:

Private Sub Command1_Click() 
    SetListItemHeight List1, 25 
End Sub 
 
Private Sub Form_Load() 
    Dim i As Integer 
    For i = 1 To 10 
        List1.AddItem i 
    Next 
End Sub 
 

Sehingga hasilnya:

Gambar: Dropdown DataGrid dengan Tinggi Normal

Kemudian: 

Gambar: Dropdown DataGrid dengan Listitem yang Diperbesar (otomatis mengikuti row height datagrid).

READ MORE - VB6 DataGrid: Mengatur Tinggi Listitem Dropdown

VB6 Code: Membuat DWord dari HiWord + LoWord

Posting ini diambil dari Microsoft KB mengenai cara membuat fungsi return DWord dengan menggabungkan HiWord dan LoWord. Adapun fungsi yang dimaksud adalah sebagai berikut:

Function MakeDWord(LoWord As Integer, HiWord As Integer) As Long 
    MakeDWord = (HiWord * &H10000) Or (LoWord And &HFFFF&) 
End Function 

Sedangkan untuk memecah DWord (32 bits) menjadi LoWord (16 bits) dan HiWord (16 bits) adalah sebagai berikut:

Function LoWord(DWord As Long) As Integer 
    If DWord And &H8000& Then ' &H8000& = &H00008000 
        LoWord = DWord Or &HFFFF0000 
    Else 
        LoWord = DWord And &HFFFF& 
    End If 
End Function 
 
Function HiWord(DWord As Long) As Integer 
    HiWord = (DWord And &HFFFF0000) \ &H10000 
End Function 

Sedangkan contoh dari fungsi MakeDword (menggabungkan LoWord dan HiWord) adalah sebagai berikut:

Option Explicit 
 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 
 
Private Const MK_LBUTTON = &H1 
Private Const WM_LBUTTONDOWN = &H201 
 
Function MakeDWord(LoWord As Integer, HiWord As Integer) As Long 
    MakeDWord = (HiWord * &H10000) Or (LoWord And &HFFFF&) 
End Function 
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    Form1.Cls 
    Form1.Print "Button Click Event Fired" 
    Form1.Print "Position X:" & Str$(X / Screen.TwipsPerPixelX) 
    Form1.Print "Position Y:" & Str$(Y / Screen.TwipsPerPixelY) 
End Sub 
 
Private Sub Command1_Click() 
    Dim nMousePosition As Long 
    ' nMousePosition stores the x (hiword) and y (loword) values 
    ' of the mouse cursor as measured in pixels. 
 
    Let nMousePosition = MakeDWord(16, 18) 
    Call SendMessage(Me.hwnd, WM_LBUTTONDOWN, MK_LBUTTON, nMousePosition) 
End Sub 
 

Semoga bermanfaat.

READ MORE - VB6 Code: Membuat DWord dari HiWord + LoWord