Aplikasi Pengolahan Data Alamat Kontak

berikut ini adalah sebuah aplikasi pengolahan data alamat kontak yang penulis buat, bermanfaat untuk menyimpan data-data alamat kontak baik itu berupa data kontak teman, kerabat keluarga dan atau rekan bisnis.

berikut ini screenshot dari aplikasi

anda bisa mendownload dan menggunakan aplikasi ini dengan bebas dengan mengunduhnya dari link di sini.

untuk bisa menjalankan aplikasi ini, pastikan komputer anda sudah terinstall .NET Framework 4.0. jika blom, anda bisa mengunduhnya dan menginstallnya dari situs ini atau yang ini.

Semoga Bermanfaat ^-^

Rgds
Adi

Memanfaatkan File Biner Untuk Menyimpan Gambar

selain file teks, kita juga bisa membuat dan menggunakan file biner. di dalam VB.NET, juga sudah disediakan cara instant jika kita ingin membuat dan membaca ke dan dari file biner secara intantly.

untuk menulis ke dalam file biner, gunakan:

My.Computer.FileSystem.WriteAllBytes(Filename:string, Content:byte(), Append:boolean)

sedangkan jika kita ingin membaca isi dari sebuah file teks, gunakan:

My.Computer.FileSystem.ReadAllBytes(Filename:string):byte()

contoh berikut ini ditulis dengan menggunakan VB 10 (VS 2010):

Form:

Code:

Public Class FrmDemoFileBiner

    Private Sub btnBukaGambar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBukaGambar.Click
        Using ofd As New OpenFileDialog()
            With ofd
                .Title = "Buka File Gambar"
                .Filter = "JPEG File (*.JPG)|*.jpg"
                .InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyPictures
                .Multiselect = False
                .CheckPathExists = True
                .CheckFileExists = True
                .FileName = ""
                If .ShowDialog() = Windows.Forms.DialogResult.OK Then
                    If .FileName <> "" Then
                        Me.PicBox.Image = Image.FromFile(.FileName)
                        Me.lblKeterangan.Text = String.Format("NamaFile: {0}", .FileName)
                    End If
                End If
            End With
        End Using
    End Sub

    Private Sub btnBukaBiner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBukaBiner.Click
        Using ofd As New OpenFileDialog()
            With ofd
                .Title = "Buka File Biner"
                .Filter = "Binary File (*.Bin)|*.bin"
                .InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyPictures
                .Multiselect = False
                .CheckPathExists = True
                .CheckFileExists = True
                .FileName = ""
                If .ShowDialog() = Windows.Forms.DialogResult.OK Then
                    If .FileName <> "" Then
                        ' membaca dari file biner dan menampilkan ke PicBox
                        Me.PicBox.Image =
                            DirectCast(
                                New ImageConverter().ConvertFrom(My.Computer.FileSystem.ReadAllBytes(.FileName)),
                                Image)
                        Me.lblKeterangan.Text = String.Format("NamaFile: {0}", .FileName)
                    End If
                End If
            End With
        End Using
    End Sub

    Private Sub btnSimpanAsBiner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpanAsBiner.Click
        Try
            Using sfd As New SaveFileDialog()
                With sfd
                    .Title = "Simpan Gambar As File Biner"
                    .Filter = "Binary File (*.Bin)|*.bin"
                    .InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyPictures
                    .CheckPathExists = True
                    .OverwritePrompt = True
                    .DefaultExt = ".bin"
                    .FileName = "MyBinaryFile.bin"
                    If .ShowDialog() = Windows.Forms.DialogResult.OK Then
                        If .FileName <> "" Then
                            ' menulis ke file biner
                            My.Computer.FileSystem.WriteAllBytes(
                                .FileName,
                                DirectCast(New ImageConverter().ConvertTo(Me.PicBox.Image, GetType(Byte())), Byte()),
                                False)
                        End If
                    End If
                End With
            End Using
        Catch ex As Exception
            MessageBox.Show(ex.Message, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Try
    End Sub

    Private Sub btnBersihkanPicBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBersihkanPicBox.Click
        Me.PicBox.Image = Nothing
        Me.lblKeterangan.Text = "NamaFile:"
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.lblKeterangan.Text = "NamaFile:"
    End Sub

End Class

beberapa point penting yang harus diperhatikan dari code di atas adalah sebagai berikut:

My.Computer.FileSystem.WriteAllBytes(
       .FileName,
       DirectCast(
            New ImageConverter().ConvertTo(Me.PicBox.Image, GetType(Byte())), Byte()),
            False)

potongan code di atas bertugas untuk menyimpan gambar ke dalam sebuah file biner.

isi content yang akan ditulis ke dalam file biner harus dikonversi terlebih dahulu ke dalam format array of byte (byte()). pada contoh code di atas, digunakan class ImageConverter dan Method ConvertTo untuk melakukan konversi object Image ke dalam byte(). potongan code untuk konversinya bisa dilihat di bawah ini

DirectCast(New ImageConverter().
                            ConvertTo(Me.PicBox.Image, GetType(Byte())), Byte())

 

method DirectCast digunakan untuk mengkonversi hasil dari method ConvertTo ke dalam byte() karena method ConvertTo ini akan menghasilkan tipe data balik dalam bentuk Object.

potongan code berikutnya yang harus diperhatikan adalah:

Me.PicBox.Image =
        DirectCast(New ImageConverter().
               ConvertFrom(My.Computer.FileSystem.ReadAllBytes(.FileName)), 
               Image)

potongan code di atas berfungsi untuk membaca isi dari file biner. karena kembalian dari method ReadAllBytes adalah dalam bentuk byte(), maka kita perlu melakukan konversi kembali dari byte() menjadi sebuah Image. hal ini bisa dilakukan dengan menggunakan class ImageConverter dan method ConvertFrom. karena method ConvertFrom ini akan menghasilkan tipe data balik berupa Object, maka kita harus cast kembali tipe data tersebut menjadi Image dengan menggunakan bantuan method DirectCast.

berikut ini bentuk tampilan program ketika dijalankan:

ok, sekian dari saya, semoga bermanfaat bagi kita semua.

 

Rgds
Adi

Cara Menulis dan Membaca File Teks dengan Cepat dan Tepat

VB.NET menyediakan cara yang sangat instant melalui Namespace My jika kita ingin menulis dan membaca dari sebuah file teks dengan instantly.

untuk menulis ke dalam file teks, gunakan:

My.Computer.FileSystem.WriteAllText(Filename:string, Content:string, Append:boolean)

sedangkan jika kita ingin membaca isi dari sebuah file teks, gunakan:

My.Computer.FileSystem.ReadAllTeks(Filename:string):string

contoh berikut ini ditulis dengan menggunakan VB 10 (VS 2010):

Form:

Code:

Public Class FrmDemoFileTeks

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Try
            Using sfd As New SaveFileDialog()
                With sfd
                    .Title = "Simpan File"
                    .Filter = "Teks File (*.Txt)|*.txt"
                    .InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyPictures
                    .CheckPathExists = True
                    .OverwritePrompt = True
                    .DefaultExt = ".txt"
                    .FileName = "FileTeks.txt"
                    If .ShowDialog() = Windows.Forms.DialogResult.OK Then
                        If .FileName <> "" Then
                            ' menyimpan isi dari RichTextBox ke dalam file
                            My.Computer.FileSystem.WriteAllText(
                                .FileName,
                                Me.RichTextBox1.Text,
                                False)
                        End If
                    End If
                End With
            End Using
        Catch ex As Exception
            MessageBox.Show(ex.Message, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Try
    End Sub

    Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click
        Using ofd As New OpenFileDialog()
            With ofd
                .Title = "Buka File"
                .Filter = "Teks File (*.Txt)|*.txt"
                .InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyPictures
                .CheckPathExists = True
                .CheckFileExists = True
                .Multiselect = False
                .FileName = ""
                If .ShowDialog() = Windows.Forms.DialogResult.OK Then
                    If .FileName <> "" Then
                        Me.RichTextBox1.Clear()
                        ' membaca isi file dan menampilkannya
                        Me.RichTextBox1.AppendText(
                            My.Computer.FileSystem.ReadAllText(.FileName))
                    End If
                End If
            End With
        End Using
    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        Me.RichTextBox1.Clear()
        Me.lblBanyakKarakter.Text = "0"
    End Sub

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        Me.lblBanyakKarakter.Text = Me.RichTextBox1.TextLength.ToString()
    End Sub

End Class

point penting yang perlu diperhatikan dari code di atas adalah:

My.Computer.FileSystem.WriteAllText(.FileName, Me.RichTextBox1.Text, False)

potongan code di atas bertugas untuk menyimpan isi dari RichTextBox1 ke dalam file di mana modus append nya adalah false.

My.Computer.FileSystem.ReadAllText(.FileName)

 

potongan code di atas bertugas untuk membaca isi dari file sesuai dengan nama file yang ditentukan oleh user melalui sebuah OpenFileDialog box.

kemudian, karena kita padukan codenya menjadi seperti berikut

Me.RichTextBox1.AppendText(My.Computer.FileSystem.ReadAllText(.FileName))

code di atas memiliki arti, baca isi dari file dan kemudian tampilkan isi dari filenya ke dalam RichTextBox1.

berikut ini bentuk tampilan ketika program dijalankan.

ok, sekian dari saya, semoga bermanfaat bagi kita semua.

 

Rgds
Adi

Hero – By Mariah Carey

There's a hero if you look inside your heart
You don't have to be afraid of what you are.
There's an answer if you reach into your soul
and the sorrow that you know will melt away

And then a hero comes along
with the strength to carry on
and you cast your fears aside
and you know you can survive.

So, when you feel like hope is gone
look inside you and be strong
and you'll finally see the truth
that a hero lies in you.

It's a long road when you face the world alone,
No one reaches out a hand for you to hold.
You can find love if you search within yourself
and the emptiness you felt will disappear.

And then a hero comes along
with the strength to carry on
and you cast your fears aside
and you know you can survive.

So, when you feel like hope is gone
look inside you and be strong
and you'll finally see the truth
that a hero lies in you.

oh, ohhh,Lord knows dreams are hard to follow,
But don't let anyone tear them away.
Hold on, there will be tomorrow,
In time you'll find the way

And then a hero comes along
with the strength to carry on
and you cast your fears aside
and you know you can survive.

So, when you feel like hope is gone
look inside you and be strong
and you'll finally see the truth
that a hero lies in you
that a hero lies in ... you
mmmm that a hero lies in.....you.

Penggunaan LINQ Untuk Group dan Count Elemen Data

misalkan kita memiliki koleksi data dalam sebuah file yang isinya lebih kurang seperti berikut ini:
001
002
003
004
005
…
…
…
001
001
…
…

kita misalkan nama filenya adalah Angka.Txt.

nah untuk mendapatkan jumlah kemunculan dari masing-masing data yang ada di atas, dapat ditempuh dengan menggunakan beberapa pendekatan, salah satu pendekatan yang bisa ditempuh adalah dengan menggunakan LINQ yang merupakan salah satu fitur yang dapat kita manfaatkan sejak versi VB 9.0.

LINQ (Language Integrated Query) adalah query yang terintegrasi ke dalam bahasa pemrograman VB untuk memudahkan kita melakukan query terhadap sebuah koleksi data, salah satunya seperti pada contoh yang digunakan di atas.

berikut ini cara penyelesaian yang dilakukan:
1. Buat sebuah Project. kali ini yang digunakan adalah sebuah project yang berbasis Console Application. berikan nama project sesuai dengan keinginan anda.
2. ketik code berikut ini:
Imports System.IO

Module Module1

    Sub Main()
        Dim content = File.ReadAllLines("Angka.Txt")
        Dim dup = From el In content _
                  Group el By el Into e = Count() _
                  Order By e Descending _
                  Select el, e
        For Each item In dup
            Console.WriteLine(String.Format(“{0} = {1}”, item.el, item.e)
        Next
    End Sub

End Module

3. Run dan lihat hasil yang diperoleh ;-)

Penjelasan:
LINQ pada code di atas terdapat pada potongan code berikut:
Dim dup = From el In content _
                  Group el By el Into e = Count() _
                  Order By e Descending _
                  Select el, e
pada potongan code tsb, compiler diminta untuk men-group-kan data yang ada berdasarkan elemen-elemen yang ada di dalam koleksi data yang dibaca, dan kemudian dari hasil grouping tsb, hitung jumlah elemennya masing-masing, kemudian urutkan berdasarkan jumlah elemen data secara descending.

nah, jika diamati dengan seksama, apa sebenarnya yang terjadi dengan code di atas ?
ya, code tsb (red. Query di atas) memberikan perintah ke compiler dengan memberitahukan ke compiler apa yang diinginkan oleh code tsb, tapi code tsb tidak memberitahukan bagaimana cara mendapatkan output yang diinginkan. ini yang disebut dengan paradigma “Declarative Style”, dimana programmer cukup menuliskan code yang menerangkan “apa yang harus dikerjakan oleh compiler, bukan memberitahukan ke compiler bagaimana mengerjakan pekerjaan tsb (red. Imperative Style), untuk ururan bagaimana, serahkan ke compiler untuk mencari cara terbaik yang dimiliki oleh kemampuan compiler yang bersangkutan”.

berikut contoh tampilan output program yang dihasilkan:

Rgds
Adi

Kembali Lagi …

Hi all, apa kabar ? sudah lama tidak menulis artikel di blog ;-)  dan tidak terasa sekarang sudah memasukin tgl 1 september 2010 (hus… time move so fast …)

ingin aktif menulis kembali, so …  stay tune all.

Rgds
Adi

My New Cert. From Geeks.NetIndonesia.Net

Hi … lama tidak bersua karena kesibukan. hari ini akhirnya sempat jg menulis kembali di blog saya ini.

ok, karena barusan mengikuti assessment C# Fundamental dari situs geeks.netindonesia.net dan lulus, berikut ini saya perlihatkan sertifikat yang saya peroleh :-)

Peace,
and always sharing the knowledge.

Rgds
ADI