[x] Anda belum terdaftar di forum kami. Klik REGISTER untuk melakukan registrasi. || Atau LOGIN di sini.
IF UNIKOM
Please login or register.

Login with username, password and session length
Advanced search  

News:

The Official Website is http://if.unikom.ac.id

Privacy

Author Topic: [vb6] Split String (Built-In dan Manual)  (Read 7508 times)

0 Members and 1 Guest are viewing this topic.

« on: July 03, 2009, 08:35:20 AM »

1'm w4tch1n9 u

  • Administrator
  • *
  • Reputation Power: 3
  • 1'm w4tch1n9 u belum punya pengaruh.
  • Offline Offline
  • Posts: 178

  • Aktivitas bulan ini
    0%
  • Lokasi: Forum Teknik Informatika - UNIKOM
    • WWW
[vb6] Split String (Built-In dan Manual)
« on: July 03, 2009, 08:35:20 AM »
Tutorial kali ini adalah memisahkan sebuah teks (kalimat) berdasarkan karakter/kata tertentu sebagai delimiter atau pemisahnya.

Cara pertama adalah menggunakan fungsi built-in (asli buatan VB) yang berkaitan dengan string, salah satunya adalah fungsi SPLIT.

Contoh penggunaan singkatnya adalah:

Code: vb
    Dim kalimat() As String
   Dim i As Integer
   
   kalimat() = Split("Forum IF Unikom", " ") ' dipisah berdasarkan spasi
   
   text1= vbNullChar
   For i = 0 To UBound(kalimat)
       text1 = text1 & kalimat(i) & vbCrLf
   Next i
   Erase kalimat

Output di dalam komponen textbox bernama text1 adalah:
Forum
IF
Unikom

Sedangkan cara kedua, secara manual kita menggunakan fungsi string InStr untuk mengetahui letak delimiternya, kemudian dengan logika sederhana kita pisahkan masing2 kata yang dipisahkan tersebut.
Sekarang kita buatkan aplikasi GUI yang agak bagus  ;D

Desain awal:

http://i269.photobucket.com/albums/jj74/galihboy/VBSplit/desain.jpg
[vb6] Split String (Built-In dan Manual)


Komponen:
  • Label: label1, label2, label3, label4
  • Textbox: text1 (penyimpan kalimat) dan text2 (penyimpan delimiter)
  • Listbox: List1 (menyimpan output)
  • Command Button: command1 (built-in split function), command2 (manual), command3 (keluar program)
Pengaturan properti semua komponen langsung dilakukan pada coding (saat run time.)

Kecuali untuk form, pengaturan properti di design time adalah:
  • Border Style : 1 - Fixed Single
Source Code lengkapnya:

Code: vb
Option Explicit
'*******************************
' http://Galih.EU
' http://if.web.id
' http://forumif.web.id
'*******************************
Private Sub Command1_Click()
'Membangkitkan logika split menggunakan fungsi built-in VB
   Dim kalimat() As String
   Dim i As Integer
   
   kalimat() = Split(Text1, Text2)
   List1.Clear
   
   If UBound(kalimat) = 0 Then
       List1.AddItem "__DELIMITER INVALID__"
   Else
       For i = LBound(kalimat) To UBound(kalimat)
           If Len(kalimat(i)) <> 0 Then
               List1.AddItem kalimat(i)
           End If
       Next i
   End If
   Erase kalimat
End Sub

Private Sub Command2_Click()
'Membangkitkan logika split menggunakan cara manual
   Dim pos As Integer
   Dim mulai As Integer
   
   List1.Clear
   mulai = 1

   Do
       pos = InStr(mulai, Text1, Text2)
       If pos <> 0 Then
           If pos <> 1 Then
               List1.AddItem Mid(Text1, mulai, pos - mulai)
           End If
           mulai = pos + 1
       Else
           If mulai = 1 Then
               List1.AddItem "__DELIMITER INVALID__"
           Else
               List1.AddItem Mid(Text1, mulai, Len(Text1) - pos)
           End If
       End If
   Loop Until pos = 0
End Sub

Private Sub Command3_Click()
   End 'keluar program
End Sub

Private Sub Form_Load()
   Form1.Caption = "Tutorial Split - by Galih Hermawan"
   Command1.Caption = "Split (Built-In)"
   Command1.ToolTipText = "Tombol split menggunakan fungsi built-in VB"
   Command2.Caption = "Split (Manual)"
   Command2.ToolTipText = "Tombol split menggunakan logika secara manual"
   Command3.Caption = "Tutup Program"
   Text1.Text = "Forum Informatika Indonesia"
   'Text1.Text = "a b c"
   Text2.Text = " "
   Text2.ToolTipText = "Masukkan karakter atau kata pemisah di sini. " & _
                       "Misalkan: {spasi}, f, {koma}, in, dan lain-lain."
   Label1.Caption = "Tuliskan teks Anda di sini."
   Label2 = "Karakter atau kata pembatas (delimiter)"
   Label3.Caption = "Keluaran"
   Label4.Caption = "( default : {spasi} )"
End Sub

Hasil eksekusi pertama dengan delimiter spasi.

http://i269.photobucket.com/albums/jj74/galihboy/VBSplit/split1.jpg
[vb6] Split String (Built-In dan Manual)


Hasil eksekusi pertama dengan delimiter kata or.

http://i269.photobucket.com/albums/jj74/galihboy/VBSplit/split2.jpg
[vb6] Split String (Built-In dan Manual)


Lampiran source code lengkap tersedia (8kb).
« Last Edit: March 24, 2010, 01:14:37 PM by 1'm w4tch1n9 u »
Logged

«Reply #1 on: November 12, 2009, 10:28:26 AM »

akhmad79

  • Baru Daftar
  • *
  • Reputation Power: 1
  • akhmad79 belum punya pengaruh.
  • Offline Offline
  • Posts: 1

  • Aktivitas bulan ini
    0%
  • Lokasi: Samarinda
Re: [vb6] Split String (Built-In dan Manual)
« Reply #1 on: November 12, 2009, 10:28:26 AM »
nice tutor
Logged

«Reply #2 on: March 30, 2016, 04:34:45 PM »

aralia

  • TK
  • *
  • Reputation Power: 1
  • aralia belum punya pengaruh.
  • Offline Offline
  • Posts: 5

  • Aktivitas bulan ini
    0%
  • Lokasi: Surabaya
Re: [vb6] Split String (Built-In dan Manual)
« Reply #2 on: March 30, 2016, 04:34:45 PM »
sangat membantu sekali..makasih



Rental Printer | Harga Produk Herbalife
Logged

«Reply #3 on: August 02, 2016, 11:09:19 AM »

mochimochi

  • TK
  • *
  • Reputation Power: 1
  • mochimochi belum punya pengaruh.
  • Offline Offline
  • Posts: 6

  • Aktivitas bulan ini
    0%
  • Lokasi: jakarta
Re: [vb6] Split String (Built-In dan Manual)
« Reply #3 on: August 02, 2016, 11:09:19 AM »
kok pas banget nih informasinya lagi butuh tutorial nih  :D






Jual Forklift - Jual Rockwool - Oxone Indonesia
Logged

«Reply #4 on: December 19, 2016, 11:34:53 AM »

bilqisan

  • TK
  • *
  • Reputation Power: 1
  • bilqisan belum punya pengaruh.
  • Offline Offline
  • Posts: 5

  • Aktivitas bulan ini
    0%
  • Lokasi: jakarta
Logged

«Reply #5 on: November 28, 2017, 10:54:28 AM »

sajahwa

  • TK
  • *
  • Reputation Power: 1
  • sajahwa belum punya pengaruh.
  • Offline Offline
  • Posts: 10

  • Aktivitas bulan ini
    3.33%
  • Lokasi: magetan
Re: [vb6] Split String (Built-In dan Manual)
« Reply #5 on: November 28, 2017, 10:54:28 AM »
Mantap dan maknyus ilmunya, boleh juga untuk ditiru






_______________________________________
Dapatkan segala jenis pintu harmonika dengan berbagai pilihan harga di toko kami
Logged

Pages: [1]
« previous next »
 

This site is hosted by VlexoFree Hosting

Page created in 0.121 seconds with 33 queries.