Error Sendkeys Permission Denied

Dalam pembuatan sebuah aplikasi tentunya tidak lepas dengan Error baik error dalam syntac sistem ataupun dalam database, untuk pembahasan kali ini yaitu Error SendKeys Permission Denied yang terjadi dalam Visual Basic Classic pada Windows 7 ke atas. Langsung saja ke pokok pembahasan buka Microsoft Visual Basic 6.0 – StandartEXE, buat lah sebuah form dan letakkan satu komponen TextBox pada form tersebut. 

Error Sendkeys Permission Denied

Buat juga sebuah modul, untuk name nya sanggup apasaja tergantung dari selera agan sendiri, lalu pastekan coding berikut 

Private Const KEYEVENTF_KEYUP = &H2
Private Const INPUT_KEYBOARD = 1
Private Type KEYBDINPUT
wVk As Integer
wScan As Integer
dwFlags As Long
time As Long
dwExtraInfo As Long
End Type

Private Type GENERALINPUT
dwType As Long
xi(0 To 23) As Byte
End Type 

Private Declare Function SendInput Lib “user32.dll” (ByVal nInputs As Long, pInputs As GENERALINPUT, ByVal cbSize As Long) As Long 

Private Declare Sub CopyMemory Lib “kernel32” Alias “RtlMoveMemory” (pDst As Any, pSrc As Any, ByVal ByteLen As Long)

Setalah itu double klik pada komponen TextBox yang terdapat pada form dan pilih prosedur Change copy code berikut dan pastekan pada mekanisme textbox tadi 

Text1.Text = Format(Text1.Text, “#,##0”): SendKeysA vbKeyEnd, True

Simpan dan Run / F5 dan inputkan abjad type numeric secara otomatis type data numeric tersebut akan tertata rapi dengan format numeric tanpa ada pesan error dan sebagainya, cukup simple bukan dan biar bermanfaat

Simpan Gambar Ke Ms. Acces 2000 Dengan Visual Basic 6.0 (Vb6)

Penyimpanan data berupa Image atau gambar ke database terkadang sering kita jumpai menyerupai data-data mahasiswa, siswa, pegawai dan masih banyak lainnya tergantung dari aplikasi tersebut mengelola data wacana apa. Untuk kali ini akan kita uraikan dalam source code pembahasan Simpan Gambar Ke Ms. Acces 2000 tipe field yang untuk sanggup menyimpan data berupa gambar OLE Object. Langsung saja pada pokok pembahasan buka Microsoft Visual Basic 6.0 (VB6) lalu klik sajian Project – References lalu cari dan ceklis Microsoft ActiveX Data Objects 2.8 Library dan klik OK. Kemudian dilanjutkan untuk komponen-komponen yang akan kita gunakan yaitu menyerupai berikut :  
1. Image1
2. TextBox
3. Microsot Common Dialog Control 6.0
4. CommandButton
5. Module
Susun dan designlah tata letak dari beberapa komponen diatas pada form semoga terlihat rapi, menyerupai gambar dibawah ini : 

Simpan Gambar Ke Ms. Acces 2000 Dengan Visual Basic 6.0 (Vb6)
Source Code Simpan Gambar Ke Ms. Acces 2000
Untuk CommandButton disini ada 7 dengan nama yang sengaja dirubah supaya praktis dalam proteksi syntac

cmdLoad (cmdLoadGambar)

Private Sub cmdLOad_Click()
On Error GoTo pesan
With CommonDialog1
    .DialogTitle = “Pilih Logo Perusahaan”
    .Filter = “Files *.jpg, *.ico, *.gif |*.jpg;*.bmp;*.ico;*.gif”
    .ShowOpen
End With
If Not CommonDialog1.CancelError And CommonDialog1.FileName <> “” Then
    Image1.Picture = LoadPicture(CommonDialog1.FileName)
    lblPath.Caption = CommonDialog1.FileName
End If
pesan:
    If (Err.Number = 481) Then
    MsgBox “Gambar Tidak sanggup diload”, vbCritical, “Error Load Gambar”
    Exit Sub
    End If
End Sub

cmdCari

Private Sub cmdCari_Click()
If Text1.Text <> “” Then
    Set RsSiswa = New ADODB.Recordset
    RsSiswa.Open “SELECT * FROM tblSiswa where NIS='” & Text1.Text & “‘”, CN, 1, 2
    If RsSiswa.RecordCount > 0 Then
      If LoadPictureFromDB(RsSiswa, Image1) Then
      End If
    Else
      Set Image1.Picture = Nothing
    End If
End If
End Sub

cmdSimpan

Private Sub cmdSimpan_Click()
If Text1.Text = “” Then
   MsgBox “Seluruh data harus diinputkan dengan lengkap !”, vbExclamation, “Perhatian”
Else
    Set RsSiswa = New ADODB.Recordset
    RsSiswa.Open “SELECT * FROM tblSiswa where NIS='” & Text1.Text & “‘”, CN, 1, 2
    If RsSiswa.RecordCount = 0 Then
           RsSiswa.AddNew
           RsSiswa.Fields!NIS = Text1.Text
                If SavePictureToDB(RsSiswa, CommonDialog1.FileName) = True Then
                End If
           RsSiswa.Update
    Else
           RsSiswa.Fields!NIS = Text1.Text
                If SavePictureToDB(RsSiswa, CommonDialog1.FileName) = True Then
                End If
           RsSiswa.Update
    End If
End If
End Sub

cmdHapus

Private Sub cmdhapus_Click()
If Text1.Text <> “” Then
    Dim A As Byte
    A = MsgBox(“Hapus data ?”, vbYesNo + vbInformation, “Perhatian”)
    If A = vbYes Then
       CN.Execute “delete from tblsiswa where nis='” & Text1.Text & “‘”
       Text1.Text = “”
       Set Image1.Picture = Nothing
    End If
End If
End Sub 

cmdKeluar 

Private Sub cmdKeluar_Click()
End
End Sub

Module 1 

Public CN As New ADODB.Connection
Public RsSiswa As New ADODB.Recordset

Sub Koneksi()
Dim PathDb As String
PathDb = App.Path & “\dbsiswa.mdb”
If CN.State Then
   CN.Close
   CN.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & PathDb & “;Persist Security Info=False”
   CN.CursorLocation = adUseClient
Else
   CN.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & PathDb & “;Persist Security Info=False”
   CN.CursorLocation = adUseClient
End If
Exit Sub
End Sub

Sub Main()
Call Koneksi
Form1.Show
End Sub

Jika telah selesai, lalu simpan dan Run/F5 inputkan beberapa data dan gambarnya lalu tekan tombol simpan, lalu panggil data yang telah tersimpan didalam database dengan memakai menuliskan NPM pada TextBox, maka secara otomatis gambar (image) akan tampil

Menu Keren Tanpa Activex (Cool Bar)

Menubar pada umumnya niscaya sering kita jumpai dalam aplikasi apapun hanya yang membedakan bentuk tampilannya. Ada menubar yang memakai ActiveX (ocx) ibarat Ribbon, Style XP dan masih banyak jenis ocx lainnya. Tidak menutup kemungkinan terkadang kita sebagai user merasa bosan dengan interface suatu aplikasi yang hanya terkesan monoton dan sederhana. Pada pembahasan source code kali ini admin akan share bagaimana pembuatan sajian kafetaria tanpa memakai file-file ocx akan tetapi tidak mengecewakan terlihat keren.  Untuk interface tampilan dari sourcode ini, ibarat gambar dibawah ini

Menu Keren Tanpa Activex (Cool Bar)
Menu Keren Tanpa ActiveX (Cool Bar)

Untuk komponen-komponen pendukung yang dipakai dalam pembuatan source code Menu Keren Tanpa ActiveX (Cool Bar) ini hanya memakai komponen-komponen standart ibarat PictureBox dan Image. Tinggal melaksanakan polesan sedikit sesuai dengan kreasi agan-agan sekalian dan admin yakin akan bertambah elegan. Sekian biar bermanfaat dan terima kasih.

Mencari Nama Hari Pada Tanggal Bulan Tahun Tertentu Dengan Visual Basic 6.0 (Vb6)

Nama hari pada tanggal dan bulan tertentu sering kali kita lupa bahkan untuk mencari nama hari kita harus memutar balik tanggal pada komputer atau kalender bukankah dengan cara ibarat itu akan sedikit membosankan dan membuang-buang waktu, untuk mengatasi problem tersebut admin akan share source code Mencari Nama Hari pada Tanggal Bulan Tahun Tertentu memakai bahasa pemrograman Visual Basic 6.0 Untuk komponen yang dipakai ialah Microsoft Masked Edit Control 6.0 dengan bentuk Mask : ##-##-#### (dd-MM-yyyy) dan interface tampilannya ibarat gambar dibawah ini

Mencari Nama Hari Pada Tanggal Bulan Tahun Tertentu Dengan Visual Basic 6.0 (Vb6)
Layout Tampilan 
Source Code Mencari Nama Hari pada Tanggal Bulan Tahun Tertentu


Dowble klik pada tombol lalu pastekan syntak dibawah ini

Private Sub Command1_Click()
    Dim KodeHari As Byte
    Dim Hari As String
    KodeHari = Weekday(MaskEdBox1)
    Select Case KodeHari
        Case 1: Hari = “Minggu”
        Case 2: Hari = “Senin”
        Case 3: Hari = “Selasa”
        Case 4: Hari = “Rabu”
        Case 5: Hari = “Kamis”
        Case 6: Hari = “Jumat”
        Case 7: Hari = “Sabtu”
    End Select
    Label3.Caption = Hari
End Sub

Tambahkan juga function dibawah ini

Private Function GetDayInWeek(d As Date) As Integer
    Dim dt As Date, I As Integer
    For dt = CDate(Format$(d, “mm/yyyy”)) To DateAdd(“m”, 1, d)
            I = I + 1
    Next
    GetDayInWeek = I
End Function

Setelah itu simpan dan Run/F5, lalu inputkan tanggal-bulan-tahun klik tombol, maka akan tampil nama hari yang sesuai dengan tanggal-bulan-tahun yang kita inputkan pada komponen Microsoft Masked Edit Control 6.0 sangat simpel dan simpel bukan. Semoga artikel kali ini sanggup membantu sebagai acuan belajar.

Icon Keren To Visual Basic

Programmer Visual Basic 6.0 (VB6) pada umumnya mengalami kesulitan dalam hal mempercantik tampilan form dengan memakai image format icon untuk permasalahan ini sering para programmer khususnya Visual Basic 6.0 mengeluhkan untuk tampilan form dengan icon standar sangatlah monoton dan kurang sedap dipandang mata. Oleh alasannya yaitu itu admin akan mengembangkan sekumpulan icon pack free.

Icon Keren To Visual Basic
Anda dapat pribadi mendownloadnya icon pack free dengan KLIK LINK INI

Mengganti Resolusi Layar Monitor

Resolusi Layar atau mode tampilan televisi digital, layar monitor yaitu jumlah pixel pada setiap dimensi layar. Istilah sanggup menjadi ambigu terutama alasannya yaitu resolusi yang ditampilkan dipengaruhi oleh faktor-faktor yang berbeda.contohnya, cathode ray tube (CRT), monitor layar datar (termasuk LCD) tampilan proyeksi memakai gambar elemen susunan tetap (pixel). Hal ini biasanya dinyatakan dalam Lebar × Tinggi, dengan satuan pixel: misalnya, “1024×768” yang berarti lebarnya 1024 pixel dan tingginya 768 pixel.
Mengganti Resolusi Layar Monitor
Penggunaan istilah “resolusi Layar” berlaku untuk susunan yang menampilkan pixel tetap ibarat plasma display panel (PDP), liquid crystal display (LCD), digital light processing (DLP). Istilah “Resolusi Layar” umumnya dipakai untuk menyebut dimensi pixel, jumlah pixel dalam masing-masing dimensi (misal, 1920×1080), yang tidak mencerminkan kerapatan pixel, yaitu jumlah piksel per satuan jarak atau luas area. Dalam pengukuran digital, kerapatan layar mempunyai satuan pixel per inci. Sumber : wiki

Dalam pembahasan kali ini admin akan membuatkan sourcode Visual basic 6.0 ihwal merubah resolusi layar pada monitor. Buka Ms. Visual Basic 6.0 – StandartEXE dan buat sebuah form dan module dan pastekan syntac ini

Module

Public Const CCDEVICENAME = 32
Public Const CCFORMNAME = 32
Public Const DISP_CHANGE_SUCCESSFUL = 0
Public Const DISP_CHANGE_RESTART = 1
Public Const DISP_CHANGE_FAILED = -1
Public Const DISP_CHANGE_BADMODE = -2
Public Const DISP_CHANGE_NOTUPDATED = -3
Public Const DISP_CHANGE_BADFLAGS = -4
Public Const DISP_CHANGE_BADPARAM = -5
Public Const CDS_UPDATEREGISTRY = &H1
Public Const CDS_TEST = &H2
Public Const DM_BITSPERPEL = &H40000
Public Const DM_PELSWIDTH = &H80000
Public Const DM_PELSHEIGHT = &H100000
Public Type DEVMODE
dmDeviceName As String * CCDEVICENAME
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String * CCFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type

Declare Function EnumDisplaySettings Lib “user32” _
Alias “EnumDisplaySettingsA” (ByVal lpszDeviceName As _
Long, ByVal iModeNum As Long, lpDevMode As Any) As _
Boolean

Declare Function ChangeDisplaySettings Lib “user32” Alias “ChangeDisplaySettingsA” (lpDevMode As Any, ByVal dwFlags As Long) As Long

Kemudian double klik pada form dan pilih mekanisme Form_Load, pastekan syntac dibawah ini

ChangeScreenSettings 800, 600, 16 – Bit

Jika telah tamat simpan lalu Run/F5 untuk sourcodenya sanggup di download di LINK INI

Pengesetan Properties Maxlength Secara Otomatis

MaxLength niscaya kita jumpai dalam pembuatan suatu aplikasi dengan bahasa pemrograman apapun, untuk kali ini admin akan share MaxLength secara otomatis menyesuaikan dengan MaxLength dengan tabel dari database yang kita buat. Dalam hal ini database yang dipakai memakai Ms. Access 2000 dan Visual Basic 6.0 (vb6).

Buatlah database dari Ms. Access simpan dengan format Ms. Access 2000 dengan nama database sampleDb lalu buat juga tabel dengan nama SISWA untuk field-fieldnya menyerupai dibawah ini
Field
Property
MaxLength
NIS
Text
20
NAMA
Text
30
ALAMAT
Text
50
TELEPON
Text
20

Sekarang kita akan menciptakan beberapa komponen TextBox pada sebuah form Microsoft Visual Basic 6.0 (VB6) dengan Max Length mengikuti Max Length dari field tabel yang terdapat pada database Ms. Access 2000 yang telah kita buat diawal pembahasan ini. Langsung saja pada pokok pembahasan buka Ms. Visual Basic 6.0 (VB6) – StandartEXE dan buat Form lalu tambahkan beberapa komponen adalah TextBox dan Label menyerupai dibawah ini : 

Pengesetan Properties Maxlength Secara Otomatis

Jangan lupa buat ClassModule dengan nama : clsAttribut lalu pastekan syntac dibawah ini

Private mFormName   As Form
Private mCol        As Collection
Private mTableName  As String

Public Property Let tableName(ByVal vData As String)
    mTableName = vData
End Property
Public Property Get tableName() As String
    tableName = mTableName
End Property

Public Property Let formName(ByVal vData As Form)
    Set mFormName = vData
End Property
Public Property Get formName() As Form
    Set formName = mFormName
End Property

Private Property Get getColumns(ByVal indexKey As Long) As clsAttribut
    Set getColumns = mCol(indexKey)
End Property

Private Function isFieldExists(ByVal fieldName As String, ByRef textBoxName As String) As Boolean
    Dim objAttributs    As clsAttribut
    Dim i               As Integer
   
    Set objAttributs = New clsAttribut
    For i = 1 To mCol.Count
        Set objAttributs = getColumns(i)
        If LCase(objAttributs.fieldName) = LCase(fieldName) Then
            textBoxName = objAttributs.objTextBox.Name
            isFieldExists = True
           
            Exit For
        End If
    Next i
    Set objAttributs = Nothing
End Function

Private Function isTableExists() As Boolean
    Dim rs      As ADODB.Recordset
    Dim strSql  As String
   
    On Error GoTo errHandle
   
    strSql = “SELECT * FROM ” & tableName & “”
    Set rs = New ADODB.Recordset
    rs.Open strSql, conn, adOpenForwardOnly, adLockReadOnly
    rs.Close
    Set rs = Nothing
   
    isTableExists = True
    Exit Function
errHandle:
    isTableExists = False
End Function

Public Sub addAttributs(ByVal fieldName As String, ByVal objTextBox As TextBox)
    Dim objNewMember As clsAttribut
   
    Set objNewMember = New clsAttribut
    objNewMember.fieldName = fieldName
    objNewMember.objTextBox = objTextBox
   
    mCol.Add objNewMember
    Set objNewMember = Nothing
End Sub

Public Sub autoMaxLength()
    Dim rs              As ADODB.Recordset
    Dim ctl             As Object
   
    Dim strSql          As String
    Dim textBoxName     As String
   
    Dim i               As Integer
   
    If isTableExists Then
        strSql = “SELECT * FROM ” & tableName & “”
        Set rs = New ADODB.Recordset
        rs.Open strSql, conn, adOpenForwardOnly, adLockReadOnly
        For i = 0 To rs.Fields.Count – 1
            If isFieldExists(rs.Fields(i).Name, textBoxName) Then
                For Each ctl In formName.Controls
                    If TypeName(ctl) = “TextBox” And ctl.Name = textBoxName Then
                        ctl.MaxLength = rs.Fields(i).DefinedSize ‘set MaxLength
                        Exit For
                    End If
                Next
            End If
        Next i
        rs.Close
        Set rs = Nothing
       
    Else
        MsgBox “Nama tabel salah”, vbExclamation, “Peringatan”
    End If
End Sub

Private Sub Class_Initialize()
    Set mCol = New Collection
End Sub

Private Sub Class_Terminate()
    Set mCol = Nothing
End Sub

Simpan dan dilanjutkan buat kembali ClassModule dengan nama : clsAutoMaxLength pastekan lagi syntac dibawah ini : 

Private mFormName   As Form
Private mCol        As Collection
Private mTableName  As String

Public Property Let tableName(ByVal vData As String)
    mTableName = vData
End Property
Public Property Get tableName() As String
    tableName = mTableName
End Property

Public Property Let formName(ByVal vData As Form)
    Set mFormName = vData
End Property
Public Property Get formName() As Form
    Set formName = mFormName
End Property

Private Property Get getColumns(ByVal indexKey As Long) As clsAttribut
    Set getColumns = mCol(indexKey)
End Property

Private Function isFieldExists(ByVal fieldName As String, ByRef textBoxName As String) As Boolean
    Dim objAttributs    As clsAttribut
    Dim i               As Integer
   
    Set objAttributs = New clsAttribut
    For i = 1 To mCol.Count
        Set objAttributs = getColumns(i)
        If LCase(objAttributs.fieldName) = LCase(fieldName) Then
            textBoxName = objAttributs.objTextBox.Name
            isFieldExists = True
           
            Exit For
        End If
    Next i
    Set objAttributs = Nothing
End Function

Private Function isTableExists() As Boolean
    Dim rs      As ADODB.Recordset
    Dim strSql  As String
   
    On Error GoTo errHandle
   
    strSql = “SELECT * FROM ” & tableName & “”
    Set rs = New ADODB.Recordset
    rs.Open strSql, conn, adOpenForwardOnly, adLockReadOnly
    rs.Close
    Set rs = Nothing
   
    isTableExists = True
    Exit Function
errHandle:
    isTableExists = False
End Function

Public Sub addAttributs(ByVal fieldName As String, ByVal objTextBox As TextBox)
    Dim objNewMember As clsAttribut
   
    Set objNewMember = New clsAttribut
    objNewMember.fieldName = fieldName
    objNewMember.objTextBox = objTextBox
   
    mCol.Add objNewMember
    Set objNewMember = Nothing
End Sub

Public Sub autoMaxLength()
    Dim rs              As ADODB.Recordset
    Dim ctl             As Object
   
    Dim strSql          As String
    Dim textBoxName     As String
   
    Dim i               As Integer
   
    If isTableExists Then
        strSql = “SELECT * FROM ” & tableName & “”
        Set rs = New ADODB.Recordset
        rs.Open strSql, conn, adOpenForwardOnly, adLockReadOnly
        For i = 0 To rs.Fields.Count – 1
            If isFieldExists(rs.Fields(i).Name, textBoxName) Then
                For Each ctl In formName.Controls
                    If TypeName(ctl) = “TextBox” And ctl.Name = textBoxName Then
                        ctl.MaxLength = rs.Fields(i).DefinedSize ‘set MaxLength
                        Exit For
                    End If
                Next
            End If
        Next i
        rs.Close
        Set rs = Nothing
    Else
        MsgBox “Nama tabel salah”, vbExclamation, “Peringatan”
    End If
End Sub

Private Sub Class_Initialize()
    Set mCol = New Collection
End Sub

Private Sub Class_Terminate()
    Set mCol = Nothing
End Sub

Simpan lalu double klik pada form pilih mekanisme Form_Load dan pastekan lagi syntaknya : 

    Dim obj As clsAutoMaxLength
    Set obj = New clsAutoMaxLength
    With obj
        .formName = Me
        .tableName = “siswa”
       
        .addAttributs “nis”, txtNIS
        .addAttributs “nama”, txtNama
        .addAttributs “alamat”, txtAlamat
        .addAttributs “telepon”, txtTelepon
       
        Call .autoMaxLength
    End With
    Set obj = Nothing

Sangat gampang bukan, jadi kita tidak perlu merasa khawatir dan repot-repot men set MaxLength pada TexBox dan semuanya telah otomatis menyesuaikan MaxLength Field tabel dari database yang kita buat. Simpan lalu Run/F5. Coba ketik huruf pada textBox maka MaxLength dari textBox akan menyesuaikan dengan MaxLength yang ada pada tabel didalam database. Untuk sourcodenya sanggup didownload di LINK INI

Membuat Folder Browser Obrolan Memakai Visual Basic (Vb6)

Tampilan kotak obrolan dalam Bahasa Pemrograman Visual Basic 6.0 (vb6) sangatlah banyak jenisnya diantaranya obrolan simpan, obrolan open, obrolan selected printer dan masih banyak lainnya. Pada kesempatan kali ini admin akan sharing sebuah source code cukup simple ialah Membuat Folder Browse Dialog (FolderView) menggunakan Visual Basic 6.0 (VB6). Untuk kegunaan dari obrolan folder browse (FolderView)  ini sangatlah banyak salah satunya untuk memilih tujuan path backup database, menampilkan data di path tertentu dan masih banyak lainnya. Perlu diperhatikan dalam pemilihan konstanta pada Flags ada beberapa type :
1. BIF_BROWSEFORCOMPUTER = &H1000
2. BIF_BROWSEFORPRINTER = &H2000
3. BIF_BROWSEINCLUDEFILES = &H4000
4. BIF_DONTGOBELOWDOMAIN = &H2
5. BIF_EDITBOX = &H10
6. BIF_NEWDIALOGSTYLE = &H40
7. BIF_RETURNFSANCESTORS = &H8
8. BIF_RETURNONLYFSDIRS = &H1
9. BIF_STATUSTEXT = &H4
10. BIF_USENEWUI = (BIF_NEWDIALOGSTYLE Or BIF_EDITBOX)

Untuk rincian dari pengertiannya silahkan agan-agan googling aja deh niscaya ada disana tetapi admin lebih suka memakai type BIF_RETURNONLYFSDIRS atau BIF_USENEWUI (untuk merubah flags cari goresan pena script dibawah yang dicetak warna biru). Untuk tampilan dari Folder Browse Dialog (FolderView) seperti gambar dibawah ini :

Membuat Folder Browser Obrolan Memakai Visual Basic (Vb6)
Langkah-langkah pembuatannya cukup simple, buka Ms. Visual Basic 6.0 – StandartEXE dan buatlah form kemudian tambahkan pula komponen ibarat Label, TextBox dan CommandButton. Untuk persoalan tampilannya terserah dan tergantung dari kreasi  agan-agan semuanya

Membuat Folder Browser Obrolan Memakai Visual Basic (Vb6)

Buat sebuah modul dan copas coding berikut 

Private Type BrowseInfo
    hwndOwner      As Long
    pIDLRoot       As Long
    pszDisplayName As Long
    lpszTitle      As Long
    ulFlags        As Long
    lpfnCallback   As Long
    lParam         As Long
    iImage         As Long
End Type

Private Const BIF_BROWSEFORCOMPUTER = &H1000
Private Const BIF_BROWSEFORPRINTER = &H2000
Private Const BIF_BROWSEINCLUDEFILES = &H4000
Private Const BIF_DONTGOBELOWDOMAIN = &H2
Private Const BIF_EDITBOX = &H10
Private Const BIF_NEWDIALOGSTYLE = &H40
Private Const BIF_RETURNFSANCESTORS = &H8
Private Const BIF_RETURNONLYFSDIRS = &H1
Private Const BIF_STATUSTEXT = &H4
Private Const BIF_USENEWUI = (BIF_NEWDIALOGSTYLE Or BIF_EDITBOX)

Private Const MAX_PATH = 260
Private Declare Sub CoTaskMemFree Lib “ole32.dll” _
(ByVal hMem As Long)

Private Declare Function lstrcat Lib “kernel32” _
Alias “lstrcatA” (ByVal lpString1 As String, _
ByVal lpString2 As String) As Long

Private Declare Function SHBrowseForFolder Lib “shell32” _
(lpBI As BrowseInfo) As Long

Private Declare Function SHGetPathFromIDList Lib “shell32” _
(ByVal pidList As Long, ByVal lpBuffer As String) As Long
Const CSIDL_DESKTOP = &H0
Const CSIDL_PROGRAMS = &H2
Const CSIDL_CONTROLS = &H3
Const CSIDL_PRINTERS = &H4
Const CSIDL_PERSONAL = &H5
Const CSIDL_FAVORITES = &H6
Const CSIDL_STARTUP = &H7
Const CSIDL_RECENT = &H8
Const CSIDL_SENDTO = &H9
Const CSIDL_BITBUCKET = &HA
Const CSIDL_STARTMENU = &HB
Const CSIDL_DESKTOPDIRECTORY = &H10
Const CSIDL_DRIVES = &H11
Const CSIDL_NETWORK = &H12
Const CSIDL_NETHOOD = &H13
Const CSIDL_FONTS = &H14
Const CSIDL_TEMPLATES = &H15
Const CSIDL_COMMON_STARTMENU = &H16
Const CSIDL_COMMON_PROGRAMS = &H17
Const CSIDL_COMMON_STARTUP = &H18
Const CSIDL_COMMON_DESKTOPDIRECTORY = &H19
Const CSIDL_APPDATA = &H1A
Const CSIDL_PRINTHOOD = &H1B

Private Type SHITEMID
    Cb   As Long
    AbID As Byte
End Type

Private Type ITEMIDLIST
    Mkid As SHITEMID
End Type

Private Declare Function SHGetSpecialFolderLocation Lib “shell32.dll” (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long
Private Declare Function OleInitialize Lib “ole32.dll” (lp As Any) As Long
Private Declare Sub OleUninitialize Lib “ole32” ()

Public Function fBrowseForFolder(hwndOwner As Long, sPrompt As String) As String
Dim iNull    As Long
Dim lpIDList As Long
Dim lResult  As Long
Dim sPath    As String
Dim sPath1   As String
Dim udtBI    As BrowseInfo
Dim IDL      As ITEMIDLIST
sPath1 = fGetSpecialFolder(CSIDL_DESKTOP, IDL)
Call OleInitialize(ByVal 0&)

With udtBI
    .pIDLRoot = IDL.Mkid.Cb
    .hwndOwner = hwndOwner
    .lpszTitle = lstrcat(sPrompt, “”)
    .ulFlags = BIF_RETURNONLYFSDIRS + BIF_USENEWUI
End With
lpIDList = SHBrowseForFolder(udtBI)

If lpIDList Then
    sPath = String$(MAX_PATH, 0)
    lResult = SHGetPathFromIDList(lpIDList, sPath)
    Call CoTaskMemFree(lpIDList)
    iNull = InStr(sPath, vbNullChar)
    If iNull Then sPath = Left$(sPath, iNull – 1)
End If

Call OleUninitialize
fBrowseForFolder = sPath
End Function

Private Function fGetSpecialFolder(CSIDL As Long, IDL As ITEMIDLIST) As String
Dim sPath As String
If SHGetSpecialFolderLocation(hWnd, CSIDL, IDL) = 0 Then
    sPath = Space$(MAX_PATH)
    If SHGetPathFromIDList(ByVal IDL.Mkid.Cb, ByVal sPath) Then
        fGetSpecialFolder = Left$(sPath, InStr(sPath, vbNullChar) – 1) & “\”
    End If
End If
End Function

Double klik pada Button dengan caption Browse dan pastekan coding dibawah ini

Dim sStrPathBackup As String
sStrPathBackup = fBrowseForFolder(hWnd, “Pilih Direktori untuk Backup database”)
If sStrPathBackup <> vbNullString Then
   Text1.Text = sStrPathBackup
End If

Simpan dan kemudian Run/F5 klik Button dengan Caption Browse maka akan tampil Folder Browse Dialog (FolderView) seperti gambar diawal tadi dan untuk sourcodenya dapat didownload link ini LINK DOWNLOAD

Video Tutorial
Membuat Folder Browser Dialog Menggunakan Visual Basic (VB6)

Contoh Menciptakan Drag Dan Drop File Ke Listbox

Drag File dan Drop File merupakan sebuah fungsi yang terdapat disetiap bahasa pemrograman baik itu Visual Basic 6.0 (VB6) dan yang lainnya. Drag File dan Drop File sanggup diartikan dimana kita berada pada posisi mengklik dan tahan beberapa file kemudian ditarik atau diarahkan ke tujuan yang kita kehendaki. Pada posting artikel kali ini admin akan membagikan sebuah source code perihal cara Membuat Drag dan Drop File ke ListBox. Komponen yang dibutuhkan dalam pembuatan source code ini ialah sebagai berikut : 
1. ListBox
2. CommandButton
Buka Ms. Visual Basic 6.0 (VB6) – StandartEXE kemudian buat Form tambahkan beberapa komponen menyerupai diatas sehingga interface dari aplikasi ini menyerupai dibawah ini : 

Contoh Menciptakan Drag Dan Drop File Ke Listbox
Contoh Membuat Drag dan Drop File ke ListBox
Tambahkan juga sebuah Module dan copas syntac dibawah ini : 

Type POINTAPI
        x As Long
        y As Long
End Type

Type MSG
    hWnd As Long
    message As Long
    wParam As Long
    lParam As Long
    time As Long
    pt As POINTAPI
End Type

Declare Sub DragAcceptFiles Lib “shell32.dll” (ByVal hWnd As Long, ByVal fAccept As Long)
Declare Sub DragFinish Lib “shell32.dll” (ByVal hDrop As Long)
Declare Function DragQueryFile Lib “shell32.dll” Alias “DragQueryFileA” (ByVal hDrop As Long, ByVal UINT As Long, ByVal lpStr As String, ByVal ch As Long) As Long
Declare Function PeekMessage Lib “user32” Alias “PeekMessageA” (lpMsg As MSG, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long

Public Const PM_NOREMOVE = &H0
Public Const PM_NOYIELD = &H2
Public Const PM_REMOVE = &H1
Public Const WM_DROPFILES = &H233

Sub Main()
    Form1.Show
    WatchForFiles
End Sub

Public Sub WatchForFiles()
    Dim FileDropMessage As MSG
    Dim fileDropped     As Boolean
    Dim hDrop           As Long
    Dim filename        As String * 128
    Dim numOfDroppedFiles As Long
    Dim curFile         As Long

    Do
        fileDropped = PeekMessage(FileDropMessage, 0, WM_DROPFILES, WM_DROPFILES, PM_REMOVE Or PM_NOYIELD)
       
        If fileDropped Then
            hDrop = FileDropMessage.wParam
           
            numOfDroppedFiles = DragQueryFile(hDrop, True, filename, 127)
            For curFile = 1 To numOfDroppedFiles
                ret% = DragQueryFile(hDrop, curFile – 1, filename, 127)
               
                Form1.lblNumDropped.Caption = LTrim$(Str$(numOfDroppedFiles))
                Form1.List1.AddItem filename
            Next curFile
           
            DragFinish (hDrop)
        End If
        DoEvents
    Loop
End Sub

Kemudian double klik pada form yang telah dibentuk diawal tadi pilih mekanisme Form_Load dan copas syntak ini 

lblNumDropped.Caption = “0”
DragAcceptFiles Form1.hWnd, True

Berikutnya untuk Button dengan Caption “Clear” double klik dan copas sytanknya dibawah ini
    lblNumDropped.Caption = “0”
    List1.Clear
Simpan dan Run/F5. Sekarang coba klik dan tahan  jangan dilepas suatu file arahkan ke ListBox secara otomatis beberapa file yang kita drag dan arahkan ke listbox akan masuk ke List menyerupai gambar dibawah ini : 

Bagi yang berminat untuk mendownloadnya, dipersilahkan untuk mengklik link download yang telah admin sediakan diatas, agar pembahasan artikel Contoh Membuat Drag dan Drop File ke ListBox sanggup bermanfaat.

Combobox Multicolumn Dengan Visual Basic 6.0 (Vb6)

Komponen ComboBox pada Visual Basic 6.0 (VB6) sering kita gunakan dan tampaknya untuk komponen ini merupakan hal wajib dalam membangun sebuah aplikasi dan pada umumnya digunakan untuk menampilkan beberapa opsi pilihan. Seperti yang kita tahu komponen ComboBox ini sanggup menampilkan isi dari sebuah filed dari tabel didalam database, nah bagaimana kalau kita menciptakan sebuah combobox untuk menampilkan beberapa filed dari sebuah tabel. Untuk itu kita perlu memodifikasi componen ComboBox biar sanggup menampilkan beberapa field dari tabel didalam database dengan kata lain kita harus menciptakan componen ocx combobox. Langsung saja masuk ke pokok pembahasan.

Combobox Multicolumn Dengan Visual Basic 6.0 (Vb6)
Source Code ComboBox MultiColumn dengan Visual Basic 6.0 (VB6)
Dari gambar diatas sangat terang dari komponen ComboBox yang telah dimodifikasi sanggup menampilkan beberapa data dari database, tentunya sangat memudahkan bagi kalangan programmer khususnya yang memakai Visual Basic 6.0 (VB6) dalam memakai komponen yang satu ini.

Setelah didownload buka projectnya dan coba Run/F5. Cara kerja tools ini yakni pilih/click pada ComboBox maka data akan tampil pada komponen TextBox. Sangat gampang bukan untuk membantu programmer dalam pembuatan aplikasi.

Cara Backup Database Mysql (Mysqldump)

Backup Database dalam aplikasi apapun merupakan syarat utama, kenapa sanggup demikian dikarenakan Backup Database sangat untuk mengantisipasi jikalau ada bencana diluar dugaan menyerupai database error atau crash. Jika database sistem mengalami crash dan direpair tidak membuahkan hasil, maka sanggup kita gantikan database semula dengan database hasil backup dengan cara merestore database.

Kali ini admin akan membahas Backup Database khususnya pada database MySQL Server dengan Ms. Visual Basic 6.0 (VB6) dan Mysqldump.exe. Mysqldump.exe merupakan sebuah file internal (bawaan aplikasi MySQL Server) sewaktu kita melaksanakan instalasi aplikasi MySQL Server. Letak file tersebut berada pada folder instalasi MySQL Server C:\Program Files\MySQL\MySQL Server 5.2\bin.

Fungsi dari file Mysqldump.exe adah sebuah aplikasi yang dipakai untuk menciptakan file yang berekstensi *.sql yang berisi perintah-perintah pembuatan tabel dan sanggup juga untuk membackup atau merestore database. Langsung saja pada pokok pembahasan Cara Backup Database MySQL (mysqldump), buka Ms. Visual Basic 6.0 (VB6) buatlah project – StandartEXE lalu buatlah form dan tambahkan komponen CommandButton dan textBox menyerupai gambar dibawah ini : 

Cara Backup Database Mysql (Mysqldump)

Untuk mencari letak tujuan backup admin memakai kotak obrolan Folder Browse. Untuk cara pembuatan Folder Browse sudah admin bahas pada artikel sebelumnya. Tambahkan pula Module sebagai penampung variabel-variabel dari Folder Browse.

Pada Tombol Cara Backup Database Mysql (Mysqldump)   Double klik dan pastekan syntak dibawah ini

    Dim sStrPathBackup As String
    sStrPathBackup = fBrowseForFolder(hWnd, “Pilih Direktori untuk Backup database”)

        If sStrPathBackup <> vbNullString Then
            Text1.Text = sStrPathBackup
        End If

Kemudian pada Tombol Cara Backup Database Mysql (Mysqldump)   Pastekan Syntak dibawah ini : 

Dim NServer, NUser, NPass, NDatabase As String
NServer = “localhost”
NUser = “root”
NPass = “” ‘Menyesuaikan dari passsword instalasi MySQL
NDatabase = “tes” ‘Menyesuaikan dari database MySQL
   
If Text1.Text <> “” Then
ShellAndWait “cmd /c  mysqldump.exe -u” & NUser & ” -p” & NPass & ” -h” & NServer & ” ” & NDatabase & ” > ” & Text1.Text & “\” & NDatabase & “.sql”
   MsgBox “Backup database : [ ” & NDatabase & ” ] sukses !!”, vbInformation, “Informasi”
End If

Untuk nama database dan Password menyesuaikan dari instalasi MySQL Server agan sendiri. Jika sudah final simpan dan Run/Jalankan, pilih path dimana database akan diletakkan hasil backup dan tekan tombol Proses Backup

LINK DOWNLOAD SOURCODE

Cara Mengaktifkan Koneksi Memakai Adodb

Untuk khususnya pengguna Visual Basic 6.0 dalam pembuatan suatu aplikasi memakai database (basis data) hal penting yang perlu diketahui harus mengaktifkan Microsoft ActiveX Data Objects 2.8 Library terlebih dahulu. Komponen tersebut berupa komponen pendukung dalam koneksi database (basis data) atau yang sering kita kenal dengan ADO. Setelah komponen ADO diaktifkan kita hanya tinggal menciptakan syntax koneksi string ke database gres kita mulai membangun sebuah sistem. Untuk langkah-langkahnya buka Microsoft Visual Basic 6.0 – StandartEXE  – Form lalu klik hidangan Project  – References

Cara Mengaktifkan Koneksi Memakai Adodb


Cari Microsoft ActiveX Data Objects 2.8 Library sehabis ketemu lalu ceklis dan OK, barulah siap untuk menjalankan koneksi ke database

Blok Seluruh Cell Listview Dengan Keyboard (Shoot Key) Dengan Visual Basic 6.0

Terkadang dalam blok suatu file/cell kita lebih suka memakai cara cepat dengan shootkey ctrl + A dengan begitu semuanya akan terblok dan memudahkan kita untuk copy atau hapus sekaligus. Kali ini admin akan mencoba metode tersebut pada komponen ListView Visual Basic 6.0 (VB6)

Buatlah terlebih dahulu database (disini admin memakai database Ms. Access 2000) dengan nama database DbMHS dan tabel ANggota

Blok Seluruh Cell Listview Dengan Keyboard  (Shoot Key) Dengan Visual Basic 6.0

Inputkan beberapa Record untuk menampilkan data pada lisview Visual Basic 6.0 (VB6), lalu buka Ms. Visual Basic 6.0 – StandartEXE dan buatlah form dan tambahkan komponen Listview dengan menekan tombol keyboard ctrl + T, kotak obrolan komponen pun tampil cari dan ceklist komponen Microsoft Windows Common Controls 6.0 (SP6).

Klik kanan pada komponen Listview yang telah masuk ke dalam form dengan menceklis MultiSelect dan FullRowSelect lalu OK

Blok Seluruh Cell Listview Dengan Keyboard  (Shoot Key) Dengan Visual Basic 6.0
Buat module untuk menampung variable dan function koneksi ke database : 

Public CN As New ADODB.Connection
Public xRsMHS As New ADODB.Recordset

Sub KoneksiDatabase()
CN.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\DbMHS.mdb” & “;Persist Security Info=False”
CN.CursorLocation = adUseClient
End Sub

Selanjutnya baru kita buat function untuk menampilkan data ke Listview

Sub TampilListView()
Dim LI As ListItem

ListView1.ColumnHeaders.Clear
ListView1.ListItems.Clear
        
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , “Tanggal”, 1300
ListView1.ColumnHeaders.Add , , “NIS”, 1300
ListView1.ColumnHeaders.Add , , “Nama”, 3000
ListView1.ColumnHeaders.Add , , “HP”, 1300

ListView1.ListItems.Clear
ListView1.View = lvwReport
ListView1.Sorted = False

        Set xRsMHS = New ADODB.Recordset
        xRsMHS.Open “select * from ANGGOTA”, CN, 1, 3
           If xRsMHS.RecordCount = 0 Then
              Me.ListView1.ListItems.Clear
           Else
               xRsMHS.MoveFirst
              While Not xRsMHS.EOF
                   Set LI = ListView1.ListItems.Add(, , xRsMHS.Fields!TGL)
                       LI.SubItems(1) = xRsMHS.Fields!NIS
                       LI.SubItems(2) = xRsMHS.Fields!NAMA
                       LI.SubItems(3) = xRsMHS.Fields!HP
                   xRsMHS.MoveNext
             Wend
            End If
End Sub

Untuk mengaktifkan ShootKey kalau kita tekan ctrl + A maka Cell semua di Listview akan tampil, Klik pada Listview dan pilih prosedur KeyDown lalu pastekan syntak dibawah ini : 

    If Shift = vbCtrlMask And KeyCode = vbKeyA Then
                Dim x As Long
                For x = ListView1.ListItems.Count To 1 Step -1
                    ListView1.ListItems.Item(x).Selected = True
                Next x
    End If

Sekarang coba kita tambahkan Tombol Hapus, kalau diklik tombol hapus maka akan menghapus seluruh data yang terblok saja dengan metode abolisi data menurut dengan NIM. Copy sintak dibawah ini 

Dim i As Long
For i = ListView1.ListItems.Count To 1 Step -1
    If ListView1.ListItems(i).Selected Then
       CN.Execute “delete from ANGGOTA where NIS='” & ListView1.ListItems(i).ListSubItems(1) & “‘”
       ListView1.ListItems.Remove ListView1.ListItems(i).Index
    End If
Next i

Double klik pada form dan panggil mekanisme koneksi database dan menampilkan data pada Listview lalu Simpan dan jalankan/F5 cukup gampang bukan !!

LINK DOWNLOAD

Cara Buat Keygen Memakai Microsoft Visual Basic 6.0

Sering kita temui dibanyak aplikasi sehabis kita instal ke PC ada yang minta keygen (generator serial number) atau instruksi kunci, kunci ini sebagai tanda resmi (lisensi) bahwa aplikasi tersebut telah diregistrasi secara resmi. Keygen (generator serial number) itu sendiri biasanya kita peroleh dengan membeli dari sang pembuat aplikasi (programmer) tersebut. Disini admin akan share source code Cara Buat KeyGen (generator serial number) menggunakan Ms. Visual Basic 6.0 (VB6)

Tidak usah panjang dan lebar eksklusif saja ke pokok pembahasan, buka Ms. Visual Basic 6.0 (VB6) buat project – StandarEXE – form dan tambahkan 2 (dua) buah TextBox, Label dan CommandButton sehingga layout tampilan interfacenya menyerupai gambar dibawah ini : 

Cara Buat Keygen Memakai Microsoft Visual Basic 6.0

Jangan lupa tambahkan module juga untuk menampung beberapa function dan variabel-variabel pendukungnya 

Option Explicit
Function KeyGen(kNamev As Variant, kPass As String, kType As Integer) As String
On Error Resume Next
Dim cTable(512) As Integer
Dim nKeys(16) As Integer
Dim s0(512) As Integer
Dim nArray(16) As Integer
Dim pArray(16) As Integer
Dim n As Integer
Dim nPtr As Integer
Dim cPtr As Integer
Dim cFlip As Boolean
Dim sIni As Integer
Dim temp As Integer
Dim rtn As Integer
Dim gKey As String
Dim nLen As Integer
Dim pLen As Integer
Dim kPtr As Integer
Dim sPtr As Integer
Dim nOffset As Integer
Dim pOffset As Integer
Dim tOffset As Integer
Dim KeySize As Integer
Const nXor As Integer = 18
Const pXor As Integer = 25
Const cLw As Integer = 65
Const nLw As Integer = 48
Const sOffset As Integer = 0
Dim VarType As String
Dim kName As String
Dim AryCtl As Integer
Dim AryCtrl As Control
VarType = TypeName(kNamev)
Select Case VarType
    Case “String”
        kName = kNamev
    Case “TextBox”
        kName = kNamev.Text
    Case “Object”
        For Each AryCtrl In kNamev
            If AryCtrl.Text <> “” Then
                kName = kName & AryCtrl.Text & “|”
            End If
        Next
        kName = Left(kName, Len(kName) – 1)
    Case “String()”
        For AryCtl = LBound(kNamev) To UBound(kNamev)
            If kNamev(AryCtl) <> “” Then
                kName = kName & kNamev(AryCtl) & “|”
            End If
        Next
        kName = Left(kName, Len(kName) – 1)
        Case Else
            MsgBox VarType & ” is an unsupported type to be passed to KeyGen”
End Select
‘****************************************************************************
nLen = Len(kName)
pLen = Len(kPass)
‘password xor keys ** change to make keygen unique **
nKeys(1) = 46
nKeys(2) = 89
nKeys(3) = 142
nKeys(4) = 63
nKeys(5) = 231
nKeys(6) = 32
nKeys(7) = 129
nKeys(8) = 51
nKeys(9) = 28
nKeys(10) = 97
nKeys(11) = 248
nKeys(12) = 41
nKeys(13) = 136
nKeys(14) = 53
nKeys(15) = 78
nKeys(16) = 164
sIni = 0
‘set s boxes
For n = 0 To 512
    s0(n) = n
Next n
For n = 0 To 512
    sIni = (sOffset + sIni + n) Mod 256
    temp = s0(n)
    s0(n) = s0(sIni)
    s0(sIni) = temp
Next n
If kType = 1 Then       ‘(numeric)
 
    nPtr = 0
    KeySize = 16
    gKey = String(16, ” “)
 
    For n = 0 To 512
        cTable(s0(n)) = (nLw + (nPtr))
        nPtr = nPtr + 1
        If nPtr = 10 Then nPtr = 0
    Next n
ElseIf kType = 2 Then   ‘(alphanumeric)
    nPtr = 0
    cPtr = 0
    KeySize = 16
    gKey = String(16, ” “)
 
    cFlip = False
    For n = 0 To 512
        If cFlip Then
            cTable(s0(n)) = (nLw + nPtr)
            nPtr = nPtr + 1
            If nPtr = 10 Then nPtr = 0
            cFlip = False
        Else
            cTable(s0(n)) = (cLw + cPtr)
            cPtr = cPtr + 1
            If cPtr = 26 Then cPtr = 0
            cFlip = True
        End If
    Next n
Else  ‘(hex)
    KeySize = 8
    gKey = String(19, ” “)
 
End If
kPtr = 1
For n = 1 To nLen ‘name
  nArray(kPtr) = nArray(kPtr) + Asc(Mid(kName, n, 1)) Xor nXor
  nOffset = nOffset + nArray(kPtr)
  kPtr = kPtr + 1
    If kPtr = 9 Then kPtr = 1
Next n
For n = 1 To pLen ‘password
  pArray(kPtr) = pArray(kPtr) + Asc(Mid(kPass, n, 1)) Xor pXor
  pOffset = pOffset + pArray(kPtr)
  kPtr = kPtr + 1
    If kPtr = 9 Then kPtr = 1
Next n
tOffset = (nOffset + pOffset) Mod 512
kPtr = 1
sPtr = 1
For n = 1 To KeySize
  pArray(n) = pArray(n) Xor nKeys(n)
  rtn = Abs(((nArray(n) Xor pArray(n)) Mod 512) – tOffset)

  If kType = 3 Then ‘hex key
        If rtn < 16 Then
            Mid(gKey, kPtr, 2) = “0” & Hex(rtn)
        Else
            Mid(gKey, kPtr, 2) = Hex(rtn)
        End If
            If sPtr = 2 And kPtr < 18 Then
                kPtr = kPtr + 1
                Mid(gKey, kPtr + 1, 1) = “-“
            End If
        kPtr = kPtr + 2
        sPtr = sPtr + 1
        If sPtr = 3 Then sPtr = 1
  Else  ‘numeric – alphanumeric key
    Mid(gKey, n, 1) = Chr(cTable(rtn))
  End If
Next
KeyGen = gKey
End Function

Copykan syntak diatas ke dalam module dan lalu double klik pada CommandButton yang kita taruh diform dan pastekan syntak dibawah ini :

TxtKey.Text = KeyGen(TxtName.Text, “CONTOH KEYGEN”, 3)

Simpan dan Jalankan/F5 masukan TextBox nama lalu klik Tombolnya, secara otomatis Key akan muncul sesuai dengan kalkulasi dari nama yang diinputkan. Untuk source codenya dapat didownload di LINK INI

Pembuatan Sajian Dengan Treeview Visual Basic 6.0 (Vb6)

Layout tampilan sajian dalam sistem sangat bervariatif semuanya tergantung dari kreasi programmer itu sendiri ada yang menciptakan tipe biasa, Ribbon, XP SideBar dan masih banyak lainnya. Kali ini admin akan share Pembuatan Menu Dengan TreeView. Caranya pun cukup gampang pertama buat terlebih dahulu database untuk dan tabel menu. Disini admin memakai database versi Ms. Access 2000 tampilannya menyerupai dibawah ini : 

Pembuatan Sajian Dengan Treeview Visual Basic 6.0 (Vb6)
Atau jikalau agan-agan ingin menambahkan beberapa sajian lagi dipersilahkan, simpan database tersebut didalam suatu folder. Buka Ms. Visual Basic 6.0 (VB6) – StandarEXE dan buatlah sebuah form jangan lupa tambahkan komponen TreeView dengan cara tekan ctrl + T pada keyboard cari dan ceklis Microsoft Windows Common Control 6.0 (SP2). Tambahkan komponen TreeView pada form yang telah kita buat. Sebelum kita koneksikan ke database sajian sebelumnya kita harus mengaktifkan komponen koneksi ODBC biar dapat terkoneksi ke database.

Pembuatan Sajian Dengan Treeview Visual Basic 6.0 (Vb6)
Buatlah sebuah module untuk menampung function dan variabel yang bekerjasama dengan koneksi database dan pastekan syntak dibawah ini

Public CN As New ADODB.Connection
Public xRsMenu As New ADODB.Recordset

Sub Koneksi()
CN.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\DBase.mdb;Persist Security Info=False”
CN.CursorLocation = adUseClient
End Sub

Kemudian double klik pada form pilih mekanisme Form_Load dan pastekan syntak dibawah ini 

Private Sub Form_Load()
Call Koneksi
  Dim NodX As Node
  TreeView1.Nodes.Clear
  TreeView1.Nodes.Add , , “FileMaster”, “File Master”
  TreeView1.Nodes.Add , , “Proses”, “Proses”
  TreeView1.Nodes.Add , , “Laporan”, “Laporan”
  TreeView1.Nodes.Item(1).Bold = True
  TreeView1.Nodes.Item(1).Expanded = True
 
  TreeView1.Nodes.Item(2).Bold = True
  TreeView1.Nodes.Item(3).Bold = True

 Dim xRsFileManager As New ADODB.Recordset
 Set xRsFileManager = New ADODB.Recordset
 xRsFileManager.Open “select * from MENU where KategoriMenu=’File Master'”, CN, 1, 3
 If xRsFileManager.RecordCount > 0 Then
    xRsFileManager.MoveFirst
    While Not xRsFileManager.EOF
        Set NodX = TreeView1.Nodes.Add(“FileMaster”, tvwChild, , xRsFileManager.Fields!Mnu)
            xRsFileManager.MoveNext
        Wend
 End If

 Dim xRsLaporan As New ADODB.Recordset
 Set xRsLaporan = New ADODB.Recordset
 xRsLaporan.Open “select * from MENU where KategoriMenu=’Laporan'”, CN, 1, 3
 If xRsLaporan.RecordCount > 0 Then
    xRsLaporan.MoveFirst
    While Not xRsLaporan.EOF
        Set NodX = TreeView1.Nodes.Add(“Laporan”, tvwChild, , xRsLaporan.Fields!Mnu)
            xRsLaporan.MoveNext
        Wend
 End If
 Dim xRsProses As New ADODB.Recordset
 Set xRsProses = New ADODB.Recordset
 xRsProses.Open “select * from MENU where KategoriMenu=’Proses'”, CN, 1, 3
 If xRsProses.RecordCount > 0 Then
    xRsProses.MoveFirst
    While Not xRsProses.EOF
        Set NodX = TreeView1.Nodes.Add(“Proses”, tvwChild, , xRsProses.Fields!Mnu)
            xRsProses.MoveNext
        Wend
 End If
End Sub


Simpan lalu Run/F5 maka Pembuatan Menu Dengan TreeView Visual Basic 6.0 (VB6) sudah dapat tampil menyerupai gambar dibawah ini

Pembuatan Sajian Dengan Treeview Visual Basic 6.0 (Vb6)
Untuk sourcodenya dapat didownload di LINK INI

Hitung Denda Abaikan Hari Ahad Memakai Visual Basic 6.0 (Vb6)

Kata Denda niscaya tidak gila lagi ditelinga kita, secara umum denda tersebut berupa suatu eksekusi yang berikan kepada seseorang kalau telah melaksanakan keterlambatan pengembalian atau pembayaran kontribusi dan lain-lain. Biasanya perhitungan ini ada diperusahaan perpustakaan, forum keuangan dan masih banyak lainnya. Kali ini admin akan membahas Hitung Denda Abaikan Hari Minggu Menggunakan Visual Basic 6.0 (VB6).

Buka Ms. Visual Basic 6.0 (VB6) Tambahkan komponen TextBox, Label, CommanButton dan Microsoft Masked Edit ActiveX Control – Version 6.0. Untuk komponen Microsoft Masked Edit ActiveX Control – Version 6.0 dengan menekan tombol CTRL + T pada Keyboard lalu kita cari dan pilih Microsoft Masked Edit ActiveX Control – Version 6.0.

Hitung Denda Abaikan Hari Ahad Memakai Visual Basic 6.0 (Vb6)

Pada Tombol OK double klik dan pastekan syntak dibawah ini : 

   Dim AD As Date
    Dim AA As Long
    Dim I As Long
    Dim A As Long
    Dim Minggu As Long

 AA = DateTime.DateDiff(“d”, Format(MaskEdBox1, “dd-MM-yyyy”), Format(MaskEdBox2, “dd-MM-yyyy”))
    For A = 0 To AA
        AD = (CDate(Format(MaskEdBox1, “dd-MM-yyyy”))) + A
        If Weekday(AD) = 1 Then
            Minggu = Minggu + 1
        End If
    Next A
    Label11.Caption = Format(Val(Text1.Text) * ((AA) – (2 + Minggu)), “#,##0”)
    Label3.Caption = Minggu

Simpan lalu Jalankan/F5. Untuk Sourcodenya dapat didownload di LINK INI

Pembuatan Kegiatan Angsuran Memakai Visual Basic 6.0 (Vb6)

Source Code Pembuatan Jadwal Angsuran yang akan admin share berikut ini mengidentifikasi jumlah cicilan per bulannya sesuai dengan jumlah santunan (Plavond) + Profit dan jumlah angsuran (Bulan). Jadwal angsuran biasanya berlaku di instansi-instansi atau forum keuangan ibarat Bank, Koperasi dan Leasing. Source code ini admin buat dengan bertujuan sebagai materi pembelajaran, dikarenakan untuk aktivitas angsuran itu sendiri disetiap forum yang bekerjasama dengan gadai, pinjam dan lain-lain niscaya memiliki standarisasi tersendiri. 

Database yang admin gunakan Ms. Access 2000 dan komponen-komponen pendukung dari Visual basic 6.0 (VB6) ialah TextBox, CommandButton dan ListView (Microsoft Windows Common Control 6.0). Buat database terlebih dahulu dengan nama dbAngsuran dan Tabel Angsuran, 

Setelah simpulan simpanlah database tersebut didalam folder. Kemudian selanjutnya buka Ms. Visual Basic 6.0 (VB6) – Project – StandarEXE dan buat form, tambahkan beberapa komponen pendukung pada form tersebut ibarat yang telah disebutkan diatas tadi.

Tambahkan juga sebuah module untuk menampung beberapa function koneksi database dan variabel-variabel pendukung, ibarat syntak dibawah ini : 

Public CN As New ADODB.Connection
Public RsAngsuran As New ADODB.Recordset
 

Sub Koneksi()
Dim PathDb As String
PathDb = App.Path & “\dbAngsuran.mdb”
If CN.State Then
   CN.Close
   CN.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & PathDb & “;Persist Security Info=False”
   CN.CursorLocation = adUseClient
Else
   CN.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & PathDb & “;Persist Security Info=False”
   CN.CursorLocation = adUseClient
End If
End Sub

Untuk source code secara lengkap dapat didownload di LINK INI
Setelah didownload coba agan-agan run/F5 dan Inputkan pada textBox Total Plavond Pinjaman, Profit dan Jangka Waktu Pinjaman (Bulan) – Tekan Tombol Rekap, maka secara otomatis data akan tampil sebanyak jumlah jangka waktu santunan dengan tanggal aktivitas angsurannya.
Pembuatan Kegiatan Angsuran Memakai Visual Basic 6.0 (Vb6)
Mudah bukan dalam mengindentifikasi aktivitas angsuran dari nominal jumlah palvond santunan yang kita tentukan ibarat pada gambar diatas.

Perbedaan Koneksi Mysql Server Odbc Dan Mysql Server Direct

Pada umumnya koneksi database MySQL Server dengan memakai Ms. Visual Basic 6.0 memakai Driver ODBC kali ini admin akan membahas syntak perbedaan antara koneksi MySQL Server dengan ODBC Driver dan MySQL Server Direct

Koneksi MySQL Server ODBC Driver

Public CN As New ADODB.Connection
NServer =”Localhost”
NDatabase=”TestDB”
NUser=”root”
NPass=””
CN.ConnectionString = “DRIVER={MySQL ODBC 5.3 ANSI Driver};” & _
“SERVER=” & NServer & ” ;Port=3306;DATABASE=” & NDatabase & “;” & _
“UID=” & NUser & ” ;PWD=” & NPass & “;OPTION=3”

Kurang lebih ibarat diatas dan untuk drivernya kebetulan yang terinstal di PC admin DRIVER={MySQL ODBC 5.3 ANSI Driver}, dapat memakai Versi 5.2 atau 5.1 dan lainnya.

Koneksi MySQL Server Direct

Public CN  As New MYSQL_CONNECTION
NServer =”Localhost”
NDatabase=”TestDB”
NUser=”root”
NPass=””
CN .OpenConnection NServer , NUser, NPass, NDatabase
CN .CursorLocation = adUseClient

Terlihat dari susunan syntak pun lebih ringkas memakai Koneksi MySQL Server Direct bukan, nah tergantung dari si Programmernya lebih suka memakai yang mana SQL Direct atau SQL ODBC. Untuk MySQL Direct sebelum dipakai harus diinstal terlebih dahulu sebab sifatnya merupakan Plug-in dari Ms. Visual Basic 6.0. Setelah didownload dan diinstal untuk menggunakannya masuk ke Ms. Visual Basic 6.0 – StandartEXE lalu klik sajian Project – References cari dan ceklis VB MySQL Direct v1.0 lalu OK.

Perbedaan Koneksi Mysql Server Odbc Dan Mysql Server Direct

Link download VB MySQL Direct v1.0

Cara Menciptakan Konversi Berat Barang Memakai Visual Basic 6.0 (Vb6)

Setiap barang apapun yang kita jumpai dalam kehidupan sehari niscaya memiliki satuan berat hanya saja satuan berat tu selalu berbeda antara barang yang satu dan barang yang lain. Katakanlah berat suatu kardus berisi TV 25 Kilogram (Kg), jikalau kita ditanya dari 25 Kg berapa Ons. Tentunya kita akan berfikir memutar otak atau bahkan mengambil pena dan secarik kertas untuk menghitung, bahkan jikalau kita masih ragu-ragu dengan hasil perhitungan kita, niscaya kita pastikan memakai mesin hitung (Calculator).

Nah kali ini admin akan share syintak perhitungan Cara Membuat Konversi Berat Barang memakai Visual Basic 6.0. Buka Ms. Visual Basic 6.0 (VB6) buat sebuah project – StandartEXE – form tambahkan pula komponen ComboBox, TextBox dan CommanButton menyerupai gambar dibawah ini : 
Cara Menciptakan Konversi Berat Barang Memakai Visual Basic 6.0 (Vb6)

Double klik pada Form dan pilih mekanisme Form_Load, pastekan syntak dibawah ini
Combo1.AddItem “Ton”
Combo1.AddItem “Kwintal”
Combo1.AddItem “Kilogram”
Combo1.AddItem “Gram”
Combo1.AddItem “Pound”
Combo1.AddItem “Lb”
Combo1.AddItem “Kip”
Combo1.AddItem “Slug”

Combo2.AddItem “Ton”
Combo2.AddItem “Kwintal”
Combo2.AddItem “Kilogram”
Combo2.AddItem “Gram”
Combo2.AddItem “Pound”
Combo2.AddItem “Lb”
Combo2.AddItem “Kip”
Combo2.AddItem “Slug”

Text1.Text = “”
Text2.Text = “”

Kemudian buatlah Sub Fungsi perhitungan konversi berat barang dengan nama, terserah agan-agan saja, menyerupai dibawah ini : 

Sub RumusKonv()
    If Combo1.Text = “Ton” And Combo2.Text = “Ton” Then
       Text2.Text = Text1.Text
    ElseIf Combo1.Text = “Ton” And Combo2.Text = “Kwintal” Then
       Text2.Text = Val(Text1.Text) * 10
    ElseIf Combo1.Text = “Ton” And Combo2.Text = “Kilogram” Then
       Text2.Text = Val(Text1.Text) * 1000
    ElseIf Combo1.Text = “Ton” And Combo2.Text = “Gram” Then
       Text2.Text = Val(Text1.Text) * 10 ^ 6
    ElseIf Combo1.Text = “Ton” And Combo2.Text = “Pound” Then
       Text2.Text = (Val(Text1.Text) * 1000) / 0.45359237
    ElseIf Combo1.Text = “Ton” And Combo2.Text = “Lb” Then
       Text2.Text = ((Val(Text1.Text) * 1000) / 14.59) / 0.03108
    ElseIf Combo1.Text = “Ton” And Combo2.Text = “Kip” Then
       Text2.Text = (((Val(Text1.Text) * 1000) / 14.59) / 0.03108) / 1000
    ElseIf Combo1.Text = “Ton” And Combo2.Text = “Slug” Then
        Text2.Text = (Val(Text1.Text) * 1000) / 14.59
    ElseIf Combo1.Text = “Kwintal” And Combo2.Text = “Ton” Then
        Text2.Text = Val(Text1.Text) / 10
    ElseIf Combo1.Text = “Kwintal” And Combo2.Text = “Kwintal” Then
        Text2.Text = Text1.Text
    ElseIf Combo1.Text = “Kwintal” And Combo2.Text = “Kilogram” Then
        Text2.Text = Val(Text1.Text) * 100
    ElseIf Combo1.Text = “Kwintal” And Combo2.Text = “Gram” Then
        Text2.Text = Val(Text1.Text) * 10 ^ 5
    ElseIf Combo1.Text = “Kwintal” And Combo2.Text = “Pound” Then
        Text2.Text = (Val(Text1.Text) * 100) / 0.45359237
    ElseIf Combo1.Text = “Kwintal” And Combo2.Text = “Lb” Then
        Text2.Text = ((Val(Text1.Text) * 100) / 14.59) / 0.03108
    ElseIf Combo1.Text = “Kwintal” And Combo2.Text = “Kip” Then
        Text2.Text = (((Val(Text1.Text) * 100) / 14.59) / 0.03108) / 1000
    ElseIf Combo1.Text = “Kwintal” And Combo2.Text = “Slug” Then
        Text2.Text = (Val(Text1.Text) * 100) / 14.59
    ElseIf Combo1.Text = “Kilogram” And Combo2.Text = “Ton” Then
        Text2.Text = Val(Text1.Text) / 1000
    ElseIf Combo1.Text = “Kilogram” And Combo2.Text = “Kwintal” Then
        Text2.Text = Val(Text1.Text) / 100
    ElseIf Combo1.Text = “Kilogram” And Combo2.Text = “Kilogram” Then
        Text2.Text = Text1.Text
    ElseIf Combo1.Text = “Kilogram” And Combo2.Text = “Gram” Then
        Text2.Text = Val(Text1.Text) * 10 ^ 3
    ElseIf Combo1.Text = “Kilogram” And Combo2.Text = “Pound” Then
        Text2.Text = Val(Text1.Text) / 0.45359237
    ElseIf Combo1.Text = “Kilogram” And Combo2.Text = “Lb” Then
        Text2.Text = (Val(Text1.Text) / 14.59) / 0.03108
    ElseIf Combo1.Text = “Kilogram” And Combo2.Text = “Kip” Then
        Text2.Text = (((Val(Text1.Text) / 14.59) / 0.03108) / 1000)
    ElseIf Combo1.Text = “Kilogram” And Combo2.Text = “Slug” Then
        Text2.Text = Val(Text1.Text) / 14.59
    ElseIf Combo1.Text = “Gram” And Combo2.Text = “Ton” Then
        Text2.Text = Val(Text1.Text) / 10 ^ 6
    ElseIf Combo1.Text = “Gram” And Combo2.Text = “Kwintal” Then
        Text2.Text = Val(Text1.Text) * 10 ^ -5
    ElseIf Combo1.Text = “Gram” And Combo2.Text = “Kilogram” Then
        Text2.Text = Val(Text1.Text) * 10 ^ -3
    ElseIf Combo1.Text = “Gram” And Combo2.Text = “Gram” Then
        Text2.Text = Text1.Text
    ElseIf Combo1.Text = “Gram” And Combo2.Text = “Pound” Then
        Text2.Text = (Val(Text1.Text) * 10 ^ -3) / 0.45359237
    ElseIf Combo1.Text = “Gram” And Combo2.Text = “Lb” Then
        Text2.Text = ((Val(Text1.Text) * 10 ^ -3) / 14.59) / 0.03108
    ElseIf Combo1.Text = “Gram” And Combo2.Text = “Kip” Then
        Text2.Text = (((Val(Text1.Text) * 10 ^ -3) / 14.59) / 0.03108) / 1000
    ElseIf Combo1.Text = “Gram” And Combo2.Text = “Slug” Then
        Text2.Text = (Val(Text1.Text) * 10 ^ -3) / 14.59
   
    ElseIf Combo1.Text = “Pound” And Combo2.Text = “Ton” Then
        Text2.Text = (Val(Text1.Text) * 0.45359237) * 10 ^ -3
    ElseIf Combo1.Text = “Pound” And Combo2.Text = “Kwintal” Then
        Text2.Text = (Val(Text1.Text) * 0.45359237) * 10 ^ -2
    ElseIf Combo1.Text = “Pound” And Combo2.Text = “Kilogram” Then
        Text2.Text = Val(Text1.Text) * 0.45359237
    ElseIf Combo1.Text = “Pound” And Combo2.Text = “Gram” Then
        Text2.Text = (Val(Text1.Text) * 0.45359237) * 10 ^ 3
    ElseIf Combo1.Text = “Pound” And Combo2.Text = “Pound” Then
        Text2.Text = Text1.Text
    ElseIf Combo1.Text = “Pound” And Combo2.Text = “Lb” Then
        Text2.Text = ((Val(Text1.Text) * 0.45359237) / 14.59) / 0.03108
    ElseIf Combo1.Text = “Pound” And Combo2.Text = “Kip” Then
        Text2.Text = (((Val(Text1.Text) * 0.45359237) / 14.59) / 0.03108) / 1000
    ElseIf Combo1.Text = “Pound” And Combo2.Text = “Slug” Then
        Text2.Text = (Val(Text1.Text) * 0.45359237) / 14.59
    ElseIf Combo1.Text = “Lb” And Combo2.Text = “Ton” Then
        Text2.Text = ((Val(Text1.Text) * 0.03108) * 14.59) * 10 ^ 3
    ElseIf Combo1.Text = “Lb” And Combo2.Text = “Kwintal” Then
        Text2.Text = ((Val(Text1.Text) * 0.03108) * 14.59) * 10 ^ 2
    ElseIf Combo1.Text = “Lb” And Combo2.Text = “Kilogram” Then
        Text2.Text = (Val(Text1.Text) * 0.03108) * 14.59
    ElseIf Combo1.Text = “Lb” And Combo2.Text = “Gram” Then
        Text2.Text = ((Val(Text1.Text) * 0.03108) * 14.59) * 10 ^ -3
    ElseIf Combo1.Text = “Lb” And Combo2.Text = “Pound” Then
        Text2.Text = ((Val(Text1.Text) * 0.03108) * 14.59) / 0.45359237
    ElseIf Combo1.Text = “Lb” And Combo2.Text = “Lb” Then
        Text2.Text = Text1.Text
    ElseIf Combo1.Text = “Lb” And Combo2.Text = “Kip” Then
        Text2.Text = Val(Text1.Text) / 1000
    ElseIf Combo1.Text = “Lb” And Combo2.Text = “Slug” Then
        Text2.Text = Val(Text1.Text) * 0.03108
    ElseIf Combo1.Text = “Kip” And Combo2.Text = “Ton” Then
        Text2.Text = (((Val(Text1.Text) * 1000) * 0.03108) * 14.59) / 10 ^ -3
    ElseIf Combo1.Text = “Kip” And Combo2.Text = “Kwintal” Then
        Text2.Text = (((Val(Text1.Text) * 1000) * 0.03108) * 14.59) / 10 ^ -2
    ElseIf Combo1.Text = “Kip” And Combo2.Text = “Kilogram” Then
        Text2.Text = ((Val(Text1.Text) * 1000) * 0.03108) * 14.59
    ElseIf Combo1.Text = “Kip” And Combo2.Text = “Gram” Then
        Text2.Text = (((Val(Text1.Text) * 1000) * 0.03108) * 14.59) / 10 ^ 3
    ElseIf Combo1.Text = “Kip” And Combo2.Text = “Pound” Then
        Text2.Text = (((Val(Text1.Text) * 1000) * 0.03108) * 14.59) / 0.45359237
    ElseIf Combo1.Text = “Kip” And Combo2.Text = “Lb” Then
        Text2.Text = Val(Text1.Text) * 1000
    ElseIf Combo1.Text = “Kip” And Combo2.Text = “Kip” Then
        Text2.Text = Text1.Text
    ElseIf Combo1.Text = “Kip” And Combo2.Text = “Slug” Then
        Text2.Text = (Val(Text1.Text) * 1000) * 0.03108
    ElseIf Combo1.Text = “Slug” And Combo2.Text = “Ton” Then
        Text2.Text = (Val(Text1.Text) * 14.59) * 10 ^ -3
    ElseIf Combo1.Text = “Slug” And Combo2.Text = “Kwintal” Then
        Text2.Text = (Val(Text1.Text) * 14.59) * 10 ^ -2
    ElseIf Combo1.Text = “Slug” And Combo2.Text = “Kilogram” Then
        Text2.Text = Val(Text1.Text) * 14.59
    ElseIf Combo1.Text = “Slug” And Combo2.Text = “Gram” Then
        Text2.Text = (Val(Text1.Text) * 14.59) * 10 ^ 3
    ElseIf Combo1.Text = “Slug” And Combo2.Text = “Pound” Then
        Text2.Text = (Val(Text1.Text) * 14.59) / 0.45359273
    ElseIf Combo1.Text = “Slug” And Combo2.Text = “Lb” Then
        Text2.Text = Val(Text1.Text) / 0.03108
    ElseIf Combo1.Text = “Slug” And Combo2.Text = “Kip” Then
        Text2.Text = (Val(Text1.Text) / 0.03108) / 1000
    ElseIf Combo1.Text = “Slug” And Combo2.Text = “Slug” Then
        Text2.Text = Text1.Text
    End If
End Sub

 Selanjutnya double klik pada Tombol Proses dan panggil mekanisme sub yang gres kita buat diatas dengan syntak 

Call RumusKonv 

Simpan dan Jalankan/F5, pilih satuan awal (satuan besar) dan satuan kecil (konversi dari satuan besar), untuk lebih jelasnya menyerupai gambar dibawah ini

Cara Menciptakan Konversi Berat Barang Memakai Visual Basic 6.0 (Vb6)

 Mudah bukan !!

Function Terbilang Indonesia Dan Inggris Dengan Visual Basic 6.0 (Vb6)

Terbilang yakni sejumlah nominal angka yang diterjemahkan dalam bentuk tulisan, perkara ibarat ini sangatlah umum dan sering kita jumpai disaat kita membeli barang dari suatu minimarket, biasanya terbilang tertera dibawah struk bukti pembelian yang diberikan oleh kasir kepada customer atau pelanggan. Tentunya untuk kata-kata terbilang sudah banyak dibahas diwebsite-website yang ada diinternet dalam pembuatannya bervariasi ada yang memakai Foxpro, Delphi, Visual Basic 6.0 (VB6), Visual Basic Net, PHP dan lain-lain kali ini admin akan share Function Terbilang Indonesia dan Inggris, ada 2 versi bahasa yaitu bahasa indonesia dan bahasa inggris.

Terbilang Bahasa Indonesia

Dari  tampilan layout interface diatas kita hanya menginputkan sejumlah angka, secara otomatis function terbilang akan menerjemahkan menurut sejumlah angka yang kita inputkan dalam bahasa Indonesia

Terbilang Bahasa Inggris

Sama halnya dengan Function Terbilang bahasa Indonesia, tetapi kali ini berbahasa Inggris, metodenya pun sama dengan menginputkan angka ke textbox secara otomatis akan menerjemahkan ke dalam Bahasa Inggris. Sourcode ini dapat didownload di bawah ini
Video Tutorial Cara
Pembuatan Fungsi Terbilang Visual Basic 6.0 (VB6)