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
Selamat Mencoba :)
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 :)
[VB.Net] Fungsi String pada Visual Basic dot Net
4/
5
Oleh
Holong.Me