Cara Split Dan Join Di VB6 Bagi Pemula ( Memisah Dan Menggabung text vb 6 )

Selamat Datang Di Rohmat Histianto Blog .

Seperti biasa saya akan memberikan contoh program dasar dari visual basic 6 ( VB6) :

Permasalahan Pertama Yaitu Ketika Kita Ingin Memisah kata di textbox menjadi beberapa text atau ingin menggabungkan beberapa textbox menjadi satu textbox  , mungkin ada yang masih bingung , tetapi mungkin juga ada yang sudah menguasainya , nah disini saya akan memberikan contoh untuk yang belum mengerti :
1.      Buka aplikasi VISUAL BASIC 6 seperti biasa .
2.       Pilih Standard Exe lalu click open .

                       
3.       Buat tampilan seperti di bawah ini .

                     
4.       Lalu rubah caption dan text menjadi seperti ini     

                  
5.       Setelah itu masuk ke bagian code .
6.       Buatlah variable untuk menampung text          

   

Dim pisah () as string

Dim gabung as string

Kalian boleh merubah variable di atas

  Setelah buat variable click pada command1 / split lalu masukkan code :

Private Sub Command1_Click()

'rohmat program

kalimat = Text1.Text

pisah = Split(kalimat, "-") 'delimiter ("-") bisa di ganti dengan pembasas yang kalian ingin pisahkan

Text2.Text = pisah(0)

Text3.Text = pisah(1)

Text4.Text = pisah(2)

Text5.Text = pisah(3)

Text6.Text = pisah(4)

End Sub

Selanjutnya click pada join dan masukkan code :

Private Sub Command2_Click()

gabung = Join(Array(Text2.Text, Text3.Text, Text4.Text, Text5.Text, Text6.Text), "/") 'Delimiter "/" bisa di ganti sesuai keinginan

Text7.Text = gabung

End Sub

1  Jalankan program anda ., clear ., mudah kan .. :D

Contoh Projeck Bisa Di Download Di SINI