Launcher adalah aplikasi program terpisah yang akan dibuka pertama kali ketika kita ingin menjalankan aplikasi utama. Launcher dapat digunakan juga sebagai aplikasi navigasi untuk kebutuhan penginstallan maupun menjalankan beberapa aplikasi dalam bentuk menu - menu aplikasi.

Aplikasi launcher bisa Anda lihat dari beberapa aplikasi pembuka pada pos artikel sebelumnya. Salah satu contohnya adalah sebagai berikut, klik gambar untuk memperbesar:

Cara membuatnya cukup mudah... buka dapur nih :P

Jika Anda familiar dengan program Visual Basic 6.0 .

Buka from  baru dalam program VB Anda, pada menu editor bikin menu Enter.

Isi kode berikut:

Private Sub enter_Click()
On Error GoTo gagal:
nama_file = "EDIT ISI NAMA FILE DISINI"
file = App.Path + "\Sistem\" + nama_file + ".mdb"
buka = "C:\Program Files\Microsoft Office\OFFICE12\MSACCESS.EXE /runtime" & """" & file & """"
Shell buka, vbMaximizedFocus
Exit Sub
gagal:
MsgBox "File tidak ada", , "Pesan"
End Sub

Aplikasi ini bisa Anda bisa difungsikan untuk menyembunyikan aplikasi Access Anda.

Pada variabel file, isikan path lengkap aplikasi Anda di folder yang Anda sembunyikan di suatu tempat nun jauh disana.

Kemudian, Anda hidden folder tersebut. Dan kalau perlu, Anda bisa setting registry agar folder hidden tersebut tidak bisa di unhide.

Lalu, lock akses registry, biar bikin repot operator yang ingin iseng mengutak-atik aplikasi kita. :D

Bila Anda menyukai ini, share ke yang lain, klik disini :

Aplikasi Akuntansi adalah aplikasi pencatatan akuntansi sederhana yang saya bangun menggunakan VB, VBA, Access dan Database MySQL (Xampp Server) .

Aplikasi ini dirancang sangat mudah digunakan diperuntukkan bagi para UKM yang ingin memanage keuangannya agar dapat diketahui berapa besar Kas, Hutang / Piutang, Persediaan, Pendapatan, Biaya, Pembelian dan Penjualan,  Laba / Rugi, dll saat itu juga. Sehingga, dapat menyajikan laporan keuangan dengan cepat, akurat pada pihak - pihak yang membutuhkan.

Fitur aplikasi:

• Master Akun
• Master Jurnal
• Transaksi Akuntansi
• Browse Transaksi Akuntansi
• Laporan Transaksi Harian
• Laporan Neraca Saldo
• Laporan Neraca
• Laporan Rugi/Laba
• Laporan Transaksi Harian Per Akun
• Laporan Transaksi Harian Per Jurnal
• Neraca Konsolidasi
• Multi Transaksi
• Backup Database
• Unlimeted Data
• dll.

Bila Anda menyukai ini, share ke yang lain, klik disini :

Aplikasi Point Of Sale (POS) adalah aplikasi berbasis Access yang saya bangun untuk mencatat semua transaksi pembelian dan penjualan barang. Aplikasi ini bisa digunakan penjualan barang di tingkat distributor maupun supermarket.

Fitur aplikasi:

• Master Barang
• Master Pelanggan
• Master Supplier
• Transaksi Pembelian (Include retur pembelian)
• Transaksi Penjualan (Include retur penjualan)
• Browse Transaksi Pembelian
• Browse Transaksi Penjualan
• Cetak Struk Printer Dot Matrik
• Laporan Transaksi Harian / Per Periode (Include Rugi/Laba)
• Laporan Transaksi Per Supplier (Include Rugi/Laba)
• Laporan Transaksi Per Item
• Laporan Sisa Pembayaran / Hutang
• Laporan Stok Barang
• Backup Database
• Unlimeted Data
• dll. 

Aplikasi dibangun menggunakan pemprograman VB, VBA, Access dan Database MySQL (Xampp Server)

Tampilan aplikasi ( klik gambar memperbesar tampilan ):



Bila Anda menyukai ini, share ke yang lain, klik disini :

• Master Data Lapangan
• Master Barang Kantin
• Master Pelanggan
• Transaksi Penyewaan Lapangan
• Transaksi Pembelian Kantin (Include retur pembelian)
• Transaksi Penjualan Kantin (Include retur penjualan)
• Browse Transaksi Persewaan
• Browse Transaksi Pembelian Kantin
• Browse Transaksi Penjualan Kantin
• Cetak Struk Printer Dot Matrik
• Laporan Transaksi Persewaan Lapangan
• Laporan Transaksi Harian Kantin / Per Periode (Include Rugi/Laba)
• Laporan Transaksi Kantin Per Supplier (Include Rugi/Laba)
• Laporan Transaksi Kantin Per Item
• Laporan Stok Kantin
• Backup Database
• Unlimeted Data
• dll. 

Bila Anda menyukai ini, share ke yang lain, klik disini :

Backup aplikasi adalah kegiatan wajib kita lakukan bilamana ingin memperbaiki aplikasi kita. Ketika terjadi error atau ada kerusakan aplikasi, bisa kita restore kembali.

Menggunakan kode ini, Anda bisa melakukan backup aplikasi otomatis melalui sistem Anda dengan sekali klik.

Buat form baru dengan nama Back Up. Kemudian tambahkan tombol dengan nama BackupApp.




Tambahkan juga dua TextBox dengan nama [FromPath] dan [ToFolder]

Buat Folder dengan nama BackupDB di satu root dengan aplikasi utama.

Pada tombol BackupApp event On Click, ketik copy paste procedure ini:


Private Sub BackupApp_Click()

    Dim FSO As Object
    Dim FromPath As String
    Dim ToPath As String

    FromPath = [FromPath]
    ToPath = [ToFolder] & "\BackupDB_" & Day(Now) & Month(Now) & Year(Now) & Hour(Now) & Minute(Now) & Second(Now)  

    Set FSO = CreateObject("scripting.filesystemobject")

    If FSO.FolderExists(FromPath) = False Then
        MsgBox FromPath & " doesn't exist"
        Exit Sub
    End If

    FSO.CopyFolder Source:=FromPath, Destination:=ToPath
    MsgBox "Direktori file backup database: " & ToPath, , "Backup Database Sukses !"

End Sub


Menjalankan aplikasi :

Isi path lengkap aplikasi Anda di TextBox: [FromPath]
Isi path lengkap folder tujuan backup aplikasi Anda di TextBox: [FromPath]

Klik tombol BackupApp, dan liat hasilnya.

Dengan cara yang sama, kode ini juga dapat digunakan untuk membackup Database Anda.

Bila Anda menyukai ini, share ke yang lain, klik disini :

Kode VBA ini digunakan jika Anda menginginkan aplikasi dikunci dengan mematikan tombol Shitft pada start up, agar aplikasi Access Anda tidak mudah dan dimodifikasi oleh user lain.








Berikut potongan kode :

 On Error Resume Next
    'This ensures the user is the programmer needing to disable the Bypass Key
    Dim strInput As String
    Dim strMsg As String
    Beep
    strMsg = "Do you want to enable the Bypass Key?" & vbCrLf & vbLf & _
             "Please key the programmer's password to enable the Bypass Key."
    strInput = InputBox(Prompt:=strMsg, title:="Disable Bypass Key Password")
    If strInput = "12345" Then
        SetProperties "AllowBypassKey", dbBoolean, True
        Beep
        MsgBox "The Bypass Key has been enabled.", _
               vbInformation, "Set Startup Properties"
    Else
        Beep
        SetProperties "AllowBypassKey", dbBoolean, False
        MsgBox "Incorrect ''AllowBypassKey'' Password!", _
               vbCritical, "Invalid Password"
        Exit Sub
    End If

Buat object button, paste kode tersebut pada event On Click .

Bila Anda menyukai ini, share ke yang lain, klik disini :

Fungsi ini digunakan untuk menyembunyikan tombol Ribbon pada MS Access 2007 ke atas. Seperti kita ketahui pada versi ini tampilan menu Access terlihat adanya menu khas berupa tombol Ribbon yang mungkin  sebagian pengguna Access akan merasa tidak nyaman dengan keberadaan tombol ini.



Berikut kode VBA cara menyembunyikan tombol Ribbon:

Public Function TRibbon(LShow As String)
If LShow = "Yes" Then
DoCmd.ShowToolbar "Ribbon", acToolbarYes
Else
DoCmd.ShowToolbar "Ribbon", acToolbarNo
End If
End Function

Cara penggunaan :

Ketik kode VBA seperti ini, pada form utama aplikasi Anda. Bisa dimasukkan pada event On Load :

Call TRibbon("No")

Untuk menampilkan kembali, ketik :

Call TRibbon("Yes")

Bila Anda menyukai ini, share ke yang lain, klik disini :

Jika Anda ingin menyembunyikan semua objek dalam program Microsoft Access, agar tidak mudah di import semua objek - objek melalui file Access lain demi keamanan program Access Anda.









Berikut kode vba hidden objek bisa Anda tambahkan :

Sub HideQueries(Optional bHide As Boolean = True)
On Error Resume Next
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
For Each obj In dbs.AllQueries
    Application.SetHiddenAttribute acQuery, obj.Name, bHide
Next obj
End Sub

Sub HideForms(Optional bHide As Boolean = True)
On Error Resume Next
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllForms
    Application.SetHiddenAttribute acForm, obj.Name, bHide
Next obj
End Sub

Sub HideReports(Optional bHide As Boolean = True)
On Error Resume Next
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllReports
    Application.SetHiddenAttribute acReport, obj.Name, bHide
Next obj
End Sub

Sub HideMacros(Optional bHide As Boolean = True)
On Error Resume Next
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllMacros
    Application.SetHiddenAttribute acMacro, obj.Name, bHide
Next obj
End Sub

Sub HideModules(Optional bHide As Boolean = True)
On Error Resume Next
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllModules
    Application.SetHiddenAttribute acModule, obj.Name, bHide
Next obj
End Sub

Sub HideTables(Optional bHide As Boolean = True)
On Error Resume Next
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
For Each obj In dbs.AllTables
    Application.SetHiddenAttribute acTables, obj.Name, bHide
Next obj
End Sub

Buat form kosong, tambakan objek button dengan nama Sembunyi.
Pada event On Click isi kode vba :

Private Sub Sembunyi_Click()
On Error Resume Next
HideForms (False)
HideQueries (False)
HideReports (False)
HideMacros (False)
HideModules (False)
HideTables (False)
End Sub

Tambahkan objek button lain dengan nama Tampil.
Pada event On Click isi kode vba :

Private Sub Tampil_Click()
On Error Resume Next
HideForms (True)
HideQueries (True)
HideReports (True)
HideMacros (True)
HideModules (True)
HideTables (True)
End Sub

Jalankan form dan klik tombol - tombol tersebut, lihat hasilnya.

Bila Anda menyukai ini, share ke yang lain, klik disini :

Bagi Anda seorang pekerja / developer software yang memiliki client yang sangat jauh di luar kota, pulau, ataupun di negara lain aplikasi ini mungkin bisa Anda perlukan. Dapat mengefisienkan biaya transportasi, dan kita tidak perlu jauh-jauh datang ke tempat client bilamana ingin melakukan maintainance, atau revisi aplikasi kita.

TeamViewer, software ini bisa Anda dapatkan gratis di www.teamviewer.com.

Saya sudah mencoba aplikasi ini dan berjalan cukup baik. Memperbaiki aplikasi di client saya yang tinggal di kota Banjarmasin yang saya kerjakan secara remote cukup di tempat saya tinggal yaitu di kota Malang.

Berikut adalah tampilan software:



Bila Anda menyukai ini, share ke yang lain, klik disini :

Bagi Anda yang baru mendengar apa itu Low Of Attraction saya akan menjelaskan sedikit. Low Of Attraction (LOA) adalah sebuah hukum alam yang terkait dengan dengan kekuatan pikiran.

Apa yang kita visualisasikan dalam pikiran kita alam semesta dapat menariknya ke dalam kehidupan kita.

Apa yang Anda pikirkan dan visualisasi dengan sedetail - detailnya sesuatu, suatu saat akan bener - bener datang dan terjadi dalam kehidupan Anda.

Sebelum saya mengerti tentang konsep LOA sesuatu yang saya pikirkan dan bayangkan sering terjadi pada saya baik pikiran positif dan negatif.

Sebagai contoh sebelum lebaran kemaren ( maaf baru sempat nulis ) saya ingin membeli sepatu kerja baru. Tapi sayangnya, susah sekali sepatu yang sesuai dengan ukuran saya dan modelnya juga sesuai minat saya.

Dari dulu yang namanya beli sepatu, satu hal yang paling malas adalah 'hunting'.

Dua hari berturut-turut saya berkunjung ke toko sepatu keluar masuk mencoba sepatu satu persatu sepatu yang cocok. Ada yang cocok tapi stok dengan ukuran saya tidak ada. Saya hampir putus asa, belum lagi beberapa hari lagi mau lebaran. Dan sepatu itu mau saya pakai pada saat lebaran.

Sempat berpikir, kemana lagi harus saya cari. Masak harus ke Surabaya. Itu kota pasti banyak sekali pilihan model dan ukuran yang sesuai.

Saya teringat dengan LOA. Kenapa saya tidak mencobanya dan kita gabungkan dengan doa? Pagi - pagi setelah sholat shubuh selesai berdoa saya mencoba menvisualisasikan dalam pikiran bahwa saya telah sukses mendapatkan sepatu yang saya inginkan hari ini.

Saya terus fokus membayangkan saya telah mendapatkan sepatu yang pas dan nyaman sambil terus mengafirmasi ke dalam pikiran saya kalimat - kalimat kesuksesan mendapatkan sepatu tersebut.

Kemudian, siangnya saya teringat ada satu mall yang belum saya kunjungi. Dalam perjalanan kesana, saya terus membayangkan saya sudah mendapatkan sepatu tersebut.

Dan akhirnya terwujud juga saya mendapatkan sepatu di salah satu toko sepatu dalam mall tersebut. Saya mendapatkan sepatu kerja yang pas dan nyaman sesuai keinginan saya walaupun agak mahal sedikit tapi saya bener-bener puas. Ukuran sepatu sepatu sebesar kaki saya cukup banyak disana. Alhamdulillah.

Setelah saya sampai rumah pun saya terus memandangi sepatu ini. Kudapatkan dikau hari ini :D
Itu adalah sedikit kisah dari beberapa kisah terwujudnya kombinasi DOA + LOA. Pengalaman lainnya akan saya share bilamana ada kesempatan nulis.

Powered by Telkomsel BlackBerry®

Bila Anda menyukai ini, share ke yang lain, klik disini :