Category Archives: Visual Basic

[TESTED] Remove / Bypass VBA Password in Excel

Posted on by

Here is a solution for you to unlock, remove or bypass password from your Excel VBA Project. A few days ago my friend ask me about this problem. He has an Excel file (macro enabled spreadsheet) which locked by password that he created before, and he forgot the password to open VBA source code.

Well, let’s go to the point. These are what you need :

  1. You need to download and install Hex Editor Neo.
  2. Your locked Excel file.

Continue reading →

Fungsi in_array di Visual Basic ( VB6 )

Posted on by

[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

Posted on by
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

Posted on by

[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