Fungsi in_array di Visual Basic ( VB6 )

Public Function in_array(kata, kumpulanKata) As Boolean
    'untuk variabel kumpulanKata harus Anda perhatikan tanda separasinya
    'disini saya menggunakan koma
    Dim i As Integer, ret As Boolean
    Dim haystack() As String
    haystack() = Split(kumpulanKata, ",") 'tanda separasi
    ret = False 'set nilai boolean awal
    For i = LBound(haystack) To UBound(haystack)
        If haystack(i) = needle Then ret = True
        'jika ada kata yang ditemukan boolean akan bernilai true
    Next i
    in_array = ret
End Function

Private Sub Form_Load()
    Dim kumpulanKata as String
    Dim cariKata as String

    kumpulanKata = "rendra,kurniawan,ika,aku"
    cariKata = "ika"

    If in_array(cariKata, kumpulanKata) Then
         MsgBox "Yaph kata ditemukan"
    Else
         MsgBox "Maaf, kata yang Anda cari tidak ada"
    End If
End Sub

Membuat Chart di VB 6

Chart di VB 6

Dalam pembuatan sebuah aplikasi, ada banyak hal yang bisa dilakukan programmer untuk membuat aplikasi buatannya menjadi lebih bagus, enak digunakan, bebas error, informatif, maupun menarik dalam penampilannya.

Nah, dalam rangka memperindah tampilan dan membuat aplikasi tampak lebih informatif, kita sering menggunakan tampilan chart. Pada VB 6,penggunaan chart sering kita jumpai dalam pemakaiannya sehari-hari.Terutama yang berhubungan dengan penampilan data numerik. Tutorial ini merupakan pengalaman saya dalam menggunakan Ms Chart, walaupun sederhana tetapi semoga dapat berguna.

Untuk memulai, anda harus menambahkan kontrol Microsoft Chart Control 6.0(OLEDB) pada Project anda. Kemudian bentuk form anda seperti gambar dibawah ini.

Membuat Chart di VB

silahkan perhatikan source code-nya untuk masalah penamaan kontrol. Pada jendela coding silahkan masukkan code berikut :

Bubble Sorting in VB 6

Private Function ascSort(statement) As String
 Dim a() As String
 Dim temp As String
 Dim num As Integer
 a() = Split(statement, "|")
 num = UBound(a) - LBound(a)
 For i = 0 To num - 1
 For j = i + 1 To num - 1
 If CSng(a(i)) > CSng(a(j)) Then
 temp = a(i)
 a(i) = a(j)
 a(j) = temp
 End If
 Next j
 Next i
End Function

Private Sub Form_Load()
  Dim a,b As String
  a = "5|6|8|9|1"
  b = ascSort(a)
  Print b
End Sub