[VB.Net] Fungsi String pada Visual Basic dot Net

Hallo, :)
saya mau ngeshare dikit ne tentang Pemograman Visual Basic / VB.Net
mungkin jadul, tp kadang ada gunanya juga

:)

Rancang form seperti berikut

Properti

TextBox1 ganti name nya jadi kalimat
TextBox2 ganti name nya jadi hasil

Command Button nya
cmd_left
cmd_mid
cmd_rigth
cmd_upper
cmd_lower
cmd_len
cmd_trim
proper nya : Button1 :)

OK mari kita liat listing program nya

Public Class Form1

    Private Sub cmd_left_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_left.Click
        hasil.Text = Microsoft.VisualBasic.Left(kalimat.Text, 3)
    End Sub

    Private Sub cmd_mid_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_mid.Click
        hasil.Text = Microsoft.VisualBasic.Mid(kalimat.Text, 4, 6)
    End Sub

    Private Sub cmd_rigth_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_rigth.Click
        hasil.Text = Microsoft.VisualBasic.Right(kalimat.Text, 4)
    End Sub

    Private Sub cmd_upper_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_upper.Click
        hasil.Text = Microsoft.VisualBasic.UCase(kalimat.Text)
    End Sub

    Private Sub cmd_lower_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_lower.Click
        hasil.Text = Microsoft.VisualBasic.LCase(kalimat.Text)
    End Sub

    Private Sub cmd_len_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_len.Click
        hasil.Text = Microsoft.VisualBasic.Len(kalimat.Text)
    End Sub

    Private Sub cmd_trim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_trim.Click
        hasil.Text = Microsoft.VisualBasic.LTrim(kalimat.Text) 'Ltrim <-- menghilangkan spasi sebalah KIRI, RTrim = kanan
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        hasil.Text = StrConv(kalimat.Text, VbStrConv.ProperCase)
    End Sub
End Class


Selamat Mencoba :)

Tulisan Terkait

[VB.Net] Fungsi String pada Visual Basic dot Net
4/ 5
Oleh

Berlangganan via email

Senang dengan tulisan di atas? Silahkan berlangganan posting terbaru langsung melalui email.