String manipulation atau sering disebut fungsi fungsi string/string format sebagaimana yang telah dijelaskan sebelumnya bahwa tidak ada function dalam C#, oleh sebab itu String format didalam C# secara default tidak ada, akan tetapi didalam VB ada karena didalam VB terdapat function. String manipulation meliputi.
| Member | Fungsi |
| Asc/AscW | Mendapatkan no Ascii dari char |
| Chr/ChrW | Memunculkan char dari no Ascii |
| Equals | Persamaan membandingkan 2 buah string/char. |
| Filter | Menyaring string. |
| Format | Merubah angka, tanggal, waktu, dll. |
| FormatCurrency | Merubah format angka. |
| FormatDateTime | Merubah format tanggal dan waktu. |
| FormatNumber | Merubah number desimal atau tanpa desimal. |
| FormatPercent | Merubah bilangan menjadi persen. |
| GetChar | Mendapatkan char dari string |
| InStr/InStrRev | Mengambil posisi char dari sebuah string. |
| Join | Menggabungkan string/number. |
| LCase | Membuat char besar menjadi kecil. |
| Left | Mengambil string/char dari sebelah kiri. |
| Len | Menghitung panjang dari string. |
| LSet | Mengambil string/char tertentu dari sebelah kiri. |
| LTrim | Menghilangkan spasi dari kiri. |
| Mid | Mengambil char dari lokasi tertentu. |
| ReferenceEquals | Membandingkan 2 object/string |
| Replace | Mengganti char atau string. |
| Right | Mengambil string dari sebelah kanan. |
| RSet | Mengambil string/char tertentu dari sebelah kanan. |
| RTrim | Menghilangkan spasi dari kanan. |
| Space | Memberikan spasi. |
| Split | Memisahkan string/number dari array. |
| StrComp | Membandingkan 2 buah angka atau string. |
| StrConv | Mengubah string Besar, Besar Kecil, Kecil semua. |
| StrDup | Membuat char sebanyak yang ditentukan |
| StrReverse | Membalikan string |
| Trim | Menghilangkan spasi dari kiri dan kanan. |
| UCase | Mengubah char kecil menjadi besar. |
Semua member diatas adalah fucntion, sebagai contoh kita akan mengambil 6 huruf sebelah kiri dari sebuah kalimat CSVB2015:
//C# string A = "CSVB2015"; A.Substring(0,6); //Hasilnya adalah CSVB20
'VB
Left("CSVB2015", 6)
'Hasilnya adalah CSVB20
Contoh kita akan mengambil 5 huruf sebelah kanan dari sebuah kalimat CSVB2015:
Contoh kita akan mengambil 4 huruf dimulai dari huruf ke 2 dari kalimat CSVB2015:
Dari ketiga contoh code diatas memiliki hasil yang sama, timbul pertanyaan kenapa didalam C# tidak langsung saja left("CSVB2015", 6); ? sebagaimana yang sudah dijelaskan, secara default setiap member didalam C# adalah class, sedang left adalah function.
Akan tetapi kita dapat menambahkan Reference Visual Basic kedalam project C# yang kita buat agar string manupulation diatas dapat diakses dengan mudah dengan cara, klik menu Project, Add Reference.... Kemuadian pada navigator sebelah kiri pilih Framework, List yang ada ditengah centang Microsoft.VisualBasic, setalah itu klik button OK. Seperti gambar 18.1 dibawah ini.
Setalah menambahkan reference kedalam project tambahkan code berikut://C# string A = "CSVB2015"; A.Substring(A.Lenght - 5, 5); //Hasilnya adalah B2015
'VB
Right("CSVB2015", 5)
'Hasilnya adalah B2015
Contoh kita akan mengambil 4 huruf dimulai dari huruf ke 2 dari kalimat CSVB2015:
//C# string A = "CSVB2015"; A.Substring(2, 4); //Hasilnya adalah SVB2
'VB
Mid("CSVB2015", 2, 4)
'Hasilnya adalah SVB2
Dari ketiga contoh code diatas memiliki hasil yang sama, timbul pertanyaan kenapa didalam C# tidak langsung saja left("CSVB2015", 6); ? sebagaimana yang sudah dijelaskan, secara default setiap member didalam C# adalah class, sedang left adalah function.
Akan tetapi kita dapat menambahkan Reference Visual Basic kedalam project C# yang kita buat agar string manupulation diatas dapat diakses dengan mudah dengan cara, klik menu Project, Add Reference.... Kemuadian pada navigator sebelah kiri pilih Framework, List yang ada ditengah centang Microsoft.VisualBasic, setalah itu klik button OK. Seperti gambar 18.1 dibawah ini.
Gambar 18.1
//C# using Microsoft.VisualBasic;
Letakan code tersebut dibagian atas seperti gambar 18.2 berikut.
Gambar 18.2
//C#
//string A = "CSVB2015";
//A.Substring(0,6);
//string A = "CSVB2015";
//A.Substring(A.Lenght - 5, 5);
//string A = "CSVB2015";
//A.Substring(2, 4);
//Yang tadinya dalam C# menggunakan code diatas
//sekarang cukup dengan code berikut
Strings.Left("CSVC2016", 6);
//hasilnya adalah CSVB20
Strings.Right("CSVB2015", 5);
//Hasilnya adalah B2015
Strings.Mid("CSVB2015", 2, 4);
//Hasilnya adalah SVB2
'VB
Left("CSVB2015", 6)
'Hasilnya adalah CSVB20
Right("CSVB2015", 5)
'Hasilnya adalah B2015
Mid("CSVB2015", 2, 4)
'Hasilnya adalah SVB2
Buat project dengan nama cs_08string(untuk C#) dan vb_08string(utuk VB), kemudian masukan 31 object button seprtyi gambar 18.3 berikut dan atur propertiesnya.
Gambar 18.3
| Object | Propesties | Value |
| button1 | (Name) | btnAsc |
| Teks | Asc | |
| button2 | (Name) | btnChr |
| Teks | Chr | |
| button3 | (Name) | btnEquals |
| Teks | Equals | |
| button4 | (Name) | btnFilter |
| Teks | Filter | |
| button5 | (Name) | btnFormat |
| Teks | Format | |
| button6 | (Name) | btnFormatCur |
| Teks | Format Cur | |
| button7 | (Name) | btnFormatDT |
| Teks | Format DT | |
| button8 | (Name) | btnFormatNum |
| Teks | Format Num | |
| button9 | (Name) | btnFormatPerc |
| Teks | Format Perc | |
| button10 | (Name) | btnGetChar |
| Teks | Get Char | |
| button11 | (Name) | btnInStr |
| Teks | InStr | |
| button12 | (Name) | btnJoin |
| Teks | Join | |
| button13 | (Name) | btnLCase |
| Teks | LCase | |
| button14 | (Name) | btnLeft |
| Teks | Left | |
| button15 | (Name) | btnLen |
| Teks | Len | |
| button16 | (Name) | btnLSet |
| Teks | LSet | |
| button17 | (Name) | btnLTrim |
| Teks | LTrim | |
| button18 | (Name) | btnMid |
| Teks | Mid | |
| button19 | (Name) | btnRefEquals |
| Teks | Ref Equals | |
| button20 | (Name) | btnReplace |
| Teks | Replace | |
| button21 | (Name) | btnRight |
| Teks | Right | |
| button22 | (Name) | btnRSet |
| Teks | RSet | |
| button23 | (Name) | btnRTrim |
| Teks | RTrim | |
| button24 | (Name) | btnSpace |
| Teks | Space | |
| button25 | (Name) | btnSplit |
| Teks | Split | |
| button26 | (Name) | btnStrComp |
| Teks | StrComp | |
| button27 | (Name) | btnStrConv |
| Teks | StrConv | |
| button28 | (Name) | btnStrDup |
| Teks | StrDup | |
| button29 | (Name) | btnStrReverse |
| Teks | StrReverse | |
| button30 | (Name) | btnTrim |
| Teks | Trim | |
| button31 | (Name) | btnUCase |
| Teks | UCase |
Klik masing masing button kemudian ketikan code berikut:
//C#
private void btnAsc_Click(object sender, EventArgs e)
{
string kkg;
kkg = "Asc C = " + Strings.Asc("C") + "\n";
kkg += "Asc S = " + Strings.Asc("S") + "\n";
kkg += "Asc V = " + Strings.Asc("V") + "\n";
kkg += "Asc B = " + Strings.Asc("B") + "\n";
kkg += "Asc 2 = " + Strings.Asc("2") + "\n";
kkg += "Asc 0 = " + Strings.Asc("0") + "\n";
kkg += "Asc 1 = " + Strings.Asc("1") + "\n";
kkg += "Asc 5 = " + Strings.Asc("5");
MessageBox.Show(kkg);
}
private void btnChr_Click(object sender, EventArgs e)
{
string kkg;
kkg = Strings.Chr(67).ToString();
kkg += Strings.Chr(83);
kkg += Strings.Chr(86);
kkg += Strings.Chr(66);
kkg += Strings.Chr(50);
kkg += Strings.Chr(48);
kkg += Strings.Chr(49);
kkg += Strings.Chr(53);
MessageBox.Show(kkg);
}
private void btnEquals_Click(object sender, EventArgs e)
{
int a = 888;
int b = 999;
Boolean hasil;
hasil = Strings.Equals(a, b);
MessageBox.Show("888=999 " + hasil.ToString());
int aa = 2015;
int bb = 2015;
hasil = Strings.Equals(aa, bb);
MessageBox.Show("2015=2015 " + hasil.ToString());
}
private void btnFilter_Click(object sender, EventArgs e)
{
string[] test = new string[3];
test[0] = "Apa";
test[1] = "Kabar";
test[2] = "Dunia";
string[] hasil;
hasil = Strings.Filter(test, "Kabar", true, CompareMethod.Text);
MessageBox.Show(hasil[0]);
hasil = Strings.Filter(test, "Kabar", true, CompareMethod.Binary);
MessageBox.Show(hasil[0]);
hasil = Strings.Filter(test, "Kabar", false, CompareMethod.Binary);
MessageBox.Show(hasil[0]);
}
private void btnFormat_Click(object sender, EventArgs e)
{
MessageBox.Show(Strings.Format(10000, "#,#"));
MessageBox.Show(Strings.Format(10000, "Currency"));
}
private void btnFormatCur_Click(object sender, EventArgs e)
{
MessageBox.Show(Strings.FormatCurrency(10000));
MessageBox.Show(Strings.FormatCurrency(10000,2));
MessageBox.Show(Strings.FormatCurrency("10000"));
MessageBox.Show(Strings.FormatCurrency("10000",2));
}
private void btnFormatDT_Click(object sender, EventArgs e)
{
DateTime tanggal = new DateTime(2016, 04, 29, 12, 49, 55);
MessageBox.Show(Strings.FormatDateTime(tanggal, DateFormat.GeneralDate));
MessageBox.Show(Strings.FormatDateTime(tanggal, DateFormat.LongDate));
MessageBox.Show(Strings.FormatDateTime(tanggal, DateFormat.LongTime));
MessageBox.Show(Strings.FormatDateTime(tanggal, DateFormat.ShortDate));
MessageBox.Show(Strings.FormatDateTime(tanggal, DateFormat.ShortTime));
}
private void btnFormatNum_Click(object sender, EventArgs e)
{
MessageBox.Show(Strings.FormatNumber(10000));
MessageBox.Show(Strings.FormatNumber(10000, 2));
MessageBox.Show(Strings.FormatNumber(10000, 1));
MessageBox.Show(Strings.FormatNumber(10000, 0));
MessageBox.Show(Strings.FormatNumber("10000"));
MessageBox.Show(Strings.FormatNumber("10000", 2));
MessageBox.Show(Strings.FormatNumber("10000", 1));
MessageBox.Show(Strings.FormatNumber("10000", 0));
}
private void btnFormatPerc_Click(object sender, EventArgs e)
{
MessageBox.Show(Strings.FormatPercent(0.010));
MessageBox.Show(Strings.FormatPercent(0.010, 0));
MessageBox.Show(Strings.FormatPercent(0.025));
MessageBox.Show(Strings.FormatPercent(0.025, 0));
MessageBox.Show(Strings.FormatPercent(0.10));
MessageBox.Show(Strings.FormatPercent(0.10, 0));
MessageBox.Show(Strings.FormatPercent(0.25));
MessageBox.Show(Strings.FormatPercent(0.25, 0));
MessageBox.Show(Strings.FormatPercent(1));
MessageBox.Show(Strings.FormatPercent(1, 0));
}
private void btnGetChar_Click(object sender, EventArgs e)
{
MessageBox.Show(Convert.ToString(Strings.GetChar("KKG", 3)));
}
private void btnInStr_Click(object sender, EventArgs e)
{
MessageBox.Show(Convert.ToString(Strings.InStr("CSVB2015", "C")));
MessageBox.Show(Convert.ToString(Strings.InStr("CSVB2015", "S")));
MessageBox.Show(Convert.ToString(Strings.InStr("CSVB2015", "B")));
}
private void btnJoin_Click(object sender, EventArgs e)
{
string[] nama = new string[3];
nama[0] = "Kuning ";
nama[1] = "Kucing ";
nama[2] = "Gila";
MessageBox.Show(Strings.Join(nama));
}
private void btnLCase_Click(object sender, EventArgs e)
{
MessageBox.Show(Strings.LCase("CSVBJADIKECIL"));
}
private void btnLeft_Click(object sender, EventArgs e)
{
MessageBox.Show(Strings.Left("CSVB2015", 6));
}
private void btnLen_Click(object sender, EventArgs e)
{
MessageBox.Show(Convert.ToString(Strings.Len("CSVB2015")));
}
private void btnLSet_Click(object sender, EventArgs e)
{
MessageBox.Show(Strings.LSet("CSVB2015", 4));
}
private void btnLTrim_Click(object sender, EventArgs e)
{
MessageBox.Show(" CSVB2015 TANPA LTrim");
MessageBox.Show(Strings.LTrim(" CSVB2015 DENGAN LTrim"));
}
private void btnMid_Click(object sender, EventArgs e)
{
MessageBox.Show(Strings.Mid("CSVB2015", 2, 4));
}
private void btnRefEquals_Click(object sender, EventArgs e)
{
MessageBox.Show(Convert.ToString(ReferenceEquals("AAA", "AAA")));
MessageBox.Show(Convert.ToString(ReferenceEquals("AAA", "BBB")));
}
private void btnReplace_Click(object sender, EventArgs e)
{
MessageBox.Show(Strings.Replace("CSVB2015", "CSVB", "KKG"));
}
private void btnRight_Click(object sender, EventArgs e)
{
MessageBox.Show(Strings.Right("CSVB2015", 6));
}
private void btnRSet_Click(object sender, EventArgs e)
{
MessageBox.Show(Strings.RSet("CSVB2015", 4));
}
private void btnRTrim_Click(object sender, EventArgs e)
{
MessageBox.Show("CSVB2015 TANPA RTrim ");
MessageBox.Show(Strings.RTrim("CSVB2015 DENGAN RTrim "));
}
private void btnSpace_Click(object sender, EventArgs e)
{
MessageBox.Show("CSVB" + Strings.Space(100) + "2015");
}
private void btnSplit_Click(object sender, EventArgs e)
{
string angka = "111-222-333-444-555";
string[] angkaSplit = Strings.Split(angka, "-");
MessageBox.Show(angkaSplit[0]);
MessageBox.Show(angkaSplit[1]);
MessageBox.Show(angkaSplit[2]);
MessageBox.Show(angkaSplit[3]);
MessageBox.Show(angkaSplit[4]);
}
private void btnStrComp_Click(object sender, EventArgs e)
{
MessageBox.Show(Convert.ToString(Strings.StrComp("100", "99")));
MessageBox.Show(Convert.ToString(Strings.StrComp("99", "99")));
MessageBox.Show(Convert.ToString(Strings.StrComp("99", "100")));
}
private void btnStrConv_Click(object sender, EventArgs e)
{
string kata = "CS vb";
MessageBox.Show(Strings.StrConv(kata, VbStrConv.Uppercase));
MessageBox.Show(Strings.StrConv(kata, VbStrConv.ProperCase));
MessageBox.Show(Strings.StrConv(kata, VbStrConv.Lowercase));
}
private void btnStrDup_Click(object sender, EventArgs e)
{
MessageBox.Show(Strings.StrDup(15, "C"));
MessageBox.Show(Strings.StrDup(15, "S"));
MessageBox.Show(Strings.StrDup(15, "V"));
MessageBox.Show(Strings.StrDup(15, "B"));
}
private void btnStrReverse_Click(object sender, EventArgs e)
{
MessageBox.Show("CSVB2015 TANPA StrReverse");
MessageBox.Show(Strings.StrReverse("CSVB2015 DENGAN StrReverse"));
}
private void btnTrim_Click(object sender, EventArgs e)
{
MessageBox.Show(" CSVB2015 TANPA Trim ");
MessageBox.Show(Strings.Trim(" CSVB2015 DENGAN Trim "));
}
private void btnUCase_Click(object sender, EventArgs e)
{
MessageBox.Show(Strings.UCase("csvbjadibesar"));
}
'VB
Private Sub btnFilter_Click(sender As Object, e As EventArgs) Handles btnFilter.Click
Dim Test(2) As String
Test(0) = "Apa"
Test(1) = "Kabar"
Test(2) = "Dunia"
Dim subStrings() As String
subStrings = Filter(Test, "Kabar", True, CompareMethod.Text)
MessageBox.Show(subStrings(0))
subStrings = Filter(Test, "Kabar", True, CompareMethod.Binary)
MessageBox.Show(subStrings(0))
subStrings = Filter(Test, "Kabar", False, CompareMethod.Binary)
MessageBox.Show(subStrings(0))
End Sub
Private Sub btnAsc_Click(sender As Object, e As EventArgs) Handles btnAsc.Click
Dim kkg As String
kkg = "Asc C = " & Asc("C") & vbCrLf
kkg += "Asc S = " & Asc("S") & vbCrLf
kkg += "Asc V = " & Asc("V") & vbCrLf
kkg += "Asc B = " & Asc("B") & vbCrLf
kkg += "Asc 2 = " & Asc("2") & vbCrLf
kkg += "Asc 0 = " & Asc("0") & vbCrLf
kkg += "Asc 1 = " & Asc("1") & vbCrLf
kkg += "Asc 5 = " & Asc("5")
MessageBox.Show(kkg)
End Sub
Private Sub btnChr_Click(sender As Object, e As EventArgs) Handles btnChr.Click
Dim kkg As String
kkg = Chr(67)
kkg += Chr(83)
kkg += Chr(86)
kkg += Chr(66)
kkg += Chr(50)
kkg += Chr(48)
kkg += Chr(49)
kkg += Chr(53)
MessageBox.Show(kkg)
End Sub
Private Sub btnEquals_Click(sender As Object, e As EventArgs) Handles btnEquals.Click
Dim a As Integer = 888
Dim b As Integer = 999
Dim hasil As Boolean
hasil = Equals(a, b)
MessageBox.Show("888=999 " & hasil)
Dim aa As Integer = 2015
Dim bb As Integer = 2015
hasil = Equals(aa, bb)
MessageBox.Show("2015=2015 " & hasil)
End Sub
Private Sub btnFormat_Click(sender As Object, e As EventArgs) Handles btnFormat.Click
MessageBox.Show(Format(10000, "#,#"))
MessageBox.Show(Format(10000, "Currency"))
End Sub
Private Sub btnFormatCur_Click(sender As Object, e As EventArgs) Handles btnFormatCur.Click
MessageBox.Show(FormatCurrency(10000))
MessageBox.Show(FormatCurrency(10000,2))
MessageBox.Show(FormatCurrency("10000"))
MessageBox.Show(FormatCurrency("10000",2))
End Sub
Private Sub btnFormatDT_Click(sender As Object, e As EventArgs) Handles btnFormatDT.Click
Dim tanggal As DateTime = #2016/04/29 12:49:55#
MessageBox.Show(FormatDateTime(tanggal, DateFormat.GeneralDate))
MessageBox.Show(FormatDateTime(tanggal, DateFormat.LongDate))
MessageBox.Show(FormatDateTime(tanggal, DateFormat.LongTime))
MessageBox.Show(FormatDateTime(tanggal, DateFormat.ShortDate))
MessageBox.Show(FormatDateTime(tanggal, DateFormat.ShortTime))
End Sub
Private Sub btnFormatNum_Click(sender As Object, e As EventArgs) Handles btnFormatNum.Click
MessageBox.Show(FormatNumber(10000))
MessageBox.Show(FormatNumber(10000, 2))
MessageBox.Show(FormatNumber(10000, 1))
MessageBox.Show(FormatNumber(10000, 0))
MessageBox.Show(FormatNumber("10000"))
MessageBox.Show(FormatNumber("10000", 2))
MessageBox.Show(FormatNumber("10000", 1))
MessageBox.Show(FormatNumber("10000", 0))
End Sub
Private Sub btnFormatPerc_Click(sender As Object, e As EventArgs) Handles btnFormatPerc.Click
MessageBox.Show(FormatPercent(0.010))
MessageBox.Show(FormatPercent(0.010, 0))
MessageBox.Show(FormatPercent(0.025))
MessageBox.Show(FormatPercent(0.025, 0))
MessageBox.Show(FormatPercent(0.10))
MessageBox.Show(FormatPercent(0.10, 0))
MessageBox.Show(FormatPercent(0.25))
MessageBox.Show(FormatPercent(0.25, 0))
MessageBox.Show(FormatPercent(1))
MessageBox.Show(FormatPercent(1, 0))
End Sub
Private Sub btnGetChar_Click(sender As Object, e As EventArgs) Handles btnGetChar.Click
MessageBox.Show(GetChar("KKG",3))
End Sub
Private Sub btnInStr_Click(sender As Object, e As EventArgs) Handles btnInStr.Click
MessageBox.Show(InStr("CSVB2015", "C"))
MessageBox.Show(InStr("CSVB2015", "S"))
MessageBox.Show(InStr("CSVB2015", "B"))
End Sub
Private Sub btnJoin_Click(sender As Object, e As EventArgs) Handles btnJoin.Click
Dim nama(2) As String
nama(0) = "kuning "
nama(1) = "Kucing "
nama(2) = "Gila"
MessageBox.Show(Join(nama))
End Sub
Private Sub btnLCase_Click(sender As Object, e As EventArgs) Handles btnLCase.Click
MessageBox.Show(LCase("CSVBJADIKECIL"))
End Sub
Private Sub btnLeft_Click(sender As Object, e As EventArgs) Handles btnLeft.Click
MessageBox.Show(strings.Left("CSVB2015", 6))
End Sub
Private Sub btnLen_Click(sender As Object, e As EventArgs) Handles btnLen.Click
MessageBox.Show(Len("CSVB2015"))
End Sub
Private Sub btnLSet_Click(sender As Object, e As EventArgs) Handles btnLSet.Click
MessageBox.Show(LSet("CSVB2015",4))
End Sub
Private Sub btnLTrim_Click(sender As Object, e As EventArgs) Handles btnLTrim.Click
MessageBox.Show(" CSVB2015 TANPA LTrim")
MessageBox.Show(LTrim(" CSVB2015 DENGAN LTrim"))
End Sub
Private Sub btnMid_Click(sender As Object, e As EventArgs) Handles btnMid.Click
MessageBox.Show(Mid("CSVB2015",2,4))
End Sub
Private Sub btnRefEquals_Click(sender As Object, e As EventArgs) Handles btnRefEquals.Click
MessageBox.Show(ReferenceEquals("AAA","AAA"))
MessageBox.Show(ReferenceEquals("AAA","BBB"))
End Sub
Private Sub btnReplace_Click(sender As Object, e As EventArgs) Handles btnReplace.Click
MessageBox.Show(Replace("CSVB2015","CSVB","KKG"))
End Sub
Private Sub btnRight_Click(sender As Object, e As EventArgs) Handles btnRight.Click
MessageBox.Show(Strings.Right("CSVB2015", 6))
End Sub
Private Sub btnRSet_Click(sender As Object, e As EventArgs) Handles btnRSet.Click
MessageBox.Show(Rset("CSVB2015", 4))
End Sub
Private Sub btnRTrim_Click(sender As Object, e As EventArgs) Handles btnRTrim.Click
MessageBox.Show("CSVB2015 TANPA RTrim ")
MessageBox.Show(RTrim("CSVB2015 DENGAN RTrim "))
End Sub
Private Sub btnSpace_Click(sender As Object, e As EventArgs) Handles btnSpace.Click
MessageBox.Show("CSVB" & Space(100) & "2015")
End Sub
Private Sub btnSplit_Click(sender As Object, e As EventArgs) Handles btnSplit.Click
Dim angka As String = "111-222-333-444-555"
Dim angkaSplit() as String = Split(angka,"-")
MessageBox.Show(angkaSplit(0))
MessageBox.Show(angkaSplit(1))
MessageBox.Show(angkaSplit(2))
MessageBox.Show(angkaSplit(3))
MessageBox.Show(angkaSplit(4))
End Sub
Private Sub btnStrComp_Click(sender As Object, e As EventArgs) Handles btnStrComp.Click
MessageBox.Show(StrComp(100,99))
MessageBox.Show(StrComp(99,99))
MessageBox.Show(StrComp(99,100))
End Sub
Private Sub btnStrConv_Click(sender As Object, e As EventArgs) Handles btnStrConv.Click
Dim kata As String = "CS vb"
MessageBox.Show(StrConv(kata, VbStrConv.Uppercase))
MessageBox.Show(StrConv(kata, VbStrConv.ProperCase))
MessageBox.Show(StrConv(kata, VbStrConv.Lowercase))
End Sub
Private Sub btnStrDup_Click(sender As Object, e As EventArgs) Handles btnStrDup.Click
MessageBox.Show(StrDup(15, "C"))
MessageBox.Show(StrDup(15, "S"))
MessageBox.Show(StrDup(15, "V"))
MessageBox.Show(StrDup(15, "B"))
End Sub
Private Sub btnStrReverse_Click(sender As Object, e As EventArgs) Handles btnStrReverse.Click
End Sub
Private Sub btnTrim_Click(sender As Object, e As EventArgs) Handles btnTrim.Click
MessageBox.Show(" CSVB2015 TANPA Trim ")
MessageBox.Show(Trim(" CSVB2015 DENGAN Trim "))
End Sub
Private Sub btnUCase_Click(sender As Object, e As EventArgs) Handles btnUCase.Click
MessageBox.Show(UCase("csvbjadibesar"))
End Sub
Coba jalankan apa kemudian klik masing masing button, silahlah apa yang terjadi. Cukup sampai disini contoh dari string manipulation, next kita akan masuk kepembahasan Format.
Password: csvb2015.blogspot.co.id
Tidak ada komentar :
Posting Komentar