[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

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

0 Members and 1 Guest are viewing this topic.

« on: July 05, 2009, 11:03:14 PM »

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] Join String (Built-In dan Manual)
« on: July 05, 2009, 11:03:14 PM »
Sebagai lanjutan dari tutorial [vb6] Split String (Built-In dan Manual) di http://forumif.web.id/index.php/topic,152.0.html, sekarang saya akan mengemukakan tutorial untuk melakukan JOIN string, baik itu menggunakan fungsi yang sudah built-in maupun manual.

Untuk mengguakan fungsi JOIN yang disediakan VB6, caranya mudah sekali.
Asumi kita punya variabel teks yang merupakan sebuah array bertipe string, contoh:

teks(0) = "Forum"
teks(1) = "Informatika"
teks(2) = "UNIKOM"


Untuk menggabungkan ketiga isi tersebut di atas dan disimpan di variabel lain, misal namanya keluaran (bertipe string), maka:

keluaran = Join (teks(), " ")

Maka variabel keluaran akan berisi: Forum Informatika Unikom

Sebagai catatan, rumusnya adalah join(teks, delimiter).
Dimana teks adalah sebuah array, delimiter adalah karakter atau kata sebagai pembatas gabungan dari isi array tersebut.

Baiklah, desain awal:

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


Komponen:

  • Label: label1, label2, label3, label4
  • Textbox: text1 (penyimpan kalimat), text2 (penyimpan delimiter), dan text3 (sebagai media output)
  • Command Button: command1 (built-in join function), command2 (manual), command3 (keluar program)

Source Code lengkapnya:

Code: vb
Option Explicit
'*******************************
' http://Galih.EU
' http://if.web.id
' http://forumif.web.id
'*******************************
Private Sub Command1_Click()
'Membangkitkan logika join menggunakan fungsi built-in VB
   Dim kalimat() As String, kalimatHasil() As String
   Dim i As Integer
   
   'Ambil setiap kata di text1 menggunakan Split dan delimiter spasi
   kalimat() = Split(Text1, " ")
   
   'Gunakan join untuk menggabungkan array sebelumnya.
   Text3.Text = Join(kalimat(), Text2)
   
   Erase kalimat
End Sub

Private Sub Command2_Click()
'Membangkitkan logika join menggunakan cara manual
   Dim pos As Integer
   Dim mulai As Integer
   Dim delimiter As String * 1
   
   'Dipisahkan dulu menggunakan delimiter spasi
   delimiter = " "
   Text3.Text = vbNullChar
   mulai = 1

   Do
       pos = InStr(mulai, Text1, delimiter)
       If pos <> 0 Then
           If pos <> 1 Then
               'Ambil string dan gabung menggunakan delimiter di text2
               Text3 = Text3 & Mid(Text1, mulai, pos - mulai) & Text2
           End If
           mulai = pos + 1
       Else
           'Ambil string setelah delimiter terakhir
           Text3 = Text3 & Mid(Text1, mulai, Len(Text1) - pos)
       End If
   Loop Until pos = 0
End Sub

Private Sub Command3_Click()
   End 'keluar program
End Sub

Private Sub Form_Load()
   Form1.Caption = "Tutorial Join - by Galih Hermawan"
   Command1.Caption = "Join (Built-In)"
   Command1.ToolTipText = "Tombol join menggunakan fungsi built-in VB"
   Command2.Caption = "Join (Manual)"
   Command2.ToolTipText = "Tombol join 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 penggabung di sini. " & _
                       "Misalkan: {spasi}, f, {koma}, in, dan lain-lain."
   Text3.Text = ""
   Text3.Locked = True
   Label1.Caption = "Tuliskan kata2 yang akan digabung menggunakan spasi."
   Label2 = "Karakter atau kata pembatas (delimiter) penggabung"
   Label3.Caption = "Keluaran"
   Label4.Caption = "( default : uderscore {_} )"
End Sub

Hasil eksekusi pertama dengan delimiter Underscore (_).

http://i269.photobucket.com/albums/jj74/galihboy/Join%20Manual/output.jpg
[vb6] Join String (Built-In dan Manual)


Jika delimiter diganti dengan #

http://i269.photobucket.com/albums/jj74/galihboy/Join%20Manual/output2.jpg
[vb6] Join String (Built-In dan Manual)


Lampiran source code lengkap tersedia (7kb).

Btw, biasanya fungsi Join dan Split sering dipakai dalam aplikasi yang melibatkan manipulasi string, banyak digunakan dalam aplikasi SMS Gateway.
« Last Edit: March 24, 2010, 01:40:11 PM by 1'm w4tch1n9 u »
Logged

«Reply #1 on: March 30, 2016, 04:35:22 PM »

aralia

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

  • Aktivitas bulan ini
    0%
  • Lokasi: Surabaya
Re: [vb6] Join String (Built-In dan Manual)
« Reply #1 on: March 30, 2016, 04:35:22 PM »
trims tutorialnya...mo langsung nyobain praktek  :read:



Sewa Printer | Toko Herbalife Indonesia
Logged

«Reply #2 on: August 02, 2016, 11:07:16 AM »

mochimochi

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

  • Aktivitas bulan ini
    0%
  • Lokasi: jakarta
Re: [vb6] Join String (Built-In dan Manual)
« Reply #2 on: August 02, 2016, 11:07:16 AM »
pas banget nih lagi lagi join bingung gk tau caranya .... ada informarsi tutorial ini  :D






Jual Forklift - Jual Rockwool - Oxone Indonesia
Logged

«Reply #3 on: December 19, 2016, 11:38:50 AM »

bilqisan

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

  • Aktivitas bulan ini
    0%
  • Lokasi: jakarta
Logged

«Reply #4 on: July 14, 2017, 02:00:54 PM »

naominika

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

  • Aktivitas bulan ini
    0%
  • Lokasi: jakarta
Re: [vb6] Join String (Built-In dan Manual)
« Reply #4 on: July 14, 2017, 02:00:54 PM »
terimakasih banyak pak sudah berbagi ilmu disni









Solusi Produk Herbalife Indonesia - Aki UPS


Logged

«Reply #5 on: February 08, 2018, 10:32:53 AM »

quenmu

  • TK
  • *
  • Reputation Power: 1
  • quenmu belum punya pengaruh.
  • Offline Offline
  • Posts: 3

  • Aktivitas bulan ini
    0%
  • Lokasi: jakarta
Re: [vb6] Join String (Built-In dan Manual)
« Reply #5 on: February 08, 2018, 10:32:53 AM »
lengkap sekali penjelasannya dan rumusnya thanks pak














Investasi Ethereum Lebih Potensial Dibandingkan Bitcoin

Logged

Pages: [1]
« previous next »
 

This site is hosted by VlexoFree Hosting

Page created in 0.167 seconds with 32 queries.