PISAH DATA PADA VISUAL BASIC 6

Interfacing

Dalam penggunaan VB6 sebagai aplikasi untuk membuat software interface terkadang memerlukan pisah/pecah data. Hal ini dikarenakan data yang dikirim oleh mikrokontroler dilakukan secara serial, yang dimana data tersebut dikirim secara bersamaan.

Ok, langsung saja.., sebagai contoh kita akan memecah data menjadi 3 bagian (3 data)

Buka VB6, siapkan dua buah textbox dan sebuah button

Copy text2 dan kemudian paste

Apabila muncul dialog box(membuat control array) maka pilih yes. Dengan begitu maka akan memiliki nama yang sama tetapi indexnya berbeda.

Masukkan listing berikut pada button

Private Sub Command1_Click()

Dim pisah() As String

Dim i As Byte

On Error GoTo salah

      

    pisah = Split(Text1.Text, "*")

    For i = 0 To 3

        If i < 4 Then

            Text2(i).Text = CStr(pisah(i))

            End If

            Next i

    Exit Sub

salah:

    Exit Sub

End Sub

Maksud dari

pisah = Split(Text1.Text, "*")

adalah karakter * digunakan sebagai pembatas dari data yang akan dipecah

dengan kata lain format data yang masuk ke text1 adalah

              

data*data*data

Jalankan program dan masukkan data ke text1 setelah itu klik button.

ok... itu aja, semoga bermanfaat..

Nina Dee

Author & Editor

Not an expert, just a hobby. Catatan untuk kita semua yang mungkin sedang membutuhkan.

Related Post

PISAH DATA PADA VISUAL BASIC 6

4/ 5

Oleh Nina Dee

Nina Dee 07:27 Komentar