Console.WriteLine()

Sssttt …. Windows 64 bit lebih renyah dari 32 bit

2011-01-20T09:13:00.001+07:00

untuk semua yang sudah memiliki alat tempur yang support 64 bit, dan menggunakan windows, disarankan untuk memasang versi 64 bit nya, rasanya wuss… wusss… jauh lebih kencang ^^.

Rgds
Adi

Generic In VB.NET

2010-11-15T14:17:00.001+07:00

karena lagi seru2nya nobar bareng teman2 mengenai topik Generic dengan C++ yang bisa bikin mual karena penggunaan tanda * dan ** (a.k.a. Pointer).

berikut ini bentuk sederhananya dengan menggunakan bahasa pemrograman VB yang terdapat dalam .NET Platform.

berikut ini ceritanya:

misalkan kita ingin membuat fungsi untuk melakukan pertukaran data, dengan fungsi seperti berikut ini:

Sub Swap(ByRef a As Integer, ByRef b As Integer)
        Dim temp As Integer = a
        a = b
        b = temp
End Sub

fungsi diatas bisa kita gunakan untuk mempertukarkan 2 buah data yang bertipe integer. seperti contoh penggunaan berikut ini:

Dim a, b As Integer
a = 2
b = 5
Console.WriteLine("A = {0}, B = {1}", a, b)
Swap(a, b)
Console.WriteLine("A = {0}, B = {1}", a, b)

pertanyaannya, bagaimana jika kita ingin mempertukarkan data yang bertipe double, atau string ?. jika dengan pendekatan di atas, maka harus didefinisikan fungsi-fungsi yang sama yang bersesuaian dengan tipe data yang diinginkan (istilahnya: method overloading)

namun, untuk membuat proses tersebut menjadi lebih mudah, bisa digunakan Generic Method, sehingga definisi fungsi cukup dilakukan 1x saja, kemudian bisa digunakan untuk jenis tipe data apa saja. berikut ini fungsi swap dalam bentuk Generic:

Sub SwapGeneric(Of T)(ByRef x1 As T, ByRef x2 As T)
        Dim temp As T = x1
        x1 = x2
        x2 = temp
End Sub

perhatikan perbedaan yang ada antara Swap dengan SwapGeneric, di SwapGeneric, fungsi tersebut tidak memberitahukan secara spesifik apa tipe data yang akan dipertukarkan, tapi dibuat Generic dengan menggunakan T yang nantinya T tersebut akan digantikan oleh tipe data yang diinginkan pada saat fungsi SwapGeneric ini digunakan. berikut ini contoh penggunaannya:

- mempertukarkan 2 buah data integer

Dim a, b As Integer
a = 2
b = 5
Console.WriteLine("A = {0}, B = {1}", a, b)
SwapGeneric(Of Integer)(a, b)
Console.WriteLine("A = {0}, B = {1}", a, b)

- mempertukarkan 2 buah data double

Dim c, d As Double
c = 10.2
d = 5.5
Console.WriteLine("C = {0}, D = {1}", c, d)
SwapGeneric(Of Double)(c, d)
Console.WriteLine("C = {0}, D = {1}", c, d)

- mempertukarkan 2 buah data string

Dim e, f As String
e = "Saya"
f = "Dia"
Console.WriteLine("E = {0}, F = {1}", e, f)
SwapGeneric(Of String)(e, f)
Console.WriteLine("E = {0}, F = {1}", e, f)

bisa dilihat, dengan fungsi yang sama, bisa digunakan untuk mempertukarkan data dengan tipe data apa saja. bahkan untuk class seperti yang ditunjukkan pada contoh berikut ini:

Dim p1 As New Point(10, 2)
Dim p2 As New Point(5, 6)
Console.WriteLine("Before:")
Console.WriteLine("P1 -> " & p1.ToString())
Console.WriteLine("P2 -> " & p2.ToString())
SwapGeneric(Of Point)(p1, p2)
Console.WriteLine("After:")
Console.WriteLine("P1 -> " & p1.ToString())
Console.WriteLine("P2 -> " & p2.ToString())

dengan definisi class Point adalah sebagai berikut:

Public Class Point
    Public Property X As Integer
    Public Property Y As Integer
    Public Sub New(ByVal x As Integer, ByVal y As Integer)
        Me.X = x
        Me.Y = y
    End Sub
    Public Overrides Function ToString() As String
        Return String.Format("X = {0}, Y = {1}", X, Y)
    End Function
End Class

selain membuat method Generic, kita juga bisa membuat class Generic, seperti contoh struktur data Stack Generic berikut ini:

Public Class StackGeneric(Of T)

    Dim data As New List(Of T)

    Public Sub New()
        data.Clear()
    End Sub

    Public Function Count() As Integer
        Return data.Count
    End Function

    Public Sub Push(ByVal s As T)
        data.Add(s)
    End Sub

    Public Function Pop() As T
        Dim s As T = data(data.Count - 1)
        data.RemoveAt(data.Count - 1)
        Return s
    End Function

    Public Function Top() As T
        Return data(data.Count - 1)
    End Function

End Class

sama seperti T pada method Generic, di sini T juga baru akan ditentukan tipe datanya nanti pada saat penggunaan. dan berikut ini contoh penggunaan dari class di atas:

‘ membuat object StackGeneric –> Of Integer
Dim stack1 As New StackGeneric(Of Integer)()

Console.WriteLine(stack1.Count())

stack1.Push(1)
stack1.Push(2)
stack1.Push(3)
stack1.Push(4)
stack1.Push(5)

Console.WriteLine(stack1.Count())

Console.WriteLine("Elemen Stack:")
While stack1.Count > 0
Console.WriteLine(stack1.Pop())
End While

dan karena sifatnya yang Generic, kita juga bisa mendefinisikan stack of string seperti contoh berikut ini:

Dim stack2 As New StackGeneric(Of String)()
Console.WriteLine(stack2.Count())
stack2.Push("Satu")
stack2.Push("Dua")
stack2.Push("Tiga")
stack2.Push("Empat")
stack2.Push("Lima")
Console.WriteLine(stack2.Count())
Console.WriteLine("Elemen Stack:")
While stack2.Count > 0
Console.WriteLine(stack2.Pop())
End While

ok, semoga bermanfaat.

Rgds
Adi

Demo Praktek - Program Membuat Menu Pesanan Makanan Pada Restoran

2010-11-06T09:18:00.001+07:00

Program berikut ini ditulis dengan menggunakan VB 2010.

berikut ini screenshot rancangan form nya:

dan berikut ini tampilan sewaktu mode Run:

program sudah didesain sangat fleksibel, sehingga penambahan menu makanan, menu minuman dan menu bonus bisa dilakukan dengan mudah tanpa perlu banyak mengedit source code program. hal yang perlu dilakukan untuk setiap penambahan menu yang baru adalah:

1. penamaan terhadap kontrol checkbox nama menu, label harga, dan textbox jumlah pesanan baru tersebut.
format:
checkbox –> chkXXX
label –> lblXXX
textbox –> txtXXX

2. daftarkan pada jendela properties event pada event CheckedChanged untuk checkbox yang baru tersebut agar menggunakan event handler CheckedChanged yang sudah ada.

ok, source code program dapat didownload dari Sini.
semoga bermanfaat

Rgds
Adi

Access Modifier VB.NET Version

2010-10-30T20:14:00.001+07:00

ketika bekerja dengan paradigma OO, access modifier merupakan salah satu point penting yang harus diperhatikan ketika menulis code. dengan menggunakan access modifier, programmer bisa membatasi type yang ditulis (apakah class, method, property, field, etc.) dapat diakses dari mana saja.

sama seperti C#, untuk VB.NET, access modifier yang dapat digunakan juga ada 5, yaitu: Public, Friend, Protected, Private dan Protected Friend

berikut ini penjelasan dari masing-masing access modifier:

1. Public

type yang menggunakan access modifier ini membuat type tersebut bisa diakses tanpa pembatasan apapun. secara default.

2. Friend

type yang menggunakan access modifier ini membuat type tersebut bisa diakses selama dalam satu assembly yang sama. assembly di sini berarti sebuah dll.

Friend ini merupakan access modifier default yang digunakan untuk class yang tidak menuliskan access modifiernya secara explicit.

Friend lebih terbatas dari Public.

3. Protected

type yang menggunakan access modifier ini membuat type tersebut hanya bisa diakses dari type yang bersangkutan dan turunan dari type yang bersangkutan.

Protected lebih terbatas dari Friend.

4. Private

type yang menggunakan access modifier ini membuat type tersebut hanya bisa diakses dari type yang bersangkutan.

private merupakan access modifier yang paling secure. semua type yang dilabeli access modifier private membuat type tersebut tidak dapat diakses dari luar type yang bersangkutan.

5. Protected Friend

access modifier ini merupakan pengabungan dari dari Protected dan Friend. dengan menggunakan access modifier ini, maka sebuah type dapat diakses dari dalam class yang bersangkutan, atau dari turunan class yang bersangkutan atau dalam satu assembly yang sama.

ok, semoga bermanfaat

Rgds
Adi

Access Modifier C# Version

2010-10-30T12:51:00.001+07:00

untuk C#, access modifier yang dapat digunakan ada 5, yaitu: public, internal, protected, private dan protected internal

berikut ini penjelasan dari masing-masing access modifier:

1. public

type yang menggunakan access modifier ini membuat type tersebut bisa diakses tanpa pembatasan apapun. secara default, enumeration dan interface menggunakan access modifier ini.

2. internal

type yang menggunakan access modifier ini membuat type tersebut bisa diakses selama dalam satu assembly yang sama. assembly di sini berarti sebuah dll.

internal lebih terbatas dari public.

3. protected

type yang menggunakan access modifier ini membuat type tersebut hanya bisa diakses dari type yang bersangkutan dan turunan dari type yang bersangkutan.

protected lebih terbatas dari internal.

4. private

type yang menggunakan access modifier ini membuat type tersebut hanya bisa diakses dari type yang bersangkutan. merupakan access modifier default yang digunakan untuk variable (field) dan method.

private merupakan access modifier yang paling secure. semua type yang dilabeli access modifier private membuat type tersebut tidak dapat diakses dari luar type yang bersangkutan.

5. protected internal

access modifier ini merupakan pengabungan dari dari protected dan internal. dengan menggunakan access modifier ini, maka sebuah type dapat diakses dari dalam class yang bersangkutan, atau dari turunan class yang bersangkutan atau dalam satu assembly yang sama.

ok, semoga bermanfaat

Rgds
Adi

Source Code Praktek Mengenai Topik Menu

2010-10-27T15:28:00.002+07:00

sesuai dengan janji saya, berikut ini source dari topik menu yang dibahas pada praktek hari selasa tgl 26/10/2010. silahkan download dari link Ini

dan semoga bermanfaat,

Rgds
Adi

Create Koneksi Antara VB.NET (a.k.a B#) dengan Database SQL Server

2010-10-24T19:46:00.001+07:00

untuk bisa bekerja dengan database dari program vb.net, langkah pertama yang harus dilakukan adalah dengan membentuk koneksi antara program dengan database servernya. pada artikel ini, database yang digunakan adalah SQL Server 2008 dengan nama database yang akan digunakan adalah OMS dan untuk user SQL Servernya yang akan digunakan adalah sa dengan sandi misalkan juga sa.

karena database yang digunakan adalah SQL Server, namespace yang akan kita manfaatkan adalah namespace System.Data.SqlClient. object class yang bertanggung jawab untuk membentuk koneksi dengan database adalah object bertipe SqlConnection.

object SqlConnection sendiri dalam membentuk koneksi ke database SQL Server memerlukan parameter yang disebut sebagai ConnectionString. ConnectionString ini sendiri adalah sebuah string yang berisi parameter-parameter yang dibutuhkan untuk membentuk koneksi itu sendiri. adapun parameter-parameter tersebut adalah:

Data Source atau Server –> menyatakan nama komputer / ip address komputer di mana database SQL Servernya berada. jika database berada satu mesin dengan aplikasi, anda bisa menggunakan localhost\<sql server instance name> atau (local)\<sql server instance name> atau .\<sql server instance name>
untuk mengecek sql server instance name, bisa dilakukan via menu sql server configuration manager seperti yang ditunjukkan pada gambar berikut.

pada laptop saya, sql server instance name yang digunakan adalah SQL2008

Initial Catalog atau Database –> menyatakan nama database yang akan diambil / digunakan dari mesin database SQL Server yang sudah berhasil dicontact. pada artikel ini database yang akan digunakan bernama OMS.

Integrated Security = True | SSPI atau UID = <UserID>; PWD = <Password> –> digunakan untuk memberitahukan cara program akan melakukan koneksi ke database SQL Server, dalam hal ini ada 2 teknik yang bisa digunakan, yaitu dengan menggunakan Windows Authentication yakni dengan menggunakan account windows (via Integrated Security = True | SSPI), atau dengan menggunakan SQL Server Authentication yakni dengan menggunakan account sql server yang sudah disediakan (via UID = <UserID>; PWD = <Password>).

ok, berikut ini detail bagaimana kode proses pembentukan koneksi ke database sql server via vb.net

misalkan rancangan programnya seperti berikut ini:

untuk proses pembentukan koneksi, sedikitnya ada dua pendekatan yang bisa digunakan, yaitu:

Early Open – Late Closed

contoh code ditunjukkan pada sample code berikut ini:

' import namespace yang dibutuhkan
Imports System.Data.SqlClient

Public Class Form1

    ' buat object bertipe SqlConnection
    Dim conn As SqlConnection = Nothing
    ' bentuk string ConnectionString
    ' jika menggunakan windows auth.
    Dim connString As String = _
              "Data Source = .\sql2008; Initial Catalog = OMS; Integrated Security = True"
    ' jika menggunakan sql server auth.
    'Dim connString2 As String = _
    '          "Data Source = .\sql2008; Initial Catalog = OMS; UID = sa; PWD = sa"

    ' Early open via constructor
    Public Sub New()
        InitializeComponent()
        ' create object SqlConnection dengan melewatkan parameter
        ' yang dibutuhkan via ConnectionString
        ' jika menggunakan windows auth.
        conn = New SqlConnection(connString)
        ' atau
        ' jika menggunakan sql server auth.
        'conn = New SqlConnection(connString2)
        ' open koneksinya
        conn.Open()
        ' tampilkan state dari koneksi
        ' jika berhasil dibuka, maka akan tercetak Status Koneksi: Open
        Me.lblStatus.Text = String.Format("Status Koneksi: {0}", conn.State.ToString())
    End Sub

    ' late closed via event FormClosed
    Private Sub Form1_FormClosed(ByVal sender As Object, _
            ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        ' menutup koneksi jika ada yang sedang terbuka
        If conn IsNot Nothing Then conn.Close() : conn.Dispose()
    End Sub

End Class

Open When Needed – Closed As Soon As Possible

contoh code ditunjukkan pada sample code berikut ini:

' import namespace yang dibutuhkan
Imports System.Data.SqlClient

Public Class Form1

    ' buat object bertipe SqlConnection
    Dim conn As SqlConnection = Nothing
    ' bentuk string ConnectionString
    ' jika menggunakan windows auth.
    Dim connString As String = _
           "Data Source = .\sql2008; Initial Catalog = OMS; Integrated Security = True"
    ' jika menggunakan sql server auth.
    'Dim connString2 As String = _
    '        "Data Source = .\sql2008; Initial Catalog = OMS; UID = sa; PWD = sa"

    ' open when needed - close ASAP (As Soon As Possible)
    Private Sub btnOpenThenClosed_Click(ByVal sender As System.Object, _
                       ByVal e As System.EventArgs) Handles btnOpenThenClosed.Click
        ' create koneksi on demand
        conn = New SqlConnection(connString)
        conn.Open() ' open koneksi yang sudah terbentuk
        ' cetak status koneksi terkini
        Me.lblStatus.Text = String.Format("Status Koneksi: {0}", conn.State.ToString())
        Application.DoEvents()
        ' biarkan sistem idle selama 3 detik
        ' anda bisa menggantinya dengan proses-proses yang ingin dikerjakan
        System.Threading.Thread.Sleep(3000)
        ' close koneksi
        conn.Close()
        ' dispose koneksi
        conn.Dispose()
        ' cetak status koneksi terkini
        Me.lblStatus.Text = String.Format("Status Koneksi: {0}", conn.State.ToString())
    End Sub

End Class

Penggunaan Using

dengan menggunakan Using … End Using, programmer tidak perlu dipusingkan lagi dengan proses penutupan dan penghapusan object yang sudah tidak digunakan secara manual, karena hal tersebut akan otomatis akan ditangani oleh Using. syarat object yang bisa dipasang dengan Using … End Using adalah object yang mengimplementasikan interface IDisposable seperti object bertipe SqlConnection yang digunakan dicontoh ini. berikut bentuk perubahan code nya:

' import namespace yang dibutuhkan
Imports System.Data.SqlClient

Public Class Form1

    ' buat object bertipe SqlConnection
    Dim conn As SqlConnection = Nothing
    ' bentuk string ConnectionString
    ' jika menggunakan windows auth.
    Dim connString As String = _
            "Data Source = .\sql2008; Initial Catalog = OMS; Integrated Security = True"

    ' open when needed - close ASAP (As Soon As Possible)
    Private Sub btnOpenThenClosed_Click(ByVal sender As System.Object, _
                     ByVal e As System.EventArgs) Handles btnOpenThenClosed.Click
        ' create koneksi on demand
       Using conn = New SqlConnection(connString)
            conn.Open() ' open koneksi yang sudah terbentuk
            ' cetak status koneksi terkini
            Me.lblStatus.Text = String.Format("Status Koneksi: {0}", conn.State.ToString())
            Application.DoEvents()
            ' biarkan sistem idle selama 3 detik
            ' anda bisa menggantinya dengan proses-proses yang ingin dikerjakan
            System.Threading.Thread.Sleep(3000)
        End Using
        ' dengan penggunaan Using,
        ' programmer tidak perlu lagi menutup koneksi secara manual
        ' proses penutupan dan penghapusan object dari memori akan diurus
        ' oleh Using
        ' cetak status koneksi terkini
        Me.lblStatus.Text = String.Format("Status Koneksi: {0}", _
                            If(conn IsNot Nothing, conn.State.ToString(), "Nothing"))
    End Sub

End Class

Menggunakan MySetting properties untuk menyimpan ConnectionString

cara-cara yang dipakai pada code sebelumnya masih menggunakan penulisan ConnectionString secara hardcode. hal ini suatu saat akan menimbulkan keribetan tersendiri apabila suatu saat terjadi pemindahan server database ke lokasi dengan alamat yang berbeda dengan alamat yang digunakan saat ini. untuk itu kita bisa menyimpan string ConnectionString ke dalam file app.config via settingan properties dibagian Setting pada My Project Properties, seperti yang ditunjukkan pada gambar di bawah ini.

dengan menuliskan connectionstring ke dalam file app.config akan membuat proses perubahan terhadap nilai parameter dalam connectionstring lebih mudah untuk dimodifikasi, karena tidak perlu lagi menggantinya langsung dengan cara mengedit code, cuma perlu mengedit file app.config dari aplikasi yang bersangkutan saja.

perubahan terhadap code hanya terjadi pada proses pemanggilan connectionString saja, yaitu dengan memanggil dari object MySetting, seperti ditunjukkan oleh code di bawah ini:

' import namespace System.Data.SqlClient
Imports System.Data.SqlClient

Public Class Form1

    ' buat object bertipe SqlConnection
    Dim conn As SqlConnection = Nothing

    ' open when needed - close ASAP (As Soon As Possible)
    Private Sub btnOpenThenClosed_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpenThenClosed.Click
        ' create koneksi on demand
        ' dengan menggunakan ConnectionString via MySetting Property
        Using conn = New SqlConnection(My.MySettings.Default.ConnString)
            conn.Open() ' open koneksi yang sudah terbentuk
            ' cetak status koneksi terkini
            Me.lblStatus.Text = String.Format("Status Koneksi: {0}", conn.State.ToString())
            Application.DoEvents()
            ' biarkan sistem idle selama 3 detik
            ' anda bisa menggantinya dengan proses-proses yang ingin dikerjakan
            System.Threading.Thread.Sleep(3000)
        End Using
        ' dengan penggunaan Using,
        ' programmer tidak perlu lagi menutup koneksi secara manual
        ' proses penutupan dan penghapusan object dari memori akan diurus
        ' oleh Using
        ' cetak status koneksi terkini
        Me.lblStatus.Text = String.Format("Status Koneksi: {0}", _
                            If(conn IsNot Nothing, conn.State.ToString(), "Nothing"))
    End Sub

End Class

Membentuk string ConnectionString Secara Runtime

dan selain menggunakan cara-cara di atas, kita juga bisa membentuk string ConnectionString secara runtime via object SqlServerConnectionStringBuilder.

untuk sample pada aplikasi ini, kita akan menyesuaikan rancangan aplikasinya menjadi seperti di bawah ini:

dan code programnya adalah sebagai berikut:

' import namespace yang dibutuhkan
Imports System.Data.SqlClient

Public Class Form1

    ' buat object bertipe SqlConnection
    Dim conn As SqlConnection = Nothing
    ' buat object SqlConnectionStringBuilder
    Dim connString As SqlConnectionStringBuilder = Nothing

    Public Sub New()
        InitializeComponent()
        Me.cboAuthType.SelectedIndex = 0
    End Sub

    Private Sub cboAuthType_KeyPress(ByVal sender As Object, _
      ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cboAuthType.KeyPress
        e.Handled = True
    End Sub

    Private Sub cboAuthType_SelectedIndexChanged(ByVal sender As System.Object, _
                 ByVal e As System.EventArgs) Handles cboAuthType.SelectedIndexChanged
        If Me.cboAuthType.SelectedIndex = 0 Then
            Me.txtUserID.Enabled = False
            Me.txtPassword.Enabled = False
        Else
            Me.txtUserID.Enabled = True
            Me.txtPassword.Enabled = True
        End If
    End Sub

    Private Sub btnOpen_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles btnOpen.Click
        Try
            ' validasi
            If Me.txtServerName.Text.Trim().Equals("") Then _
                Throw New Exception("Isi Server Name Please ...")
            If Me.txtDatabaseName.Text.Trim().Equals("") Then _
                Throw New Exception("Isi Database Name Please ...")
            ' membentuk object ConnectionString secara run time
            ' via object SqlConnectionStringBuilder
            connString = New SqlConnectionStringBuilder()
            With connString
                .DataSource = Me.txtServerName.Text.Trim()
                .InitialCatalog = Me.txtDatabaseName.Text.Trim()
                If Me.cboAuthType.SelectedIndex = 0 Then
                    .IntegratedSecurity = True
                Else
                    .UserID = Me.txtUserID.Text.Trim()
                    .Password = Me.txtPassword.Text.Trim()
                End If
            End With
            ' membentuk koneksi
            conn = New SqlConnection(connString.ToString())
            conn.Open() ' open koneksi
            ' cetak status koneksi terkini
            Me.lblStatus.Text = String.Format("Status Koneksi: {0}", conn.State.ToString())
        Catch ex As Exception
            connString = Nothing
            conn = Nothing
            MessageBox.Show(ex.Message, Me.Text, _
                                             MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Try
    End Sub

    Private Sub btnClosed_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles btnClosed.Click
        ' tutup koneksi
        If conn IsNot Nothing Then conn.Close() : conn.Dispose()
        ' cetak status koneksi terkini
        Me.lblStatus.Text = String.Format("Status Koneksi: {0}", _
                            If(conn IsNot Nothing, conn.State.ToString(), "Nothing"))
    End Sub

End Class

untuk C#, anda tinggal menyesuaikan sintaks yang digunakan pada artikel ini dengan sintaks dari bahasa C#.

ok, sekian dari saya, semoga bermanfaat bagi semua.

Rgds
Adi

Demo File => Contoh Source Code Praktek Bahasa Pemrograman IV

2010-10-22T08:11:00.001+07:00

ok, sesuai dengan janji saya, berikut ini merupakan link untuk download source code dari program yang dibahas pada pertemuan ke-3 praktek bahasa pemrograman IV di STMIK – Mikroskil Medan Lab 7 Jam 19.00 – 21.00 materi pemrograman file dengan vb.net

source code program bisa didownload dari link berikut ini (ditulis dengan menggunakan vb 2010)

semoga bermanfaat,

Rgds
Adi

Mengakses Method Suatu Form dari Form lain (SDI Form)

2010-10-20T15:17:00.001+07:00

ok, melanjuti postingan blog yang sebelumnya, kalau dipostingan sebelumnya, kondisi Form1 dan Form2 adalah Form1 sebagai MDIContainer dan Form2 sebagai Child Form dari Form1. muncul pertanyaan, gimana jika Form1 dan Form2 sama-sama merupakan SDI Form (Form1 bukan merupakan MDI Container), jika tetap menggunakan pendekatan yang ada dipostingan sebelumnya, ternyata teknik yang diterapkan menjadi tidak sukses alias gagal. untuk menanggulanginya, bisa digunakan Delegate untuk membypass method yang akan diakses dari Form2. lengkap nya bisa dilihat pada bagian bawah ini:

Code Program.cs

using System;
using System.Windows.Forms;

namespace WindowsFormsApplication1
{
    static class Program
    {
        /// <summary>
        /// The main entry point for the application.
        /// </summary>
        [STAThread]
        static void Main()
        {
            Application.EnableVisualStyles();
            Application.SetCompatibleTextRenderingDefault(false);
            Application.Run(new Form1());
        }
    }
}

Code Form1.cs

using System;
using System.Windows.Forms;

namespace WindowsFormsApplication1
{
public partial class Form1 : Form
{

        // delegate dan method yang akan diassign ke delegate
        public delegate void SetTextDelegate(string s);
        public void OnSetText(string s) { this.Text = s; }

        // delegate dan method yang akan diassign ke delegate
        public delegate string GetTextDelegate();
        public string OnGetText() { return "This Is Text From Form 1"; }

        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            Form2 form = new Form2();
            form.Show();
        }

}
}

Code Form2.cs

using System;
using System.Windows.Forms;

namespace WindowsFormsApplication1
{
    public partial class Form2 : Form
    {
        public Form2()
        {
            InitializeComponent();
        }

        // mendelegasikan delegate yang sudah dicreate dari Form1
        Form1.SetTextDelegate setText =
                 new Form1.SetTextDelegate((Form1.ActiveForm as Form1).OnSetText);
        Form1.GetTextDelegate getText =
                 new Form1.GetTextDelegate((Form1.ActiveForm as Form1).OnGetText);

        private void button1_Click(object sender, EventArgs e)
        {
            // mengakses variable delegate yang sudah dipersiapkan.
            setText("This Text is Set From Form 2");
            this.Text = getText();
        }
    }
}

sedangkan untuk VB.NET, karena defaultnya semua form ada instance staticnya, untuk mengakses method pada Form1 dari Form2 dapat dilakukan dengan lebih mudah, yaitu dengan memanggil static instance defaultnya, seperti yang ditunjukkan pada potongan code di bawah ini

Potongan Code Form2

…

Me.Text = Form1.GetText()
Form1.SetText(“Hello Form1 Set From Form2”)
…

Ok, Semoga Bermanfaat

Rgds
Adi

Mengakses Method Suatu Form dari Form lain

2010-10-20T09:56:00.001+07:00

langsung saja, misalkan ada sebuah aplikasi dengan rancangan form seperti berikut ini:

Form1

Form2

pada rancangan di atas, Form1 bertindak sebagai sebuah MDIForm, sedangkan Form2 adalah Child Form dari Form1.

untuk agar Form2 sebagai Form Child dari Form1 bisa mengakses method yang disediakan di Form1, method dari Form1 tersebut harus dimarked sebagai public method. dan cara aksesnya dapat dilihat pada source code di bawah ini (C#).

Source Code Program.cs

using System;
using System.Windows.Forms;

Source Code Form1.cs

using System;
using System.Windows.Forms;

namespace WindowsFormsApplication1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        // method dengan access public pada Form1
        public string GetText()
        {
            return "Hello Get From Form1";
        }

        // method dengan access public pada Form1
        public void SetText(string s)
        {
            this.Text = s;
        }

        private void button1_Click(object sender, EventArgs e)
        {
            Form2 form = new Form2();
            form.MdiParent = this;
            form.Show();
        }
    }
}

Source Code Form2

using System;
using System.Windows.Forms;

namespace WindowsFormsApplication1
{
    public partial class Form2 : Form
    {
        public Form2()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            // mengakses method public dari Form1
            this.Text = (Form1.ActiveForm as Form1).GetText();
            (Form1.ActiveForm as Form1).SetText("Hello Form1 Set From Form2");
        }
    }
}

Potongan Code Form2

…

Me.Text = Form1.GetText()
Form1.SetText(“Hello Form1 Set From Form2”)
…

Ok, Semoga Bermanfaat

Rgds
Adi

Aplikasi Sederhana Count Down Timer

2010-10-16T12:47:00.001+07:00

berikut ini aplikasi sederhana untuk count down. bisa digunakan untuk melakukan count down untuk selang waktu tertentu.

bisa didownload exe nya di link berikut ini

http://rapidshare.com/files/425356509/Count_Down_Timer.exe

aplikasi ini membutuhkan .NET Framework 4.0.

bentuk screen shot aplikasi adalah sebagai berikut:

untuk menggunakan aplikasi ini, gunakan tombol2 pada keyboard:

1. tombol Up Key – untuk menambah waktu count down

2. tombol Down Key – untuk mengurangi waktu count down

3. tombol Enter – untuk memulai proses count down

4. tombol Esc – untuk menghentikan proses count down

5. tombol Del – untuk reset timer count down

6 Alt + F4 – menutup aplikasi

dan berikut ini source code aplikasi dalam C# dan VB:

using System;
using System.Drawing;
using System.Media;
using System.Windows.Forms;

namespace Count_Down_Timer
{
public partial class FrmCountDown : Form
{

        double lama;
        bool play;
        DateTime selesai;
        DateTime mulai;
        System.Timers.Timer timer = new System.Timers.Timer();
        System.Timers.Timer timer2 = new System.Timers.Timer();

        public FrmCountDown()
        {
            InitializeComponent();
            lama = 0;
            this.TopMost = true;
            this.Left = Screen.PrimaryScreen.WorkingArea.Width - this.Width;
            this.Top = 0;
            timer.Elapsed += new System.Timers.ElapsedEventHandler(timer_Elapsed);
            timer2.Elapsed += new System.Timers.ElapsedEventHandler(timer2_Elapsed);
        }

        void timer2_Elapsed(object sender, System.Timers.ElapsedEventArgs e)
        {
            this.lblTimer.Visible = !this.lblTimer.Visible;
        }

        void timer_Elapsed(object sender, System.Timers.ElapsedEventArgs e)
        {
            if (selesai == mulai)
            {
                SystemSounds.Beep.Play();
                timer2.Start();
                play = false;
                timer.Stop();
            }
            else
            {
                selesai = selesai.AddMilliseconds(-100);
                TimeSpan selisih = selesai - mulai;
                if (selisih.Minutes < 5) this.lblTimer.ForeColor = Color.Red;
                this.lblTimer.Text = string.Format("{0}:{1}.{2}",
                    selisih.Minutes.ToString("00"),
                    selisih.Seconds.ToString("00"),
                    (selisih.Milliseconds / 100).ToString("0"));
            }
        }

        private void FrmCountDown_KeyDown(object sender, KeyEventArgs e)
        {
            if (play && e.KeyCode == Keys.Escape)
            {
                play = false;
                timer.Stop();
                lama = 0;
            }
            else if (!play && e.KeyCode == Keys.Up)
            {
                if (lama < 60) lama += 1;
                this.lblTimer.Text = string.Format("{0}:00.0", lama.ToString("00"));
            }
            else if (!play && e.KeyCode == Keys.Down)
            {
                if (lama > 0) lama -= 1;
                this.lblTimer.Text = string.Format("{0}:00.0", lama.ToString("00"));
            }
            else if (!play && e.KeyCode == Keys.Delete)
            {
                timer2.Stop();
                this.lblTimer.Visible = true;
                this.lblTimer.Text = "00:00.0";
                lama = 0;
                this.lblTimer.ForeColor = Color.Blue;
            }
            else if (e.KeyCode == Keys.Enter)
            {
                mulai = DateTime.Now;
                selesai = mulai.AddMinutes(lama);
                play = true;
                timer.Start();
            }
        }

}
}

VB.NET

Public Class FrmCountDown

    Private lama As Double
    Private play As Boolean
    Private selesai As DateTime
    Private mulai As DateTime
    Private timer As New System.Timers.Timer()
    Private timer2 As New System.Timers.Timer()

    Public Sub New()
        InitializeComponent()
        lama = 0
        Me.TopMost = True
        Me.Left = Screen.PrimaryScreen.WorkingArea.Width - Me.Width
        Me.Top = 0
        AddHandler timer.Elapsed,
            Sub()
                If selesai = mulai Then
                    Media.SystemSounds.Beep.Play()
                    timer2.Start()
                    play = False
                    timer.Stop()
                Else
                    selesai = selesai.AddMilliseconds(-100)
                    Dim selisih As TimeSpan = selesai - mulai
                    If (selisih.Minutes < 5) Then Me.lblTimer.ForeColor = Color.Red
                    Me.Invoke(
                        Sub()
                            Me.lblTimer.Text = String.Format("{0}:{1}.{2}",
                                                 selisih.Minutes.ToString("00"),
                                                 selisih.Seconds.ToString("00"),
                                                 (selisih.Milliseconds / 100).ToString("0"))
                        End Sub, New Object() {})
                End If
            End Sub
        AddHandler timer2.Elapsed,
            Sub()
                Me.lblTimer.Visible = Not Me.lblTimer.Visible
            End Sub
    End Sub

    Private Sub FrmCountDown_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If play AndAlso e.KeyCode = Keys.Escape Then
            play = False
            timer.Stop()
            lama = 0
        ElseIf Not play AndAlso e.KeyCode = Keys.Up Then
            If lama < 60 Then lama += 1
            Me.lblTimer.Text = String.Format("{0}:00.0", lama.ToString("00"))
        ElseIf Not play AndAlso e.KeyCode = Keys.Down Then
            If lama > 0 Then lama -= 1
            Me.lblTimer.Text = String.Format("{0}:00.0", lama.ToString("00"))
        ElseIf Not play AndAlso e.KeyCode = Keys.Delete Then
            timer2.Stop()
            Me.lblTimer.Visible = True
            lama = 0
            Me.lblTimer.Text = "00:00.0"
            Me.lblTimer.ForeColor = Color.Blue
        ElseIf e.KeyCode = Keys.Enter Then
            mulai = DateTime.Now
            selesai = mulai.AddMinutes(lama)
            play = True
            timer.Start()
        End If
    End Sub

End Class

anda dapat mengembangkan aplikasi ini lebih lanjut lagi dan semoga bermanfaat,

Rgds
Adi

Mudahnya Membuat Code Snippet di VS 2010

2010-10-16T11:07:00.001+07:00

kadang kala, kita sering dilibatkan dengan proses penulisan code yang sama secara berulang-ulang. untuk menghindari atau setidaknya mengurangi proses berulang tersebut, anda bisa memanfaatkan fasilitas snippet yang disediakan oleh Visual Studio (VS). snippet sesungguhnya adalah sebuah file xml dengan akhiran .snippet yang isinya adalah format struktur xml pembentuk snippet itu sendiri. dengan menggunakan snippet, kita bisa menggunakan shortcut untuk menghasilkan code-code yang perlu diketik berulang-ulang tersebut.

pada VS 2010, sudah disediakan sebuah extensions untuk memudahkan proses pembuatan snippet ini, anda cukup mendownload dan memasangnya ke dalam VS anda, seperti yang ditunjukkan oleh gambar-gambar berikut ini:

buka extension manager dari menu tools > extension manager

kemudian cari Snippet Designer

kemudian restart VS anda, setelah itu anda sudah bisa menggunakan snippet designer ini untuk membuat sebuah code snippet dengan mudah, seperti yang ditunjukkan oleh gambar-gambar berikut ini:

pilih / blok code program yang akan dijadikan code snippet. klik kanan pada code yang diblok tersebut, kemudian klik kanan, trus pilih export as snippet

ada beberapa properties yang bisa diisi, antara lain: shortcut yang merupakan key yang akan digunakan nantinya untuk menggunakan code snippet ini. Imports yang digunakan untuk mengimport namespace yang dibutuhkan. References yang digunakan untuk mengikutkan library file yang dibutuhkan.

dan langkah terakhir, simpan code snippet ini dengan akhiran .snippet

dan untuk menggunakannya, bisa dilakukan dengan:

ketik shortcut kemudian tekan tab, dalam contoh ini:

msge + <tab>

atau

ketik shortcut? kemudian tab + tab untuk melihat list code snippet yang ada, dalam contoh ini:

msge? + <tab> + <tab>

Nb. Teknik yang sama bisa digunakan untuk C# jg.

ok, semoga bermanfaat.

Rgds
Adi

Mengakses Method Form MDI dari Form Lain

2010-10-10T20:16:00.001+07:00

Pada VB.NET, untuk mengakses kontrol atau method yang ada disebuah form lain, dapat dilakukan dengan mudah, karena sudah disediakannya static class dari tiap form yang bersangkutan. namun, hal ini tidak kita jumpai ketika kita bekerja dengan memanfaatkan bahasa C#. namun hal ini bukan berarti kita tidak bisa mengakses kontrol atau method dari form lain ketika bekerja dengan bahasa C#, tapi dengan sedikit usaha, kontrol atau method tersebut tetap bisa kita akses jg dengan menggunakan bahasa C#. berikut ini contohnya:

Form1 adalah sebuah MDI Form, memiliki MenuStrip yang digunakan untuk memanggil object dari Form2. serta memiliki StatusStrip dengan kontrol ProgressBar di dalamnya. serta sebuah kontrol Timer.

Form2 adalah form yang akan difungsikan sebagai child form bagi Form1.

berikut ini code dari Form1:

using System;
using System.Windows.Forms;

namespace WindowsFormsApplication1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void newToolStripMenuItem_Click(object sender, EventArgs e)
        {
            var form = new Form2();
            form.MdiParent = this;
            form.Show();
        }

        int min, max;

        // method dgn akses public agar bisa dipanggil dari luar
        public void RunProgressStatusBar(int min, int max)
        {
            this.min = min;
            this.max = max;
            this.timer1.Start();
        }

        private void timer1_Tick(object sender, EventArgs e)
        {
            if (min <= max)
            {
                this.lblAngka.Text = min.ToString();
                this.pBar.Value = min++;
            }
            else
                this.timer1.Stop();
        }
    }
}

dan, berikut ini code dari Form2:

using System;
using System.Windows.Forms;

namespace WindowsFormsApplication1
{
    public partial class Form2 : Form
    {
        public Form2()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            int min = Convert.ToInt32(this.textBox1.Text);
            int max = Convert.ToInt32(this.textBox2.Text);
            // memanggil method RunProgressStatusBar kepunyaan MDI dari Child Form
            (Form1.ActiveForm as Form1).RunProgressStatusBar(min, max);
        }
    }
}

Rgds
Adi

Cek Status Tombol CapsLock, NumLock dan ScrollLock

2010-10-08T08:57:00.001+07:00

pada VB.NET untuk melakukan pengecekan apakah tombol CapsLock, Numlock dan ScrollLock dalam posisi On atau Off bisa dilakukan dengan mudah dengan memanfaatkan namespace My yang sudah disediakan.

berikut ini contoh pengecekan tersebut dalam VB.NET:

Module Module1
    Sub Main()
        Console.WriteLine("CapsLock Is ON: {0}", My.Computer.Keyboard.CapsLock)
        Console.WriteLine("NumLock Is ON: {0}", My.Computer.Keyboard.NumLock)
        Console.WriteLine("ScrollLock Is ON: {0}", My.Computer.Keyboard.ScrollLock)
    End Sub
End Module

dalam C#, karena tidak disediakan, kita bisa menggunakan beberapa pendekatan yang berbeda untuk melakukan hal yang sama.

yang berikut ini bisa digunakan untuk console app dan win app dalam c#:

using System;
using System.Runtime.InteropServices;

namespace ConsoleApplication1
{
    class Program
    {
        // an unmanaged function that retrieves the states of each key
        [DllImport("user32.dll",
            CharSet = CharSet.Auto,
            ExactSpelling = true,
            CallingConvention = CallingConvention.Winapi)]
        public static extern short GetKeyState(int keyCode);

        static void Main(string[] args)
        {
            // get the state and store it as bool
            bool capsLock = (((ushort)GetKeyState(0x14)) & 0xffff) != 0;
            bool numLock = (((ushort)GetKeyState(0x90)) & 0xffff) != 0;
            bool scrollLock = (((ushort)GetKeyState(0x91)) & 0xffff) != 0;
            // show the status
            Console.WriteLine("CapsLock Is ON: {0}", capsLock);
            Console.WriteLine("NumLock Is ON: {0}", numLock);
            Console.WriteLine("ScrollLock Is ON: {0}", scrollLock);

            // managed code
            bool cekCapsLock = Console.CapsLock;
            bool cekNumLock = Console.NumberLock;
            Console.WriteLine("CapsLock Is ON: {0}", cekCapsLock);
            Console.WriteLine("NumLock Is ON: {0}", cekNumLock);
        }
    }
}

mulai dari .NET Framework versi 2.0, selain menggunakan cara di atas, bisa jg menggunakan class Control.IsKeyLocked seperti yang ditunjukkan pada code berikut ini:

using System;
using System.Windows.Forms;

namespace WindowsFormsApplication1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void Form1_KeyDown(object sender, KeyEventArgs e)
        {
            this.lblCapsLock.Text = "CAPS LOCK: " + Control.IsKeyLocked(Keys.CapsLock);
            this.lblNumLock.Text = "NUM LOCK: " + Control.IsKeyLocked(Keys.NumLock);
            this.lblScrollLock.Text = "SCROLL LOCK: " + Control.IsKeyLocked(Keys.Scroll);
        }

        private void Form1_Load(object sender, EventArgs e)
        {
            this.lblCapsLock.Text = "CAPS LOCK: " + Control.IsKeyLocked(Keys.CapsLock);
            this.lblNumLock.Text = "NUM LOCK: " + Control.IsKeyLocked(Keys.NumLock);
            this.lblScrollLock.Text = "SCROLL LOCK: " + Control.IsKeyLocked(Keys.Scroll);
        }
    }
}

Nb. teknik pengecekan seperti yang dilakukan oleh C# juga bisa diterapkan dengan sedikit penyesuaian penulisan code pada code di VB.NET

Rgds
Adi

Me

2010-10-04T10:24:00.001+07:00

I, Me and MySelf.

Ternyata, Konversi String Menjadi Integer Tidak Mudah ;-)

2010-10-03T16:40:00.001+07:00

Pertama, mari kita lihat dulu versi dalam program C# berikut ini:

using System;
using System.Globalization;

namespace CS_Konversi_Ke_Integer
{
    class Program
    {
        static void Main(string[] args)
        {
            // definisi variable int
            int angka = 1250;
            // konversi menjadi string dengan 
            // format pemisah ribuan
            string s = angka.ToString("#,##0");
            Console.WriteLine(
                "int diconvert menjadi string => {0}", s);
            // tampilkan
            // konversi kembali menjadi int
            // angka = Convert.ToInt32(s); 
            // ternyata membangkitkan exception – 
            // Input String was not in a correct format
            // supaya tidak exception, ganti dengan 
            // int.Parse –> 
            // jika yakin konversi akan selalu benar
            // angka = int.Parse(s, 
                         NumberStyles.AllowThousands, 
                         CultureInfo.GetCultureInfo("en-US"));
            // atau
            // int.TryParse –> 
            // jika tidak yakin konversi akan selalu benar
            if(!int.TryParse(s, 
                      NumberStyles.AllowThousands, 
                      CultureInfo.GetCultureInfo("en-US"), 
                      out angka))
                Console.WriteLine("Konversi Gagal ...");
            // tampilkan
            Console.WriteLine(
                "string diconvert menjadi int => {0}", angka);
            Console.ReadKey();
        }
    }
}

kedua, mari kita lihat versi VB.NET nya:

Imports System.Globalization

Module Module1
    Sub Main()
        ' definisi variable integer
        Dim angka As Integer = 1250
        ' konversi menjadi string dengan format pemisah ribuan
        Dim s As String = angka.ToString("#,##0")
        ' tampilkan 
        Console.WriteLine( _
             "int diconvert menjadi string => {0}", s)
        ' konversi kembali menjadi integer
        ' angka = Convert.ToInt32(s) 
        ' membangkitkan exception - 
        ' Input String was not in a correct format
        ' supaya tidak exception, ganti dengan 
        ' Integer.Parse –> 
        ' jika yakin konversi akan selalu benar
        angka = Integer.Parse(s, _
                NumberStyles.AllowThousands, _
                CultureInfo.GetCultureInfo("en-US"))
        ' atau
        ' Integer.TryParse –> 
        ' jika tidak yakin konversi akan selalu benar
        If Not Integer.TryParse(s, _
               NumberStyles.AllowThousands, _
               CultureInfo.GetCultureInfo("en-US"), angka) Then
            Console.WriteLine("Konversi Gagal ...")
        End If
        ' tapi bisa disederhanakan dengan memanggil 
        ' fungsi CInt seperti berikut ini:
        angka = CInt(s)
        ' tampilkan
        Console.WriteLine( _
             "string diconvert menjadi int => {0}", angka)
        Console.ReadKey()
    End Sub
End Module

output dari program di atas adalah:

VB.NET memberikan kemudahan kepada programmer dalam mengerjakan coding tasknya ^^. tentunya anda tetap bisa menggunakan cara advanced seperti yang digunakan oleh C#.

Semoa Bermanfaat

Rgds

Adi

Visual Basic 2010 a.k.a VB 10 a.k.a VBx

2010-09-29T21:57:00.002+07:00

Visual Basic tidak dapat dipungkiri merupakan salah satu bahasa pemrograman yang digunakan untuk memproduksi aplikasi yang memiliki kepopuleran yang sangat tinggi. Visual Basic sendiri lahir pada tahun 1991. Ini berarti sampai saat ini, bahasa ini telah berusia 19 tahun (hem.. sebuah pencapaian yang luar biasa – bisa exist sampai saat ini).

VB 10 merupakan rilis pertama dari strategi co-evolution yang digencarkan oleh Microsoft saat ini. visi dari coevolution ini adalah untuk menyelaraskan agar baik VB atau pun C# diharapkan memiliki fitur yang seimbang.

VB 10 didesain untuk membantu developer lebih produktif lagi dengan menyediakan fitur-fitur yang bisa meringkas banyaknya kode program yang harus diketikkan pada sebuah program.

berikut ini beberapa fitur baru yang dikenalkan pada rilis ke 10 dari Visual Basic:

1. Implicit Line Continuation

perintah dalam VB adalah berorientasi baris, dimana sintaks yang digunakan kebanyakan menggunakan kata-kata dalam bahasa inggris sehingga mudah untuk dimengerti. tapi hal ini kadang kala menyebabkan programmer harus menuliskan perintah yang panjang. nah, selama ini untuk membuat sebuah perintah yang panjang agar dapat lebih mudah untuk dibaca tanpa perlu banyak melakukan scrolling layar, programmer akan memecah baris perintah tersebut menjadi beberapa baris perintah dengan memisahkan baris tersebut secara logic dengan menggunakan karakter underscore ( _ ). nah, di versi 10 ini, pemakaian karakter underscore tersebut menjadi optional untuk sebagian kasus karena compiler VB versi 10 saat ini sudah dapat membedakan apakah beberapa baris perintah tersebut merupakan sebuah rangkaian perintah tunggal atau merupakan beberapa perintah yang terpisah.

Contoh:

Code Pada VB 9:

Dim data() As Integer = _
            New Integer() { _
                1, _
                2, _
                3 _
            }

Code pada VB 10:

Dim data() As Integer =

            New Integer() {

                1,

                2,

                3

            }

beberapa skenario di mana karakter underscore boleh ditiadakan adalah:

- setelah penulisan attribut <Extension()>

- setelah tanda ( (kurung buka) pada saat deklarasi method

- setelah tanda , (koma) pada penulisan parameter

- sebelum tanda ) (kurung tutup) pada saat deklarasi method

- setelah tanda = (sama dengan)

- setelah tanda <%= (tag pembuka untuk ekspresi embedded)

- setelah tanda & (ampersand) pada penulisan XML Literal

- sebelum tanda %> (tag penutup untuk ekspresi embedded)

- dan pada tanda-tanda seperti yang ditampilkan pada gambar berikut ini:

2. Statement Lambda

lambda secara sederhana dapat diartikan sebagai fungsi yang didefinisikan di dalam fungsi yang lain.

VB 9 mengenalkan lambda expressions dengan keyword Function

Dim cust() as Customer = ….

Array.FindAll(cust, Function(c) c.Country = “Indonesia”)

lambda expressions memberikan cara yang lebih ringkas dan kompak untuk mengekspresikan logic secara lokal tanpa perlu memecahnya menjadi beberapa method yang saling berkaitan. sebagai contoh, berikut ini adalah bentuk sample code yang sama seperti contoh di atas, namun tanpa menggunakan lambda expressions

Dim query = Array.FindAll(cust, AddressOf Filter)

…

Function Filter(ByVal c as Customer) As Boolean

Return c.Country = “Indonesia”

End Function

tapi sayangnya, lambda expressions yang dikenalkan dan digunakan dalam VB 9 mengharuskan sebuah lambda expressions untuk mengembalikan sebuah nilai, sehingga untuk penggunaan seperti kasus berikut:

Array.ForEach(cust, Function(c) Console.WriteLine(c.Country)

akan menyebabkan terjadinya error seperti berikut:

'Compile error: "Expression does not produce a value."

Console.WriteLine adalah sebuah prosedur, sehingga tidak mengembalikan sebuah nilai, yang mana akan menyebabkan compiler membangkitkan pesan kesalahan. untuk deal dengan situasi ini, VB 10 kemudian mengenalkan Statement Lambdas, yaitu lambda yang dapat berisi satu atau lebih statement.

sehingga code yang error di atas dapat kita ubah menjadi:

Array.ForEach(cust, Sub(c) Console.WriteLine(c.Country)

code di atas dapat berjalan dengan baik.

contoh lain penggunaan statement lambdas:

Array.ForEach(cust, Sub(c)
                           Console.WriteLine("Country Name:")
                           Console.WriteLine(c.Country)
                         End Sub)

statement lambdas ini juga dapat digunakan untuk membangun Event Handler secara dinamis, seperti yang ditunjukkan pada contoh berikut.

AddHandler b.Click, Sub(sender As Object, e As EventArgs)
                      MsgBox("Button Clicked")
                      'Ketikkan code selanjutnya
                    End Sub

dan anda juga dapat mengkombinasikan statement lambdas ini dengan fitur relaxed delegates yang sudah tersedia di VB 9. (red. delegate adalah type safe pointer to functions, yang dapat digunakan untuk mengeksekusi beberapa method sekaligus). kombinasi ini menghasilkan signature event yang lebih sederhana seperti ditunjukkan pada code berikut ini:

AddHandler b.Click, Sub()
                      MsgBox("Button Clicked")
                     'ketikkan code selanjutnya
                    End Sub

relaxed delegate memungkinkan anda untuk menghilangkan parameter pada event handler.

VB 10 juga menambahkan support untuk multi-line function lambdas.

Dim query = cust.Where(Function(c)
                           'Return only customers that have not been saved
                           'insert more complex logic here
                       Return c.ID = -1
                       End Function)

aspek menarik lainnya dari statement lambdas ini adalah cara yang digunakan untuk beririsan dengan fitur anonymous delegates yang diperkenalkan pada VB 9. anonymous delegates terjadi ketika compiler VB meng-infers sebuah tipe delegate berdasarkan signature method dari sebuah function lambdas.

Dim method = Function(product As String)
               If product = "Paper" Then
                 Return 4.5 'units in stock
               Else
                 Return 10 '10 of everything else
               End If
             End Function

MsgBox(method("Paper"))

pada code di atas, compiler akan mengenerate sebuah delegate secara otomatis dengan bentuk seperti berikut ini:

Delegate Function $compilerGeneratedName$(product As String) As Double

ini yang disebut dengan anonymous delegate, karena delegate tersebut hanya kelihatan di sisi compiler, karena memang delegate tersebut digenerate oleh compiler sendiri, bukan pada code yang ditulis oleh programmer. perhatikan bahwa compiler meng-infers return type nya dengan tipe double. karena tipe ini yang paling dominan.

tapi kita juga diperkenankan untuk menuliskan return type dari anonymous delegate tersebut seperti bentuk berikut ini:

'Notice the "As Single"
Dim method = Function(product As String) As Single
               If product = "Paper" Then
                 Return 4.5 'units in stock
               Else
                 Return 10 '10 of everything else
               End If
             End Function

atau

Dim method As Func(Of String, Single) =
  Function(product)
    If product = "Paper" Then
      Return 4.5 'units in stock
    Else
      Return 10 '10 of everything else
    End If
  End Function

3. Auto-Implemented Properties

dalam VB, properties adalah member dari class yang digunakan untuk mengexpose state dari object agar dapat diakses dari luar dari class yang bersangkutan. bentuk deklarasi properties yang digunakan sampai dengan VB 9 adalah seperti berikut ini:

Private _country As String
Property Country As String
  Get
    Return _country
  End Get
  Set(ByVal value As String)
    _country = value
  End Set
End Property

jika dilihat, 9 baris perintah di atas digunakan untuk membuat hanya satu buah properties. dengan penulisan seperti ini, jika kita harus mendeklarasikan banyak properties sekaligus, akan menyebabkan programmer harus mengetikkan kode program yang hampir mirip seperti di atas secara berulang-berulang. hal ini tentunya tidak efisien. nah, pada VB 10, dikenalkanlah fitur auto-implemented properties untuk mempermudah proses pembuatan properties seperti di atas menjadi berbentuk one line of code seperti code berikut ini:

Public Property Country As String

pada kasus ini, compiler akan secara otomatis mengenerate Getter, Setter dan Backing Fields. nama dari backing fields akan selalu dimulai dengan tanda underscore diikuti oleh nama dari property yang ada, dalam contoh ini akan menjadi _Country

anda juga bisa langsung menginisialisasikan sebuah nilai awal saat mendeklarasikan sebuah property seperti ditunjukkan pada contoh berikut:

Public Property ID As Integer = –1

dan walaupun sudah disediakan auto-implemented properties ini, anda juga masih bisa menggunakan cara deklarasi property dengan menggunakan cara yang disediakan oleh VB 9. hal ini diperlukan misalnya untuk property yang memerlukan proses yang kompleks seperti melakukan pengecekan.

4. Collection Initializers

ketika menggunakan object yang bertipe collection, untuk mempopulasi data inisialisasi ke dalam object yang bersangkutan biasanya digunakan dengan memanggil method Add dari object collection yang bersangkutan, seperti yang ditunjukkan pada contoh berikut:

Dim data As New List(Of String)

data.Add(“Satu”)

data.Add(“Dua”)

data.Add(“Tiga”)

…

tidak ada yang salah dari code di atas, namun kita harus melakukan proses populasi data dengan memanggil method Add secara berulang-ulang. nah, pada VB 10, dikenalkan sebuah fitur yaitu collection initializers yang mengizinkan anda untuk memberikan nilai inisialisasi ke object collection dengan lebih ringkas dan mudah, seperti yang ditunjukkan pada code berikut ini:

Dim data As New List(Of String) From {“Satu”, “Dua”, “Tiga”}

compiler VB secara otomatis akan memanggil method Add untuk mempopulasikan setiap data yang ada.

collection initializers dapat digunakan terhadap semua data type yang memenuhi requirement berikut ini:

dapat melakukan iterasi terhadap data type tersebut dengan menggunakan For Each statement. hal ini bisa dilakukan terhadap semua data type yang mengimplementasikan interface IEnumerable.

data type tersebut memiliki constructor default (constructor tanpa parameter) yang dapat diakses.

data type tersebut memiliki method yang bernama Add yang dapat diakses.

contoh lain:

Dim lookupTable As New Dictionary(Of Integer, String) From {

          {1, “One”},

          {2, “Two”},

          {3, “Three}

}

anda juga dapat menyediakan custom implementasi method Add dengan menggunakan extension method, seperti ditunjukkan pada contoh code berikut:

<Extension()>
  Sub Add(ByVal source As IList(Of Customer),
          ByVal id As Integer,
          ByVal name As String,
          ByVal city As String)

      source.Add(New Customer With
                 {
                    .ID = id,
                    .Name = name,
                    .City = city
                 })
  End Sub

method ini mengextend data type apa saja yang mengimplementasikan IList(Of Customer) dan kemudian mengizinkan anda menggunakan sintaks collection initializer seperti berikut:

Dim list = New List(Of Customer) From
            {
              {1, "Jon", "Redmond"},
              {2, "Bob", "Seattle"},
              {3, "Sally", "Toronto"}
            }

collection initializers ini juga dapat anda gunakan pada saat anda menginisialisasikan sebuah nilai saat menggunakan auto-implemented properties.

5. Array Literals

VB 10 juga menyediakan cara pendekatan baru yang lebih memudahkan ketika anda bekerja dengan menggunakan array.

pada VB 9, array bisa dibuat dengan pendekatan seperti berikut:

Dim numbers() As Integer = New Integer() {1, 2, 3, 4, 5}

dengan menggunakan array literals, penulisan sintaks di atas bisa disingkat menjadi:

Dim numbers = {1, 2, 3, 4, 5}

array literal dibuat dengan meletakkan elemen yang akan dimasukkan ke dalam array dengan menggunakan tanda kurung kurawal, dan membiarkan compiler menginfers data type yang cocok untuk digunakan secara otomatis. untuk keperluan ini, harus dipastikan nilai dari Option Strict adalah On.

array literals juga dapat digunakan untuk array multi-dimensi dan jagged array, seperti yang ditunjukkan pada code berikut ini:

‘ 2-dimensional array

Dim matrix = {{1, 0}, {0,1}}

‘ jagged array

Dim jagged = {({1, 0}), ({0, 1, 2})}

6. Dynamic Language Runtime

7. Generic Variance

8. Improved Optional Parameters

9. Embed Interop Types

10. Multi Targeting

5 fitur baru selanjutnya (dari no. 6 s/d 10) akan kita bahas di kesempatan yang lain.

selain fitur-fitur baru yang dikenalkan pada VB 10, IDE VB 10 juga mengalami peningkatan kemampuan yang banyak. seperti:

Navigate To

Highlight References

Generate From Usage

Better IntelliSense (Substring matching, camel-case lookup, suggestion mode – usefull for “test first” style of development)

Multi-Monitor Support

Zooming

Semoga Bermanfaat

Aplikasi Pengolahan Data Alamat Kontak

2010-09-29T13:52:00.002+07:00

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

2010-09-22T11:51:00.001+07:00

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

2010-09-22T11:11:00.001+07:00

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

2010-09-22T09:16:00.001+07:00

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

2010-09-16T13:39:00.001+07:00

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 …

2010-09-01T11:06:00.001+07:00

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

2009-10-15T14:25:00.001+07:00

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

Tips Kesehatan

2009-08-26T21:28:00.001+07:00

Tips kesehatan yang penting:
* jawablah telp menggunakan teliga sebelah kiri.
* jangan minum obat dengan air dingin.
* jangan makan makanan berat setelah jam 6 malam.
* minum lebih banyak air putih di pagi hari, malam lbh sedikit.
* jam tdr yang paling baik jam 10malam sampai jam 5 pagi.
* jangan terlalu cepat berbaring setelah minum obat.
* ketika battery hp tinggal satu jangan angkat telp karena radiasi menigkat hingga 100kali.

Cara Ngecek Originalitas Dari SO Windows yang Anda Gunakan

2009-08-25T08:11:00.003+07:00

Sesuai dengan Judul Topik kali ini, kita ilustrasikan saja dengan ilustrasi seperti di bawah ini:

misalkan anda mendapatkan hibah sebuah komputer/notebook yang didalamnya sudah terinstall sistem operasi windows, dan karena rasa ingin tahu anda, anda kemudian ingin memastikan apakah sistem operasi windows merupakan software Genuine atau tidak (secara gitu karena windows merupakan sistem operasi berbayar :-)), kemudian timbul dibenak, gimana yah cara untuk melakukan pengecekan tersebut ???

jawabnya sederhana, silahkan sambungkan komputer/notebook tsb ke internet, kemudian buka browser, dan arahkan ke alamat url berikut ini:

http://www.microsoft.com/genuine/validate/ValidateNow.aspx?displaylang=en

kemudian klik tombol Validate Windows.

Rgds
Adi

Stored Procedure

2009-08-09T20:41:00.001+07:00

Dalam pemrograman Database, sudah barang tentu yang namanya Stored Procedure bukan merupakan barang asing yang terdengar ditelinga. Stored Procedure adalah sebuah koleksi dari kumpulan perintah – perintah sql yang diberi sebuah pengenal berupa nama yang disimpan di dalam database. Bagi client, stored procedure tak ubahnya sebuah fungsi yang dapat dieksekusi. stored procedure dipanggil melalui namanya, dapat menerima parameter nilai yang dipassing kepadanya, serta dapat juga mengembalikan nilai parameter kembali ke client.

ada banyak keuntungan yang bisa didapatkan dari sebuah stored procedure yang diterapkan dalam aplikasi anda, diantaranya:

Kita dapat sharing logik aplikasi diantara beberapa aplikasi client yang beragam.
Eksekusi yang lebih cepat.
Dapat mengurangi trafik jaringan.
Meningkatkan keamanan database.

OK, kita akan sambung kembali cerita mengenai cara membuat stored procedure ini di artikel berikutnya.

Rgds
Adi

Sari Simorangkir - Hati Hamba

2009-06-29T22:19:00.001+07:00

Ku Tak Dapat Lupakan
Kebaikan Yang Ku T'rima
Pengorbanan-Mu Yang Mulia
Jadikan Ku Berharga
Kau Tulus Menerima
Aku Apa Adanya
Kekuatan Kasih-Mu Nyata
Memulihkan Hidupku
Reff:
Kau Bukan Tuhan Yang Melihat Rupa
Kau Bukan Tuhan Yang Memandang Harta
Hati Hamba Yang S'lalu Kau Cari
Biar Kau Temukan Di Dalamku
S'lama Ku Hidup Ku Mau Menyembah-Mu
S'bab Engkau Sangat Berarti Bagiku
Yang Terbaik Yang Ada Padaku
Kupersembahkan Kepada-Mu
Yesusku

Bapa Yang Kekal

2009-06-29T22:14:00.001+07:00

Kasih Yang Sempurna
Telah Kut'rima Dari-Mu
Bukan Kar'na Kebaikanku
Hanya Oleh Kasih Karunia-Mu
Kau Pulihkan Aku, Layakkanku
'Tuk Dapat Memanggil-Mu, Bapa
Reff:
Kau B'ri Yang Kupinta
Saat Kumencari, Kumendapatkan
Kuketuk Pintu-Mu Dan Kau Bukakan
S'bab Kau Bapaku, Bapa Yang Kekal
Tak Kan Kau Biarkan
Aku Melangkah Hanya Sendirian
Kau Selalu Ada Bagiku
S'bab Kau Bapaku, Bapa Yang Kekal

Sari Simorangkir - Dalam Yesus

2009-06-29T22:11:00.001+07:00

Kekuatan Di Hidupku
Ku Dapat Dalam Yesus
Dia Tak Pernah Tinggalkanku
Setia Menopangku
Berseru, Berharap Dalam Yesus
Reff:
Ajaib Kau Tuhan, Penuh Kuasa
Sanggup Pulihkan Keadaanku
Dalam Tangan-Mu, S'luruh Hidupku
Tak Akan Goyah Selamanya

KAULAH HARAPAN - Sari Simorangkir

2009-06-29T22:08:00.001+07:00

KAULAH HARAPAN
Sari Simorangkir

BUKAN DENGAN KEKUATANKU
KU DAPAT JALANI HIDUPKU
TANPA TUHAN YANG DI SAMPINGKU
KU TAK MAMPU SENDIRI
ENGKAULAH KUATKU
YANG MENOPANGKU
REFF :
KUPANDANG WAJAH-MU DAN BERSERU
PERTOLONGANKU DATANG DARI-MU
PEGANGLAH TANGANKU, JANGAN LEPASKAN
KAULAH HARAPAN DALAM HIDUPKU

Tugas Besar Bahasa Pemrograman I untuk Mahasiswa Pagi

2009-06-08T10:15:00.001+07:00

untuk semua mahasiswa Pagi yang sedang mengambil matakuliah bahasa pemrograman I, pada thread ini saya ingin memberitahukan bahwa soal tugas besar untuk matakuliah bahasa pemrograman I ini sudah bisa didownload dari link berikut ini:

http://www.mikroskil.ac.id/~adi/2008/GENAP/TUGAS%20BESAR%20BAHASA%20PEMROGRAMAN%20I.txt

ok, silahkan dikerjakan.

Rgds
Adi

Fungsi Terbilang

2009-06-03T12:21:00.001+07:00

Sering sekali dalam pembuatan program, terutama program berhaluan bisnis, program harus melafalkan nilai nominal uang dalam bentuk kata – kata.

untuk itu, postingan kali ini saya coba untuk menuliskan sebuah fungsi terbilang yang akan mengubah nilai nominal uang menjadi kata – kata.

berikut ini fungsinya, (ditulis dengan menggunakan C++, dengan teknik rekursif):

void terbilang(long n, char *str) {
    if(n < 10)
        strcat(str, kata[n]);
    else if(n >= 1000000000) {
        terbilang(n / 1000000000, str);
        strcat(str, " milyar ");
        terbilang(n % 1000000000, str);
    }
    else if(n >= 1000000) {
        terbilang(n / 1000000, str);
        strcat(str, " juta ");
        terbilang(n % 1000000, str);
    }
    else if(n >= 1000) {
        if(n / 1000 == 1) {
            strcat(str, "seribu ");
            terbilang(n % 1000, str);
        }
        else {
            terbilang(n / 1000, str);
            strcat(str, " ribu ");
            terbilang(n % 1000, str);
        }
    }
    else if(n >= 100) {
        if(n / 100 == 1) {
            strcat(str, "seratus ");
            terbilang(n % 100, str);
        }
        else {
            terbilang(n / 100, str);
            strcat(str, " ratus ");
            terbilang(n % 100, str);
        }
    }
    else if(n >= 10) {
        if(n == 10)
            strcat(str, "sepuluh");
        else if(n == 11)
            strcat(str, "sebelas");
        else if(n >= 20) {
            terbilang(n / 10, str);
            strcat(str, " puluh ");
            terbilang(n % 10, str);
        }
        else {
            terbilang(n % 10, str);
            strcat(str, " belas");
        }
    }

silahkan bertanya jika ada yang tidak dipahami.

Rgds
Adi

Contoh Penggunaan Struct dan Pengurutan

2009-06-03T12:17:00.001+07:00

berikut ini saya lampirkan contoh penggunaan program yang menggunakan struct dan mengalami proses pengurutan:

#include <stdio.h>
#include <conio.h>
#include <string.h>

void main() {
    //struct
    struct Data {
        int no;
        char value[20];
    };
    struct Data x[5], temp; //variable struct Data
    int i, j; //counter
    //isi data
    x[0].no = 4;
    strcpy(x[0].value, "empat");

x[1].no = 1;
strcpy(x[1].value, "satu");

x[2].no = 2;
strcpy(x[2].value, "dua");

x[3].no = 3;
strcpy(x[3].value, "tiga");

x[4].no = 5;
strcpy(x[4].value, "lima");

    //tampilkan data awal
    clrscr();
    printf("Data Mula - Mula : \n");
    for(i = 0; i < 5; i++)
        printf("%d %s\n", x[i].no, x[i].value);

    //sorting
    for(i = 0; i < 4; i++)
        for(j = i + 1; j < 5; j++)
            if(x[i].no > x[j].no) {
                temp = x[i];
                x[i] = x[j];
                x[j] = temp;
            }

    //tampilkan data setelah sorting
    printf("Data Setelah Sorting : \n");
    for(i = 0; i < 5; i++)
        printf("%d %s\n", x[i].no, x[i].value);

getch();

}

jika ada yang ingin ditanyakan, anda dipersilakan untuk bertanya.

Rgds
Adi

Palindrom

2009-05-15T11:25:00.001+07:00

Teknik yang bisa digunakan untuk mengecek palindrom:

        Dim str As String = "Katak"
        Dim data() As Char = str.ToLower.ToCharArray
        Dim i, j As Integer
        Dim palin As Boolean = True
        j = data.GetUpperBound(0)
        For i = data.GetLowerBound(0) To data.GetUpperBound(0)
            If data(i) <> data(j) Then
                palin = False
                Exit For
            Else
                j -= 1
            End If
        Next
        If palin Then
            MsgBox(str & " is palindrom")
        Else
            MsgBox(str & " is not palindrom")
        End If

Rgds
Adi

Visual Basic 9.0 Features

2009-05-11T11:52:00.001+07:00

berikut ini fitur – fitur yang bisa anda nikmati ketika anda menggunakan Visual Basic 2008 sebagai development language anda:

Query Expressions
XML Literals
XML Element Access
Nullable Types
Object Initializers
Local Type Inference
Lambda Expressions
Extensions Methods
Expression Trees
Anonymous Types
Ternary Operator
Coalesce Operator
Relaxed Delegates
Partial Methods

Rgds
Adi

Tahu … Bisa … Trampil … Ahli

2009-05-11T10:46:00.001+07:00

Saya suka dengan Algoritma di atas :-)

Dengan membaca / belajar kita akan jadi tahu. setelah tahu, kita pun mencoba untuk mempraktekkan apa yang kita tahu tsb sehingga kita menjadi bisa. hal ini apabila dilakukan berulang – ulang akan membuat kita menjadi trampil. setelah trampil, kita akan sering diminta bantuan oleh orang yang membutuhkan, apabila kita bisa memuaskan harapan mereka, pada akhirnya mereka akan melabeli kita sebagai ahli.

Rgds,
Adi

Microsoft DreamSpark

2009-03-27T11:45:00.001+07:00

Microsoft belakangan ini semakin berbaik hati aja dengan memberikan kesempatan bagi kalangan universitas dan sekarang sudah merambah ke sekolah – sekolah untuk mencicipi produk – produk keluarannya secara gratis. kesempatan yang langka dan layak untuk dicoba untuk software sekelas Microsoft ;-)

ada banyak produk yang bisa didownload secara cuma – cuma, meliputi: Microsoft Visual Studio 2008 Professional Edition (gile… Prof Edition nich), Microsoft SQL Server 2008 Developer, XNA Game Studio 3.0, Robotic Developer Studio 2008, Windows Server 2008 Standard, Expression Studio 2, and many more. (detail lengkapnya bisa anda lihat pada https://www.dreamspark.com/default.aspx)

Mungkin ada yang tertarik dengan program tsb.

Rgds
Adi

Event dan Event Handler Versi C#

2009-03-27T09:38:00.001+07:00

melanjuti topik sebelumnya yang membahas mengenai event dan event handler under visual basic, kali ini kita akan membahas topik yang sama, tapi dengan memanfaatkan bahasa visual c#.

Event – sebuah kejadian yang dipicu oleh user. contohnya: user mengclick tombol, user memilih dari sebuah list, dan lain-lain.

Event Handler – sebuah prosedur yang digunakan untuk menangani event (kejadian) yang dipicu/dibangkitkan oleh user.

masih dengan project yang sama seperti kemarin, tapi kali ini kita tulis ulang dengan menggunakan C# sebagai languagenya :-)

code:

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace CSEventAndEventHandler
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            MessageBox.Show("You Click Button 1");
        }

        private void button2_Click(object sender, EventArgs e)
        {
            MessageBox.Show("You Click Button 2");
        }

        private void button3_Click(object sender, EventArgs e)
        {
            MessageBox.Show("You Click Button 3");
        }
    }
}

Event Handler nya bisa anda lihat pada partial class dari form1 yang terdapat pada file Form1.Designer.cs

perhatikan pada baris code:

this.button1.Click += new System.EventHandler(this.button1_Click);

code di atas memiliki arti kita mengikatkan event handler ke fungsi button1_Click pada saat user mengklik tombol button1 (event click).

hal yang sama juga diberlakukan untuk button2 dan button3.

selain dengan cara diatas, kita jg diperbolehkan untuk menyatukan beberapa Event untuk dihandle dengan satu buah Event Handler. contoh diatas kalau kita tulis ulang dengan maksud seperti kalimat sebelumnya akan menjadi:

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace CSEventAndEventHandler
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
            this.button1.Click += new EventHandler(EV_Handler);
            this.button2.Click += new EventHandler(EV_Handler);
            this.button3.Click += new EventHandler(EV_Handler);
        }

        private void EV_Handler(object sender, EventArgs e)
        {
            Button button = sender as Button;
            if (button.Name.ToLower().Equals("button1"))
                MessageBox.Show("You Click Button 1");
            else if (button.Name.ToLower().Equals("button2"))
                MessageBox.Show("You Click Button 2");
            else if (button.Name.ToLower().Equals("button3"))
                MessageBox.Show("You Click Button 3");
        }
    }
}

kita juga dapat menambah dan menghapus Event dan Event Handler pada saat run time.
misalkan form di atas kita ubah menjadi seperti di bawah ini:

untuk keperluan penambahan dan penghapusan Event Handler pada saat run time, kita ubah code di atas menjadi seperti berikut ini:

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace CSEventAndEventHandler
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void button4_Click(object sender, EventArgs e)
        {
            this.button1.Click += new EventHandler(EV_Handler);
            this.button2.Click += new EventHandler(EV_Handler);
            this.button3.Click += new EventHandler(EV_Handler);
        }

        private void button5_Click(object sender, EventArgs e)
        {
            this.button1.Click -= new EventHandler(EV_Handler);
            this.button2.Click -= new EventHandler(EV_Handler);
            this.button3.Click -= new EventHandler(EV_Handler);
        }
    }
}

operator overloading += digunakan untuk menambahkan event handler dan operator overloading –= digunakan untuk menghapus event handler.

terlihat dari yang disajikan di atas, cara yang ditawarkan oleh C# ini lebih efisien jika dibandingkan dengan yang ditawarkan oleh VB. keputusan akhir ada di tangan anda, ingin menggunakan C# atau VB.

ok, selamat mencoba.

Rgds
Adi

Memahami Event dan Event Handler

2009-03-21T14:18:00.001+07:00

Visual Basic adalah sebuah bahasa pemrograman yang bersifat Event-Driven.

Event – sebuah kejadian yang dipicu oleh user. contohnya: user mengclick tombol, user memilih dari sebuah list, dan lain-lain.

Event Handler – sebuah prosedur yang digunakan untuk menangani event (kejadian) yang dipicu/dibangkitkan oleh user.

misalkan kita pny project dengan form seperti dibawah ini:

code :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("You Click Button 1")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MessageBox.Show("You Click Button 2")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MessageBox.Show("You Click Button 3")
    End Sub
End Class

arti (misalkan kita ambil contoh Button1_Click):

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show("You Click Button 1")
End Sub

Handles Button1.Click (cetak warna biru) adalah event click yang akan dipicu ketika user melakukan aktivitas click terhadap Button1.

Event Handler berupa prosedur Button_Click (cetak warna pink) akan dijalankan untuk menangani Event Click yang dipicu oleh user tsb.

Private Sub EV_Handler(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click
        Dim button As Button = DirectCast(sender, Button)
        Select Case button.Name.ToLower()
            Case "button1"
                MessageBox.Show("You Click Button 1")
            Case "button2"
                MessageBox.Show("You Click Button 2")
            Case "button3"
                MessageBox.Show("You Click Button 3")
        End Select
    End Sub

Catatan: nama prosedur (Event Handler – cetak warna biru) boleh bebas. DirectCast adalah fungsi yang digunakan untuk melakukan konversi tipe data secara eksplisit.

kita juga dapat menambah dan menghapus Event dan Event Handler pada saat run time.
misalkan form di atas kita ubah menjadi seperti di bawah ini:

kita akan modifikasi code yang ada menjadi seperti berikut ini:

1. buat dulu prosedur yang akan dijadikan sebagai event handler

Private Sub EV_Handler(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim button As Button = DirectCast(sender, Button)
        Select Case button.Name.ToLower()
            Case "button1"
                MessageBox.Show("You Click Button 1")
            Case "button2"
                MessageBox.Show("You Click Button 2")
            Case "button3"
                MessageBox.Show("You Click Button 3")
        End Select
    End Sub

2. pada tombol Add Handler, kita tambahkan Event Handler yang akan kita terapkan dalam program tsb. untuk menambahkan Event Handler ke suatu event, kita gunakan perintah AddHandler

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        AddHandler Button1.Click, AddressOf EV_Handler
        AddHandler Button2.Click, AddressOf EV_Handler
        AddHandler Button3.Click, AddressOf EV_Handler
    End Sub

3. pada tombol Remove Handler, kita bisa menghapus kembali Event Handler yang sudah tidak kita gunakan lagi. untuk menghapus Event Handler, gunakan perintah RemoveHandler

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        RemoveHandler Button1.Click, AddressOf EV_Handler
        RemoveHandler Button2.Click, AddressOf EV_Handler
        RemoveHandler Button3.Click, AddressOf EV_Handler
    End Sub

ok, Selamat mencoba.

Rgds
Adi

My Microsoft Certified Professional Cert.

2009-03-18T10:14:00.001+07:00

Teringat kalau aku nya dulu pernah ikut ujian sertifikasi Microsoft. sudah agak lama jg terpendam, baru tergali dan sekarang saya ingin menunjukkannya kepada semua :-)

inilah bukti transkrip saya (online view):

Rgds
Adi

Belajar .NET Online

2009-03-17T09:52:00.001+07:00

saat ini, komunitas .NET Indonesia menyediakan sarana belajar online dan sekaligus sarana buat test kemampuan secara online. bagi yang berminat, bisa mulai menelusuri dari url ini: http://geeks.netindonesia.net/learn/.

saat ini yang modul yang tersedia adalah : Visual Basic 2008 Programming Fundamental.

Selamat Belajar.

Rgds
Adi

Hasil Assessment Visual Basic 2008 Programming Fundamental

2009-03-14T14:15:00.001+07:00

Setelah Tahu ada .NET Programming Curriculum, langsung ke TKP untuk download bahan2 kuliahnya, dan baca2 bentar trus dengar2 videonya selama 1/2 hari, akhirnya aku ikuti Assessment yang disediakan. dan lulus ;-)

berikut ini sertifikat yang saya peroleh:

Rgds
Adi

Konversi Tipe Data dalam Visual Basic

2009-01-19T10:07:00.001+07:00

dalam pemrograman, konversi antar tipe data kadang tidak dapat dihindari. konversi tipe ini ada 2 jenis, yaitu implicit dan explicit. dalam implicit konversi, hasil konversi tidak ingin kehilangan presisi datanya, sedangkan dalam explicit konversi, berlaku sebaliknya, yaitu diijinkan adanya kehilangan presisi data untuk hasil konversinya. dalam Visual Basic, ada banyak cara yang bisa digunakan untuk melakukan proses konversi tersebut. anda dapat menggunakan fungsi – fungsi bawaan dari Visual Basic seperti:

CInt() untuk melakukan konversi ke nilai integer
CDbl() untuk melakukan konversi ke nilai double
CDec() untuk melakukan konversi ke nilai decimal
dan beberapa fungsi built-in lainnya.

disamping itu, anda juga bisa menggunakan CType, DirectCast dan TryCast.

CType merupakan operator yang digunakan untuk explicit conversion. Type data yang dijadikan acuan tidak dibatasi, bisa berupa Reference type atau Value type.

DirectCast merupakan operator explicit conversion seperti halnya CType. Namun operator ini hanya berlaku untuk Reference type saja (Class atau Interface).

TryCast merupakan operator explicit conversion yang baru ada di .net 2.0. Operator ini fungsinya sama dengan DirectCast operator, dan hanya berlaku untuk Reference type saja. Namun apabila terjadi InvalidCastException maka hasil dari conversion ini akan mengembalikan Nothing value. Fitur ini dapat menyederhanakan proses exception handling.

sumber: http://www.yulianmf.com/DetailsArticle.aspx?art=80

Salam
ADI

Windows Live Writer dalam memudahkan anda menulis Blog

2008-12-19T15:34:00.001+07:00

kemarin sempat baca artikel mengenai penggunaan Windows Live Writer yang dapat mempermudah dalam penulisan blog. karena tertarik, maka saya pun langsung menuju ke tempat perkara untuk mendownload software yang dibutuhkan, yaitu Windows Live Essential (Bisa didownload dari situs Microsoft, nih urlnya: http://download.microsoft.com/download/0/F/4/0F4D43A7-8D47-4312-BC35-EC1F888AC156/en/wlsetup-all.exe – ukuran filenya 134,3 MB). ada 2 versi installer yang bisa digunakan, yaitu versi online, dan versi offline. karena ingin mengkoleksi software ini, saya pun memilih yang versi offline.

setelah selesai download, hari ini pun langsung coba untuk memanfaatkan software tsb, install, kemudian setting dan akhirnya tulisan ini pun berhasil diupload ke blog dengan memanfaatkan Windows Live Writer.

benar – benar memudahkan karena kita tidak perlu membuka dan login ke dalam web blog kita terlebih dahulu. dan yang pasti software ini adalah free.

so… tunggu apalagi, bagi yang berminat silahkan untuk segera mencobanya ;-)

Rgds
Adi

Buat C# jadi single instance app

2008-11-19T15:33:00.002+07:00

karena tertarik dengan fitur yang ada di VB, dimana kita bisa set sebuah aplikasi menjadi hanya single instance app, di mana untuk 1 komputer, program hanya bisa dijalankan 1 kali saja. dengan VB ini bisa didapat dengan sangat2 mudah, yaitu dengan mengatur settingan dibagian properties > application - lihat bagian 'make single instance application' (berikan tanda cek dipilihan yang satu ini). ok, itu saja,

nah, bagaimana kalau ingin diterapkan di C#, setelah coba dicari dibagian settingan properties, ternyata pilihan untuk itu tidak ada, karena penasaran, coba langsung cari solusinya dengan google, dan akhirnya dapat :-). sisipkan code dibawah ini ke dalam aplikasi anda:

using System.Threading;

static void Main(){
bool firstInstance = false;
string safeName = Application.UserAppDataPath.Replace(@"\", "_");
Mutex mutex = new Mutex(false, safeName, out firstInstance);
if(firstInstance){
Application.EnableVisualStyles();
Application.SetCompatibleTextRenderingDefault(false);
Application.Run(new Form1());
}
}

dan test untuk dijalankan, and voila..... akhirnya bisa single instance jg :-)

semoga bermanfaat,
ADI

WMI dlm VB ?

2008-11-17T16:09:00.003+07:00

WMI jg bisa diterapkan dalam VB. berikut ini adalah contoh yang sama seperti yang sudah ada dipostingan saya yang sebelumnya (WMI - C# Corner), namun dengan menggunakan bahasa Visual Basic.

cara yang digunakan sama, cuman praktek penggunaannya agak sedikit berbeda.

1. tambahkan dulu dll yang dibutuhkan dari menu : Project - Project's name properties - Reference - Add (tambahkan dll : System.Management dan System.Mangement.Instrumentation)

2. kemudian import namespace yang dibutuhkan dengan statement imports:
Imports System.Management
Imports System.Management.Instrumentation

3. ketikkan kode berikut ini untuk mendapatkan informasi mengenai prosesor yang anda gunakan (dalam console app):
Dim searcher As New ManagementObjectSearcher("select Name from Win32_Processor")
For Each obj As ManagementObject In searcher.Get()
Console.WriteLine("Prosesor yang digunakan : " & obj.GetPropertyValue("Name"))
Next

output yang dihasilkan akan sama

ok, semoga bermanfaat

ADI

WMI

2008-11-17T15:34:00.004+07:00

sempat kerepotan jg kemarin ketika ingin mendapatkan informasi mengenai hardware komputer yang digunakan (informasi mengenai processor yang digunakan). akhirnya ketemu dengan jargon yang satu ini : WMI (Windows Media Instrumentation)

untuk menggunakan WMI, tambahkan 2 references berikut ini ke dalam aplikasi C# anda:
System.Management dan System.Management.Instrumentation

kemudian dengan menggunakan using, import kedua namespace yang akan digunakan ke dalam aplikasi C# anda :
using System.Management;
using System.Management.Instrumentation;

kemudian untuk mendapatkan informasi mengenai processor komputer, sisipkan code berikut ini (dalam console app):

ManagementObjectSearcher searcher = new ManagementObjectSearcher("Select Name from Win32_Processor");
foreach (ManagementObject obj in searcher.Get())
{
Console.WriteLine("Processor Komputer Anda : " + obj.GetPropertyValue("Name"));
}

output program jika dijalankan di komputer saya :

semoga bermanfaat,

ADI

operator ternary

2008-11-13T11:41:00.004+07:00

mgkn anda pernah menggunakan operator ternary di bahasa java, C++, atau C#.

lihat contoh dibawah ini:

int x = 5;
int y;

y = (x > 10) ? x+5 : x+10;

operasi di atas sama dengan:

if( x > 10 )
y = x + 5;
else
y = x + 10;

dengan Visual Basic sebelum versi 9.0, operator ternary jg bisa kita dapatkan dengan menggunakan statement iif seperti dibawah ini:

Dim x as Integer = 5
Dim y as Integer

y = iif(x > 10, x+5, x+10)

untuk Visual Basic 9.0, kita jg bisa melakukan operasi ternary seperti di atas dengan menggunakan if statement, seperti di bawah ini:

y = if(x > 10, x+5, x+10)

ok, semoga bermanfaat ;-)

Salam,
ADI

Future Direction of C#

2008-11-07T14:25:00.002+07:00

ingin mengetahui arah pengembangan dari C# programming language,

klik link berikut ini :-)

http://channel9.msdn.com/pdc2008/TL16/

Salam,

ADI

Who is this guy ?

2008-10-31T10:44:00.003+07:00

kenal dengan bapak yang disamping ? beliau adalah lead architect dari pengembang bahasa pemrograman C#.

bagi yang ingin mengenal beliau lebih lebih, silahkan buka : http://en.wikipedia.org/wiki/Anders_Hejlsberg

Regards,

ADI

Future Direction of Visual Basic

2008-10-31T10:01:00.001+07:00

Syalom,

tidak terasa, Visual Basic sudah akan mencapai versi 10 (VBx).

ingin mengetahui apa saja fitur - fitur baru andalan dalam Visual Basic 10 (VBx) yang akan segera diluncurkan,

silahkan download video yang ada pada link berikut ini:

URL http://mschnlnine.vo.llnwd.net/d1/pdc08/WMV-HQ/TL12.wmv

Semoga Bermanfaat,

Regards,

ADI

Small Basic

2008-10-30T12:03:00.004+07:00

pernah mendengar "small basic" ?

versi small dari bahasa visual basic ^^

bahasa ini ditujukan untuk entry level. untuk mengajarkan programming kepada anak - anak.

nice thing :-)

anda bisa membaca lengkapnya dari : http://blogs.msdn.com/smallbasic/ atau dari: http://msdn.microsoft.com/en-us/devlabs/cc950524.aspx

ok, semoga bermanfaat.

Visual Studio 2010

2008-10-28T15:14:00.003+07:00

Syalom,

kabar gembira pada para penggemar .NET Framework, Visual Studio 2010 akan segera launching.hadir dengan tools pengembangan terbaru diantaranya: .NET Framework 4.0, C# 4.0, dan VBx (VB 10) ;-)

untuk versi CTP nya sudah bisa didownload dari http://www.microsoft.com/downloads/details.aspx?FamilyID=922b4655-93d0-4476-bda4-94cf5f8d4814&DisplayLang=en

Rgds,

ADI

Mandriva Linux 2009

2008-10-28T12:18:00.004+07:00

Syalom,

setelah menunggu semalaman, akhirnya selesai jg proses download file isonya Mandriva Linux Versi Terbaru (a.k.a Mandriva 2009)

isonya saya download dari situsnya ugm yang beralamat di ftp://repo.ugm.ac.id/iso/mandriva/2009/ (thanks to inherent connection yang disediakan oleh STMIK - Mikroskil Medan :-)). file yang saya download adalah : mandriva-linux-free-2009-dvd-i586.iso (size : 4.487.200 KB)

saatnya untuk melakukan pengetesan sebelum diinject ke dalam notebook :-). untuk refreshing, Mandriva ini adalah salah satu distro yang paling user friendly :-). ok, untuk pengetesan kali ini, akan dilakukan dengan menggunakan Vmware Workstation.

proses installasi tergolong mudah, anda hanya perlu mengisi beberapa settingan seperti language, partitioning, package yang mau diinstall, dan sedikit konfigurasi akhir seperti pembuatan user, bootloader yang akan digunakan, dan service yang akan dijalankan secara otomatis pada saat komputer dibooting.

ok, saya akan kabari lebih lanjut lagi nanti :-)

Regards,

ADI

C#

2008-10-24T11:19:00.001+07:00

C# is the lingua franca of .NET Framework.

ada yang mau mengomentari statement di atas ?

feel free to give your own opinion in this thread ;-)

Salam,

ADI

Judul Blog ku

2008-10-22T16:16:00.003+07:00

hehehe ...

lihat kiri, lihat kanan, kemudian lihat ke atas, eh ... ada tulisan Console.WriteLine()

apa yah arti tulisan tersebut ?

Salam,

ADI

Visual Basic .NET vs Visual C# .NET

2008-10-20T16:07:00.001+07:00

Banyak developer yang beranggapan bahwa Visual C# .NET adalah bahasa pemrograman yang lebih powerful dibandingkan dengan Visual Basic .NET. Beberapa pengembang berasumsi bahwa Visual C# .NET bisa melakukan lebih banyak hal dibandingkan dengan yang dapat dilakukan oleh Visual Basic .NET. Asumsi ini tidak benar. Walaupun ada perbedaan di antara Visual Basic .NET dan Visual C# .NET, kedua bahasa ini adalah “first-class programming languages” yang berbasiskan pada Microsoft .NET Framework, dan keduanya adalah bahasa pemrograman yang powerful. Visual Basic .NET adalah bahasa pemrograman yang murni berorientasi objek yang memasukkan banyak fitur baru dan fitur yang sudah diperbaiki seperti inheritance, polymorphism, interface dan overloading. Visual Basic .NET dan Visual C# .NET sama – sama menggunakan CLR (Common Language Runtime) dari .NET Framework, dan hampir tidak ada isu yang berhubungan dengan performance di antara kedua bahasa ini. Pemilihan bahasa yang harus digunakan di antara kedua bahasa ini sepenuhnya bergantung ke preferensi personal dari yang bersangkutan dan pengalaman bahasa terdahulu yang digunakan. Sebagai contoh, akan lebih baik untuk seorang pengembang yang memiliki pengetahuan Visual Basic 6.0 untuk menggunakan Visual Basic .NET, dan untuk pengembang dengan latar belakang Visual C++ dan Java untuk menggunakan Visual C# .NET. untuk yang memiliki pengetahuan diantara keduanya, kuasai saja kedua bahasa tersebut (Visual Basic .NET dan Visual C# .NET ;-))

Perbedaan antara Visual Basic .NET dan Visual C# .NET

Perbedaan terbesar adalah dalam sintaksis dari kedua bahasa ini. Berikut ini beberapa perbedaan terbesar dari kedua bahasa ini:
• Case Sensitivity
• Variable declaration and assignment
• Data types
• Statement termination
• Statement blocks
• Use of () vs. []
• Operators
• Conditional statements
• Error handling
• Overflow checking
• Parameter passing
• Late binding
• Handling unmanaged code
• Keywords

Akhirnya .....

2008-10-18T13:42:00.001+07:00

setelah perjuangan yang tanpa mengenal lelah (hehehehe ... ;-)) yang ditunjukkan oleh semua anggota team pengembang :-)

akhirnya, absensi praktek bisa tercetak juga.

thanks buat kerjasama yang baik antar anggota team.

Salam,

ADI

Praktek ... Praktek ...

2008-10-17T09:53:00.003+07:00

Syalom

Praktek akan segera dimulai, absensi praktek blom tercetak :-(

langkah - langkah:

1. lengkapi semua data yang diperlukan

2. buat converter untuk mengubah dan menyesuaikan data antara mysql dengan MSSQL

3. cetak absensinya

ayo semangat !!!

Salam,

ADI

Video E-Learning

2008-10-16T17:13:00.000+07:00

Syalom,

silahkan buka url : www.mikroskil.ac.id/~adi

barusan saya upload video tutorial yang berhubungan dengan jaringan komputer,

silahkan diunduh bagi yang membutuhkannya ;-)

selain video tutorial jaringan komputer, anda juga bisa mengunduh beberapa video tutorial mengenai pemrograman Java :-)

semoga bermanfaat

Salam,

ADI

Welcome Note ...

2008-10-15T16:43:00.000+07:00

Syalom,

Selamat Datang ...

Terima kasih sudah mau berkunjung ke Blog saya :-)

Semoga informasi yang terkandung di dalam nya dapat bermanfaat bagi Anda.

Thanks

Regards,

ADI