Sebagai review CalculatorServer adalah project yang akan mengimplementasikan semua method abstract yang ada pada interface ICalculator (project CalculatorLib) selain itu CalculatorServer juga akan menjadi host untuk class remote yaitu classs Calculator.

Aktifkan kembali solution Calculatornya dimana didalamnya sudah ada project CalculatorLib

kita akan menambahkan project CalculatorServer masih di solution yang sama

1. Klik kanan Solution Calculator -> Add -> New Project

2. Pada dialog Add New Project aktifkan pilihan Visual C# kemudian pada pilihan Templates pilih Console Application

Pada isian Name isikan CalculatorServer untuk isian Location dibiarkan saja setelah itu klik Ok

Jika langkah sebelumnya berhasil maka pada solution Calculator akan ketambahan 1 project baru yaitu CalculatorServer

Menambahkan Class Calculator

Class Calculator adalah class yang akan mengimplementasikan semua method abstract dari interface ICalculator yang sudah kita buat pada project sebelumnya (CalculatorLib).

Selain itu class Calculator juga harus merupakan turunan dari class MarshalByRefObject agar semua method class Calculator bisa diakses secara remote.

1. Klik kanan project CalculatorServer -> Add -> Class…

2. Pada isian Name diisi Calculator

Setelah itu akan tampil editor code class Calculator

Jangan lupa untuk menambahkan access modifier public.

Sebelum kita bisa melengkapi kode dari class Calculator terlebih dulu kita harus menambahkan referensi CalculatorLib yang sudah kita buat pada project sebelumnya, tujuannya adalah agar class Calculator bisa mengakses interface ICalculator dan mengimplementasikan semua method abstractnya.

1. Klik kanan folder References -> Add Reference…

2. Aktifkan tab Projects kemudian pilih project CalculatorLib

3. Jika langkah sebelumnya berhasil akan ketambahan 1 buah node dengan nama CalculatorLib pada folder References

Selanjutnya kita mulai melengkapi kode dari class Calculator.

Sampai disini kita sudah bisa mencoba untuk menjalankan program dengan menekan tombol F5 (Start Debugging), tapi sebelumnya project CalculatorServer harus diset sebagai StartUp Project

Apa yang terjadi setelah kita menekan tombol F5 (Start Debugging) ??? Masih error bukan ?

Error ini terjadi karena class Calculator mengimplementasikan interface ICalculator sedangkan method-method abstractnya (Penambahan, Pengurangan, Perkalian dan Pembagian) belum kita definisikan di class Calculator.

Mengimplementasikan Method Abastract Interface ICalculator secara Otomatis

Untuk mengatasi error pada langkah sebelumnya kita tinggal klik kanan pada tulisan interface ICalculator ->Implement Interface -> Implement Interface

Kemudian secara otomatis semua method abstract dari interface ICalculator akan ditambahkan.

Setelah itu kita tinggal melengkapi kode untuk masing-masing method diatas.

Sampai disini class Calculator sudah selesai dan kita sudah bisa mencoba lagi untuk menekan tombol F5 (Start Debugging), jika tidak terjadi error berarti kita sudah siap untuk lanjut ketahap berikutnya.

Menjadikan Project CalculatorServer sebagai Host untuk Menghandle Remote Object

Masih di project CalculatorServer kita akan melengkapi kode untuk method Main yang ada pada class Program

Karena pada class ini akan mengakses class-class yang berhubungan dengan fitur .NET Remoting maka kita harus menambahkan terlebih dulu referensi library .NET Remoting.

1. Klik kanan folder References -> Add Reference…

2. Aktifkan tab .NET kemudian pilih System.Runtime.Remoting

3. Jika langkah sebelumnya berhasil akan ketambahan 1 buah node dengan nama System.Runtime.Remoting pada folder References

Berikut kode lengkap class Program

Sampai disini lengkap sudah project CalculatorServer kita dan sudah bisa dicoba dengan menekan tombol F5 (Start Debugging), jika tidak terjadi error berarti kita sudah siap untuk menyelesaikan project terakhir yaitu project CalculatorKlien

Setelah itu akan kita lanjutkan penerapan fitur .NET Remoting pada pembuatan aplikasi database dengan arsitektur 3-tier, insya Allah

Intinya dalam belajar memprogram itu konsep “Learn by doing : less theory, more results” lumayan bekerja

Aplikasi yang akan kita buat yaitu Calculator, walaupun sederhana tetapi aplikasi ini membutuhkan 3 project untuk membuatnya.

1. CalculatorLib
CalculatorLib dibuat dengan memanfaatkan project bertipe Class Library yang isinya hanya berupa interface ICalculator dengan 4 buah method abstract yaitu : Penambahan, Pengurangan, Perkalian dan Pembagian.

Project ini nantinya akan dicompile menjadi file dengan ekstensi .dll (CalculatorLib.dll), file CalculatorLib.dll ini akan dishare atau ditambahkan sebagai referensi untuk aplikasi CalculatorServer dan CalculatorKlien.

Teknik ini dikenal dengan istilah “Shared Assembly” tujuannya adalah agar aplikasi server dan klien bisa berkomunikasi dengan cara yang sama.

Cara yang lain adalah dengan menggunakan tools “soapsuds” untuk mengekstract informasi interface yg dimiliki oleh aplikasi server yang mana hasil ekstrak ini berupa file dengan ekstensi .dll yg akan ditambahkan sebagai referensi aplikasi klien.

2. CalculatorServer
CalculatorServer dibuat dengan memanfaatkan project bertipe Console Application, implementasi aslinya biasanya aplikasi server dijadikan sebuah service (Windows Service). Aplikasi ini nantinya akan mengimplementasikan semua method-method abstract dari project CalculatorLib.

3. CalculatorKlien
CalculatorKlien dibuat dengan memanfaatkan project bertipe Windows Application, aplikasi ini hanya memanggil method-method abstract dari project CalculatorLib dengan memanfaatkan objek proxy sehingga method tersebut akan dieksekusi secara remote (dijalankan di sisi server).

Berikut gambaran lengkap project yang akan kita buat

Oke kita awali dulu dengan pembuatan project CalculatorLib, jangan lupa untuk menjalankan terlebih dulu Visual Studio .NET

Membuat Project CalculatorLib

1. Klik menu File ->New -> Project …

2. Pada dialog New Project aktifkan pilihan Visual C# kemudian pada pilihan Templates pilih Class Library

Pada isian Name isikan CalculatorLib, setelah itu klik tombol Ok.

Secara default pada saat pembuatan project sudah otomatis disediakan 1 buah class kosong dengan nama Class1, karena kita akan menambahkan class baru jadi class ini dihapus saja.

Menambahkan Interface ICalculator

1. Klik kanan project CalculatorLib -> Add -> New Item…

2. Pada pilihan template pilih Interface kemudian untuk isian Name diisi ICalculator.

Setelah itu akan tampil editor code interface ICalculator

Jangan lupa untuk menambahkan access modifier public.

Selanjutnya kita tinggal menambahkan 4 method abstractnya yaitu Penambahan, Pengurangan, Perkalian dan Pembagian.

Berikut kode lengkapnya :

Mengcompile project CalculatorLib

Tujuannya adalah agar project CalculatorLib ini bisa digunakan sebagai referensi oleh aplikasi CalculatorServer dan CalculatorKlien

1. Klik kanan project CalculatorLib -> Build

Setelah itu akan tampil hasil output dari proses Build

Yuph cukup sampai disini, insya Allah akan kita lanjut pada kesempatan berikutnya.

Selamat MENCOBA

.NET Remoting adalah suatu mekanisme komunikasi antar objek yang berbeda proses, baik dikomputer yang sama, beda komputer dalam 1 jaringan atau antar jaringan.

Remoting menyediakan kemampuan untuk menjalankan method pada sisi server, melewatkan parameter dan menerima nilai kembalian.

Remote object berada disisi server, mesin lain jika ingin berinteraksi dengan remote object membutuhkan referensi dari remote object tersebut.

.NET mempunyai dua solusi untuk pengembangan aplikasi klien server yaitu :

1. .NET Remoting/WCF
2. ASP .NET WebServices

Teknologi remoting lainnya : DCE/RPC, CORBA, DCOM, MTS/COM+, Java RMI, Java EJB, Web Service/SOAP/XML-RPC

Arsitektur

Proxy adalah objek yang bertugas untuk melakukan komnikasi dengan remote object, semua method yang dipanggil melalui objek proxy akan dijalankan di server.

Formatter adalah objek yang bertugas untuk melakukan proses serialisation dan deserialization ke format data yang sesuai sebelum data dikirimkan melalui objek transport channel.

Ada 2 jenis formatter yaitu :

1. BinaryFormatter
2. SoapFormatter (format data berupa XML)

Secara default TCP channel menggunakan binary formatter dan HTTP channel menggunakan SOAP formatter.

Transport Channel merupakan perangkat yang bertugas sebagai alat transportasi yang digunakan dalam proses remoting.

Ada 2 jenis channel yaitu :

1. Channel objek yang ada di server bertugas untuk menerima request dari klien dan sudah diset untuk port tertentu.
2. Channel objek yang ada di klien yang bertugas untuk melakukan request ke server dan menerima balasan dari server, untuk port mengikuti port yang sudah diset pada channel objek server.

Objek channel sendiri menggunakan 2 jenis protokol yaitu Protokol TCP (Transmission Control Protocol) dan Protokol HTTP (Hypertext Transfer Protocol).

Terakhir Dispatcher bertugas untuk memanggil method remote object dan mengembalikan hasilnya ke klien dengan melewati semua layer.

Remote Object

Semua objek yang bisa diserialisasi dan dilewatkan melalui domain aplikasi yang berbeda disebut dengan remote object. Setiap objek bisa menjadi remote object dengan cara :

1. Turunan dari class MarshalByRefObject

2. Dengan menambahkan atribut [Serializable]
Marshalling

Proses pengemasan data yang sudah diserialisasi sebelum dikirim ke klien atau sebaliknya. Ada 2 jenis marshaling yaitu :

1. Marshalling by value
Objek Marshal-by-value (MBV) akan disalin dan diteruskan dari aplikasi server ke aplikasi klien. Ketika klien memanggil metode pada objek MBV, maka objek MBV itu akan di serialisasi dan ditransfer melalui jaringan ke klien. Kemudian method tersebut dapat dipanggil secara langsung pada klien dan objek sudah tidak dianggap lagi sebagai remote object

2. Marshalling by reference
Objek Marshalled by reference (MBR) diakses disisi klien menggunakan objek proxy. Klien hanya menyimpan referensi ke objek tersebut. Jadi inilah remote object yang sebenarnya

MBR dikelompokkan menjadi 2 group yaitu :
1. Server-activated objects (SAOs)
2. Client-activated objects (CAOs)

Server-activated objects (SAOs)

Adalah remote object yang masa berlakunya ditentukan oleh server. Remote object dibuat ketika aplikasi klien memanggil salah satu method remote object melalui objek proxy. SAOs dapat diaktifkan dengan 2 mode :

1. SingleCall, objek yang dibuat berdasarkan permintaan dari klien dan otomatis masuk ke garbage collection jika sudah digunakan.
2. Singleton, satu objek melayani semua permintaan klien dan secara default objek yg diaktifkan dg mode ini akan dihapus setelah 5 menit.

Client-activated objects (CAOs)

Berbeda dengan SAOs, Client Activated Objects (CAOs) adalah remote object yang masa berlakunya ditentukan oleh klien. CAO hanya melayani klien yang memintanya, selain itu CAO bisa digunakan secara berulang-ulang.

Pada pembahasan kali ini sy batasi hanya pada Server-activated objects dengan mode SingleCall, karena itu yg disarankan oleh om Ingo Rammer pengarang buku Advanced .NET Remoting (C# Edition).

Terakhir jika ada penjelasan sy diatas yg kurang tepat mohon koreksinya dan Insya Allah akan berlanjut pada kesempatan berikutnya dan tentunya disertai dengan contoh.

Selamat mencoba

Referensi :

1. Advanced .NET Remoting (C# Edition)
2. .NET Remoting Use-Cases and Best Practices
3. .NET Remoting with an easy example
4. All you need to know about .NET Remoting
5. Remoting An Interface Based Approach
6. Binary Serialization
7. Serialization vs Marshaling
8. Marshal-by-ref versus Serializable Objects
9. .Net Remoting: the Quick and Dirty Guide

Di link tersebut sudah tersedia ratusan color scheme yang siap pake, saya sendiri baru mencoba color scheme dengan rating tertinggi .

Untuk downloadnya tinggal klik link ini, sudah tersedia untuk VS 2005, 2008 dan 2010.

Setelah download tinggal impor file schemesnya dari menu Tools -> Import and Export Settings …, selanjutnya tinggal ikuti wizard yang ada.

Agar semakin manteb editornya, download juga Consolas Font Pack dari situs resminya om Bill Gates.

Kemudian dilanjutkan dengan merubah jenis font editor menjadi Consolas dan size = 10.

Caranya dengan klik menu Tools -> Options

Entah kenapa font jenis ini terlihat begitu indah di mata para programer he he he

Selamat mencoba

Sesuai namanya fungsi ini otomatis melakukan konversi ke huruf besar, fungsinya sangat sederhana sekali

private char ConvertToUpper(System.Windows.Forms.KeyPressEventArgs e)
{
    return Convert.ToChar(e.KeyChar.ToString().ToUpper());
}

kemudian fungsi diatas kita panggil di event KeyPress

private void txtConvertToUpper_KeyPress(object sender, KeyPressEventArgs e)
{
    e.KeyChar = ConvertToUpper(e);
}

2. ConvertToLower

Fungsi berikutnya kebalikan dari fungsi ConvertToUpper yaitu mengkonversi ke huruf kecil.

private char ConvertToLower(System.Windows.Forms.KeyPressEventArgs e)
{
    return Convert.ToChar(e.KeyChar.ToString().ToLower());
}

Untuk pemanggilannya juga masih sama di event KeyPress

private void txtConvertToLower_KeyPress(object sender, KeyPressEventArgs e)
{
    e.KeyChar = ConvertToLower(e);
}

3. NumericOnly

Fungsi ini hanya mengizinkan input dalam bentuk angka plus titik (.) untuk desimalnya

private bool NumericOnly(System.Windows.Forms.KeyPressEventArgs e)
{
    string strValid = "0123456789.";

    if (strValid.IndexOf(e.KeyChar) < 0 && !(e.KeyChar == Convert.ToChar(Keys.Back)))
    {
        return true; // not valid
    }
    else
    {
        return false; // valid
    }
}

Untuk pemanggilannya juga masih sama di event KeyPress

private void txtNumericOnly_KeyPress(object sender, KeyPressEventArgs e)
{
    e.Handled = NumericOnly(e);
}

Fungsi NumericOnly diatas udah oke banget, tapi sayangnya kita masih bisa menginputkan nilai seperti 25.33.1 atau 25..3.

Intinya untuk tanda titik (.) masih bisa diinputnya lebih dari satu dan ini tidak benar jadi harus kita tambahkan validasi sedikit lagi.

Pertama kita deklarsikan dulu sebuah variabel untuk menyimpan status tanda titik (.).

private bool isDecimal = false;

Kemudian kita tambahkan validasi di event TextChanged untuk mengetahui apakah sudah ada tanda titik yang diinputkan.

private void txtNumericOnly_TextChanged(object sender, EventArgs e)
{
    isDecimal = false;

    int index = ((TextBox)sender).Text.IndexOf(".");
    isDecimal = !(index < 0);
}

Terakhir kita revisi event KeyPressnya

private void txtNumericOnly_KeyPress(object sender, KeyPressEventArgs e)
{
    // tambah validasi pengecekan desimal disini
    if (isDecimal && (e.KeyChar == Convert.ToChar(".")))
    {
        e.Handled = true;
    }
    else
    {
        e.Handled = NumericOnly(e);
    }
}

Yuph sampe disini fungsinya udah tambah oke

4. LetterOnly

Fungsi yang hanya mengizinkan input berupa huruf besar/kecil plus titik dan spasi, fungsinya mirip sekali dengan fungis NumericOnly hanya karakter yang didaftarkan saja yang berbeda.

private bool LetterOnly(System.Windows.Forms.KeyPressEventArgs e)
{
    string strValid = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ. ";

    if (strValid.IndexOf(e.KeyChar) < 0 && !(e.KeyChar == Convert.ToChar(Keys.Back)))
    {
        return true; // not valid
    }
    else
    {
        return false; // valid
    }

}

Cara penggunaanya juga otomatis masih sama

private void txtLetterOnly_KeyPress(object sender, KeyPressEventArgs e)
{
    e.Handled = LetterOnly(e);
}

5. ThousandSeparator

Fungsi ini otomatis akan menambahkan pemisah ribuan pada inputan berupa angka.

private void SetThousandSeparator(TextBox txt)
{
    if (txt.Text.Length > 0)
    {
        try
        {
            string s = txt.Text.Replace(",", "");

            int i = int.Parse(s);
            txt.Text = string.Format("{0:###,###,###}", i);

            txt.SelectionStart = txt.Text.Length;
        }
        catch
        {
        }
    }
}

Untuk pemanggilannya di event TextChanged

private void txtThousandSeparator_TextChanged(object sender, EventArgs e)
{
    SetThousandSeparator((TextBox)sender);
}

Agar fungsi SetThousandSeparator bisa bekerja dengan baik tambahkan juga validasi angkanya

private void txtThousandSeparator_KeyPress(object sender, KeyPressEventArgs e)
{
    e.Handled = NumericOnly(e);
}

Kemudian set property TextAlign = Right

FUNGSI PENTING LAINNYA

6. IsEnter

Untuk mendeteksi penekan tombol Enter, sehingga bisa kita manfaatkan untuk perpindahan fokus cursor pada saat input data.

private bool IsEnter(System.Windows.Forms.KeyPressEventArgs e)
{
    return (e.KeyChar == (char)Keys.Return);
}

Penggunaanya masih di event KeyPress

private void txtConvertToUpper_KeyPress(object sender, KeyPressEventArgs e)
{
    if (IsEnter(e)) SendKeys.Send("{Tab}");
}

7. IsEsc

Untuk mendeteksi penekanan tombol Esc, salah satu implementasinya adalah menutup form aktif dengan menekan tombol Esc.

private bool IsEsc(System.Windows.Forms.KeyPressEventArgs e)
{
    return (e.KeyChar == (char)Keys.Escape);
}

Nah jika pada fungsi-fungsi sebelumnya semua fungsinya kita panggil di event TextBox, untuk fungsi IsEsc akan kita panggil di event KeyPress milik objek form.

private void Form1_KeyPress(object sender, KeyPressEventArgs e)
{
    if (IsEsc(e)) this.Close();
}

Dan jangan lupa set property KeyPreview = True

Beberapa fungsi diatas sudah saya bundle menjadi satu komponen yang bisa didownload disini.

Selamat mencoba

Masalah sepele memang tapi lumayan memakan waktu dan membosankan dan saya belum tau (setidaknya untuk saat ini) apakah OS (win 7) yang sy pake menyediakan solusi untuk masalah ini.

Dari teman kantor saya sudah dapat file batch untuk masalah ini, skripnya lebih kurang seperti berikut :

@ECHO OFF
Set varan=Wireless Network Connection
Set varip=172.xx.xx.xx
Set varnm=255.255.0.0
Set vargw=172.xx.xx.xxx
Set vardns1=202.xx.x.x
Set vardns2=202.xx.x.x

ECHO Auto Setting IP (arif.laksito@gmail.com)
ECHO for: "%varan%"
ECHO ---------------------------------------------

ECHO Setting "IP Address", "Subnet Mask" and "Gateway"
netsh interface ipv4 set address name="%varan%" source=static address=%varip% mask=%varnm% gateway=%vargw%

ECHO Setting "Primary DNS"
netsh interface ipv4 add dnsserver name="%varan%" address=%vardns1% index=1

ECHO Setting "Secondary DNS"
netsh interface ipv4 add dnsserver name="%varan%" address=%vardns2% index=2

Sedangkan untuk mengeset ke ip dinamis skripnya lebih sederhana lagi

@ECHO OFF
Set varan=Wireless Network Connection
ECHO Auto Setting IP to DHCP (arif.laksito@gmail.com)
ECHO ---------------------------------------------

ECHO Setting "IP Address", "Subnet Mask" and "Gateway" to DHCP
netsh interface ipv4 set address name="%varan%" source=dhcp

ECHO Setting "DNS" to DHCP
Netsh interface ipv4 set dnsserver "%varan%" dhcp

Kedua skrip diatas sebenarnya sudah menyelesaikan permasalahan, tapi… ada yang kurang sebagai seorang proGAMMER et… sory maksudnya programmer tentunya kita akan sedikit penasaran bagaimana mengeksekusi skrip diatas via program.

Untuk VB 6 sudah saya bahas tuntas dibeberapa postingan saya, tapi untuk kali ini kita menggunakan bahasa C#, yuph inilah bahasa yang sedang sy gandrungi saat ini , semua project sy terutama yang baru, saya paksain menggunakan bahasa ini, karena pelan2x tapi pasti VB 6 akan segera ditingalkan

Yuph intronya kita cukupkan sampai disini, untuk desain GUI aplikasinya seperti berikut :

Beberapa method penting yang digunakan oleh aplikasi ini sebagai berikut :

1. Mendapatkan daftar Network Connection
Untuk mendapatkan daftar network saya menggunakan perintah

netsh int ip show config

Untuk menjalankan perintah diatas saya menggunakan method ExecuteCommand, kemampuan lain dari method ini adalah menampung output dari perintah yang dijalankan.

Untuk contoh disini outputnya saya tampung ke dalam variabel output.

private void ExecuteCommand(string cmd, string parameter, int timeout, bool redirectStandardOutput)
{
    Process p = new Process();

    p.StartInfo.FileName = cmd;
    p.StartInfo.Arguments = parameter;
    p.StartInfo.UseShellExecute = false;
    p.StartInfo.CreateNoWindow = true;
    p.StartInfo.RedirectStandardOutput = redirectStandardOutput;

    try
    {
        p.Start();

        if (redirectStandardOutput)
        {
            p.BeginOutputReadLine();
            p.OutputDataReceived += new DataReceivedEventHandler(p_OutputDataReceived);
        }

        p.WaitForExit(timeout);
    }
    catch (Exception ex)
    {
        MessageBox.Show(ex.Message, "Warning", MessageBoxButtons.OK, MessageBoxIcon.Exclamation);
    }
    finally
    {
        p.Close();
    }
}

Untuk selanjutnya variabel output saya olah di method GetNetworkConnections

private string[] GetNetworkConnections()
{
    string[] arrNetwork = null;

    if (output.Count > 0)
    {
        arrNetwork = new string[output.Count];
        int index = 0;
        foreach (string var in output)
        {
            string[] networkConnection = var.Split('\"');
            arrNetwork[index] = networkConnection[1];

            index++;
        }
    }

    return arrNetwork;
}

2. Akses registry
Untuk meningkatkan kemampuan program ini saya juga menambahkan method untuk menulis dan membaca registry, sehingga perubahan terakhir bisa tersimpan dan diload kembali pada saat program dijalankan.

// method untuk membaca registry
private string GetValue(string key, string value)
{
    return Registry.CurrentUser.OpenSubKey(key).GetValue(value).ToString();
}

// method untuk menulis registry
private void WriteValue(string key, string valueName, string value)
{
    Registry.CurrentUser.CreateSubKey(key).SetValue(valueName, value);
}

// method untuk membaca setting program terakhir
private void GetSetting()
{
    output.Clear();
    ExecuteCommand("netsh", "int ip show config", timeout, true);
    cmbNetworkConnection.Items.AddRange(GetNetworkConnections());

    string defaultNetwork = string.Empty;

    RegistryKey registryKey = Registry.CurrentUser.OpenSubKey(key);
    if (registryKey != null)
    {
        defaultNetwork = GetValue(key, "DefaultNetwork");
        txtIPAddress.Text = GetValue(key, "IPAddress");
        txtSubnetMask.Text = GetValue(key, "SubnetMask");
        txtDefaultGateway.Text = GetValue(key, "DefaultGateway");
        txtDnsServer1.Text = GetValue(key, "DnsServer1");
        txtDnsServer2.Text = GetValue(key, "DnsServer2");

        switch (GetValue(key, "IPAktif"))
        {
            case "1": // dinamis
                rdoIPDinamis.Checked = true;
                break;

            case "2": // statis
                rdoIPStatis.Checked = true;
                break;

            default:
                rdoIPDinamis.Checked = true;
                break;
        }

        groupBox1.Enabled = rdoIPStatis.Checked;
    }
    else
    {
        // do nothing
    }

    if (defaultNetwork.Length > 0)
    {
        if (cmbNetworkConnection.Items.Count > 0) cmbNetworkConnection.Text = defaultNetwork;
    }
    else
    {
        if (cmbNetworkConnection.Items.Count > 0) cmbNetworkConnection.SelectedIndex = 0;
    }
}

Sebagai penutup berikut adalah kode pada saat menekan tombol Ok.

private void btnOk_Click(object sender, EventArgs e)
{
    string parameter = string.Empty;

    if (MessageBox.Show("Apakah proses ingin dilanjutkan ?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) == DialogResult.Yes)
    {
        Cursor.Current = Cursors.WaitCursor;
        btnOk.Enabled = false;

        if (rdoIPDinamis.Checked) // ip dinamis
        {
            parameter = "interface ipv4 set address name=\"" + cmbNetworkConnection.Text + "\" source=dhcp";
            ExecuteCommand("netsh", parameter, timeout, false);

            parameter = "interface ipv4 set dnsserver \"" + cmbNetworkConnection.Text + "\" dhcp";
            ExecuteCommand("netsh", parameter, timeout, false);
        }
        else // ip statis
        {
            parameter = "interface ipv4 set address name=\"" + cmbNetworkConnection.Text + "\" source=static address=" + txtIPAddress.Text + " mask=" + txtSubnetMask.Text + " gateway=" + txtDefaultGateway.Text;
            ExecuteCommand("netsh", parameter, timeout, false);

            parameter = "interface ipv4 add dnsserver name=\"" + cmbNetworkConnection.Text + "\" address=" + txtDnsServer1.Text + " index=1";
            ExecuteCommand("netsh", parameter, timeout, false);

            parameter = "interface ipv4 add dnsserver name=\"" + cmbNetworkConnection.Text + "\" address=" + txtDnsServer2.Text + " index=2";
            ExecuteCommand("netsh", parameter, timeout, false);

            WriteValue(key, "IPAddress", txtIPAddress.Text);
            WriteValue(key, "SubnetMask", txtSubnetMask.Text);
            WriteValue(key, "DefaultGateway", txtDefaultGateway.Text);
            WriteValue(key, "DnsServer1", txtDnsServer1.Text);
            WriteValue(key, "DnsServer2", txtDnsServer2.Text);
        }

        WriteValue(key, "DefaultNetwork", cmbNetworkConnection.Text);
        WriteValue(key, "IPAktif", rdoIPDinamis.Checked ? "1" : "2");
        btnOk.Enabled = true;

        Cursor.Current = Cursors.Default;
    }
}

Selamat MENCOBA

Caranya dengan menggunakan tag yang sudah disediakan wordpress, kan sayang udah susah-susah dibuatin tapi enggak dipake

Untuk contoh dibawah ini khusus untuk skrip VB Classic, VB .NET, C# dan SQL

1. Visual Basic

Hasil :

Private Sub Command1_Click()
    Dim i As Integer
    For i = 1 To 10
        Debug.Print "Iterasi ke#" & i
    Next i
End Sub

2. Visual Basic .NET

Hasil :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    For i As Integer = 1 To 10
        Debug.Print ("Iterasi ke#" & i.ToString())
    Next i
End Sub

3. C#

Hasil :

private void button1_Click(object sender, EventArgs e)
{
    for (int i = 1; i <= 10; i++)
    {
        System.Diagnostics.Debug.Print ("Iterasi ke#" + i.ToString());
    }
}

4. SQL

Hasil :

SELECT beli.nota, beli.tanggal, barang.nama AS barang, item_beli.jumlah, item_beli.harga_beli,
supplier.nama AS supplier
FROM beli INNER JOIN item_beli ON beli.nota = item_beli.nota
INNER JOIN supplier ON beli.supplier_id = supplier.id INNER JOIN barang ON item_beli.barang_id = barang.id

Referensi : Posting Source Code

Selamat mencoba

Dan sekalian permohonan maaf buat om2x yg nanya responnya enggak bisa secepat dulu, maklum alasannya juga sama “sok sibuk” .

Oke, langsung saja beberapa waktu yang lalu ada yang nanya bagaimana menampilkan data yang ada di ListView ke ActiveReport.

Misal kita mempunyai data mahasiswa seperti berikut :

Sebelumnya kita akan membuat terlebih dulu sebuah class Mahasiswa untuk menampung data diatas kemudian tinggal kita lewatkan melalui variabel public yang kita tambahkan dibagian ActiveReportnya.

Berikut kode lengkap class Mahasiswa

Private m_Npm    As String
Private m_nama   As String
Private m_kota   As String

Public Property Let Npm(ByVal vData As String)
    m_Npm = vData
End Property
Public Property Get Npm() As String
    Npm = m_Npm
End Property

Public Property Let Nama(ByVal vData As String)
    m_nama = vData
End Property
Public Property Get Nama() As String
    Nama = m_nama
End Property

Public Property Let Kota(ByVal vData As String)
    m_kota = vData
End Property
Public Property Get Kota() As String
    Kota = m_kota
End Property

Untuk ActiveReportnya buat desain seperti biasa

Setelah itu lengkapi juga kodenya

Public daftarMhs    As Dictionary

Private Sub ActiveReport_FetchData(EOF As Boolean)
    Static i As Integer

    i = i + 1

    If i > daftarMhs.Count Then
        EOF = True
        Exit Sub
    Else
        EOF = False
    End If

    Dim mhs As Mahasiswa

    Set mhs = daftarMhs.Item(CStr(i))
    txtNpm.Text = mhs.Npm
    txtNama.Text = mhs.Nama
    txtKota.Text = mhs.Kota
End Sub

Private Sub Detail_Format()
    txtNo.Text = Val(txtNo.Text) + 1
End Sub

Pada kode diatas terlihat variabel daftarMhs bertipe Dictionary dengan access modifier public, jadi nilainya bisa kita set dari form.

Class Dictionary mirip seperti class Collection di C# atau java.

Terakhir kode untuk menampilkan ActiveReport plus mengeset nilai variabel daftarMhs yang diambil dari ListView.

Private Sub cmdPreview_Click()
    Dim rpt         As New ActiveReport1
    Dim daftarMhs   As New Dictionary
    Dim mhs         As Mahasiswa
    Dim i           As Integer

    For i = 1 To lsvMahasiswa.ListItems.Count
        Set mhs = New Mahasiswa
        With mhs
            .Npm = lsvMahasiswa.ListItems(i).SubItems(1)
            .Nama = lsvMahasiswa.ListItems(i).SubItems(2)
            .Kota = lsvMahasiswa.ListItems(i).SubItems(3)
        End With

        daftarMhs.Add CStr(i), mhs
    Next i

    With rpt
        Set .daftarMhs = daftarMhs
        .Show
    End With
End Sub

Selamat MENCOBA

Dalam konsep DAO kita akan memisahkan module program menjadi beberapa bagian/layer yaitu :

1. Presentation
2. Business Logic
3. Data Access

Untuk presentation layer berhubungan dengan UI (user interface) .

Business Logic biasanya berhubungannya dengan entity class dan entity class sendiri merupakan representasi tabel-tabel yang ada di database biasanya juga disebut dengan istilah class model.

Terakhir Data Access yaitu bagian yang menangani urusan akses database biasanya terdapat operasi CRUD (Create, Read, Update, Delete).

Untuk kasusnya yang gampang aja , kita akan mencoba mengakses data siswa yang mempunyai empat field yaitu nomor induk, nama, tempat lahir dan tanggal lahir.

Memulai project baru

Jalankan Visual Basih 6 kemudian pada dialog New Project aktifkan tab New kemudian pilih Standar EXE dan akhiri dengan menekan tombol Open.

Membuat Presentation Layer

Pada saat membuat project baru secara default sudah disiapkan 1 buah project  plus formnya

kemudian lakukan perubahan properties seperti gambar berikut :

untuk tampilannya kita akan desain seperti berikut :

Membuat Business Logic

Business Logic ada hubungannya dengan entity class yang merupakan representasi dari tabel-tabel yang ada didatabase.

Berdasarkan struktur tabel siswa diatas kita akan membuat sebuah class dengan nama Siswa yang mempunyai empat buah property yaitu Nomor Induk, Nama, Tempat Lahir dan Tanggal Lahir.

Jadi property ini sudah mewakili method mutator dan accessor yang sudah biasa kita kenal penggunakannya di Java.

Untuk menampung class-class yang berhubungan dengan Business Logic kita akan menambahkan project baru dengan tipe ActiveX DLL, adapun caranya seperti berikut :

Klik menu File -> Add Project setelah itu akan tampil dialog Add Project

kemudian pilih ActiveX DLL dan klik tombol Open

setelah itu akan ditambahkan 1 buah project dan class

kemudian lakukan perubahan properties seperti gambar berikut :

Adapun kode lengkap untuk class Siswanya adalah sebagai berikut :

Private m_nomorInduk    As String
Private m_nama          As String
Private m_tempatLahir   As String
Private m_tanggalLahir  As Date

Public Property Let NomorInduk(ByVal vData As String)
    m_nomorInduk = vData
End Property
Public Property Get NomorInduk() As String
    NomorInduk = m_nomorInduk
End Property

Public Property Let Nama(ByVal vData As String)
    m_nama = vData
End Property
Public Property Get Nama() As String
    Nama = m_nama
End Property

Public Property Let TempatLahir(ByVal vData As String)
    m_tempatLahir = vData
End Property
Public Property Get TempatLahir() As String
    TempatLahir = m_tempatLahir
End Property

Public Property Let TanggalLahir(ByVal vData As Date)
    m_tanggalLahir = vData
End Property
Public Property Get TanggalLahir() As Date
    TanggalLahir = m_tanggalLahir
End Property

Membuat Data Access

Lapisan ini biasanya berisi operasi CRUD (Create, Read, Update, Delete), tapi kita akan menggunakan istilah yang sedikit berbeda untuk nama operasinya yaitu :

1. Save
2. Update
3. Delete
4. GetAll
5. GetByName
6. GetByNIS

Biasanya untuk penamaan classnya cukup menambahkan akhiran (suffixes) Dao untuk setiap class entitynya. Contoh untuk class entity Siswa, biasanya class Data Accessnya diberi nama SiswaDao.

Oke langsung saja kita tambahkan project baru dengan mengklik menu File -> Add Project setelah itu akan tampil dialog Add Project

kemudian pilih ActiveX DLL dan klik tombol Open

setelah itu akan ditambahkan 1 buah project dan class

kemudian lakukan perubahan properties seperti gambar berikut :

Adapun kode lengkap untuk class SiswaDaonya adalah seperti berikut :

Private cmd     As ADODB.Command
Private strSql  As String

Private Function MappingRowToObject(ByVal rs As ADODB.Recordset) As SiswaModel.siswa
    Dim siswa As New SiswaModel.siswa

    With siswa
        .NomorInduk = IIf(IsNull(rs("nomor_induk").Value), "", rs("nomor_induk").Value)
        .nama = IIf(IsNull(rs("nama").Value), "", rs("nama").Value)
        .TempatLahir = IIf(IsNull(rs("tempat_lahir").Value), "", rs("tempat_lahir").Value)
        .TanggalLahir = IIf(IsNull(rs("tgl_lahir").Value), "1/1/1900", rs("tgl_lahir").Value)
    End With

    Set MappingRowToObject = siswa
End Function

1. Method Save

Public Function Save(ByVal siswa As SiswaModel.siswa, ByVal conn As ADODB.Connection) As Integer
    On Error GoTo errHandle

    strSql = "INSERT INTO siswa (nomor_induk, nama, tempat_lahir, tgl_lahir) VALUES (?, ?, ?, ?)"

    Set cmd = New ADODB.Command
    With cmd
        .ActiveConnection = conn
        .CommandType = adCmdText
        .CommandText = strSql

        .Parameters(0) = siswa.NomorInduk
        .Parameters(1) = siswa.nama
        .Parameters(2) = siswa.TempatLahir
        .Parameters(3) = siswa.TanggalLahir

        .Execute Save
    End With
    Set cmd = Nothing

    Exit Function

errHandle:
    Save = 0
End Function

2. Method Update

Public Function Update(ByVal siswa As SiswaModel.siswa, ByVal conn As ADODB.Connection) As Integer
    On Error GoTo errHandle

    strSql = "UPDATE siswa SET nama = ?, tempat_lahir = ?, tgl_lahir = ? WHERE nomor_induk = ?"

    Set cmd = New ADODB.Command
    With cmd
        .ActiveConnection = conn
        .CommandType = adCmdText
        .CommandText = strSql

        .Parameters(0) = siswa.nama
        .Parameters(1) = siswa.TempatLahir
        .Parameters(2) = siswa.TanggalLahir
        .Parameters(3) = siswa.NomorInduk

        .Execute Update
    End With
    Set cmd = Nothing

    Exit Function

errHandle:
    Update = 0
End Function

3. Method Delete

Public Function Delete(ByVal nis As String, ByVal conn As ADODB.Connection) As Integer
    On Error GoTo errHandle

    strSql = "DELETE FROM siswa WHERE nomor_induk = ?"

    Set cmd = New ADODB.Command
    With cmd
        .ActiveConnection = conn
        .CommandType = adCmdText
        .CommandText = strSql

        .Parameters(0) = nis

        .Execute Delete
    End With
    Set cmd = Nothing

    Exit Function

errHandle:
    Delete = 0
End Function

4. Method GetAll

Public Function GetAll(ByVal conn As ADODB.Connection) As Scripting.Dictionary
    Dim daftarSiswa     As New Scripting.Dictionary
    Dim rs              As ADODB.Recordset

    Dim key             As Long

    On Error GoTo errHandle

    strSql = "SELECT nomor_induk, nama, tempat_lahir, tgl_lahir " & _
             "FROM siswa " & _
             "ORDER BY nomor_induk"

    Set rs = OpenRecordset(strSql, conn)
    Do While Not rs.EOF

        Call daftarSiswa.Add(key, MappingRowToObject(rs))
        key = key + 1

        rs.MoveNext
    Loop
    Call CloseRecordset(rs)

    Set GetAll = daftarSiswa

    Exit Function
errHandle:
    Set GetAll = Nothing
End Function

5. Method GetByName

Public Function GetByName(ByVal nama As String, ByVal conn As ADODB.Connection) As Scripting.Dictionary
    Dim daftarSiswa     As New Scripting.Dictionary
    Dim rs              As ADODB.Recordset

    Dim key             As Long

    On Error GoTo errHandle

    nama = Replace(nama, "'", "''")

    strSql = "SELECT nomor_induk, nama, tempat_lahir, tgl_lahir " & _
             "FROM siswa " & _
             "WHERE nama LIKE '%" & nama & "%' " & _
             "ORDER BY nomor_induk"

    Set rs = OpenRecordset(strSql, conn)
    Do While Not rs.EOF

        Call daftarSiswa.Add(key, MappingRowToObject(rs))
        key = key + 1

        rs.MoveNext
    Loop
    Call CloseRecordset(rs)

    Set GetByName = daftarSiswa

    Exit Function
errHandle:
    Set GetByName = Nothing
End Function

6. Method GetByNIS

Public Function GetByNIS(ByVal nis As String, ByVal conn As ADODB.Connection) As SiswaModel.siswa
    Dim siswa   As SiswaModel.siswa
    Dim rs      As ADODB.Recordset

    On Error GoTo errHandle

    strSql = "SELECT nomor_induk, nama, tempat_lahir, tgl_lahir " & _
             "FROM siswa " & _
             "WHERE nomor_induk = '" & nis & "'"
    Set rs = OpenRecordset(strSql, conn)
    If Not rs.EOF Then
        Set siswa = MappingRowToObject(rs)
    End If
    Call CloseRecordset(rs)

    Set GetByNIS = siswa

    Exit Function

errHandle:
    Set GetByNIS = Nothing
End Function

Class SiswaDao diatas membutuhkan referensi/library tambahan berikut :

Karena class SiswaModel dan SiswaDao berbeda project sehingga untuk mengakses class Siswa berikut propertiesnya dari SiswaDao perlu ditambahkan referensi SiswaModel.

Referensi Microsoft Scripting Runtime mirip dengan class Collection.

Terakhir kita akan membahas bagaimana mengakses class Siswa dan SiswaDao dari form Siswa tapi sebelumnya kita harus menambahkan referensi SiswaModel, SiswaDataAccess, Microsoft ADO 2x dan Microsoft Scripting Runtime.

1. Menyimpan data

Private Sub cmdSimpan_Click()
    Dim siswa As New SiswaModel.siswa

    With siswa
        .NomorInduk = txtNomorInduk.Text
        .nama = txtNama.Text
        .TempatLahir = txtTempatLahir.Text
        .TanggalLahir = dtpTanggal.Value
    End With

    result = siswaDao.Save(siswa, conn)
    If result > 0 Then
        MsgBox "Data siswa sudah disimpan"
        Call LoadDataSiswa

    Else
        MsgBox "Data siswa gagal disimpan"
    End If

    Set siswa = Nothing
End Sub

2. Mengupdate data

Private Sub cmdPerbaiki_Click()
    Dim siswa As New SiswaModel.siswa

    With siswa
        .NomorInduk = txtNomorInduk.Text
        .nama = txtNama.Text
        .TempatLahir = txtTempatLahir.Text
        .TanggalLahir = dtpTanggal.Value
    End With

    result = siswaDao.Update(siswa, conn)
    If result > 0 Then
        MsgBox "Data siswa sudah disimpan"
        Call LoadDataSiswa

    Else
        MsgBox "Data siswa gagal disimpan"
    End If

    Set siswa = Nothing
End Sub

3. Menghapus data

Private Sub cmdHapus_Click()
    Dim nis As String

    nis = lsvSiswa.ListItems(lsvSiswa.SelectedItem.Index).SubItems(1)

    If MsgBox("Apakah proses penghapusan ingin dilanjutkan ?", vbExclamation + vbYesNo, "Konfirmasi") = vbYes Then
        result = siswaDao.Delete(nis, conn)
        If result > 0 Then
            MsgBox "Data siswa sudah dihapus"
            Call LoadDataSiswa

            txtNomorInduk.Text = ""
            txtNama.Text = ""
            txtTempatLahir.Text = ""

            txtNomorInduk.SetFocus

        Else
            MsgBox "Data siswa gagal dihapus"
        End If
    End If
End Sub

4. Menampilkan semua data

Private Sub FillToListView(ByVal siswa As SiswaModel.siswa)
    Dim row As Long

    With lsvSiswa
        row = .ListItems.Count + 1

        .ListItems.Add , , row
        .ListItems(row).SubItems(1) = siswa.NomorInduk
        .ListItems(row).SubItems(2) = siswa.nama
        .ListItems(row).SubItems(3) = siswa.TempatLahir

        If siswa.TanggalLahir <> "1/1/1900" Then
            .ListItems(row).SubItems(4) = Format(siswa.TanggalLahir, "dd/MM/yyyy")
        End If
    End With
End Sub

Private Sub LoadDataSiswa(Optional ByVal nama As String = "")
    Dim daftarSiswa As New Scripting.Dictionary
    Dim siswa       As SiswaModel.siswa

    Dim key         As Variant

    If Len(nama) > 0 Then
        Set daftarSiswa = siswaDao.GetByName(nama, conn)
    Else
        Set daftarSiswa = siswaDao.GetAll(conn)
    End If

    lsvSiswa.ListItems.Clear

    For Each key In daftarSiswa
        Set siswa = daftarSiswa.Item(key)

        Call FillToListView(siswa)
    Next

    Set siswa = Nothing
    Set daftarSiswa = Nothing
End Sub

kemudian tinggal panggil di event Form_Load

Private Sub Form_Load()
    Call LoadDataSiswa
End Sub

5. Menampilkan data berdasarkan nama

Private Sub cmdCariByName_Click()
    Call LoadDataSiswa(txtKeywordPencarian.Text)
End Sub

6. Menampilkan data berdasarkan nomor induk

Private Sub cmdCariByNIS_Click()
    Dim siswa As SiswaModel.siswa

    Set siswa = siswaDao.GetByNIS(txtNomorInduk.Text, conn)
    If Not siswa Is Nothing Then
        With siswa
            txtNama.Text = .nama
            txtTempatLahir.Text = .TempatLahir

            If .TanggalLahir <> "1/1/1900" Then
                dtpTanggal.Value = siswa.TanggalLahir
            End If
        End With

    Else
        MsgBox "Data siswa tidak ditemukan"
    End If

    Set siswa = Nothing
End Sub

Selamat MENCOBA

Untuk refreshing dibawah ini merupakan format laporan yang akan kita buat menggunakan sub report.

Langsung saja kita aktifkan project postingan sebelumnya

kemudian klik kanan node Designers -> Add -> Data Dynamics ActiveReports 2.0

setelah itu akan bertambah 1 sub node baru dengan nama ActiveReport1 kemudian ganti properties Name dan Captionnya sesuai gambar berikut :

langkah selanjutnya kita akan menambahkan section baru yaitu section Group Header/Footer dengan cara mengklik kanan salah satu section yang sudah ada

jika berhasil akan ditambahkan 2 section baru yaitu section group header dan footer

kemudian ganti properties namenya menjadi grpKelasID

field kelas_id mengacu pada query berikut

SELECT kelas.id AS kelas_id, kelas.keterangan AS kelas
FROM kelas INNER JOIN kelas_siswa ON kelas.id = kelas_siswa.kelas_id

kemudian desain laporan sesuai gambar berikut :

bagaimana cara mendesainnya sudah saya bahas tuntas disini.

karena kita disini menggunakan sub report berarti kita harus menambahkan 1 report baru yang akan kita panggil melalui objek sub report.

Tambahkan report baru dengan cara mengklik kanan node Designers -> Add -> Data Dynamics ActiveReports 2.0

kemudian ganti properties Name sesuai gambar berikut :

setelah itu hapus section PageHeader dengan cara mengklik kanan section PageHeader -> Delete Section

kemudian lengkapi desainnya seperti berikut :

sampai disini kita akan mulai menghubungkan report utama dengan sub reportnya dengan cara mengaktifkan report arLapSiswaPerkelas2 kemudian klik ganda section Group Header

kemudian lengkapi kodenya seperti berikut :

Private Sub grpKelasID_Format()
    Dim strSql  As String

    With adoSiswaPerKelas.Recordset
        If Not .EOF Then
            txtKelas.Text = .Fields("kelas").Value

            strSql = "SELECT siswa.nomor_induk, siswa.nama " & _
                     "FROM siswa INNER JOIN kelas_siswa ON siswa.nomor_induk = kelas_siswa.nomor_induk " & _
                     "WHERE kelas_siswa.kelas_id = " & grpKelasID.GroupValue & ""

            ' memanggil sub report
            Set SubReport1.object = New arSubReportSiswaPerKelas
            With SubReport1.object.adoSiswaPerKelas
                .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sampleDb.mdb"
                .Source = strSql
            End With

        End If
    End With
End Sub

setelah itu aktifkan juga report arSubReportSiswaPerKelas kemudian tambahkan kode berikut pada event Detail_Format

Private Sub Detail_Format()
    With adoSiswaPerKelas.Recordset
        If Not .EOF Then
            txtNo.Text = Val(txtNo.Text) + 1

            txtNoInduk.Text = .Fields("nomor_induk").Value
            txtNama.Text = .Fields("nama").Value
        End If
    End With
End Sub

Terakhir kita akan memanggil report utama dari form vb

Private Sub cmdPreviewSiswaPerKelas2_Click()
    Dim strSql  As String

    strSql = "SELECT kelas.id AS kelas_id, kelas.keterangan AS kelas " & _
             "FROM kelas INNER JOIN kelas_siswa ON kelas.id = kelas_siswa.kelas_id"

    With arLapSiswaPerkelas2
        .adoSiswaPerKelas.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sampleDb.mdb"
        .adoSiswaPerKelas.Source = strSql

        .lblHeader1.Caption = "SEKOLAH MENGENGAH ..."
        .lblHeader2.Caption = "Laporan Data Siswa Per Kelas"

        .Show
    End With
End Sub

Yuph selesai sudah

Sampai disini modal kita sudah cukup untuk membuat report yang lebih kompleks, insya Allah akan kita bahas di seri terakhir dari tutorial Active Report ini.

Selamat MENCOBA