Pemakaian fungsi Left, Mid dan Right pada VB.NET 2008

May 20, 2011 • 03:41

Pemakaian fungsi Left, Mid dan Right pada VB.NET 2008

Tips ini membahas tentang pemakaian fungsi String misalnya pemakaian Left, Mid dan Right.

Pada VB.Net 2008 mungkin anda mengalami Error pada Left dan Right, tetapi pada fungsi Mid tidak. Padahal program belum di jalankan tapi penjelasan Error setelah pengetikan akan nampak yaitu terdapat keterangan dan statemen Left di garis bawahi, seperti ini left .

Nah untuk mengantisipasinya coba anda modifikasikan seperti perintah di bawah ini, yaitu menggunakan Microsoft.VisualBasic sebelum fungsi di gunakan.

Contoh Program

Design Form

Listing Program

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox2.Text = Microsoft.VisualBasic.Left(TextBox1.Text, 3)
        TextBox3.Text = Microsoft.VisualBasic.Mid(TextBox1.Text, 3, 5)
        TextBox4.Text = Microsoft.VisualBasic.Right(TextBox1.Text, 2)

    End Sub
End Class

Hasil Program saat di jalankan.

Selamat Mencoba

Filed under: VS2008, VS2008

ilham says:

January 26, 2012 at 16:12

sore pak…
saya mau tanya nih..
saya mau memotong teks tidak berdasarkan jumlah teks yg diinginkan, tetapi memotong teks berdasarkan karakter yg didepan ato dibelakang teks yg akan diambil pak.
contoh : ilham#testpotongteks
nah saya mau memotong teks yg isinya “testpotongteks” itu aja pak..

Mesran says:

January 26, 2012 at 20:29

perintahnya begini

Dim xkata() as string
teks = “ilham#testpotongteks”
xkata = split(teks,”#”)

split untuk memotong berdasarkan character yang diinginkan disitu dibuat # sehingga
xkata(0) = ilham
xkata(1) = testpotongteks

begitulah

- ilham says:
  
  January 26, 2012 at 23:55
  
  malam pak..
  saya mau tanya sedikit tentang MySQL
  klo fungsi split itu di aplikasikan ke trigger di mysql gimana caranya ya pak…
  sy minta contoh coding nya boleh pak…?
  
  dan saya boleh minta email bapak, facebook ato yg lainnya…
  kalau2 saya mau tanya bisa langsung tanya bapak..
  mohon bantuannya pak…
  terima kasih sebelumnya

priska says:

October 23, 2011 at 07:28

pak udah saya coba tapi yang muncul malah yang aq tulis di codingnya…
boleh kasih lebih lengkapnya gk,,,,
maaf kalo merepotkan,,,soalnya saya gk ngerti sama sekali visual basic
tapi ada tugas dikasi dosen …
minta tlg bgt yahh pak,,,
thx

Mesran says:

November 3, 2011 at 07:37

NIP = “02-LA-2C-07″
Mengambil Tahun misal :
Private Sub NIP_Keypress(Keyascii as Integer)
if Keyascii=13 Then

Tahun.text = “20″ & Right(NIP.text, 2)
xStatus = MID(NIP.text, 4, 2)
xStatus = MID(NIP.text, 4, 2)
if xStatus=”LA” then
status.text = “Tidak Menikah”
Else
xJA = MID(NIP.text, 5, 1)
JumlahAnak.text = xJA
Endif
golongan.text = Mid(NIP.text, 7,2)

Endif

End Sub

October 17, 2011 at 14:57

makasih banyak ya pakk……

Mesran says:

October 18, 2011 at 08:28

ok

October 17, 2011 at 05:56

pak mau nanya dong…Vb 6.0 tapi,…..
kalo misalnya ad nip: 02-LA-2C-07
nanti setelah dijalankan programnya, hasilnya jadi:
status: Lajang (diambil dari LA)
Golongan: 2C
Tahun masuk: 2007(diambil dari 07)
Lama kerja: tahun sekarang – tahun masuk
trus kalo kita ganti LA jadi K1 atau 2C jadi 2B)
maka status berubah jadi : Kawin
trus jumlah anaK:1(diambil dari K1)
golonga: 2B
kira2 gmn yahh solusinya…mohon bgt ya pak soalnya msh baru bljr VB…
trimakasih….

Mesran says:

October 17, 2011 at 08:01

menggunakan MId(xxxx, npos, nbanyak) , Right (xxxx, nbanyak), Left (xxxxx,nbanyak)

NIP = “02-LA-2C-07″
Mengambil Tahun misal : xTahun = “20″ & Right(NIP, 2) maka akan menghasilkan “2007″
mengambil Status, Status = MID(NIP, 4, 2) maka yang akan terambil “LA”
jika mau di proses lagi ya untuk mengambil anak misalnya Status=K1, Anak=Right( Status, 1), maka yang dihasilkan menjadi 1

Mengambil Golongan, golongan = Mid(NIP, 7,2) maka yang akan diambil “2C”

itulah dia solusinya