March 30, 2009

Visual Basic Join Function

Ini merupakan simple tips untuk membuat Delimit String dengan menggunakan VB Join Function.
Pada artikel ini bagaimana kita membuat function untuk menggabung (join) beberapa kata pada array. Dan pada hasil/output yang di keluarkan akan memberi tanda pemisah antara kata-kata tersebut. Untuk lebih jelas nya ketik sintak dibawah.

Private Function GetDelimitedString(ByVal strings As String(), ByVal delimiter As String) As String
        Return Join(strings, delimiter)
End Function

Sub Main()
        Try
             Dim strings As String() = {"Rina", "Budi", "Agus", "Ahmad"}
            Console.WriteLine(GetDelimitedString(strings, "-"))
        Catch ex As Exception
            Console.WriteLine("error: " & ex.Message)
        End Try
End Sub

Maka hasil nya : Rina-Budi-Agus-Ahmad

Semoga bermanfaat..
Wassalam

March 25, 2009

MULTIPLE BINDINGNAVIGATOR PADA VB 2008


Pada artikel ini kita akan bermain pada VB 2008 Express, tidak seperti pada artikel-artikel sebelumnya dimana tulisan penulis masih menggunakan Vb.net 2003. Untuk topik yang akan dibahas kali ini adalah bagaimana menggunakan BindingNavigator lebih dari satu pada form yang sama. Disini juga dijelaskan bagaimana membuat DataSource untuk MS Acess sebagai database nya. Untuk database pada artikel ini kita menggunakan sample DB dari Microsoft Norhwind.mdb yang dapat di lihat di :\Program Files\Microsoft Office\OFFICE11\SAMPLES. Sekarang ikuti langkah-langkah pada artikel ini.

Untuk mendapatkan source code lengkap nya bisa didapatkan disini

Sedangkan untuk artikel lengkapnya bisa didapatkan disini

Selamat mencoba...

Wassalam

March 23, 2009

Membuat Fungsi SelectedIndexChanged pada ComboBox di DataGridView


Pada artikel sebelumnya, telah di jelaskan bagaimana menambah control ComboBox pada DataGridView. Sekarang bagaimanakah membuat method SelectedIndexChange pada ComboBox tersebut.
Untuk control ComboBox yang diambil dari ToolBox method SelectedIndexChange sudah tersedia, Biasa nya fungsi ini di gunakan untuk menampilkan data/informasi jika nilai dari control ini dipilih.
Sedangkan untuk ComboBox pada DataGridView kita harus melakukan beberapa langkah dengan coding.
Pertama ketik Sintaks dibawah ini :

Private Sub NamaGrade_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
        Try
             Dim comboBox1 As ComboBox = CType(sender, ComboBox)
            'Ketikkan sintaks untuk menampilkan data yang di inginkan
 Catch ex As Exception
             MsgBox(ex.Message)
        End Try
End Sub

Lalu untuk mengaktifkan fungsi diatas, ikuti langkah dibawah.
Masih pada jendela Code, pilih control DataGridView pada ComboBox Class Name lalu pilih Method Name nya EditingControlShowing
Dan ketikkan sintaks dibawah ini :

Private Sub DataGridViewTTB_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridViewTTB.EditingControlShowing
        Dim cb As ComboBox = TryCast(e.Control, ComboBox)
        If cb IsNot Nothing Then
            RemoveHandler cb.SelectedIndexChanged, AddressOf NamaGrade_SelectedIndexChanged
            Select Case DataGridViewTTB.CurrentCell.ColumnIndex
                Case 1 'Posisi / nomor kolom control ComboBox pada DatagridView
                    AddHandler cb.SelectedIndexChanged, AddressOf NamaGrade_SelectedIndexChanged
            End Select
        End If
End Sub

Dengan ini kita bisa menambahkan method untuk control-control yang kita buat pada DataGridView, seperti method Leave pada TextBox. Ketikkan Sintaks dibawah ini.

Private Sub Jumlah_leave(ByVal sender As Object, ByVal e As EventArgs)
        Try
            Dim a, b, c, d, z As Integer
            Dim total As Double
            a = DataGridViewTTB.CurrentRow.Cells(4).Value
            b = DataGridViewTTB.CurrentRow.Cells(5).Value
            c = DataGridViewTTB.CurrentRow.Cells(6).Value
            d = DataGridViewTTB.CurrentRow.Cells(7).Value
            z = a * b * c * d
            total = z / 5085.31
            DataGridViewTTB.CurrentRow.Cells(8).Value = total
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Lalu pada method EditingControlShowing seperti di atas tambahkan sintaks dibawah ini.
Dim tb As TextBox = TryCast(e.Control, TextBox)
        If tb IsNot Nothing Then
            RemoveHandler tb.Leave, AddressOf Jumlah_leave
            Select Case DataGridViewTTB.CurrentCell.ColumnIndex
                Case 7 'Posisi / nomor kolom control TextBox pada DatagridView
                    AddHandler tb.Leave, AddressOf Jumlah_leave
            End Select
        End If

Semoga bermanfaat..
Wassalam

March 16, 2009

.NET Programming Curriculum


Saya disini hanya memperpanjang informasi dari Rekan-rekan pengurus INDC, bahwa ada kabar gembira bagi pecinta .Net khusus nya Vb.Net. 
Bagi rekan-rekan semua yang ingin mempelajari VB 2008 sudah tersedia free resources di geeks portal.
.NET Programming Curriculum terdiri dari berbagai resource mengenai tutorial Pemrograman .NET. Curriculum-curriculum yang tersedia terdiri dari beberapa modul-modul yang dikemas untuk memudahkan pembelajaran terhadap .Net Programming.

1. Slide Presentasi
Menggambarkan garis besar secara konseptual tentang modul yang akan dibahas
2. Hands-On-Lab (HOL)
Hands-on-Lab adalah tutorial step by step dalam membahas topik bersifat "how to".
3. Video Tutorial
Video tutorial merupakan cara yang sangat efektif untuk memandu kita dalam belajar yang lebih atraktif
4. Lab Files
Lab files merupakan sample code yang diberikan untuk menlengkapi kurikulum.
5. Quiz / Assessment
Selain materi pembelajaran, terdapat juga quiz / soal latihan pada setiap modul
6. Certificate Awarded
Rekan - rekan yang telah menyelesaikan Assessment dengan nilai 70, akan diberikan sertifikat online

Bagus ga sertifikat di atas, udah dikasih resources gratis, trus dapet sertifikat lagi. :)
Jadi buruan ke sini
Wasaalam