Coding4ever’s Blog

Just coding… coding… and coding… because coding should be fun :)

Membuat Paket Instalasi Vb + Mysql Dengan Inno Setup

| Comments

Membuat paket instalasi yang mudah untuk aplikasi yang akan kita distribusikan memang gampang-gampang susah, gampang bagi kita untuk membuatnya hanya dengan menggunakan Package & Deployment Wizard.

Package & Deployment Wizard merupakan tool installer bawaan yang sudah disediakan oleh visual basic, tetapi apakah hasilnya akan cukup memudahkan bagi klien apalagi jika aplikasi yang kita buat menggunakan database yang membutuhkan konfigurasi atau setting-setting yang lumayan banyak pada saat instalasi, seperti MySQL atau Firebird (Maaf ya Ms Access enggak termasuk :D).

Membuat Laporan Dalam Format Ms Excel

| Comments

Ada banyak cara untuk membuat laporan di visual basic, tiga diantaranya : 1. Data Report 2. Active Report 3. Crystal Report

Alternatif lain adalah dengan memanfaatkan program Ms Excel, untuk contoh disini saya akan menampilkan data siswa (no, nis, nama, nilai). Untuk menyederhanakan program saya akan menyimpan datanya di variabel array.

Menyimpan Dan Menampilkan Foto Di Ms Access

| Comments

Disini saya tidak akan menjelaskan bagaimana melakukan koneksi ke database access, intinya aplikasi Anda sudah siap menjalankan perintah SELECT, INSERT, UPDATE, dan DELETE. Jika Anda masih kesulitan bisa dilihat disini.

Untuk kasus disini kita akan menyimpan data mahasiswa dengan tiga field saja, lihat gambar berikut :

Khusus untuk field foto tipe yang dipilih adalah OLE Object, kita langsung aja copy paste kode berikut di module :

Membuat Fungsi Koneksi Untuk Beberapa Database (Firebird, MySQL, Ms SQL Server Dan Ms Access)

| Comments

1. Tambahkan sebuah modul dan copy paste kode berikut :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Public conn As ADODB.Connection

Public Enum TIPE_DATABASE
   FIREBIRD = 1
   MYSQL = 2
   SQLSERVER = 3
   MSACCESS = 4
End Enum

Public Function connToDB(ByVal tipeDb As TIPE_DATABASE, Optional ByVal serverName As String = "", _
   Optional ByVal userName As String = "", Optional ByVal userPass As String = "", _
   Optional ByVal dbPath As String = "", Optional ByVal dbName As String = "") As Boolean

   Dim strCon As String

   On Error GoTo errHandle

   Select Case tipeDb
      Case FIREBIRD
         strCon = "DRIVER=Firebird/Interbase(r) Driver;UID=" & userName & ";PWD=" & userPass & ";" & _
         "DBNAME=" & serverName & ":" & dbPath & "\" & dbName & ""

      Case MYSQL
         strCon = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & serverName & ";DATABASE=" & dbName & ";" & _
         "UID=" & userName & ";PWD=" & userPass & ";OPTION=3"

      Case SQLSERVER
         strCon = "Provider=SQLOLEDB.1;User ID=" & userName & ";Pwd=" & userPass & ";" & _
         "Initial Catalog=" & dbName & ";Data Source=" & serverName & ""

      Case MSACCESS
        If Len(userPass) > 0 Then
           strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & dbPath & "\" & dbName & ";" & _
           "Jet OLEDB:Database Password=" & userPass & ""
        Else
           strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & dbPath & "\" & dbName & ""
        End If
   End Select

   Set conn = New ADODB.Connection
   conn.ConnectionString = strCon
   conn.Open

   connToDB = True

   Exit Function
errHandle:
   connToDB = False
End Function

2. Pada form tambahkan sebuah objek command dan set properties Name = cmdTesKoneksi

copy paste kode berikut :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub cmdTesKoneksi_Click()
   Dim result  As Boolean

   'Firebird
   result = connToDB(FIREBIRD, "127.0.0.1", "SYSDBA", "masterkey", "d:\data", "db_akademik.fdb")
   Debug.Print result

   'MySQL
   result = connToDB(MYSQL, "127.0.0.1", "root", "masterkey", , "db_akademik")
   Debug.Print result

   'SQL Server 2000
   result = connToDB(SQLSERVER, "127.0.0.1", "sa", "masterkey", , "db_akademik")
   Debug.Print result

   'Ms Access - tanpa password
   result = connToDB(MSACCESS, , , , "d:\data", "db_akademik.mdb")
   Debug.Print result

   'Ms Access - menggunakan password
   result = connToDB(MSACCESS, , , "masterkey", "d:\data", "db_akademik.mdb")
   Debug.Print result
End Sub

Untuk nilai semua parameter fungsi connToDB disesuaikan dengan kondisi komputer Anda. Selamat mencoba :)

Membuat Paket Instalasi Update Program Menggunakan Inno Setup

| Comments

Masalah update program adalah masalah klasik untuk para programmer aplikasi desktop, bagaimana tidak biasanya kita selalu disibukan dengan masalah yang satu ini. Update… update… dan update … :D apalagi dengan jumlah klien yang banyak wahhhh cape deh.

Sebenarnya proses update sendiri pada dasarnya adalah masalah sederhana “tinggal copy program yang baru untuk menimpa program yang lama”. Permasalahan biasanya muncul jika yang harus melakukan update adalah klien kita yang benar5 END USER :D. Ya mungking cuma bisa ngetik di word atau mantan operator dos yang baru pindah ke windows de el el.

Membuat Paket Instalasi Update Program Menggunakan NSIS

| Comments

Masalah update program adalah masalah klasik untuk para programmer aplikasi desktop, bagaimana tidak biasanya kita selalu disibukan dengan masalah yang satu ini. Update… update… dan update … :D apalagi dengan jumlah klien yang banyak wahhhh cape deh.

Sebenarnya proses update sendiri pada dasarnya adalah masalah sederhana “tinggal copy program yang baru untuk menimpa program yang lama”. Permasalahan biasanya muncul jika yang harus melakukan update adalah klien kita yang benar5 END USER :D. Ya mungking cuma bisa ngetik di word atau mantan operator dos yang baru pindah ke windows de el el.

Sehingga dengan adanya program update yang baik “User nyaman kita pun tenang” :D.

Daftar Fungsi Rahasia Dan Penggunaannya

| Comments

Sengaja judulnya saya buat heboh :D padahal sih cuma fungsi biasa yang sering saya gunakan dalam pengembangan aplikasi.

1. Mendapatkan nama bulan dalam bahasa indonesia

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Function getBulanIndonesia(ByVal bulan As Integer) As String
   Select Case bulan
      Case 1: getBulanIndonesia = "Januari"
      Case 2: getBulanIndonesia = "Februari"
      Case 3: getBulanIndonesia = "Maret"
      Case 4: getBulanIndonesia = "April"
      Case 5: getBulanIndonesia = "Mei"
      Case 6: getBulanIndonesia = "Juni"
      Case 7: getBulanIndonesia = "Juli"
      Case 8: getBulanIndonesia = "Agustus"
      Case 9: getBulanIndonesia = "September"
      Case 10: getBulanIndonesia = "Oktober"
      Case 11: getBulanIndonesia = "November"
      Case 12: getBulanIndonesia = "Desember"
   End Select
End Function

Contoh :

1
Debug.Print getBulanIndonesia(Month(Now))

Mengganti Posisi Tombol Default Fungsi MsgBox

| Comments

Lihat kode berikut :

1
2
3
Private Sub cmdKeluar_Click()
   If MsgBox("Apakah Anda ingin keluar ???", vbExclamation + vbYesNo, "Konfirmasi") = vbYes Then End
End Sub

dan lihat hasilnya

dan bagaimana jika ingin hasilnya seperti ini :

gampang tinggal rubah kodenya menjadi seperti ini

1
2
3
Private Sub cmdKeluar_Click()
   If MsgBox("Apakah Anda ingin keluar ???", vbExclamation + vbYesNo + vbDefaultButton2, "Konfirmasi") = vbYes Then End
End Sub

Selamat mencoba :)

First Step

| Comments

Sapa dunia dengan Java

class=”java”
1
2
3
4
5
public class HelloWorld {
   public static void main(String[] args) {
      System.out.println("Hello world!");
   }
}

Atau Anda juga bisa menyapanya dengan VB

1
2
3
Public Sub Main()
   MsgBox "Hello world!"
End Sub