Fungsi in_array di Visual Basic ( VB6 )

[sourcecode language=”vb”]
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

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

Membuat Chart di VB

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

Bubble Sorting in VB 6

[sourcecode language=”vb”]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