Desember 2011 | DASAR PROGRAMER

Tutorial Linux Untuk Pemula

Linux atau GNU/Linux adalah system operasi yang sangat popular. Istilah Linux atau GNU/Linux juga digunakan sebagai rujukan kepada keseluruhan distro Linux (Linix Distribution), yang didalamnya selalu disertakan program-program lain yang mendukung system operasi ini. Contoh program-program tersebut adalah Server Web, Basis Data, Perserikatan Desktop (Desktop Environtment, seperti GNOME dan KDE), dan aplikasi/software perkantoran (Office Suit). Distro Linux telah mengalami pertumbuhan  yang sangat pesat dari segi kepopuleran, sehingga lebih popular dari versi UNIX yang propitari dan mulai menandingi dominasi Microsoft Windows dalam beberapa sisi. 

Download tutorial Linux (PDF)
All Links Updated on 2012-12-05 (yy-mm-dd) !


Tags:
free tutorial linux, dasar dasar linux, linux adalah, download tutorial,

Cara Instalasi Linux SUSE 6

Salah satu jenis distro Linux yang lainnya adalah Linux SUSE, bagi anda yang sedang belajar linux suse, berikut ini saya sediakan link cara instalasi linux suse versi 6
Download cara menginstal Linux Suse 6 (PDF)
All Links Updated on 2012-12-05 (yy-mm-dd) !

Tags:
instalation guide linux suse , cara instal linux suse, linux suse adalah, how to instal linux suse

Jenis Partisi Yang Dikenal Oleh Linux

Linux tidak sekedar mengenali partisi miliknya sendiri. Sistem ini dapat mengenali beragam partisi yang ada. Di bawah ini diberikan jenis−jenis partisi yang dapat dikenali oleh Linux. Jenis partisi ini selalu bertambah dalam perkembangan kernel Linux.

Nomor
referensi
Tipe partisi
0 Kosong
1 DOS 12 bit−FAT
2 XENIX root
3 XENIX usr
4 DOS 16bit < 32 MB
5 Extended
6 DOS 16−bit >= 32 MB
7 OS/2 HPFS
8 AIX
9 AIX bootable
A OS/2 Boot manager
40 Venix 80286
51 Novell
52 Microport
63 GNU HURD
64 Novell
75 PC/IX
80 Old Minix
81 Minux/Linux
82 Linux Swap
83 Linux Native
93 Amoeba
94 Amoeba BBT
a5 BSD/386
b7 BSDI filesystem
b8 BSDI swap
c7 Syrinx
db CP/M
e1 DOS access
e3 DOS R/O
f2 DOS secondary
ff BBT

Tags:
linux, jenis partisi linux, 

Perintah Perintah Dasar Linux

Sama halnya dengan DOS miliknya Microsoft Windows, Linux juga mempunyai hal yang sama, berikut ini perintah perintah dasar dan administrasi dasar yang ada di Linux, seperti cara management file, folder dan directory serta management user.
Download perintah perintah dasar dan administrasi dasar Linux
All Links Updated on 2012-12-05 (yy-mm-dd) !

Tags:
perintah dasar di linux, basic command in linux, DOS nya linux , membuat folder di linux, run cmd linux,tutotial linux, dasar dasar linuux, perintah dos di linux

Cara Menginstal Linux Fedora Core 5

Ini merupakan kelanjutan dari cara instalasi fedora core 4.

Download cara menginstal Linux Fedora Core 5 (Doc)
All Links Updated on 2012-12-05 (yy-mm-dd) !

Tags:
cara instal linux Fedora Core 5, tahapan instalasi linux Fedora Core 5, download linux Fedora Core 5, cara menginstal linux Fedora Core 5, instalation guide linux Fedora Core 5, linux Fedora Core 5 adalah, how to instal linux Fedora Core 5, step by step instalation linuxFedora Core

Cara Menginstal Linux Free BSD

Linux Free BSD adalah sebuah sistem operasi bertipe Unix bebas yang diturunkan dari UNIX AT&T lewat cabang Berkeley Software Distribution (BSD) yaitu sistem operasi 386BSD dan 4.4BSD. FreeBSD berjalan di atas sistem Intel x86 (IA-32) (termasuk Microsoft Xbox[1], DEC Alpha, Sun UltraSPARC, IA-64, AMD64, PowerPC dan arsitektur NEC PC-98. Dukungan untuk arsitektur ARM dan MIPS sedang dalam pengembangan.
1. Download Istalation Linux Free BSD (Doc) Version 1
2. Download Istalation Linux Free BSD (Doc) Version 2
All Links Updated on 2012-12-05 (yy-mm-dd) !

Tags:
cara instal linux free bsd, tahapan instalasi linux free bsd, download linux free bsd, cara menginstal linux free bsd, user guide linux free bsd, linux free bsd adalah, how to instal linux free bsd, step by step instalation linux free bsd,

Cara Menginstal Linux Fedora Core 4

Sekilas tentang Fedora, adalah sebuah salah satu distro Linux berbasis RPM dan yum yang dikembangkan oleh Fedora Project yang didukung oleh komunitas pemrogram serta disponsori oleh Red Hat. Nama Fedora berasal dari karakter fedora yang digunakan di logo Red Hat.
Download cara menginstal Linux Fedora Core 4 (Doc)
All Links Updated on 2012-12-05 (yy-mm-dd) !

Tags:
cara instal linux Fedora Core 4, tahapan instalasi linux Fedora Core 4, download linux Fedora Core 4, cara menginstal linux Fedora Core 4, instalation guide linux Fedora Core 4, linux Fedora Core 4 adalah, how to instal linux Fedora Core 4, step by step instalation linuxFedora Core 4

Filter OpenFileDialog And SaveFileDialog

Kali ini saya akan share bagaimana cara mem-filter OpenFileDialog maupun SaveFileDialog di Visual Basic.NET. Dilihat dari kebutuhannya, filter ini biasanya dibagi menjadi 3 (memilih Semua Files,File tertentu dan beberapa files). Nah, pola filter nya beberapa jenis :
1. "NamaFile" + "|" + "Extension"
2. "NamaFile1,NamaFile2,dan seterusnya" + "|" + "Extension1" + ";" + "Extension2" dan seterusnya", Contohnya:
Filter = "MsWord,MsExel,MsPowerpoint|*.docx;*.xlsx;*.pptx"
Maka Hasilnya seperti gambar dibawah ini:


3. "NamaFile1" + "|" + "Extension1" + "|" + "NamaFile2" + "|" + "Extension2" + dan seterusnya
4. "NamaFile1,NamaFile2" + "|" + "Extension1" + ";" + "Extension2" + "|" + "NamaFile3" + "|" + "Extension3" + dan seterusnya, contohnya:
Filter = MsWord,MsExel,MsPowerpoint|*.docx;*.xlsx;*.pptx|MsAccess|*.accdb" Maka hasilnya seperti gambar dibawah ini:
Jadi yang perlu diingat dan diperhatikan adalah pola penggunan separator "|" (untuk NamaFile) dan separator ";" (untuk Extension)
Contoh Codingnya seperti ini :
      With djieOpenFileDialog1
    'Contoh filter Semua file
            .Filter = "All Fiels|*.*"
    'Contoh filter file tertentu
            .Filter = "MsWord|*.docx"
    'Contoh filter beberapa file
            .Filter = "MsWord,MsExel,MsPowerpoint|*.docx;*.xlsx;*.pptx"
    'Untuk bisa memilih lebih dari 1 file
            .Multiselect = True
    'Buka dialog
            .ShowDialog()
    'jika user hanya bisa memilih 1 file
            If .Multiselect = False Then
                  Dim hasil As String = .FileName
            Else 'jika user bisa memilih multi file
                  Dim ArrayHasil() As String = .FileNames
            End If
    End With

Jika Multiselect=False, Maka Hasilnya adalah:
ArrayHasil = "C:\New Microsoft Excel Worksheet.xlsx"

Jika Multiselect=True, Maka Hasilnya adalah:
ArrayHasil(0) = "C:\New Microsoft Excel Worksheet.xlsx"
ArrayHasil(0) = "C:\New Microsoft PowerPoint Presentation.pptx"
ArrayHasil(0) = "C:\New Microsoft Word Document.docx"

Untuk ketentuan dan contoh SaveFileDialog sama persis dengan yang diatas. Ok, Semoga bermanfaat..

Tags:
using openfiledialog, savefiledialog, filter, how to filter open file dialog or save file dialog, vb net, c#, example, source code, function, show openfile dialog, filtering dialog,*.*, filtering extension openfile dialog, filtering save filedialog

Remove Selected Rows DataGridView And ListView

Untuk sobat yang masih belum tahu bagaimana cara menghapus selected rows di datagridview dan cara menghapus selected items di listview di Visual Basic.NET, saya sudah buatkan functionnya. Silahkan disimak dengan baik ya...


Ini Untuk DatagridView :

    Private Sub RemoveSelectedRows(ByVal djieDataGridView As DataGridView)
        For Each iRow As DataGridViewRow In djieDataGridView.SelectedRows
            djieDataGridView.Rows.RemoveAt(iRow.Index)
        Next
    End Sub


Ini Untuk ListView :

    Private Sub RemoveSelectedItems(ByVal djieListView As ListView)
        For Each iItem As ListViewItem In djieListView.SelectedItems
            djieListView.Items.RemoveAt(iItem.Index)
        Next
    End Sub

Effect Fade In And Fade Out

Apa Itu fade In, fade out? mungkin sebagian sudah tahu, yaitu efek transparan pada form, mulai dari yang tadinya tidak kelihatan perlahan lahan menjadi kelihatan, begitupun sebaliknya. 













Di Visual Basic.NET sudah disediakan properti transparan ini yaitu Opacity, nilainya 0% sampai 100% atau (0 sampai 1). Nah untuk menggerakan nilai itu dari 0% ke 100% atau pun kebalikannya dari 100% ke 0% secara otomatis maka dibutuhkan sedikit tambahan coding untuk membuat effect fade in dan fade out itu, OK, langsung saja kita ke TKP:


1.Set Opacity = 0% di form load:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Opacity = 0
End Sub  

2.Simpan sintak ini di event Shown
Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        For i As Integer = 0 To 100
            Me.Opacity = i / 100
            'Untuk Memperlambat(delay), agar fading kelihatan
            Threading.Thread.Sleep(30)
            'Untuk membantu efek semakin terlihat jelas
            Windows.Forms.Application.DoEvents()
        Next
End Sub

3.Simpan sintak ini di event Form_Closing
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        For i As Integer = 0 To 100
            Me.Opacity = (100 - i) / 100
            'Untuk Memperlambat(delay), agar fading kelihatan
            Threading.Thread.Sleep(30)
            'Untuk membantu efek semakin terlihat jelas
            Windows.Forms.Application.DoEvents()
        Next
End Sub

Array, Redim, Split, Join, Erase, Clear

Salam... posting saya Kali ini adalah tentang array. Sobat semua pasti sudah tahu kan apa itu array? definisinya banyak sekali, salah satunya menurut dosen saya dulu, Array adalah suatu tipe data terstruktur yang dapat menyimpan banyak data dengan suatu nama yang sama dan menempati tempat di memori yang berurutan. Nah, selanjutnya saya akan membahas cara penggunaan array di Visual Basic.NET, untuk sedikit contoh penggunaan array di Visual Basic.6 ada di posting-an saya yang dulu. Seperti kita tahu array ada 3 jenis (1,2 dan multi dimensi), namun yang akan saya bahas kali ini yang 1 dimensi saja dan poin yang penting nya saja yang umum sering di gunakan, karena pambahasan array ini sangat amat banyak. 

1.Membuat Array (declaration) 
Semua type data maupun object dapat dideklarasikan sebagai array, contoh:
Dim djieArray() As String
Friend djieArray2 As Double()
Private djieArray3(0 To 5) As TextBox
Public djieArray4(7) As Object

kita juga dapat mengisi langsung nilai array nya, contoh:
Dim djieArray() As String = {"djiesoft", "blogspot", "com"}
public djieArray2 As Double() = {10, 20, 50, 400}

2.Mendeklarasikan ulang array (Redim)
Terkadang kita dihadapkan dengan kasus yang mengharuskan memperbesar atau  memperkecil  daya tampung array, caranya dengan redim, contoh:
ReDim djieArray(0 To 100)
ReDim djieArray4(20)

2.Mengisi Nilai Array
Banyak cara untuk mengisi nilai array,contoh:
a.Manual
djieArray = New String() {"ini", "contoh", "array"}
djieArray(9) = value

b.Memakai looping
For i = 0 To 10
   djieArray(i) = "Nilai ke" & i.ToString
Next

c.Memakai fungsi split
Split adalah memisahkan data yang terdapat dalam suatu nilai dengan pemisahnya (separator) adalah karakter tertentu yang terdapat dalam nilai tersebut dan hasilnya akan disimpan dalam sebuah array, contoh:
dim varKalimat as string = "saya membeli buku,pulpen,pensil,penggaris"
djieArray = Split(varKalimat, ",") 'pisahkan data dengan koma (,)

maka hasilnya adalah:
djieArray(0) = "saya membeli buku"

djieArray(1) = "pulpen"

djieArray(2) = "pensil"

djieArray(3) = "penggaris"

4.Menggabungkan Nilai Array (Join)
Nilai array dapat disatukan kembali kedalam sebuah variable (kebalikan dari split), contoh:
a.dengan cara looping
dim varHasil as string = ""
For i As Integer = 0 To djieArray.Length - 1
     varHasil = varHasil + djieArray(i).ToString + "."
Next

b.dengan fungsi join
Join adalah menggabungkan nilai array kedalam sebuah variable dengan pemisah (separator) yang lain, contoh:
varHasil = Join(djieArray, "+") 'gabungkan data array dengan plus (+)

maka hasilnya adalah :
varhasil = "saya membeli buku+pulpen+pensil+penggaris"

5.Menghapus Array (Erase,Clear)
Jika array tersebut sudah tidak digunakan lagi, maka saya sarankan untuk menghapusnya agar memory tidak penuh sehingga performa tetap terjaga, contoh:
a.Menghapus array dari memory

Basic Generate Auto Number (Increment)

Posting saya kali ini tentang cara generate auto number (auto increment), ini adalah contoh paling sederhana (basic) dari auto increment. Contohnya: 01,02,03 dan seterusnya. Nah kita juga bisa membuat jumlah digit-nya menjadi dinamis, contoh: 3digit (001,002,..), 4digit (0001,0002,..) dan seterusnya. selanjutnya kita juga harus memperhitungkan batas maxsimal dari increment itu sendiri, contoh: 2digit (max 99), 3digit (max 999) dan seterusnya, hal ini perlu untuk mencegah terjadinya error saat penyimpanan data ke table jika lenght number sudah melebihi field lenght-nya. seperti biasa saya sudah buatkan codingnya, silahkan disimak baik baik ya..
Ini Untuk VB.NET : 
Function GenerateNumber(ByVal pMaxDigits As Integer) As String
        Try
            'validasi
            If pMaxDigits < 1 Then Return ""
            'buka koneksi
            Using con As New Odbc.OdbcConnection("dsn=local")
                con.Open()
                'select field table
                Dim cmd As New Odbc.OdbcCommand("SELECT No FROM tbl_test WHERE LEN(No)=" + pMaxDigits.ToString + " ORDER BY NO DESC", con)
                'buat temporary default 0
                Dim TempDigit As String = New String("0", pMaxDigits)
                Dim TempNo As Double = 0
                If cmd.ExecuteScalar Is Nothing Then
                    'jika tabel tbl_test masih kosong / belum ada data
                    'maka set 01 (banyak angka nol tergantung dari parameter pMaxDigit)
                    TempDigit = Mid(TempDigit, 1, pMaxDigits - 1) + "1"
                Else
                    'jika tabel sudah ada data nya, maka increment
                    TempNo = Val(cmd.ExecuteScalar) + 1
                    'jika Field Lenght table = New Number Lenght
                    If TempNo.ToString.Length = pMaxDigits Then
                        TempDigit = Mid(TempDigit, 1, pMaxDigits - TempNo.ToString.Length) + TempNo.ToString
                    Else
                        MessageBox.Show("Panjang Digit Sudah Maksimal, Tidak Bisa Ditambah Lagi!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                    End If
                End If
                Return TempDigit
            End Using
        Catch ex As Exception
            MessageBox.Show(Err.Description, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return ""
        End Try
    End Function


Untuk VB.6 :
Function GenerateNumber(ByVal pMaxDigits As Integer) As String
    On Error GoTo djieHandle
        'validasi
        If pMaxDigits < 1 Then GenerateNumber = "": Exit Function
        'buka koneksi
        Dim con As New ADODB.Connection
        con.CursorLocation = adUseClient
        con.Open ("dsn=local")
        'select field table
        Dim rec As New ADODB.Recordset
        Set rec = con.Execute("SELECT No FROM tbl_test WHERE LEN(No)=" & pMaxDigits & " ORDER BY NO DESC")
        'buat temporary default 0
        Dim TempDigit As String
        TempDigit = String(pMaxDigits, "0")
        Dim TempNo As String
        TempNo = ""
        If rec.EOF = True Or rec.BOF = True Then
            'jika tabel tbl_test masih kosong / belum ada data
            'maka set 01 (banyak angka nol tergantung dari parameter pMaxDigit)
            TempDigit = Mid(TempDigit, 1, pMaxDigits - 1) + "1"
        Else
            'jika tabel sudah ada data nya, maka increment
            TempNo = Trim(Str(Val(rec.Fields(0).Value) + 1))
            'jika Field Lenght table = New Number Lenght
            If Len(TempNo) = pMaxDigits Then
                TempDigit = Mid(TempDigit, 1, pMaxDigits - Len(TempNo)) & TempNo
            Else
                MsgBox "Panjang Digit Sudah Maksimal, Tidak Bisa Ditambah Lagi!", vbExclamation, "Error"
            End If
        End If
        rec.Close
        GenerateNumber = TempDigit
    Exit Function
djieHandle:
    MsgBox Err.Description, vbExclamation, "Error"
    GenerateNumber = ""
End Function

Silahkan kembangkan lagi function tersebut sesuai kebutuhan, sekian dan semoga bermanfaat.

Tags:
autonumber, generate number, using function, how to generate autonumber, queue, auto increment, vbnet, c#, source code, sample, using auto increment

Get Server DateTime Using SQLServer

Salah satu permasalah yang banyak terjadi pada aplikasi Client Server adalah masalah datetime, terkadang datetime client dan server tidak sama, hal ini disebabkan mungkin setiap komputer mempunyai seting-an masing masing, atau bisa juga karena batre cmos komputer client sudah rusak sehingga datetime nya selalu balik lagi ke awal. Hal ini dapat menyebabkan masalah dalam penyimpanan data transaksi, karena tahun bulan hari menit detik adalah hal yang sangat penting dan harus diperhatikan. Sebenarnya banyak cara untuk men-Syncronisasi DateTime Client Server (synchronization), Untuk kasus aplikasi yang berbasis database SQLServer, kita bisa gunakan perintah "GETDATE()".
Nah getdate ini kita simpan saja pada aplikasi / program client, sehingga semua client akan selalu mendapatkan datetime yang sama dengan server. Saya sudah buatkan function-nya.
Ini untuk VB.NET :

    Function GetDateTimeServer() As String
        Dim con As New Odbc.OdbcConnection("dsn=server")
        con.Open()
        Dim cmd As New Odbc.OdbcCommand("SELECT GETDATE() AS ServerDateTime", con)
        Return cmd.ExecuteScalar
    End Function

Ini untuk VB.6 :

    Function GetDateTimeServer() As String
        Dim con As New ADODB.Connection
        con.CursorLocation = adUseClient
        con.Open "dsn=server"
        Dim rec As New ADODB.Recordset
        Set rec = con.Execute("SELECT GETDATE() AS ServerDateTime")
        GetDateTimeServer = rec.Fields(0).Value

Clear All Object In Form

Biasanya pada sebuah aplikasi atau program terdapat tombol standard seperti New,Edit,Save,Cancel,Close,Print, Search dan lain2. Nah, yang akan saya bahas kali ini adalah tombol Cancel, dimana pada umumnya berfungsi untuk membersihkan kembali semua object di form. Sebenarnya ada cara clasic yang sering digunakan untuk membersihkan object, seperti ini :
TextBox1.Text="" : ComboBox1.Text="" : ListView1.Items.Clear dan seterusnya, nah yang jadi sedikit permasalahan adalah bagaimana jika object di formnya banyak, otomatis sintak yang di tulisnya pun semakin banyak, belum lagi jika ada perubahan nama object, maka kita harus megkoreksi pula sintaknya, maka ini akan sedikit menjengkelkan dan menyusahkan. Nah saya akan share bagaimana membersihkan object di form secara otomatis. Saya sudah buatkan function nya.

ini untuk VB.NET :

Private Sub ClearAllObject()
        Dim iObject As Object
        For i As Integer = 0 To Me.Controls.Count - 1
            iObject = Me.Controls(i)
            If TypeOf iObject Is TextBox Then
                iObject.text = ""
            ElseIf TypeOf iObject Is ComboBox Or TypeOf iObject Is ListBox Then
              iObject.Items.Clear()
            ElseIf TypeOf iObject Is ListView Then
                iObject.Items.Clear()
            ElseIf TypeOf iObject Is TreeView Then
                iObject.Nodes.Clear()
            ElseIf TypeOf iObject Is DataGridView Then
                iObject.Rows.Clear()
            ElseIf TypeOf iObject Is PictureBox Then
                iObject.Image = Nothing
            ElseIf TypeOf iObject Is CheckBox Or TypeOf iObject Is RadioButton Then
                CheckBox1.Checked = False
            End If
        Next
    End Sub

Ada satu lagi caranya, berdasarkan pengalaman saya yang ini lebih CEPAT execute nya :

Private Sub ClearAllObject()
        For Each iObject As Object In Me.Controls
            If TypeOf iObject Is TextBox Then
                iObject.text = ""
            ElseIf TypeOf iObject Is ComboBox Or TypeOf iObject Is ListBox Then
                iObject.Items.Clear()
            ElseIf TypeOf iObject Is ListView Then
                iObject.Items.Clear()
            ElseIf TypeOf iObject Is TreeView Then
                iObject.Nodes.Clear()
            ElseIf TypeOf iObject Is DataGridView Then
                iObject.Rows.Clear()
            ElseIf TypeOf iObject Is PictureBox Then
                iObject.Image = Nothing
            ElseIf TypeOf iObject Is CheckBox Or TypeOf iObject Is RadioButton Then
                CheckBox1.Checked = False
            End If
        Next
    End Sub

Ini Untuk VB.6 :

Private Sub ClearAllObject()
    Dim i As Integer
    Dim iObject As Object
    For i = 0 To Me.Controls.Count - 1
        Set iObject = Me.Controls(i)
             If TypeOf iObject Is TextBox Then
                iObject.Text = ""
            ElseIf TypeOf iObject Is ComboBox Or TypeOf iObject Is ListBox Then
                iObject.Clear
                iObject.Clear
            ElseIf TypeOf iObject Is ListView Then
                iObject.ListItems.Clear
            ElseIf TypeOf iObject Is TreeView Then
               iObject.Nodes.Clear
            ElseIf TypeOf iObject Is DataGrid Then
                Set iObject.DataSource = Nothing
            ElseIf TypeOf iObject Is PictureBox Then
               Set iObject.Image = Nothing
            ElseIf TypeOf iObject Is OptionButton Then
                iObject.Value = False
            ElseIf TypeOf iObject Is CheckBox Then
                iObject.Value = Unchecked
            End If

    Next
End Sub

Atau gunakan yang ini utuk execute lebih cepat :
Private Sub ClearAllObject()
      Dim iObject As Object
     For Each iObject In Me.Controls
             If TypeOf iObject Is TextBox Then
                iObject.Text = ""
            ElseIf TypeOf iObject Is ComboBox Or TypeOf iObject Is ListBox Then
                iObject.Clear
                iObject.Clear
            ElseIf TypeOf iObject Is ListView Then
                iObject.ListItems.Clear
            ElseIf TypeOf iObject Is TreeView Then
               iObject.Nodes.Clear
            ElseIf TypeOf iObject Is DataGrid Then
                Set iObject.DataSource = Nothing
            ElseIf TypeOf iObject Is PictureBox Then
               Set iObject.Image = Nothing
            ElseIf TypeOf iObject Is OptionButton Then
                iObject.Value = False
            ElseIf TypeOf iObject Is CheckBox Then
                iObject.Value = Unchecked
            End If

    Next
End Sub

Untuk banyaknya object dalam "if typeof" sesuaikan saja dengan kebutuhan, ataupun jika ada object baru (user controls, dll) tinggal ditambahkan saja ke function itu. Sekian, semoga bermanfaat. Salam Programmer.

Tags:
clear all object from, auto clear object, fast clear object form, clear all object, clear form , vbnet , c#, visual studio, function, quick clear object form

Load Data Ke ComboBox (Bagian II)

Dulu saya pernah posting tentang Load Data Ke ComboBox , yaitu bagaimana cara add item ke combobox secara manual atau tanpa datasource. Nah sekarang saya akan share cara add item dengan datasource














Pada saat Kita memilih Field FirstName, kita juga bisa mendapatkan EmployeeID nya secara bersamaan, TANPA harus melakukan select lagi ke tabel untuk mendapatkan EmployeeID. Ini dengan menggunakan property "DisplayMember" dan "ValueMember".

Caranya cukup mudah, saya sudah buatkan functionnya :
Untuk VB.NET :


 Private Sub LoadDataToComboBox(ByVal djieComboBox As ComboBox)
        'buka koneksi
        Dim con As New Odbc.OdbcConnection("dsn=local")
        con.Open()
        'isi combobox
        Dim adp As New Odbc.OdbcDataAdapter("select * from employees", con)
        Dim tbl As New DataTable
        adp.Fill(tbl)
        djieComboBox.DataSource = tbl
        'field yang akan ditampilkan di list combobox
        djieComboBox.DisplayMember = "FirstName"
        'field yang akan disimpan di sebagai value
        djieComboBox.ValueMember = "EmployeeID"
    End Sub

nah,untuk mendapatkan item yang di click, ini codingnya :

    Private Sub djieComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles djieComboBox1.SelectedIndexChanged
        Label1.Text = "Employee ID : " & djieComboBox1.SelectedValue.ToString
        Label2.Text = "Employee Name : " & djieComboBox1.Text
    End Sub


Sekian, semoga bermanfaat ...

Tags:
binding data to combobox, how to binding data , load data to combobox, vb net , c#, get data from combobox, display member and value member, selected combobox, example, source, using display and value member combobox

Coloring DataGridView Row And ListView Item

Sebelumnya saya pernah mem-posting tentang "Load data ke treeview" dimana memisahkan bilangan genap dan ganjil (dengan fungsi mod). Nah kali ini saya ingin share penggunaan lain dari fungsi mod itu, yaitu membuat latar(back color) zebra pada grid atau list. Seperti gambar dibawah ini :
Bagaimana? lumayan sedikit "Cantik" kan ? ... hehehe, OK kita langsung saja ke codingnya, saya sudah buatkan function/sub nya :
Ini untuk DataGridView :
  Public Sub djieChangeColorGrid(ByVal pDataGridView As DataGridView)
        For Each iRow As DataGridViewRow In pDataGridView.Rows
            For Each iCell As DataGridViewCell In iRow.Cells
                If iRow.Index Mod 2 = 0 Then
                    iCell.Style.BackColor = Color.Aqua
                Else
                    iCell.Style.BackColor = Color.LightBlue
                End If
            Next
        Next
    End Sub

Ini untuk ListView:
    Public Sub djieChangeColorList(ByVal pListView As ListView)
        For Each iItem As ListViewItem In pListView.Items
            If iItem.Index Mod 2 = 0 Then
                iItem.BackColor = Color.GreenYellow
            Else
                iItem.BackColor = Color.White
            End If
        Next
    End Sub

Silahkan kembangkan lagi fungsi ini, misalnya dengan mengganti warna lain, ataupun style lain sesuai dengan kebutuhan sobat.. Semoga bermanfaat.

Tags:
coloring grid, coloring list, row color datagridview, color alterrnate datagridview, listview color, style row grid, using color for grid or list, how to coloring datagridview, vbnet, c#

AutoScroll PictureBox OCX For VB6

Screenshot :
Click HERE to download full source project

Tags:
free ocx vb6, free user control vb6, free download custom button ocx, custom  grid 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

Open Schema Database or Table

Open Schema adalah membongkar semua object yang ada di database secara detail,baik itu di SQL Server maupun jenis database yang lainnya. Kali ini saya akan contohkan SQL Server saja yang banyak digunakan dan mudah dipelajari. Dengan Open Shema ini kita dapat mengetahui database apa saya yang terinstal, table apa saja yang terdapat di setiap database termasuk column, type data, sampai hal yang lebih detail lagi.
Gambar diatas adalah contoh program sederhana yang saya buat untuk posting kali ini. Cara kerjanya simple, saat kita click nama database, maka List Tables/Views akan terisi dengan daftar tabel/view yang terdapat di database yang kita pilih, kemudian saat kita click Nama Tabel/view nya maka List Columns akan terisi sesuai dengan table yang kita pilih. Ok Langsung saja ke codingnya ya... saya buat se-simple mungkin agar mudah di mengerti. 
Siapkan saja 1 project, 1 form, 3 datagridview (name=djieDatagridview1,2,3), optional 3 label untuk judul diatas datagridnya.

 Dim con As New Odbc.OdbcConnection("dsn=local")

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'buka koneksi
        con.Open()
        'gunakan dulu database master
        con.ChangeDatabase("master")
        'select semua database
        Dim adp As New Odbc.OdbcDataAdapter("SELECT name as [Nama Database] FROM SYSDATABASES", con)
        'load database ke grid
        Dim datatable As New DataTable
        adp.Fill(datatable)
        djieDataGridView1.DataSource = datatable
        djieDataGridView1.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCells)
    End Sub



Private Sub djieDataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles djieDataGridView1.CellClick

        'ganti database sesuai yang dipilih
        con.ChangeDatabase(djieDataGridView1.CurrentRow.Cells(0).Value.ToString)
        'select semua table / view di database yang dipilih
        Dim sql As String = "SELECT TABLE_NAME as [Nama Table],    TABLE_TYPE AS [Type]  FROM INFORMATION_SCHEMA.TABLES ORDER BY TABLE_NAME"
        Dim adp As New Odbc.OdbcDataAdapter(sql, con)
        Dim datatable As New DataTable
        adp.Fill(datatable)
        'load database ke grid
        djieDataGridView2.DataSource = datatable
        djieDataGridView2.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCells)
    End Sub

    Private Sub djieDataGridView2_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles djieDataGridView2.CellClick
        'select semua column di table / view yang dipilih
        Dim sql As String = "SELECT COLUMN_NAME AS [Nama Column], DATA_TYPE AS [Type Data] FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME='" + djieDataGridView2.CurrentRow.Cells(0).Value.ToString + "' ORDER BY ORDINAL_POSITION"
        Dim adp As New Odbc.OdbcDataAdapter(sql, con)
        Dim datatable As New DataTable
        adp.Fill(datatable)
        'load database ke grid
        djieDataGridView3.DataSource = datatable
        djieDataGridView3.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCells)
    End Sub