VB6.0 :: Membalikkan Kata di Visual Basic 6.0

Pernahkah Anda berfikir bagaimana proses membalikkan susunan suatu kata ???
Di Visual Basic 6.0 sendiri terdapat fungsi untuk membalikkan kata, yaitu “StrReverse”. Tapi apakah Anda tau proses yang terjadi didalam fungsi tersebut ???
Postingan ini akan mengupas tuntas proses yang terjadi di dalam fungsi tersebut.

Rancanglah form seperti gambar diatas. Berikut ini source codenya :

————————————————————————————————————
Private Sub Command1_Click()
Text2.Text = “”
For i = 1 To Len(Text1.Text)
Text2.Text = Text2.Text &     Mid(Text1.Text, Len(Text1.Text) – i + 1, 1)
Next i
End Sub
————————————————————————————————————

Download program kata terbalik klik disini.

VB6.0 :: Membuat Program Stopwatch Sederhana dengan Visual Basic 6.0

Pasti Anda tau dengan yang namanya stopwatch, stopwatch adalah alat pengukur waktu. Pada postingan ini saya akan membahas pembuatan program stopwatch.

Pada program ini pengukur waktu yang digunakan dalam satuan menit,detik dan milidetik. Rancanglah Form seperti tampilan gambar diatas.

Source Code dari program diatas :

———————————————————————————————-
Private Sub CmdStart_Click()
Xmili.Caption = “00”
xdetik.Caption = “00”
xmenit.Caption = “00”
Timer1.Enabled = True
CmdStart.Enabled = False
CmdStop.Enabled = True
End Sub

Private Sub CmdStop_Click()
Timer1.Enabled = False
CmdStart.Enabled = True
CmdStop.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
CmdStop.Enabled = False
End Sub

Private Sub Timer1_Timer()
Xmili.Caption = Val(Xmili.Caption) + 1
If Len(Xmili.Caption) = 1 Then Xmili.Caption = “0” & Xmili.Caption
If Xmili.Caption = “60” Then
Xmili.Caption = “00”
xdetik.Caption = Val(xdetik.Caption) + 1
If Len(xdetik.Caption) = 1 Then xdetik.Caption = “0” & xdetik.Caption
End If
If xdetik.Caption = “60” Then
xdetik.Caption = “00”
xmenit.Caption = Val(xmenit.Caption) + 1
If Len(xmenit.Caption) = 1 Then xmenit.Caption = “0” & xmenit.Caption
End If
End Sub
———————————————————————————————-

Untuk mendownload program stopwatch sederhana ini, klik disini.

VB6.0 ::Membaca File .txt di Visual Basic 6.0

File yang berektensi “.txt” sudah biasa kita gunakan untuk mencatat sesuatu yang penting, atau mencatat hal-hal yg menurut Anda itu perlu dicatat :D. Kelebihan file “.txt” ini di banding dengan file yang lain yaitu ukurannya yang sangat kecil sekali. Jadi sudah menjadi kebiasaan untuk mencatat sesuatu ke dalam file ini. Nah bagaimana cara untuk menampilkan isi dari file “.txt” dengan menggunakan bahasa visual basic 6.0 ???.

Download contoh program untuk membaca file txt.

VB6.0 :: Games MineSweeper dengan Visual Basic 6.0

Minesweeper adalah games bawaan windows, yang mungkin Anda mengetahuinya. Tapi apa Anda pernah mencoba membuat game ini dengan menggunakan bahasa pemrograman yang Anda ketahui ???. Bagi yang tidak pernah mencobanya dan ingin tau seperti apa script yg ada di dalam game ini, di postingan ini saya memberikan source code game ini dengan menggunakan bahasa pemrograman visual basic 6.0.

Download program Minesweeper.

vb6.0 :: Meregisterkan OCX di Visual Basic 6.0

Mungkin Anda pernah menggunakan ocx di visual basic, tapi jika project yang Anda buat menggunakan ocx tersebut di buka di komputer lain apa bisa ??? :D . Mungkin bisa, mungkin tidak, itu karena ocx tersebut belum di registerkan. Bagaimana cara meregisterkan ocx tersebut ???.

Langkah 1:
– Buka Notepad.
– Ketik Kode Program di bawah ini :
cls
copy xpstyle.OCX %systemroot%\system32
regsvr32 /s %systemroot%\system32\xpstyle.OCX
pause

Simpan file tersebut di folder yang sama dengan ocx yang ingin di registerkan dengan nama install.cmd . Pada contoh di atas saya meregisterkan xpstyle.OCX .

Mengunakan file tersebut dengan men-double click file tersebut.

SOFTWARE :: Membersihkan File Dan Register Yang Sudah Tidak Dipakai

Mungkin Anda sering mencoba-coba menginstall aplikasi, kemudian Anda merasa tidak cocok dengan aplikasi tersebut dan Anda menguninstall aplikasi tersebut. Tapi apa setelah proses uninstall, komputer Anda kembali ke keadaan sebelum kita menginstall aplikasi tersebut ???. Jawabannya tentu tidak, karena proses uninstall tidak menghapus registry milik aplikasi tersebut dan terkadang masih menyisakan file yang sudah tidak terpakai. Jika tidak dibiarkan bgitu saja akan menimbulkan masalah ???. Kalau cuma 1 mungkin tidak seberapa, bagaimana kalau banyak ???. Saya sendiri sering sekali melakukan hal ini :D , maklumlah rasa ingin tahu membuat saya ingin mencoba-coba suatu aplikasi. Kalau sudah sering Anda melakukan hal tersebut, Apa yang terjadi ???. Yang terjadi memory Anda akan termakan oleh sisa-sisa proses uninstall tersebut. Cara mengatasi menumpuknya sisa-sisa proses unintsall tersebut, saya menggunakan software CCleaner. Software ini berfungsi untuk menghapus file dan register yang sudah tidak terpakai lagi, bahkan bisa menghapus registry yang sudah di buat oleh VIRUS.

Download CCleaner.

VB6.0 :: Menggunakan Button Vista Untuk Mempercantik Button di Visual Basic 6.0

Button Vista  adalah komponen .ocx yg di gunakan untuk merancang tampilan tombol (button) menjadi lebih menarik dengan berbagai bentuk, seperti pada gambar di bawah ini :

untuk menambahkan komponen “Button Vista”  ini ke dalam project Anda, ikuti cara berikut :
1. Klik Project dan pilih components (atau bisa tekan Ctrl + T).
2. Klik tombol “Browse”. Cari posisi komponen “button_vista.ocx” dan klik “Open”.
3. Perhatikan Toolbox, komponen yang ada di toolbox akan bertambah. Buatlah tombol dengan bentuk yang Anda inginkan.

untuk mendownload komponen “Button_Vista.ocx” klik disini.