22 Type Conversion

Type Conversion memiliki fungsi mengganti sebuah Type Data ke Type Data yang lain. Bagi anda yang belum mengetahui apa itu type data sebaiknya membaca Prinsip Prinsip Dasar terlebih dahulu. Type Conversion dalam C# adalah Class sedangkan dalam VB adalah Function. Oleh sebah itu berbeda cara penggunaannya tetapi memiliki hasil yang sama. 

Secara umum Type Conversion terbagi menjadi 16(enam belas), Didalam VB juga terdapat 16 Type Conversion, tetapi didalam C# lebih dari 16, dikarenakan 1 Type Convertion terkadang memiliki cabang contohnya. Convertion.ToInt16(Boolean), Convertion.ToInt16(Byte), Convertion.ToInt16(Char) dan seterusnya sampai pulahan hanya untuk Convertion.ToInt16, belum untuk ToInt32 dan lainnya. Oleh sebab itu disini kita akan membahas 16 Type Convertion secara umum. Berikut penjelasannya.

C#/VB	VB	Keterangan
ToBoolean	CBool	Mengganti suatu Type Data menjadi Type Data Boolean.
ToByte	CByte	Mengganti suatu Type Data menjadi Type Data Byte.
ToChar	CChar	Mengganti suatu Type Data menjadi Type Data Char.
ToDateTime	CDate	Mengganti suatu Type Data menjadi Type Data DateTime.
ToDouble	CDbl	Mengganti suatu Type Data menjadi Type Data Double.
ToDecimal	CDec	Mengganti suatu Type Data menjadi Type Data Decimal.
ToInt32	CInt	Mengganti suatu Type Data menjadi Type Data Integer.
ToInt64	CLng	Mengganti suatu Type Data menjadi Type Data Long.
ChangeType	CObj	Mengganti suatu Type Data menjadi Type Data Object.
ToSByte	CSByte	Mengganti suatu Type Data menjadi Type Data SByte.
ToInt16	CShort	Mengganti suatu Type Data menjadi Type Data (Short dalam VB).
ToSingle	CSng	Mengganti suatu Type Data menjadi Type Data Single.
ToString	CStr	Mengganti suatu Type Data menjadi Type Data String.
ToUInt32	CUInt	Mengganti suatu Type Data menjadi Type Data unsigned Integer.
ToUInt64	CULng	Mengganti suatu Type Data menjadi Type Data unsigned Long.
ToUInt16	CUShort	Mengganti suatu Type Data menjadi Type Data unsigned Short.

Dari tabel diatas, type conversion yang ada dalam C# bisa juga digunakan didalam VB. Sebaliknya tidak, yang ada dalam VB tidak dapat digunakan didalm C#. Tetapi pada contoh soal kita akan membahas masing masing type conversion untuk C# maupun VB.

Contoh Soal
Buatlah 1 project dengan nama cs_11typeconversion(untuk C#) atau vb_11typeconversion(untuk VB), masukan 16 object label kedalam form seperti gambar 22.1 dibawah ini.

Gambar 22.1

Klik 2x interface form agar masuk pada event Form_Load, kemudian ketikan code berikut:

//C#
private void Form1_Load(object sender, EventArgs e)
{
    bool bbool;
    byte bbyte;
    char cchar;
    DateTime ddt;
    double ddouble;
    decimal ddecimal;
    int iint;
    long llong;
    object oobject;
    string sstring;
    sbyte ssbyte;
    short sshort;
    Single ssingle;
    UInt32 uuint32;
    UInt64 uuint64;
    UInt16 uuint16;

    bbool = Convert.ToBoolean("True");
    if (bbool = true){
        label1.Text = "ToBoolean Sukses";
    }
    else{
        label1.Text = "ToBoolean Gagal";
    }

    bbyte = Convert.ToByte("100");
    if (bbyte == 100){
       label2.Text = "ToByte Sukses";
    }
    else{
       label2.Text = "ToByte Gagal";
    }

    //selanjutnya contoh sederhana
    cchar = Convert.ToChar(98);
    label3.Text = "ToChar 98 = " + cchar;

    ddt = Convert.ToDateTime("01/01/2016");
    label4.Text = "ToDateTime = " + ddt;

    ddouble = Convert.ToDouble("1000000");
    label5.Text = "ToDouble = " + (ddouble + ddouble);

    ddecimal = Convert.ToDecimal("99,99");
    label6.Text = "ToDecimal = " + (ddecimal + ddecimal);

    iint = Convert.ToInt32("1000");
    label7.Text = "ToInt32 = " + (iint + iint);

    llong = Convert.ToInt64("100000000");
    label8.Text = "ToInt64 = " + (llong + llong);

    oobject = Convert.ChangeType("1000", typeof(int));
    label9.Text = "ChangeType = " + oobject;

    ssbyte = Convert.ToSByte("25");
    label10.Text = "ToSByte = " + (ssbyte + ssbyte);

    sshort = Convert.ToInt16("12");
    label11.Text = "ToShort = " + (sshort + sshort);

    ssingle = Convert.ToSingle("1000000");
    label12.Text = "ToSingle = " + (ssingle + ssingle);

    sstring = Convert.ToString(100);
    label13.Text = "ToString = " + (sstring + sstring);

    uuint32 = Convert.ToUInt32("1000000");
    label14.Text = "ToUInt32 = " + (uuint32 + uuint32);

    uuint64 = Convert.ToUInt64("100000000");
    label15.Text = "ToUInt64 = " + (uuint64 + uuint64);

    uuint16 = Convert.ToUInt16("100");
    label16.Text = "ToUInt16 = " + (uuint16 + uuint16);
}

'VB
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim bbool As Boolean
    Dim bbyte As Byte
    Dim ccchar As Char
    Dim ddt As  DateTime
    Dim ddouble As  Double
    Dim  ddecimal As Decimal
    Dim  iinteger As Integer
    Dim  llong As  Long
    Dim  oobject As Object
    Dim  sstring As String
    Dim  ssbyte As  SByte
    Dim  sshort As Short
    Dim  ssingle As Single
    Dim  uuinteger As UInteger 
    Dim  uulong As ULong
    Dim  uushort As UShort

    bbool = CBool("True")
    if (bbool = True)
        label1.Text = "CBool Sukses"
    
    else
        label1.Text = "CBool Gagal"
    End if

    bbyte = CByte("100")
    if (bbyte = 100)
       label2.Text = "CByte Sukses"
    else
       label2.Text = "CByte Gagal"
    End if

    'selanjutnya contoh sederhana
    ccchar = CChar("98")
    label3.Text = "CChar 98 = " + ccchar

    ddt = CDate("01/01/2016")
    label4.Text = "CDate = " + ddt

    ddouble = CDbl("1000000")
    label5.Text = "CDbl = " & (ddouble + ddouble)

    ddecimal = CDec("99,99")
    label6.Text = "CDec = " & (ddecimal + ddecimal)

    iinteger = CInt("1000")
    label7.Text = "CInt = " & (iinteger + iinteger)

    llong = CLng("100000000")
    label8.Text = "CLng = " & (llong + llong)

    oobject = CObj("1000")
    label9.Text = "CObj = " & oobject

    ssbyte = CSByte("25")
    label10.Text = "CSByte = " & (ssbyte + ssbyte)

    sshort = CShort("12")
    label11.Text = "CShort = " & (sshort + sshort)

    ssingle = CSng("1000000")
    label12.Text = "CSng = " & (ssingle + ssingle)

    sstring = CStr(100)
    label13.Text = "CStr = " & (sstring & sstring)

    uuinteger = CUInt("1000000")
    label14.Text = "CUInt = " & (uuinteger + uuinteger)

    uulong = CULng("100000000")
    label15.Text = "CULng = " & (uulong + uulong)

    uushort = CUShort("100")
    label16.Text = "CUShort = " & (uushort + uushort)
    End Sub

Jalakan program kemudian kemudian perhatikan hasilnya, seperti pada gambar 22.2 dibawah ini.

Gambar 22.2

Sampai disini sample dari Type Conversion, selanjutnya kita akan membahas Dialog Interaction.

Password: csvb2015.blogspot.co.id