Packing Setup Vb6 Dengan Inno Setup

Packing setup (Paket Instalasi) yaitu membuat file setup pada program yang telah selesai dibuat dan akan di implementasikan ke pengguna, packing setup bertujuan untuk mempermudah pengguna dalam menggunakan program yang telah kita buat hanya dengan meng-klik 2x SETUP.EXE. bagi para programmer packing setup tidak terlalu dibutuhkan karena programmer hanya membutuhkan source code program untuk di modifikasi, di perbaiki, di tambah, di edit, dan maintenance. 

Mungkin ada teman-teman yang belum paham tentang packing setup, dan bertanya-tanya "Bagaimana caranya membuat file instalasi/setup untuk aplikasi program yang telah dibuat dengan Visual Basic". Melalui postingan ini saya akan memberikan sedikit informasi dan pengalaman saya tentang packing setup vb6 semoga saja berguna dan bisa dibuat referensi untuk teman-teman semua. 

Sebelum melakukan packing setup, pastikan dahulu program yang telah teman-teman buat apakah ada error? apabila tidak ada yang error pastikan apakah program sudah dijadikan exe (make namaprogramnya.exe) lihat Membuat EXE VB 6.0. 

Catatan: 

Ketika ingin menjadikan setup melalui inno, maka jadikan setup lewat pwd (Package & Deployment Wizard) terlebih dahulu dan setelah selesai copi file yang berektensi *.dll dan *.ocx kumpulkan jadi satu pada folder yang sama dan melakukan packing setup di inno, instalasi di inno sedikit modifikasi dengan script yang mendaftarkan library ke windows. 

Untuk lebih jelasnya silahkan teman-teman simak artikel dibawah ini :

1. Packing Setup dengan pwd (Package & Deployment Wizard)
Klik Start + Programs + Microsoft Visual Studio 6 + Microsoft Visual Studio 6 Tools + Package & Deployment Wizard.


Tampilan jendela Package and Deployment Wizard seperti pada gamar dibawah ini, klik tombol Browse untuk memilih project yang sudah dibuat. Setelah itu klik tombol Package.



Kemudian akan tampil jendela Package Type, pilih Standard Setup Package untuk membuat setup.exe dan klik next.






Pilih lokasi folder sebagai tempat penyimpanan file setup.exe (sebaiknya buat dahulu folder kusus untuk penyimpanan hasil packing tujuannya agar file hasil packing tidak tercampur dengan file lain)


Selanjutnya klik tombol Add untuk memilih file-file, database, data-data lain yang akan dijadikan satu paket. Setelah selesai menambahkan klik tombol Next dan Next.




Tuliskan Judul Instalasi dan klik Next.





Ketikan nama program di kolom Script Name, dan klik Finish.





2. Copi file library ber-extensi *.dll dan *.ocx, kumpulkan jadi satu simpan di folder tertentu




3. Packing Setup dengan Inno Setup
Sebelumnya komputer harus sudah ter-instal Inno Setup terlebih dahulu, kalau teman-teman belum mempunyai Inno Setup silahkan cari di simbah google ya,,,,,. Apabila sudah ter-instals Inno Setup silahkan buka dengan klik Start + Programs + Inno Setup + Inno Setup Compiler. Pilih Create a new script file using the Script Wizard dan klik tombol OK.



Selanjutnya klik tombol Next.



Pada textbox Application name, ketikkan nama aplikasi yang telah dibuat.
Pada textbox Application versio, ketikkan versi aplikasi yang keberapa.
Pada textbox Application publisher, ketikkan nama publisher.
Pada textbox Application website, ketikkan nama website atau blog teman-teman.
Klik tombol Next untuk melanjutkan.



Pilih Program Files Folder pada pilihan select Application dstination base folder.
Tuliskan Nama Foler Aplikasi pada textbox Application folder name.
Dan centang Allow user to change the application folder.
Kemudian klik tombol Next.



Selanjutnya Browse file make exe (program yang telah dijadikan exe lihat Membuat EXE VB 6.0).
Untuk menambahkan file-file penting lainnya klik tombol Add file(s)...
Apabila sudah selesai menambahkan file klik tombol Next untuk melajutkan ke step berikutnya.


Ketikkan nama folder (sesuaikan dengan nama aplikasi yang teman-teman buat) pada kotak textbox Application Start Menu folder name.
Centang pilihan-pilihan sesuai kebutuhan.
Klik tombol Next untuk melanjutkan.



Browse License file, apabila belum ada buatlah terlebih dahulu di notepad.
Browse Information file shown before installation, apabila belum ada buatlah terlebih dahulu di notepad.
Browse Information file shown after installation, apabila belum ada buatlah terlebih dahulu di notepad.
Selanjutkan klik tombol Next.



Pilih Languages dan centang, utuk memilih semua bahasa klik tombol Select all dan untuk menghilangkan semua pilihan klik tombol Deselect all.
Klik tombol Next untuk melanjutkan.



Browse Custom compiler output folder, apabila belum ada buatlah terlebih dahulu di notepad.
Tuliskan nama pada textbox Compiler output base file name.
Browse Custom setup icon file, apabila belum ada buatlah terlebih dahulu di notepad.
Ketikkan password pada textbox Setup password, apabila tidak mau mengasih password maka kosongi saja.
Klik tombol Next + Next dan Finish.





Klik tombol Yes pada kotak dialog Inno Setup Compiler.



Klik tombol Yes untuk menyimpan script Inno setelah compile.



Pilih folder lokasi untuk penyimpanan script dan klik tombol Save.



Program sudah ter-compile, untuk meng-compile kembali klik pada tombol compile.



Untuk menambahkan librari yang telah kita copy tadi, tambahkan script sedikit di dalam script inno. (tanda ; pada script inno adalah komentar, script yang berada di sebeleh kanan setelah tanda ; tidak akan di proses oleh inno) Contoh :


[Files]
Source: "F:\PROGRAM\REPLAY.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "F:\PROGRAM\asycfilt.dll"; DestDir: "{sys}"; Flags: uninsneveruninstall onlyifdoesntexist
Source: "F:\PROGRAM\COMCAT.DLL"; DestDir: "{sys}"; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
;Source: "F:\PROGRAM\msador15.dll"; DestDir: "{sys}"; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: "F:\PROGRAM\MSCOMCT2.OCX"; DestDir: "{sys}"; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: "F:\PROGRAM\MSCOMCTL.OCX"; DestDir: "{sys}"; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: "F:\PROGRAM\MSFLXGRD.OCX"; DestDir: "{sys}"; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: "F:\PROGRAM\MSSTDFMT.DLL"; DestDir: "{sys}"; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: "F:\PROGRAM\msvbvm60.dll"; DestDir: "{sys}"; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: "F:\PROGRAM\oleaut32.dll"; DestDir: "{sys}"; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: "F:\PROGRAM\olepro32.dll"; DestDir: "{sys}"; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: "F:\PROGRAM\VB6STKIT.DLL"; DestDir: "{sys}"; Flags: uninsneveruninstall onlyifdoesntexist
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

Setelah selesai menambahkan script, Simpan script dengan menekan ctrl+s, dan tekan tombol Compile.

Selesai, untuk melihat hasil compile bukalah folder tempat penyimpanan hasil compile. SEMOGA BERHASIL.

Read more »

Keluar dari form menggunakan tombol esc

Buatlah form dan commandButton

Atur Properti commandButton
Cancel : True
Caption : &Keluar (esc)

Masukkan kode berikut pada commandButton

Private Sub Command3_Click()
Unload Me
End Sub

Read more »

Membuat EXE VB 6.0

Apabila kita akan menjalankan hasil dari project kita tanpa membuka lagi microsoft visual basic, kita bisa membuat file exe'nya.

Caranya ??? :

1. Buka projectnya
2. Pilih menu File + Make PROJECT.exe
   maka akan muncul kotak Make Project
   
3. Pilih Option untuk mengatur apa-apa yang dibutuhkan sesuai kehendak anda.
   contoh : mengganti gambar icon
   pilih Option + pilih list icon pada form + OK
   
   
   
   
   
4. Jadi deh file exe'nya.....

Read more »

Menggati ganti baris (enter) didalam string menjadi spasi

Untuk mengganti ganti baris atau enter didalam suatu string menjadi spasi, berikut adalah contoh kodenya :

Replace(rs.Fields(2), vbNewLine, " ", , , vbTextCompare)

Read more »

Menampilkan data dari list MSFlexGrid ke TextBox

Apabila kita membuat suatu aplikasi tentunya ada form untuk input data. contohnya form input data konsumen, apabila data konsumen sudah di masukkan di databse mysql dan akan di edit karena datanya salah maka kita membutuhkan kode untuk menampilkan data dari list MSFlexGrid ke kotak TextBox atau yang lainnya. Anda bisa melihat artikel sebelumnya klik disini.

Berikut adalah contoh kode menampilkan data list MSFlexGrid ke TextBox.

Private Sub TableCabdin_Click()
    Dim kdCabdin As String
    kdCabdin = Table.TextMatrix(Table.row, 1)
    rsClose rs
    rs.Open "select * from t_cabdin where kd_cabdin='" & kdCabdin & "'", cn, adOpenDynamic, adLockOptimistic
    
    If Not rs.EOF Then
        txtKodeCabDin.Text = rs.Fields(0)
        txtCabdin.Text = rs.Fields(1)
        cmdEdit.Enabled = True
        cmdHapus.Enabled = True
    Else
        txtKodeCabDin.Text = ""
        txtCabdin.Text = ""
    End If

Read more »

Menghapus List di MSFlexGrid

Untuk mengetahui penjelasan MSFlexGrid bisa dilihat di postingan kemarin silahkan klik disini.

Berikut adalah contoh kode untuk mengahapus data dari list MSFlexGrid.

Private Sub cmdHapusList_Click()
    TabelPenilaian.RemoveItem TabelPenilaian.row
    row = row - 1
End Sub

Read more »

Menambahkan Data di List MSFlexGrid tanpa Database

Pada artikel sebelumnya saya sudah menjelaskan bagaimana cara menampilkan data dari database MySQL ke MSFlexGrid, pada posting yang satu ini saya ingin menambahkan sedikit kode untuk menambahkan data di list MSFlexGrid tanpa database alias data dari hasil inputan textbox.

Kode di bawah ini adalah contoh menambahkan data di list MSFlexGrid, anda bisa mencobanya pada project anda yang tentunya sudah ada satu paket standart form yang didalamnya ada Label,TextBox, CommandButton dan MSFlexGrid. Bila anda sudah paham kode di bawah ini saya yakin anda bisa menempatkan kode di bawah ini pada project anda.

Private Sub cmdTampungKeMSFlexGrid_Click()
On Error GoTo errhandler
    If (Len(lblNoIndikator.Caption) <> 0) And (Len(Text1.Text) <> 0) And (Len(Combo1.Text) <> 0) Then
        For I = 1 To TabelPenilaian.Rows
          noIndikator = TabelPenilaian.TextMatrix(I, 0)
          If (noIndikator = lblNoIndikator.Caption) Then
            GoTo processTerminates
          End If
        Next I
errhandler:
        row = row + 1
        TabelPenilaian.Rows = row + 1
        TabelPenilaian.TextMatrix(row, 0) = lblNoIndikator.Caption
        TabelPenilaian.TextMatrix(row, 1) = Text1.Text
        TabelPenilaian.TextMatrix(row, 2) = Mid(Combo1.Text, 1, 1)
        'MsgBox noIndikator, vbInformation
        lblNoIndikator.Caption = ""
        Text1.Text = ""
        Combo1.Text = ""
    Else
        MsgBox "Mohon untuk mengisi semua text, terimakasih.", vbCritical
    End If
    Exit Sub
processTerminates:
    MsgBox "No Indokator atau indikator sudah ada dalam daftar, terimakasih", vbCritical
End Sub

Penjelasan kode diatas apabila dijalankan.

1. apabila textbox kosong maka data tidak ditampung di list.
2. apabila data primarikey sudah ada pada list maka otomatis program menampilkan kotak dialok pemberitahuan, dan tidak menampung list.
3. apabila semua syarat untuk menampung ke list terpenuhi semua maka data bisa ditampung di list.

Read more »

Menampilkan data MySQL di MSFlexGrid VB 6.0

Dalam pemrograman vb ada bermacam-macam cara menampilkan data dari database ke halaman frontend yang dimana untuk menyampaikan informasi kepada user mengenai data yang akan diolah. Salah satunya adalah menampilkan data menggunakan MSFlexGrid, saya akan menjabarkan bagaimana cara menggunakan MSFlexGrid dan cara menambah dan menghapus record list di MSFlexGrid semoga bermanfaat.

Simaklah :

1. Pertama-tama kita tambahkan components Microsoft FlexGrid Control 6.0 Caranya klik menu Project + Components + Pilih Microsoft FlexGrid Control 6.0 dengan mencentangnya + OK.
   
   
   
   
   apabila berhasil maka di kotak ToolBox akan tampil gambar icon MSFlexGrid yang berwarna kuning
   
   .
   
   
2. Apabila ingin menggunakan MSFlexGrid klik icon yang berwarna kuning (MSFlexGrid) letakkan di Form lembar kerja Anda dan diberi nama sesuai kebutuhan anda misal (TabelJadwal)
   
   
3. Berikut  contoh kodenya :
   membuat fungsi initTable
   Fungsi ini berguna untuk memberikan judul pada setiap kolom MSFlexGrid
   

   Sub initTable()
   TabelJadwal.Cols = 4 'banyaknya kolom
   TabelJadwal.Rows = 2 'banyaknya baris
   
   TabelJadwal.ColWidth(0) = 500
   TabelJadwal.ColWidth(1) = TabelJadwal.Width / 2 - 2700
   TabelJadwal.ColWidth(2) = TabelJadwal.Width / 2
   TabelJadwal.ColWidth(3) = TabelJadwal.Width / 2 - 2000
   
   TabelJadwal.TextMatrix(0, 0) = "No"
   TabelJadwal.TextMatrix(0, 1) = "NIM"
   TabelJadwal.TextMatrix(0, 2) = "Nama"
   TabelJadwal.TextMatrix(0, 3) = "Tanggal"
   End Sub
   

   
   Membuat Sub tampilKeTable
   

   Sub tampilKeTable()
       Dim row As Long
       Dim i As Long
       row = 2
       Set rs = cn.Execute("select * from tbl_jadwal")
       
       TabelJadwal.Clear
       initTable
       While Not rs.EOF
           TabelJadwal.TextMatrix(row - 1, 0) = row - 1
           TabelJadwal.TextMatrix(row - 1, 1) = rs.Fields(0)
           TabelJadwal.TextMatrix(row - 1, 2) = rs.Fields(1)
           TabelJadwal.TextMatrix(row - 1, 3) = rs.Fields(2)
           row = row + 1
           TabelJadwal.Rows = row
           rs.MoveNext
       Wend
   End Sub
   

   
   Membuat Sub awal
   

   Sub awal()
   initTable
   tampilKeTable
   End Sub
   

   Kode Form_Load
   Ketika form dijalankan maka langsung menuju ke Sub awal
   

   Private Sub Form_Load()
   On Error GoTo errhandler
   awal
   Exit Sub
   errhandler:
       MsgBox "Terdapat kesalahan pada program!!!", vbCritical
       Me.Hide
   End Sub
   

Read more »

Mengganti Format Tanggal VB 6.0

Mungkin hal sepele seperti mengganti format tanggal bagi yang baru mengenal vb sangatlah sulit untuk dipecahkan, format tanggal pada penyimpanan di database mysql menggunakan format (yyyy-mm-dd) sedangkan di vb (dd-mm-yyyy) apabila ketika menyimpan format tanggal tidak di sesuaikan dengan format tanggal di mysql (yyyy-mm-dd) maka data yang tersimpan tidak sesuai dengan yang diharapkan karena formatnya berbeda dan tanggal yang tersimpan di dalam database mysql akan seperti ini (0000-00-00). kita bisa mengatasi permasalahan tersebut dengan mengganti format tanggal menggunakan fungsi yang sudah di sediakan oleh library vb yaitu dengan fungsi FORMAT$, berikut adalah contoh mengganti format tanggal.

'Deklarasi Variabel tanggal ke type string
Dim tanggal_vb as String
Dim tanggal_mysql as String

tanggal_vb = "17-08-2011"

'Mengganti Format Tanggal
tanggal_mysql = Format$(tanggal_vb, "yyyy-mm-dd")

Read more »

Membuat animasi risize tanggal dengan timer

Sebelum kita memulai pembuatan kode program, siapkan dulu Timer1, Timer2, Textbox, Frame, CommandButton dan Calendar ke dalam Form.
kira-kira designnya seperti gambar di bawah ini.

Setelah selesai membuat design seperti gambar di atas, frame di kecilkan sampai mengecil hingga yang kelihatan hanya Timernya saja, lihat gambar di bawah ini :

Berikut adalah contoh kode programnya :

Private Sub Text1_Click(Index As Integer)
    Select Case Index
    Case 1
        Timer1.Enabled = True
    End Select
End Sub

Private Sub Timer1_Timer()
    frame.Visible = True
    frame.Width = frame.Width + 150
    frame.Height = frame.Height + 85
    If frame.Width >= 4460 Then
        Timer1.Enabled = False
    End If
End Sub

Private Sub Timer2_Timer()
    frame.Visible = True
    frame.Width = frame.Width - 150
    frame.Height = frame.Height - 85
    If frame.Width <= 450 Then
        Timer2.Enabled = False
        frame.Visible = False
    End If
End Sub

Private Sub Calendar1_Click()
    Text1(1).Text = Calendar1.value
End Sub

Private Sub tombolTutup_Click()
    Timer2.Enabled = True
End Sub

Read more »

Hanya huruf besar, hanya huruf, dan hanya angka yang ditampilkan di texbox

Berikut contoh-contoh untuk mengubah inputan ke textbox menjadi huruf besar :
contoh 1 :

Private Sub Text2_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Contoh 2 :

Public Function CapitalLetter(objectToIgnore As TextBox)
    objectToIgnore.Text = UCase(objectToIgnore.Text)
    objectToIgnore.SelStart = Len(objectToIgnore)
End Function

Private Sub Text1_Change(Index As Integer)
    Select Case Index
    Case 0
        objects = CapitalLetter(Text1(0))
    Case 1
        objects = CapitalLetter(Text1(1))
    End Select
End Sub

Berikut contoh hanya angka yang boleh diinput:

Private Sub Text1_KeyPress(KeyAscii As Integer)
'hanya dapat diisi angka 0 - 9
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then KeyAscii = 0
End Sub

Berikut contoh hanya huruf yang boleh diinput:

Public Sub Huruf(ByRef KeyAscii As Integer)
    If Not (KeyAscii >= Asc("a") & Chr(13) And KeyAscii <= Asc("z") & Chr(13) Or (KeyAscii >= Asc("A") & Chr(13) And KeyAscii <= Asc("Z") & Chr(13) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace)) Then
        KeyAscii = 0
    End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    Huruf KeyAscii
End Sub

Read more »

Menampilkan data mysql di combobox VB 6.0

Berikut adalah contoh kode program menampilkan data dari tabel mysql ke combobox vb 6.0

Membuat Fungsi Combolist

Public Function ComboList(objectToIgnore As ComboBox, rs As ADODB.Recordset, Table As String, field As String, where As String, contents1 As String, contents2 As String)
On Error GoTo ErrComboList
    rsClose rs
    sql = "select " & field & " from " & Table & " " & where
    rs.Open sql, cn, adOpenDynamic, adLockPessimistic
        While Not rs.EOF
            objectToIgnore.AddItem rs.Fields(contents1) & " - " & rs.Fields(contents2)
            rs.MoveNext
        Wend
    rsClose rs
Exit Function
ErrComboList:
    MsgBox "Maaf data tidak bisa ditampilkan di combobox." + Err.Description, vbCritical
End Function

Memanggil Fungsi Combolist di Sub initCombo

Private Sub initCombo()
    combo = ComboList(Combo1, rs, "tbl_status", "*", "order by id_status asc", "id_status", "status")
End Sub

Memanggil Sub initCombo ketika Form dijalankan

Private Sub Form_Load()
    initCombo
End Sub

Read more »

Mencari text atau angka di dalam text

Mencari angka di dalam text

Option Explicit

Private Sub Form_Load()
    Text1.Text = "Terima kasih anda sudah membantu saya silahkan hubungi 0212345678 untuk info lebih lanjut"
    Text2.Text = "0212345678"
    Text3.Text = ""
End Sub

Private Sub Command1_Click()
    Dim i   As Integer
    Dim j   As Integer
    Dim t() As String
    Dim v() As String
   
    If Len(Text1.Text) > 0 Then
        j = -1
        t = VBA.Split(Text1.Text)
               
        For i = LBound(t) To UBound(t)
            If VBA.IsNumeric(t(i)) Then
                j = j + 1
               
                ReDim Preserve v(j)
                v(j) = t(i)
            End If
        Next
       
        If j >= 0 Then Text3.Text = VBA.Join(v)
       
        Erase v
        Erase t
    End If
End Sub

Mencari Text di dalam Text

Option Explicit

    Private Sub Form_Load()
        Text1.Text = "Terima kasih anda sudah membantu saya silahkan hubungi 0212345678 untuk info lebih lanjut"
        Text2.Text = "0212345678"
        Text3.Text = ""
    End Sub

    Private Sub Command1_Click()
        Dim i   As Integer
        Dim j   As Integer
        Dim t() As String
        Dim v() As String
       
        If Len(Text1.Text) > 0 Then
            j = -1
            t = VBA.Split(Text1.Text)
                   
            For i = LBound(t) To UBound(t)
                'If VBA.IsNumeric(t(i)) Then                                             '--> Ini untuk berupa angka
                If VBA.Trim$(VBA.UCase$(t(i))) = VBA.Trim$(VBA.UCase$(Text2.Text)) Then '--> Ini untuk berupa karakter
                    j = j + 1
                   
                    ReDim Preserve v(j)
                    v(j) = t(i)
                End If
            Next
           
            If j >= 0 Then Text3.Text = VBA.Join(v)
           
            Erase v
            Erase t
        End If
    End Sub

Link : http://www.i-bego.com/visual-basic/mencari-kata-angka-didalam-teks-string-t1451.html

Read more »

Memahami KeyWord Option Explicit VB 6.0

Dalam penulisan kode program vb apabila tidak menggunakan Option Explicit, semua variable yang tidak terdefinisi secara default akan didefinisikan oleh Visual Basic 6.0 menjadi sebuah variable yang memiliki data bertype Variant.

Dengan menggunakan KeyWord Option Explicit, akan memaksa seluruh variable yang belum terdefinisi untuk didefinisikan terlebih dahulu, yakni Visual Basic 6.0 tersebut akan dengan senang hati menampilkan pesan error "Variable not defined".

Berikut adalah contoh penggunaan Option Explicit

Option Explicit
Dim i as Integer

Private Sub Form_Load()
   i = 1
   MsgBox i
End Sub

Read more »

Unload All Form kecuali form utama VB 6.0

Berikut contoh kode programnya :

UnloadAllForms (Me.Name)

Read more »

Membuat Fungsi dalam VB 6.0

Berikut adalah contoh kode pembuatan fungsi pada VB 6.0

Public Function DeleteDataInDatabaseTables(Table As String, where As String) As Integer
On Error GoTo errDeleteDataInDatabaseTables
    sql = "delete from " & Table & " " & where
    cn.Execute (sql)
    DeleteDataInDatabaseTables = 1
Exit Function
errDeleteDataInDatabaseTables:
    DeleteDataInDatabaseTables = 0
End Function

Read more »

Cara Menggunakan Option Button pada VB 6.0

Berikut adalah contoh kode untuk Option Button

    If Option1(0).value = True Then
        type_user = Option1(0).Caption
    Else
        type_user = Option1(1).Caption
    End If

Read more »

Membuat Kursor Tangan pada Tombol VB 6.0

Berikut adalah contoh kode untuk membuat kursor tangan pada tombol.

'------------------------------------------
'Start hand cursor variable declaration
Public Declare Function LoadCursor Lib "user32.dll" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Public Declare Function SetCursor Lib "user32.dll" (ByVal hCursor As Long) As Long
Public Const IDC_HandCur As Long = 32649
Public Type CursorTangan
Cursor As Long
End Type
Public HandCur As CursorTangan
'End hand cursor variable declaration
'------------------------------------------

Private Sub cmdBrowse_Click()
    periode_supervisi = "untuk_laporan"
    laporan_per_periode.Enabled = False
    Load browse_periode
    browse_periode.Show
End Sub

Private Sub cmdBrowse_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
    SetCursor HandCur.Cursor
End Sub
Private Sub cmdBrowse_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
    SetCursor HandCur.Cursor
End Sub

Read more »

Koneksi VB 6.0 ke MySQL

Sebelum membuat koneksi ke mysql kita bisa membuat form untuk setting server, tujuannya agar tidak mengganti secara manual apabila program di jalankan di komputer lain yang servernya berbeda.

Membuat Form Setting Server

1. buat form seperti gambar di bawah ini :
   
   
Setelah membuat setting server tambahkan References Microsoft ActivX Data Objects 2.0 Library, caranya pilih menu Project + References + pilih Microsoft ActivX Data Objects 2.0 Library dengan mencentangnya + OK.



Berikut adalah contoh kode program untuk menyimpan isi dari varibel-variabel setting server :


Private Sub cmdKeluar_Click()
Unload Me
Me.Hide
End Sub
Private Sub cmdSimpan_Click()
SaveSetting App.EXEName, "x", "server", txtServer.Text
SaveSetting App.EXEName, "x", "uid", txtUserID.Text
SaveSetting App.EXEName, "x", "port", txtPort.Text
SaveSetting App.EXEName, "x", "password", txtPassword.Text
txtServer.Text = ""
txtPort.Text = ""
txtUserID.Text = ""
txtPassword.Text = ""
End Sub
Private Sub Form_Load()
On Error GoTo errhandler
Me.Top = 0
Me.Left = 0

server = GetSetting(App.EXEName, "x", "server")
port = GetSetting(App.EXEName, "x", "port")
userID = GetSetting(App.EXEName, "x", "uid")
password = GetSetting(App.EXEName, "x", "password")

txtServer.Text = server
txtPort.Text = port
txtUserID.Text = userID
txtPassword.Text = password
Exit Sub
errhandler:
    MsgBox "Terdapat kesalahan pada program!!!", vbCritical
    Me.Hide
End Sub

Contoh kode program koneksi vb ke mysql

Option Explicit
'----------------------------------------------------
'Start Connecting database mysql variable declaration
Public cn As New ADODB.Connection
Private rs As New ADODB.Recordset
Public server, port, userID, password As String
'End Connecting database mysql variable declaration
'----------------------------------------------------

Public Sub connect()
If cn.State = adStateOpen Then
    cn.Close
End If
server = GetSetting(App.EXEName, "x", "server")
port = GetSetting(App.EXEName, "x", "port")
userID = GetSetting(App.EXEName, "x", "uid")
password = GetSetting(App.EXEName, "x", "password")

cn.Open "Driver=mysql odbc 3.51 driver;server=" & server & ";uid=" & userID & ";password=" & password & ";port=" & port & ";database=supervisi"
induk.Toolbar1.Buttons(2).Enabled = True
Exit Sub
errhandler:
    induk.Show
    induk.Toolbar1.Buttons(2).Enabled = False
End Sub

Read more »

Membuat Status Bar pada VB 6.0

Toolbar adalah salah satu kontrol yang bisanya digunakan untuk meletakkan tombol, untuk memakai toolbar berikut adalah langkah-langkahnya :

1. Menambahkan components dengan nama : Microsoft Windows Common Control 6.0. Cara menambahkannya klik menu project + components dan centang Microsoft Windows Common Control 6.0 lalu klik OK.
2. Pada toolbox terdapat kontrol toolbar, tambahkan kontrol toolbar ke dalam form setelah ditambahkan klik kanan dan pilih Properties lihat gambar berikut :
   
   
3. Setelah Properties diklik maka akan muncul window seperti gambar di bawah ini, untuk menambahkan keterangan tulisan pada tombol dan keterangan-keterangan lainnya atur pada setiap propertinya.
   
   
4. Tombol yang ditambahkan ke toolbar hasilnya bisa dilihat pada gambar dibawah ini, tetapi belum ada gambarnya iconnya.
   
   

Dalam membuat toolbar diatas belum disertai gambar icon, untuk menambahkan gambar icon kita harus menambahkan Image List terlebih dahulu.

Menambahkan Image List
Image List adalah kontrol yang dipakai untuk menyimpan daftar gambar.
Untuk menambahkan gambar ke dalam image list adalah sebagai berikut :

1. Tambahkan Image List ke dalam Form, klik kanan dan pilih properties. Lihat gambar di bawah ini :
   
   
2. Masukkan image susuai keinginan anda
   
   

Menambahkan gambar icon ke dalam toobar
berituk adalah langkah-langkahnya :

1. Klik kanan toolbar pilih properties
2. Pada kotak dialog Property Pages tab General dari toolbar pilih ImageList dengan ImageList1 (nama dari image list anda)
   
   
3. Pada kotak dialog Property Pages tab Button tabahkan angka urut gambar pada ImageList1, lihat gambar berikut :
   
   
4. Setelah gambar icon ditambahkan hasilnya bisa dilihat seperti gambar di bawah ini :
   
   

Contoh kode programnya sebagai berikut

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
If Button.Index = 1 Then
    Load login
    login.Show
End If
If Button.Index = 2 Then
    message = MsgBox("Yakin akan logout ?", vbQuestion + vbYesNo)
    If message = vbYes Then
        induk.Toolbar1.Buttons(1).Enabled = True
        induk.Toolbar1.Buttons(2).Enabled = False
        For n = 1 To induk.MenuUtama.UBound
            induk.MenuUtama(n).Enabled = False
        Next
        induk.MenuUtama(1).Enabled = True
        induk.MenuUtama(5).Enabled = True
        induk.menuFile(1).Enabled = True
        induk.menuFile(2).Enabled = False
        induk.menuFile(4).Enabled = True
        induk.menuFasilitas(1).Enabled = False
        induk.menuFasilitas(2).Enabled = False
        induk.menuFasilitas(4).Enabled = True
        induk.menuKlikKanan.Enabled = False
        For n = 1 To induk.MenuKlik.UBound
            induk.MenuKlik(n).Enabled = False
        Next
        UnloadAllForms (Me.Name)
    End If
End If
If Button.Index = 3 Then
    message = MsgBox("Yakin akan keluar dari program?", vbQuestion + vbYesNo)
    If message = vbYes Then
        End
    End If
End If
If Button.Index = 4 Then
End If
If Button.Index = 5 Then
    Load info_jadwal_supervisi
    info_jadwal_supervisi.Show
End If
If Button.Index = 6 Then
End If
If Button.Index = 7 Then
    Load info_data_sekolah
    info_data_sekolah.Show
End If
If Button.Index = 8 Then
    Load info_data_guru
    info_data_guru.Show
End If
If Button.Index = 9 Then
    Load setting_Server
    setting_Server.Show
End If
End Sub

SELESAI...

Read more »