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

Cukup dengan coding yang pendek itu saja.... OK

Tags:
remove cell datagridview, remove row datagridview, delete row datagridview, delete cell datagridview, how to delete selected datagridview, delete selected row, delete selected cell, clear datagridview, clean datagridview, vb net, c#,  fuction, example, source code

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

Semoga artikel ini bisa bermanfaat, selamat mencoba...

Tags:
fade in vbnet, fade out, efect fade c#, style fade, fade form, form fading, visual studio, function, source code, example, opacity, using transparancy form, how to make transparancy form

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

Erase djieArray

b.Menghapus isi array

Array.Clear(djieArray, 0, djieArray.Length)

Sekian pembahasan tentang array, semoga bermanfaat. Sampa jumpa lagi di posting-an berikutnya... see ya..http://djiesoft.blogspot.com/2011/12/array-redim-split-join-erase-clear.html

Tags:
array, remove array, create array, decalaration array, join array, erase array, index array, get data array, array function, vb net , c#, visual studio, using array , resize array, memory array, redim, looping array, length array, count array

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

    End Function


Tags:
get datetime server, client server,get time server, get computer server time, current datetime, get server time, using servertime, sql server, getdate(), syncronize datetime server cilent

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

Open Schema ini bisa di kembangkan lebih luas lagi.. Contohnya kita bisa membuat "Sql Server Management Studio" buatan sendiri, atau "Sql Analizer" dan lainnya. Sekian dan semoga bermanfaat.


Tags:
how to open schema database, get full schema table, get schema database, sqlserver, information_schema, retrive , get detail table, meta table, get all object database, get column name table, get information database, schema table, schema column, get all field table, get schema object to datagridview, connection schema database, open schema table, view, stored procedure, vbnet, c#, visual studio