Restore Database Ms Access Menggunakan VB

Restore Database Ms Access Menggunakan VB

Restore Database Ms Access Menggunakan VB.    Pada postingan sebelumnya telah membahas tentang cara memback up database menggunakan VB, pada kesempatan kali ini saya akan memposting cara Restore Database Ms Access Menggunakan VB.

Restore database adalah mengembalikan data yang telah di backup, karena suatu hal kita perlu merestorenya. Misalnya komputernya rusak dan databasenya hilang, jika sudah pernah di backup dan disimpan di tempat yang aman kita bisa merestorenya kembali data yang telah kita backup tersebut.

Restore database ini sangat penting untuk antisipasi sesuatu yang tidak diinginkan terhadap database yang kita miliki. Bagaimanakah membuat restore database menggunakan vb6?  Ikutilah langkah-langkah berikut ini :

1. Buka VisualBasic 6 dan buatlah/desainlah sebuah form seperti gambar berikut ini
   
   
   Tampilkan Gambar

   
   

   

   
   
   
   
2. Jika sudah selesai kita lanjutkan ke koding, tulislah koding berikut ini. Sebagai contoh di sini saya memakai nama database DB_MHS.mdb. Tulislah kode berikut ini dengan benar :
   
   

   Private Sub CmdPilih_Click()
       CommonDialog1.DialogTitle = "Pilih Database Backupannya"
       CommonDialog1.InitDir = "C:\"
       CommonDialog1.Filter = "SQL Files (*.mdb)|*.mdb"
       CommonDialog1.ShowOpen
   
       Label1.Caption = CommonDialog1.FileName
   End Sub
   
   Private Sub CmdKeluar_Click()
       Unload Me
   End Sub
   
   Private Sub CmdRestore_Click()
   If Label1.Caption = "" Then
       MsgBox "Klik Tombol 'Pilih File Backup' Dulu...!," & vbCrLf & "" _
            & "Untuk Memilih Lokasi Penyimpanan", vbCritical, " .:: Peringatan ::. "
       Exit Sub
   End If
   '------------------------
   On Error Resume Next
   Dim asal As String
   Dim Tuju As String
   Dim i As Integer
   Dim j As Integer
   Label2.Width = 0
   
       Tuju = App.Path
       asal = Label1.Caption
       Tuju = Tuju + "\DB_MHS.mdb"
       '------------------------
       CmdPilih.Enabled = False
       CmdRestore.Enabled = False
       CmdKeluar.Enabled = False
       Label2.Visible = True
       For i = 0 To 4800
           Label2.Width = i
           For j = 1 To 50: DoEvents: Next j
       Next i
       '------------------------
       FileCopy asal, Tuju
       DoEvents
       MsgBox "Restore Database Sukses....!", vbInformation, "Restore Data"
       '------------------------
       CmdPilih.Enabled = False
       CmdRestore.Enabled = False
       CmdKeluar.Enabled = True
       Label2.Visible = False
   End Sub
   

   
   
3. Jika sudah simpanlah kemudian jalankan. Jika berhasil nampak seperti gambar berikut ini.
   
   
   Tampilkan Gambar

   
   

   

   
   

   

   
   
   
   
4. Selesai. Cukup mudah bukan...? Jika anda menginginkan source codenya dan tidak ingin ribet nulis kodenya silahkan download di link di bawah ini. Tutorial ini berkaitan dengan tutorial sebelumnnya cara membuat backup database.

DOWNLOAD SOURCE CODE

Tags:

Cara Restore Database dengan vb,restore database ms access dengan vb,restore database,tutorial cara restore database dengan vb6

Backup Database Ms Access Menggunakan VB

Backup Database Ms Access Menggunakan VB

Backup Database Ms Access Menggunakan VB. Untuk menghindari kehilangan data karena sesuau hal yang tidak diinginkan misalnya windows rusak,database rusak dan lain sebagainnya lakukanlah secara rutin melakukan backup data. Jika kita kehilangan data setidaknya kita masih memiliki cadangan data yang nantinya bisa kita restore, sehingga tidak terlalu pusing karena karena masih punya cadangan data. Lakukanlah back up data minimal seminggu sekali jika mau silahkan setiap hari melakukan back up.

 Pada postingan sebelumnya cara membuat tool tip yang bisa berjalan untuk postingan ini akan membahas tentang cara membuat Backup Database Ms Access Menggunakan VB. Kita akan menggunakan fungsi Copy File untuk melakukan backup database ms access. Bagaimanakah caranya...? Ikutilah langkah-langkahnya sebagai berikut ini

1.  Buka visual basic 6 kemudian desainlah sebuah form seperti gambar berikut ini :
   
   
   Tampilkan Gambar

   
   

   

   
   
   
   
2. Jika sudah selesai mendesainnya selanjutnya tinggal nulis kodenya. Di sini saya memakai database dengan nama "DB_MHS.mdb". Tulislah koding berikut ini dengan benar :
   
   

   Option Explicit
   '----Fungsi API untuk browse folder
   Private Declare Function SHBrowseForFolder Lib _
       "shell32.dll" (bBrowse As BrowseInfo) As Long
   Private Declare Function SHGetPathFromIDList Lib _
       "shell32.dll" (ByVal lItem As Long, ByVal sDir As String) As Long
   '------------------------
   Private Type BrowseInfo
       hWndOwner As Long
       pidlRoot As Long
       sDisplayName As String
       sTitle As String
       ulFlags As Long
       lpfn As Long
       lParam As Long
       lImage As Long
   End Type
   
   Private Function BrowseFolder() As String
       Dim Info As BrowseInfo
       Dim lngItem As Long
       Dim strDir As String
       'mengembalikan nama folder
       Info.ulFlags = 1
       lngItem = SHBrowseForFolder(Info)
       If lngItem Then
           strDir = Space$(260)
           If SHGetPathFromIDList(lngItem, strDir) Then
               'mendapatkan nama folder
               BrowseFolder = Left$(strDir, InStr(strDir, ChrW$(0)) - 1)
           Else
               BrowseFolder = vbNullString
           End If
       End If
   End Function
   
   '----Kode Tombol Pilih Folder
   Private Sub CmdPilih_Click()
       Label1.Caption = BrowseFolder
   End Sub
   
   '---Tombol Keluar
   Private Sub CmdKeluar_Click()
       Unload Me
   End Sub
   
   '---koding Tombol Backup---
   Private Sub CmdBackup_Click()
       If Label1.Caption = "" Then
           MsgBox "Klik Tombol 'Pilih Folder' Dulu...!," & vbCrLf & "" _
                & "Untuk Memilih Lokasi Penyimpanan", vbCritical, " .:: Peringatan ::. "
           Exit Sub
       End If
       '------------------------
       On Error Resume Next
       Dim asal As String
       Dim Tuju As String
       Dim i As Integer
       Dim j As Integer
       Label2.Width = 0
       '-----------------------
       asal = App.Path + "\DB_MHS.mdb"
       Tuju = Label1.Caption
       'mengubah nama file databasenya menjadi format tgl sesuai dg tgl backup ex:DB_MHS_01-10-2014.mdb
       Tuju = Tuju + "\DB_MHS" & "_" & Format$(Date, "DD-MM-YYYY") & ".mdb"
       CmdPilih.Enabled = False
       CmdBackup.Enabled = False
       CmdKeluar.Enabled = False
       Label2.Visible = True
       For i = 0 To 4800
           Label2.Width = i
           For j = 1 To 50: DoEvents: Next j
       Next i
       '-Proses Copy File Database--------------
       FileCopy asal, Tuju
       DoEvents
       MsgBox "Backup database Sukses...", vbInformation, "Back Up Data"
       '------------------------
       CmdPilih.Enabled = False
       CmdBackup.Enabled = False
       CmdKeluar.Enabled = True
       Label2.Visible = False
   End Sub
   

   
   
3. Jika sudah selesai silahkan di simpan kemudian di run semoga berhasil. Jika berhasil tampilannya seperti gambar berikut ini
   
   
   Tampilkan Gambar

   
   

   

   
   

   

   
   
   
   
4. Selesai. Jika anda tidak ingin ribet nulis kode dan mendesain form nya silahkan download sourcode di link berikut ini semoga bermanfaat dan membantu. Pada postinga berikut nya saya akan membuat tutorial cara membuat Restore Database Ms Access dengan VB. Di tunggu y...

 

DOWNLOAD SOURCE CODE

Tags:
Backup Database Ms Access Menggunakan VB, Backup database, Cara Backup database dengan vb,cara backup dan restore database

Membuat Sebuah Tool Tips Bisa Berjalan

Membuat Sebuah Tool Tips Bisa Berjalan

Membuat Sebuah Tool Tips Bisa Berjalan.  Pernahkah anda melihat sebuah tool tip yang dapat berjalan pada sebuah aplikasi atau program.? Jika pernah bagimana Cara Membuat Sebuah Tool Tips Bisa Berjalan ?
Pada kesempatan kali ini saya akan berbagi tips dan trik membuat sebuah tool tip yang bisa berjalan, pada setingan defaultnya sebuah tool tip itu tidak bisa berjalan alias diam dengan sedikit trik sebuah tool tips dapat berjalan sehingga aplikasi yang kita buat tambah menarik dan tidak membosankan.

Sebernarnya caranya sangat mudah dan tidak begitu rumit kodingnya. Sebagai contoh kita akan membuat sebuah tool tip pada sebuah commandbutton. Siapkan sebuah form dan tambahkan sebuah commandbutton jika sudah klik commandbutton nya lalu cari di properties pada bagian bagian ToolTipText nya silahkan anda isi tool tipnya sesuai keinginan anda seperti gambar berikut ini.

Tampilkan Gambar

Jika sudah selanjutnya yaitu membuat koding. Buatlah sebuah Function Scrolling seperti berikut ini pada bagian general declarations

Public Function Scrolling(ByVal obj As Object)
    Dim strText As String
    strText = obj.ToolTipText
    If Len(Trim$(strText)) <> 0 Then
        strText = (Right$(strText, _
        Len(strText) - 1)) & _
        Left$(strText, 1)
        obj.ToolTipText = strText
    End If
End Function

kemudian double klik lah commandbutton nya lalu tulislah koding berikut ini pada event mouse_move seperti berikut ini

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Call Scrolling(Me.Command1)
End Sub

Untuk lebih jelasnya lihatlah gambar di bawah ini

Tampilkan Gambar

Jika sudah silahkan di running. jika berhasil maka jika kita menaruh cursor pada commandbutton maka muncul tool tipnya dan tool tipnya dapat berjalan atau bergerak dari kanan ke kiri. Seperti gambar berikut ini

Trik ini dapat di terapkan pada komponen lain tidak hanya commandbutton misalnya kita terapkan pada datagrid,textbox, listbox dan lain sebaginnya. Semoga tutorial ini bermanfaat.





Tags:
Cara Membuat Sebuah Tool Tips Bisa Berjalan,Trik Tool Tip,cara mempercantik form dengan tool tip,tool tip bisa bergerak

Cara Install VB 6 Di Windows 7 Supaya Tidak Error

Cara Install VB 6 Di Windows 7 Supaya Tidak Error

Cara Install VB 6 Di Windows 7 Supaya Tidak Error. Pernahkah anda mengalami kegagalan dalam melakukan instalasi visual basic 6.?? Ini adalah pengalaman saya waktu install vb 6 di windows 7. Begini ceritanya Saya melakukan installasi vb 6 di windows 7 berhasil, tapi setelah saya buka vb 6 nya ternyata ada sebagian komponen ocx atau dll tidak dapat di buka alias tidak bisa di register dengan sempurna. Setelah cari-cari di google akhirnya ketemu cara mengatasi hal tersebut. Yaitu sebelum melakukan install vb 6 di windows 7 matikan UAC nya.

Bagaimanakah cara mematikan UAC nya???
Silahkan lakukan langkah-langkah berikut ini supaya semua komponennya dapat teregister dengan sempurna. Berikut langkah-langkah mematikan UAC :

Silahkan buka control panel

Silahkan buka user accounts

Klik Change User Account Control settings seperti gambar berikut ini

Tampilkan Gambar

Setelah di klik akan muncul jendela baru seperti gambar berikut ini, perhatikan tombol slidenya

Tampilkan Gambar

Geser slidenya sampai mentok ke bawah seperti nampak pada gambar berikut ini

Tampilkan Gambar

Kemudian restartlah komputer atau laptopnya untuk memberikan efek perubahan di User Accounts Control Setting

Klik kanan pada SETUP.EXE dan pilih  Run As Administrator, maka akan muncul tulisan "On this and other Program Compatibility Assistant warnings", Klik saja "Run Program."
    - Klik Next.
    - Klik "I accept agreement" kemudian Next.
    - Masukan nama dan nama organisa/perusahaan anda(di isi sembarang) kemudia klik Next

 Pilih Custom Setup terus klik Next.

Klik Continue kemudian Ok. Tunggu kurang lebih 2 menit sampai ada pilihan sbb:

•    Microsoft Visual Basic 6.0
•    ActiveX
•    Data Access
•    Graphics

Yang lainnya jangan dipilih dan klik saja Continue untuk melanjutkan langkah berikutnya.

 Bila tidak memiliki CD MSDN jangan dicentang k install MSDN nya kemudian klik next dan akan muncul semacam pemberitahuan kekurangannya bila tidak menginstall MSDN, abaikan saja dengan klik Accept.

Klik skip saja pada instalasi Installshield karena ini hanya pelengkap yang sudah sangat usang dan tidak diperlukan lagi.

Klik next lagi untuk melewatkan instalasi Backoffice, VSS dan SNA Server karena tidak begitu penting dan sudah usang pula.

Pada dialog selanjutnya lepaskan centangan "Register Now" dan klik Finish.

Selesai. Silahkan jalankan VB6 anda pada Start>All Program>Microsoft Visual Studio 6


Setelah itu anda instal Update Service Pack 6 (SP6) dan Update Cumulative SP6 untuk lebih menyempurnakan lagi VB6 anda. Jika ada masih penasaran , anda boleh jalankan setting compability seperti diatas untuk yang kedua kalinya. Selanjutnya HAPPY CODING !!!!

Catatan:
- Pada Windows 7 ada hal-hal yang sangat mengganggu kala menjalankan VB 6 ini diantaranya kita susah sekali menarik ulur ukuran form yang kita buat pada penampilan design form. Untuk mengatasi hali ini setelah proses instalasi anda berhasil rubahlah kompatibilitasnya pada IDE executable dengan cara:

- Gunakan Windows Explorer cari dimana anda menginstall VB6. Biasanya terletak pada C:\Program Files\Microsoft Visual Studio\VB98\
  
- Klik pakai mouse kanan pada VB6.exe dan pilih property-nya lalu klik pada Compatibility lalu centang semua ini:

• Run this program in compatibility mode for Windows XP (Service Pack 3)
• Disable Desktop Composition
• Disable display scaling on high DPI settings

 Jika belum memiliki master vb6 silahkan download disini

Download Tutorial 

Tags:
 instalasi vb6 di win7, cara instal vb6 di win seven, vb6 tidak support windows7, vb6 error di windows 7, agar vb6 berjalan baik di windows7,Cara Install VB 6 Di Windows 7 Supaya Tidak Error

Mengurutkan Data Pada MsFlexgrid

Mengurutkan Data Pada MsFlexgrid

Mengurutkan Data Pada MsFlexgrid. Pada kesempatan kali ini saya akan berbagi trik cara mengurutkan data yang ada dalam msflexgrid dengan cara double klik maupun klik header kolom msflexgrid yang ingin kita urutkan berdasarkan kolom tersebut. Pada postingan sebelumnya pernah membahas tentang msflexgrid warna selang seling.

Jadi dengan sedikit trik ini kita dapat mengurutkan data hanya dengan double klik maupun klik header kolom msflexgrid maka datanya akan urut berdasarkan header kolom yang kita pilih. Anda tertarik? Pengen tahu cara Mengurutkan Data Pada MsFlexgrid? Ikutilah langkahnya.

Tulislah kode berikut ini. jika ingin pengurutan datanya memakai double klik tulislah kode berikut pada event double dan jika menginginkan pada event klik silahkan tulislah kode ini pada event klik.

Pada contoh ini saya tulis pada event double klik

Private Sub MSFlexGrid1_DblClick()
   With MSFlexGrid1
        If .MouseRow = 0 Then
           .Col = .MouseCol
           .ColSel = .MouseCol
            If sortedBy = flexSortGenericDescending Then
               .Sort = flexSortGenericDescending
               sortedBy = flexSortGenericDescending
            Else
                .Sort = flexSortGenericAscending
                sortedBy = flexSortGenericAscending
            End If
        End If
   End With
End Sub

jika sudah jangan lupa di simpan untuk mencobanya silahkan di jalankan. Moga berhasil 

jika kurang jelas silahkan membrikan komentar...

Tags:

Mengurutkan Data Pada MsFlexgrid,Mengurutkan data,trik msflexgrid,pengurutan data,source code pengurutan data

Membuat Nomor Otomatis Dengan Format Tanggal

Membuat Nomor Otomatis Dengan Format Tanggal

Membuat Nomor Otomatis Dengan Format Tanggal. Pada postinga kali ini saya akan berbagi sebuah postingan tentang cara membuat nomor ototmatis dengan format tanggal, pada postingan sebelumnya pernah membahas cara membuat nomor ototmatis.
Maksud dari nomor otomatis dengan format tanggal adalah enam digit pertama terdiri dari 2 digit tahun 2 digit bulan 2 digit tanggal dan 3 digit terakhir merupakan no urut. Formatnya adalah yymmddxxx.
Setiap tanggal system komputer kita ganti maka tiga digit terakhir akan dimulai dari 001 walaupun tadinya tiga digit terakhir tersebut sudah mencapai 891. Enam digit dari depan mengikuti tanggal system komputer yang kita pakai.

Nomor otomatis seperti ini bisa kita gunakan untuk nomor transaksi pada program yang kita buat. Pada contoh kali ini saya akan membuat nim mahasiswa dengan format tanggal ini hanya contoh. silahkan diaplikasikan cara ini sesuai keinginan anda.

Bagaimanakah cara Membuat Nomor Otomatis Dengan Format Tanggal..? Langkah-langkahnya sebagai berikut ini:

Buatlah database dengan menggunakan ms access dengan nama DB_MHS dan buatlah tabel denngan nama Tbl_mhs seperti berikut ini

Tampilkan Gambar

Kemudian siapkan sebuah form tambahkan empat textbox, tiga commandbutton dan MsFlexgrid yang tampak seperti gambar berikut ini

Tampilkan Gambar

Jika sudah tambahkan sebuah modul lalu ketikan kode berikut ini. modul ini berfungsi untuk koneksi ke database

Public Conn As New ADODB.Connection
Public RsMhs As ADODB.Recordset

Public Sub Buka()
    Set Conn = New ADODB.Connection
    Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB_MHS.mdb"
    Conn.CursorLocation = adUseClient
End Sub

Kemudian buatlah prosedur nomor otomatis, ketiklah kode berikut ini pada form yang telah kita buat tadi

Private Sub AutoNumber()
    Call Buka
    Set RsMhs = New ADODB.Recordset
    RsMhs.Open "SELECT * FROM Tbl_mhs WHERE nim in(select max(nim) from Tbl_mhs)order by nim desc", Conn
    RsMhs.Requery
    Dim Urut As String * 9
    Dim Hitung As Long
    With RsMhs
        If .EOF Then
            Urut = Format(Date, "yymmdd") + "001"
        Else
            If Left(!nim, 6) <> Format(Date, "yymmdd") Then
                Urut = Format(Date, "yymmdd") + "001"
            Else
                Hitung = (!nim) + 1
                Urut = Format(Date, "yymmdd") + Right("000" & Hitung, 3)
            End If
        End If
        TxtNim.Text = Urut
    End With
End Sub

Jika sudah buatlah prosedur dengan nama AktifGrid yang berguna untuk mengatur msflexgrid kodenya seperti berikut ini

Private Sub AktifGrid()
    With MSFlexGrid1
        .Cols = 5
        .RowHeightMin = 300

        .Col = 0
        .Row = 0
        .Text = "NO"
        .CellFontBold = True
        .ColWidth(0) = 400
        .AllowUserResizing = flexResizeColumns
        .CellAlignment = flexAlignCenterCenter

        .Col = 1
        .Row = 0
        .Text = "NIM"
        .CellFontBold = True
        .ColWidth(1) = 1200
        .AllowUserResizing = flexResizeColumns
        .CellAlignment = flexAlignCenterCenter

        .Col = 2
        .Row = 0
        .Text = "NAMA MAHASISWA"
        .CellFontBold = True
        .ColWidth(2) = 2500
        .AllowUserResizing = flexResizeColumns
        .CellAlignment = flexAlignCenterCenter

        .Col = 3
        .Row = 0
        .Text = "ALAMAT"
        .CellFontBold = True
        .ColWidth(3) = 2500
        .AllowUserResizing = flexResizeColumns
        .CellAlignment = flexAlignCenterCenter

        .Col = 4
        .Row = 0
        .Text = "JURUSAN"
        .CellFontBold = True
        .ColWidth(4) = 1500
        .AllowUserResizing = flexResizeColumns
        .CellAlignment = flexAlignCenterCenter
    End With
End Sub

Kemudian Buatlah prosedure dengan nama TampilGrid untuk menampilkan data ke msflexgrid

Sub TampilGrid()
    Dim Baris As String
    MSFlexGrid1.Clear
    Call AktifGrid

    MSFlexGrid1.Rows = 2
    Baris = 0
    Call Buka
    Set RsMhs = New ADODB.Recordset
    RsMhs.Open "SELECT * FROM Tbl_mhs ORDER BY nim ASC", Conn, adOpenDynamic, adLockOptimistic

    If RsMhs.BOF Then
        Exit Sub
    Else
        With RsMhs
            .MoveFirst
            Do While Not .EOF
                Baris = Baris + 1
                MSFlexGrid1.Rows = Baris + 1
                MSFlexGrid1.TextMatrix(Baris, 0) = Baris
                MSFlexGrid1.TextMatrix(Baris, 1) = !nim
                MSFlexGrid1.TextMatrix(Baris, 2) = !nama
                MSFlexGrid1.TextMatrix(Baris, 3) = !alamat
                MSFlexGrid1.TextMatrix(Baris, 4) = !jurusan
                .MoveNext
            Loop
        End With
    End If
End Sub

Pada bagian form load tuliskan kode berikut ini

Private Sub Form_Load()
    Call Buka
    Call TampilGrid
    
    TxtNim = ""
    TxtNama = ""
    TxtAlamat = ""
    TxtJurusan = ""

    TxtNim.Enabled = False
    TxtNama.Enabled = False
    TxtAlamat.Enabled = False
    TxtJurusan.Enabled = False

    CmdSave.Enabled = False
End Sub

Jika sudah silahkan double klik tombol new kemudian ketikan kode berikut ini

Private Sub CmdNew_Click()
'' //Memanggil prosedure penomoran otomatis
    Call AutoNumber
    '-----------
    TxtNama.Enabled = True
    TxtAlamat.Enabled = True
    TxtJurusan.Enabled = True

    CmdNew.Enabled = False
    CmdSave.Enabled = True

    TxtNama.SetFocus
End Sub

Kemudian tulislah kode untuk simpan data dengan cara double klik tombol save kemudian ketikan kode berikut ini

Private Sub CmdSave_Click()
    If TxtNama = "" Or TxtAlamat = "" Or TxtJurusan = "" Then
        MsgBox "Ada Data Yang Belum Diisi...!," & vbCrLf & "" _
             & "Mohon Data Dilengkapi Dulu", vbCritical, "Peringatan"
        Exit Sub
    Else
        Dim SqlAdd As String
        SqlAdd = "INSERT INTO Tbl_mhs(nim,nama,alamat,jurusan)values" _
               & "('" & TxtNim & "','" & TxtNama & "','" & TxtAlamat & "','" & TxtJurusan & "')"
        Conn.Execute (SqlAdd)
    End If
    Call TampilGrid

    TxtNim = ""
    TxtNama = ""
    TxtAlamat = ""
    TxtJurusan = ""

    TxtNama.Enabled = False
    TxtAlamat.Enabled = False
    TxtJurusan.Enabled = False

    CmdSave.Enabled = False
    CmdNew.Enabled = True
End Sub

Jika sudah semua silahkan di run. jika berhasil maka akan tampak seperti gambar berikut ini

Tampilkan Gambar

Jika anda tidak ingin ribet silahkan download source codenya di link berikut. semoga dapat bermanfaat

DOWNLOAD

Tag:
auto number,cara membuat nomor otomatis,cara membuat nomor otomatis dengan format tanggal,nomor otomatis di vb 6,cara mudah membuat nomor otomatis di vb

Cara Download Di Blog Ini

Cara Download Di Blog Ini

Seiring bergulirnya waktu, kini Tusfiles.net telah berganti theme/ tema/ template/ bungkus/ tampilan. TusFiles yang kita kenal adalah tempat berbagi file gratis yang sudah populer di kalangan pengunduh di seluruh dunia, salah satu yang terbesarnya adalah dari Indonesia.

Banyak juga yang kebingunan untuk mengunduh ketika mereka dihadapkan dengan tampilan baru TusFiles V3. Tapi bila anda selalu paham dan cermat dalam hal membaca trik jebakan iklan, hal kebingungan itu harusnya tidak terjadi.

Beberapa yang masih tetap ada dan mungkin akan selalu ada pada TusFiles adalah ceklis untuk menginstall Downloader, tombol sesungguhnya masih menggunakan bentuk yang kecil, iklan pop-up yang pastinya sudah siap muncul ketika kita menyentuh link di sana.

 Cara download di blog ini caranya sebagai beriku ini: setelah anda melakukan klik download maka akan muccul jendela baru kemudian tungggu lah 5 detik maka akan muncul tulisan Ads Skip pada pojok kanan atas klik lah tulisan tersebut maka akan di arahkan ke situs tusfiles berikut cara download source codenya dari situs tusfiles:

1. Asumsikan anda sudah masuk di halaman unduh file yang anda maksud, misal dengan url tusfiles.net/abc123kfj

2. Langkah yang pertama yang harus anda lakukan adalah menghilangkan ceklis atau centang di bagian bawah halaman yang bertuliskan "Use our download manager.."

Tusfiles New

3. Tombol Download sesungguhnya seperti biasa, bukanlah yang besar maupun yang menonjol. Link unduh sebenarnya adalah yang bertuliskan nama file yang akan anda unduh seperti gambar no 2 di atas.

Selamat mencoba dan semoga bermanfaat.

Enkripsi Tabel Ms Access Menggunakan Visual Basic

Enkripsi Tabel Ms Access Menggunakan Visual Basic

Enkripsi Tabel Ms Access Menggunakan Visual Basic.  Pasti anda pernah membuat sebuah aplikasi dengan menggunakan database MS Access, apakah tabel untuk akses ke aplikasi tersebut sudah di enkripsi ? supaya tidak sembarangan orang mengetahui user name dan password untuk login ke aplikasi tersebut. Tapi kebanyakan aplikasi yang dibuat tabelnya tidak di enkripsi, jika seseorang tidak bisa login ke aplikasi tersebut dapat dengan mudah membuka databasenya dengan cara membuka tabel untuk login, di situ dapat menemukan user dan passwordnya. Dan aplikasi yang kita buat dapat dengan mudah di buka oleh sembarang orang. Pada postingan sebelumnya saya pernah membahas cara menggunakan enkripsi MD5 pada database MySQL.

Dalam postingan ini akan membahas cara enkripsi tabel ms access sehingga tidak dengan mudah aplikasi kita dibobol. Dengan cara menambakan beberapa karakter setiap karakter yang kita inputkan ke dalam textbox. pada tutorial Enkripsi Tabel Ms Access Menggunakan Visual Basic ini saya akan memberi contoh pada penggunaan input data user yang meliputi input user name dan password, kita akan mengenkripsi kedua field tersebut. Berikut langkah-langkahnya:

Pertama buatlah sebuah database dari ms access silahkan beri nama test.mdb atau yang lain sesuai selera kemudian buatlah sebuah tabel dengan nama pengguna dengan dua field yaitu nama dan pass.seperti gambar berikut ini.

Tampilkan Gambar

Kedua bukalah visual basic 6 dan desainlah sebuah form siapkan 3 textbox dan dua commandbutton seperti form berikut ini

Tampilkan Gambar

Ketiga yaitu penulisan koding. Jika sudah selesai silahkan ketik koding seperti berikut ini jangan sampai ada yang salah ketik.

Buatlah sebuah modul dengan cara klik menu project- add modul lalu ketikan kode berikut ini

Public Conn As New ADODB.Connection
Public RsUser As ADODB.Recordset
Public sNama As String
Public sPassword As String

Public Sub Buka()
    Set Conn = New ADODB.Connection
    Set RsUser = New ADODB.Recordset
    Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb"
End Sub

Ketikan kode ini pada text1 sebagi inputan nama

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii <> 13 Then
        'untuk mengubah huruf kecil menjadi besar
        KeyAscii = Asc(UCase(Chr(KeyAscii)))
        'enkripsi dengan menambah karakter keyascii 29 karakter
        sNama = sNama & Chr(KeyAscii + 29)
    End If
End Sub

Lalu ketikan kode di bawah ini pada Text2

Private Sub Text2_KeyPress(KeyAscii As Integer)
    If KeyAscii <> 13 Then
        'untuk mengubah huruf kecil menjadi besar
        KeyAscii = Asc(UCase(Chr(KeyAscii)))
        'enkripsi dengan menambah karakter keyascii 45 karakter
        sPassword = sPassword & Chr(KeyAscii + 45)
    End If
End Sub

Kemudian tulislah kode ini pada commandbutton yang digunakan untuk menyimpan data

Private Sub Command1_Click()
    Call Buka
    If Text2.Text <> Text3.Text Then
        pesan = MsgBox("Pasword Tidak Sama, Ulangi Lagi...!", vbCritical, "Perhatian")
        Exit Sub
    Else
        Dim SQLAdd As String
        SQLAdd = " INSERT Into pengguna (nama,pass)values('" & sNama & "','" & sPassword & "')"
        Conn.Execute SQLAdd
        MsgBox "Penambahan User Baru Berhasil....", vbInformation, "Informasi..."
    End If
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
End Sub

Jika sudah silahkan dijalankan dan diisi datanya. jika berhasil maka tabelnya jika dibuka hasilnya seperti berikut ini. semoga bermanfaat

Tampilkan Gambar

Jika menginngnkan source codenya silahkan download link dibawah ini. dalam source code tersebut sudah ada form untuk login ke menu utama dengan menggunakan tabel yang telah dienkripsi.

Download

Tags:
Enkripsi, Enkripsi Tabel Ms Access Menggunakan Visual Basic,Enkripsi MD5,database,Pengamanan database,Password Login,enkripsi tabel,enkripsi database

5 Smartphone Apps That helps You Procrastinate Big Time

5 Smartphone Apps That helps You Procrastinate Big Time

Procrastination is the act of postponing what one needs to be doing at a present time to a later time usually needlessly. Will all are guilty of procrastination at one point in time and the emergence of smartphones makes this even easy to do so don t act like you are a saint. However, there are certain apps on our smartphones that makes us even more guilty and this apps are outlined below. 1. Candy Crush Saga Mehn, this game which is available for PC Android and iOS devices and can be very addictive; if you one isn t careful, getting hooked is a piece of cake. Imagine getting to the lobby of a big company and the receptionist seemed so busy on the computer, people even queuing up only to find the lady trying to get pass stage number 35 in candy crush game through Facebook. Someone might get hurt.
http://www.smart-andro.com/5-smartphone-apps-that-helps-you-procrastinate-big-time/

iH8sn0w Confirms Untethered iOS 7.1 Jailbreak

iH8sn0w Confirms Untethered iOS 7.1 Jailbreak

Just recently, @winocm tweeted that he was able to untethered jailbreak his iPhone 4 running Apple s newest iOS 7.1 firmware. In similar fashion, @iH8sn0w announced through hi tweeter account that his iPhone 4S running iOS 7.1 now has untethered jailbreak running on it. It was believed earlier that
http://www.smart-andro.com/ih8sn0w-confirms-untethered-ios-7-1-jailbreak/

Automatic Bra That Can Only Be Opened By True Love

Automatic Bra That Can Only Be Opened By True Love

Smartphone apps pop here and there all the time, some are terrible and some are good but some are very hilarious especially when you think of the concept and what it does.You would really laugh while reading this especially seeing the video of how it works here. Usually bra is just bra, with hooks for the females to clip to safely strap the bra to protect and hide their chest. But, this bra is different, its an automatic bra that doesn t electronic hook. The bra works by measuring the wearer’s heart rate, and sending the reading to an iPhone app. The app then determines the true-love quotient (100%) and – if it is reached – pops the clasp, freeing the breasts within. And of course, a raised heart rate is the perfect error-free metric for determining whether to unclasp a boulder holder. Let’s imagine some other situations. Running a marathon? Don’t run too hard, or your support will be magically ejected. Running from a suspicious man in an underground car-park, then fumbling
http://www.smart-andro.com/automatic-bra-that-can-only-be-opened-by-true-love/

Blackberry Vows To Prosecute Leakers of Its products

Blackberry Vows To Prosecute Leakers of Its products

New developments coming from the BlackBerry company, specifically from John Chen, CEO of BlackBerry is that there will be a strong crackdown on those personnel or individual that is responsible for leaking company s confidential information.
http://www.smart-andro.com/blackberry-vows-to-prosecute-leakers-of-its-products/

LG G3 akan gunakan layar setara monitor PC?

LG G3 akan gunakan layar setara monitor PC?

http://www.smart-andro.com/lg-g3-akan-gunakan-layar-setara-monitor-pc/

Cara Membuat Hyperlink Dengan Label

Cara Membuat Hyperlink Dengan Label

Cara Membuat Hyperlink Dengan Label. Bagaimanakah caranya membuat hyperlink dengan label..? Maksud dan tujuan membuat hyperlink tersebut adalah jika kita klik label hyperlink tersebut maka akan membuka sebuah web site atau blog yang telah di tentukan alamatnya. misalnya kita mau buka http://www.yahoo.com pada hyperlink tersebut.

Pada postingan sebelumnya saya pernah memposting sebuah komponen ocx yaitu HyperLabel.ocx dengan komponen tersebut kita dapat dengan mudah membuat Label Hyperlink tanpa menuliskan sebuah kode sedikitpun. Tapi pada kali ini saya akan membahas bagaimanakah caranya membuat hyperlink dengan label dengan cara manual yaitu dengan cara menuliskan kode-kode visual basic. Bagaimanakah caranya membuat hyperlink dengan label? Ikutilah langkah-langkahnya berikut ini semoga dapat bermanfaat.

Siapkan sebuah form kemudian taruhlah sebuah label di dalam form tersebut kemudian rubahlah caption label tersebut misalnya www.google.com atau sesuai dengan selera anda seperti gambar berikut ini.

Tampilkan Gambar

Jika sudah klik labelnya kemudian rubahlah properties MousePointer menjadi 99 - Custom. Kemudian pada properties MouseIcon kamu klik tombolnya kemudian carilah salah satu cursor yang anda inginkan.( Disini saya sudah menyiapkan beberapa cursor di dalam file source code yang bisa anda download )

Tampilkan Gambar

 

Jika sudah silahkan double klik formnya kemudian tulislah kode berikut ini pada bagian general

Const defaultcolor = &H800000
Dim adress As String Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ 
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Private Const SW_NORMAL = 1

Jika sudah silahkan double labelnya lalu tuliskan kode berikut ini:

Private Sub Label1_Click()
    ShellExecute 0, "open", adress, vbNullString, vbNullString, SW_NORMAL
End Sub

Kemudian pada bagian form load tuliskan kode berikut ini

Private Sub Form_Load()
    adress = Trim(Label1.Caption)
End Sub

Jika sudah silahkan di running dan dicoba hyperlinknya. Jika anda tidak ingin ribet membuatnya silahkan download source codenya di link di bawah ini.

Download Source Code

Keyword:
Cara Membuat Hyperlink Dengan Label,Hyperlink,Label Hyperlink,Membuat Hyperlink,Tips And Trik Hyperlink,Source Code Hyperlink

Contoh Penggunaan Progress Bar

Contoh Penggunaan Progress Bar

Contoh Penggunaan Progress Bar. Bagaimanakah menggunakan kontrol progress bar dalam visual basic ? Progress Bar ini dapat kita gunakan misalnya untuk proses loading aplikasi pada saat pertama kali kita buat, dan dapat membuat aplikasi yang dibuat tampak lebih profesional. Bagi yang belum bisa cara penggunaannya silahkan simak postingan saya ini dengan baik semoga dapat membantu dan bermanfaat.

Dalam postingan ini saya menggunakan kontrol bawaannya visual basic 6. Dengan cara klik menu Project pilih Component kemudian cari "Microsoft Windows Common Controls 6.0 (SP6)" jika tidak ada cari "Microsoft Windows Common Controls 5.0 (SP2)" kemudian centang lalu klik OK.

Tampilkan Gambar

Kemudian siapkan sebuah form lalu taruhlah komponen atau kontrol progress bar,timer,dan command button seperti gambar berikut ini.

Tampilkan Gambar

Jika sudah setting properties timernya pada bagian interval, silahkan kamu isi dengan angka 50 atau sesuai selera. semakin kecil nilainya semakin cepat pergerakan progress barnya.

Jika sudah double klik command button lalu isikan kode programnya seperti berikut ini

Private Sub Command_Click()
    ProgressBar1.Value = ProgressBar1.Min
    Timer1.Enabled = True
End Sub

Lalu double klik kontrol timernya kemudian tulis kode programnya seperti berikut ini.

Private Sub Timer1_Timer()
    ProgressBar1.Value = ProgressBar1.Value + 1
    If ProgressBar1.Value >= ProgressBar1.Max Then
        Timer1.Enabled = False
    End If
End Sub

kemudian Run. jika berhasil maka akan seperti gambar berikut ini.

Tampilkan Gambar

Demikian postingan dari saya semoga dapat bermanfaat. Jika mengingikankan source codenya dan tidak ingin ribet. silahkan download di link di bawah ini. saya sertakan dua contoh penggunaan progress bar

Download Source Code

Keyword:

Contoh Penggunaan Progress Bar,Progress Bar,Contoh Progress Bar, Source Code Penggunaan Progress Bar,Source code Progress Bar,Tips And Trik Progress Bar

Sapta.OCX For VB 6

Sapta.OCX For VB 6

Sapta.OCX adalah seperangakat ocx  yang terdiri dari 8 componen terdiri dari barner,button,frame,loading,progres,risize,textbox,editbox.
Yang semuanya itu bisa membuat desain tampilan aplikasi yang kita buat bertambah menarik dan kelihatan lebih profesional

Silahkan Download Sapta.OCX dilink berikut ini

Download Sapta OCX

Keywords:
free Sapta ocx vb6, free Sapta user control vb6, free download Sapta  ocx, custom  toolbox ocx, custom progressbar ocx, custom label ocx, custom textbox ocx, custom combobox ocx, custom control ocx, custom frame ocx,skin for vb6, active skin form, style for vb6, source code, download user control ocx vb6, vb6 style xp,vb6 style office, button xp,button office, custom controls, tutorial vb6, contoh program vb, free download aplikasi program vb, Sapta.ocx download

Download Visual Studio Cumulative Updater SP6

Download Visual Studio Cumulative Updater SP6

Sebelum instals Cumulative Updater SP6 ini silahkan update dulu Visual Studio 6 nya dengan Update Visual Studio 6 SP 6 terlebih dulu jika tidak maka untuk menginstalnya akan mengalami kegagalan alias tidak bisa diinstall karena membutuhkan Service Pack 6.

Instal updater Cumulative Service Pack 6 ini untuk lebih memutakhirkan lagi Visual Studio 6 Anda. Dengan mengintal updater ini, memugkinkan visual basic 6 anda bisa berjalan di windows vista dan windows7 secara mulus.

Silahkan download Visual Studio Cumulative Updater SP6 nya





Download VS Cumulative Updater SP6







Keyword:
error vb6 di windows7, cara mengatasi error vb6 di windows7, error vb6 di windows vista, file exe vb6 error di windows7, cara mengatasi error vb6 di windows7, vb6 updater download, vb6 service pack offline installer, download sp6 installer,Download Visual Studio Cumulative Updater SP6,Update VB 6 SP 6

Download Update VS 6 Service Pack 6

Download Update VS 6 Service Pack 6

 

Untuk Anda yang masih belum meng-update aplikasi visual studio 6 atau pun yang termasuk didalamnya, seperti VB6, VC++ 6, FoxPro 6, dll. Silahkan download updatetannya semoga dapat bermanfaat.

Silahkan Download File-Filenya berikut ini :

Download File 1

Download File 2

Download File 3

Setelah di download semua silahkan di install supaya aplikasi vb 6 nya  tidak sering terjadi error.


Keyword:
Download Update VB 6 Service Pack 6,Download Update Visual Studio 6 Service Pack 6,Download Update Visual Basic 6 Service Pack 6,update visual basic 6

da yang masih belum meng-update aplikasi visual studio 6 atapun yang termasuk didalamnya, seperti VB6, VC++ 6, FoxPro 6, dll. Sebenarnya apa/ada apa sih di VS6 SP6 ini? - See more at: http://oknoburogu.blogspot.com/2013/12/download-visual-studio-6-service-pack-6.html#sthash.939qYcUg.dpuf

Untuk Anda yang masih belum meng-update aplikasi visual studio 6 atapun yang termasuk didalamnya, seperti VB6, VC++ 6, FoxPro 6, dll. Sebenarnya apa/ada apa sih di VS6 SP6 ini? - See more at: http://oknoburogu.blogspot.com/2013/12/download-visual-studio-6-service-pack-6.html#sthash.939qYcUg.dpuf

Untuk Anda yang masih belum meng-update aplikasi visual studio 6 atapun yang termasuk didalamnya, seperti VB6, VC++ 6, FoxPro 6, dll. Sebenarnya apa/ada apa sih di VS6 SP6 ini? - See more at: http://oknoburogu.blogspot.com/2013/12/download-visual-studio-6-service-pack-6.html#sthash.939qYcUg.dpuf

Membuat Terbilang Di Crystal Report Bagian 2

Membuat Terbilang Di Crystal Report Bagian 2

Pada tutorial sebelumnya saya sudah pernah membuat terbilang di crystal report tapi menggunakan coding. untuk kali ini saya akan menggunakan file dll. Dalam hal ini kita tidak perlu menulis koding yang bikin kita pusing karena kita akan memanfaatkan file .dll yang tersedia yaitu ”CruflBil.dll” dan ”CruflFor.dll”. Teman-teman bisa dapatkan file-file tersebut disini. Trus apa yang harus kita lakukan dengan File-file tersebuat??

Sebelum saya jelaskan apa yang harus kita lakukan dengan file-file tersebut, saya akan menjelaskan Fungsi dari File-file tersebut : CruflBil.dll ? berfungsi untuk membuat terbilangnya angka sedangkan CruflFor.dll  berfungsi untuk memformat angka untuk menghilangkan koma terus hasil format tadi dipakai untuk terbilang.

Pertama-tama kita copy file dll tersebut ke C:\WINDOWS\system32 kemudian register. Dengan cara klik menu run pada start menu kemudian ketik seperti berikut ini :

regsvr32 c:\windows\system32\CruflBil.dll

regsvr32 c:\windows\system32\CruflFor.dll

untuk lebih jelasnya lihat gambar berikut ini

kemudian tekan ok.
Proses selanjutnya membuat terbilang di crystal report dengan mengunakan file dll tersebut. Untuk mengetahui caranya silahkan download file dll nya dan tutorialnya dilink berikut ini



Download Tutorial

Download DLL


Untuk tutorial ini saya menggunakan crystal report versi 8.5



Keyword:
Download Tutorial Cara Membuat Terbilang Di Crystal Report,Tutorial Cara Membuat Terbilang Di Crystal Report,Cara Membuat Terbilang Di Crystal Report,Download ”CruflBil.dll” dan ”CruflFor.dll”, Download DLL untuk terbilang di Crystal Report,DLL Terbilang

Membuat Menu Lebih Menarik Dengan Menu OCX

Membuat Menu Lebih Menarik Dengan Menu OCX

Dalam Visual Basic 6 tidak mudah membuat menu dengan disertai gambar icon. Dengan komponen menu.ocx kita akan dapat dengan mudah membuatnya seperti tampilan berikut ini.

Caranya sangat mudah silahkan download dulu komponennya kemudian register lah jika sudah tambahkan komponen ke dalam project. Lalu buatlah menu melalui menu editor vb 6 jika sudah tambahkan komponen menu.ocx seperti gambar berikut ini

Kemudian klik kanan komponennya pilih properties maka akan muncul jendela baru seperti gambar berikut ini

 kemudian pilih menu yang akan di kasih icon kemudian klik tombol new lalu pilih icon yang diinginkan lalu OK. caranya urut nomer seperti gambar di atas

DOWNLOAD

Keyword:

menu.ocx,membuat icon menu di vb 6,mempercantik menu di vb 6,download menu.ocx,triks membuat menu,tutorial membuat menu,komponen menu

HyperLabel.ocx - Membuat Label Hyperlink Di VB 6

HyperLabel.ocx - Membuat Label Hyperlink Di VB 6

Dengan komponen atau kontrol HyperlinkLabel.ocx ini kita dapat dengan mudah membuat tulisan atau label yang bisa Hyperlink. Label tersebut jika kita klik akan membuka browser dan menuju alamat web site yang telah ditentukan. Untuk mengatur alamat web cari pada properties-Link to. Pada bagian link to kamu isi alamat web sesuai dengan keinginan mu.

Gambar diatas merupakan salah satu contohnya menggunakan komponen Hyperlabel. Jika anda tertarik silahkan download komponennya.

Download

Keyword:
Membuat Label Hyperlink Di VB 6,HyperLabel.ocx,Membuat Hyperlink Dengan VB 6,Hyperlink Di VB 6,Komponen Untuk Membuat Hyperlink,Kontrol Hyperlink,ocx untuk membuat hyperlink

Membuka Atau Menampilkan File PDF Di VB 6

Membuka Atau Menampilkan File PDF Di VB 6

Bagaimanakah caranya menampilkan file PDF di form VB 6 ? Apakah anda sudah tahu caranya..? Penggunaan file PDF untuk dokumen sudah jadi standar sekarang. Apabila anda ingin menampilkan file PDF tersebut di form Visual Basic, terdapat beberapa cara yang dapat dilakukan.
Disini saya akan menggunakan cara yang paling mudah, yaitu penggunaan komponen WebBrowser dari ToolBox anda dan letakkan pada form project anda. Jangan lupa buat sebuah button dan isi dengan kode  untuk dialog membuka file PDF menggunakan CommonDialog.

Jika anda tertarik silahkan download tutorialnya beserta source codenya. semoga dapat bermanfaat.

Download Source Code

Download Tutorial

Keyword:

Menampilkan File PDF Di VB 6,Membuka File PDF Di VB 6,Membuka File PDF dari Visual Basic 6,Membuat Open PDF dengan VB,Mengakses File PDF dari VB6,Cara Membuka File Pdf Di VB6,Tutorial Menampilkan File PDF Di VB 6

Download Software Smart Indenter v3.5 FULL for VB6

Download Software Smart Indenter v3.5 FULL for VB6

Indent adalah format "menjorok" agar source code/coding mudah dibaca/difahami terutama untuk bagian yang banyak IF THEN ELSE nya, contoh :

if .. then
if...then
elseif..then
if..then
elseif.. then
select case ..
case...
case else
if..then
elseif..then
else
end if
end select
end if
end if
end if

Bingung kan bacanya ? dengan SmartIndenter itu akan mudah untuk memformatnya :

if .. then
    if...then
    elseif..then
        if..then
        elseif.. then
            select case ..
            case...
            case else
                if..then
                elseif..then
                else
                end if
            end select
        end if
    end if
end if

saya akan share add-in nya untuk VB6, kita bisa format per-sub/procedure, per-module dan bahkan per-project. 

Untuk di VBNET tidak perlu ada tambahan software untuk melakukan hal ini, VBNET sudah otomatis realtime Indenting Source Code.

 

 

 

 

 Download Smart Indenter v3.5 Full

 

 

 

Keyword:

download add on vb6 free, free code indenter for vb6,  cara format koding vb,merapikan coding vb6 dengan mudah, Smart Indenter v3.5 FULL for VB6,Download Software Smart Indenter v3.5 FULL for VB6,Download Smart Indenter v3.5 FULL for VB6,download add in vb6 free

 

Utility (MZ-Tools 3) Untuk VB 6

Utility (MZ-Tools 3) Untuk VB 6

MZ-Tools banyak sekali fungsi-nya dalam Visual Basic, seperti task list, visualisasi Tab Index jauh lebih representatif, membantu pembuatan blok Select Case, membantu pembuatan prosedur, membuat template code sehingga ketika kita ingin gunakan tinggal panggil aja, pembuatan error traping yang sangat customizing, dan masih buanyak lagi… pokoke mak nyusss dah…

Untuk menggunakan tool ini langkah yang perlu anda ambil adalah:

1. Download dulu, jangan kuatir gratis.
2. Jika sudah di download silahkan install sampai selesai.
3. Lalu buka Visual Basic 6 anda dan anda akan melihat toolbar baru di bagian atas IDE VB 6.0 anda.
4. Nah, sekarang VB 6.0 anda akan semakin powerful dengan alat ini (at least for me). 

 Ini adalah tampilan tool bar MZ-tools




Fungsi-fungsi MZ-Tools ini yang sering saya gunakan adalah:

TabIndex Assistant, dengan fungsi ini saya bisa mengurutkan urutan TabIndex dari semua control di satu form dengan sangat mudah. Ini keliatannya sepele tapi jika control anda dalam satu form banyak, ini akan sangat membantu.

 

Task List, dengan fungsi ini saya akan menuliskan ide-ide saya untuk program tersebut sehingga saya tidak akan pernah lupa dan kehilangan ide tersebut.

Template blok prosedur, dengan fungsi ini saya akan mempunyai keseragaman blok-blokt tertentu. Misalnya error handler, saya tinggal set aja sesuai keinginan saya dan semua akan seragam. Ini akan mempermudah error tracing kita nantinya.  Untuk menggunakan template ini, klik aja ikon Add Error Handler di MZ-tools toolbar.

 

Clear Immediate Window, Close All Windows, Collapse Project, ini terlihat sepele tapi akan sangat menghemat banyak klik mouse kita nanti.

 

Sebenarnya masih ada banyak fungsi lagi yang tidak bisa saya jelaskan disini, silahkan di coba-coba sendiri. Untuk anda yang belum mencobanya, silahkan mencobanya moga anda puas...

Keyword:

MZ-Tools 3,Add In Visual Basic 6, Alat Bantu Visual Basic 6,Utility Untuk Pemograman VB 6,Utility Untuk memudahkan pembuatan koding VB 6, Utility Untuk Visual Basic 6

Trik Agar Halaman Code Editor Di VB 6 Bisa Di Scroll

Trik Agar Halaman Code Editor Di VB 6 Bisa Di Scroll

Bagi para pengguna Visual Basic 6.0 tentunya sudah tahu bahwa pada halaman codingnya tidak dapat di scroll. Dengan sedikit trik yang semula tidak bisa di scroll menjadi bisa. Bagaimana caranya..? Silahkan download komponennya terlebih dulu di link di bawah ini.

DOWNLOAD

Jika sudah silahkan install komponennya,cara installnya ada di dalamnya. Jika sudah di install buka visual basic 6 kemudian klik menu Add Ins pilih Add-In Manager seperti gambar berikut ini

Maka akan muncul jendela baru seperti gambar berikut ini

 

Pilih atau klik MouseWheel Fix kemudian beri tanda cek list pada Loaded/Unloaded dan Load on Startup seperti yang nampak pada gambar di atas. kemudian klik ok selesai. Nah sekarang halaman code editor  visual basic 6 sudah bisa di scroll.

Keyword:
Trik Agar Halaman Code Editor Di VB 6 Bisa Di Scroll, tutorial Agar Halaman Code Editor Di VB 6 Bisa Di Scroll,Cara Agar Halaman Code Editor Di VB 6 Bisa Di Scroll,Halaman Code Editor Di VB 6 Bisa Di Scroll