Aplikasi Pencari Web

Aplikasi ini hanyalah aplikasi sederhana yang dibuat untuk pengguna internet agar memudahkan pecarian web di internet seperti menggunakan Google, Yahoo, Bing, dll.

Aplikasi Pinger

Sesuai dengan namanya, aplikasi ini berguna untuk melakukan ping ke website. Aplikasi ini juga berguna untuk menyetabilkan koneksi internet yang lemah.

Aplikasi Penge-"Block" Website

Ini merupakan aplikasi yang digunakan untuk menge-block atau memblokir Komputer untuk mengakses website / situs tertentu dari Browser.

Performance Counter

Aplikasi ini adalah aplikasi penghitung performance atau kinerja komputer secara real-time yang akan menghitung performance meliputi processor, memory, dan network.
Dalam pembuatannya menggunakan kontrol PerformanceCounter sebagai kontrol utamanya dan tanpa menggunakan Fungsi API. Kontrol PerformanceCounter itu sendiri adalah kontrol yang digunakan untuk mendapatkan nilai kinerja bagian-bagian komputer, seperti processor, memory, local disk, server, network, process, dll.

Aplikasi Facebook Mini

Sebenarnya aplikasi Facebook Mini hanyalah merupakan aplikasi sejenis web browser yang dikhususkan untuk mengakses halaman Facebook saja.
Tapi bagi para Facebooker, pasti akan tertarik dengan aplikasi ini. Karena aplikasi ini menggunakan halaman Facebook versi ponsel, maka waktu loadingnya lebih cepat daripada versi normalnya. Selain itu juga dilengkapi beragam shortcut menu untuk memudahkan navigasi antar halaman.
Perlu diingat sebelum menggunakan aplikasi ini, pastikan di komputer sudah ter-install Internet Explorer 8.

Drive Icon Maker

Ini merupakan source code aplikasi Drive Icon Maker yang merupakan aplikasi untuk membuat ikon untuk drive-drive di komputer.

Aplikasi Penge-"Block" Aplikasi Lain

Aplikasi ini dibuat untuk menge-block aplikasi-aplikasi lain yang tidak ingin dijalankan. Aplikasi ini sangat berguna untuk komputer yang berisifat publik, seperti di warnet.

Aplikasi Pengambil Warna

Aplikasi pengambil warna atau sering disebut color picker, merupakan aplikasi yang digunakan untuk mengambil warna beserta rinciannya pada area tertentu.

Aplikasi Desktop

Aplikasi Desktop adalah jenis aplikasi yang dikhususkan untuk ditampilkan di desktop saja.
Untuk membuatnya, diperlukan tambahan kode khusus agar Form dari aplikasi dapat "menempel" di desktop. Berikut ini contoh souce code yang sederhana.

Informasi Drive

Aplikasi ini digunakan untuk mengetahui informasi drive-drive yang terdapat / terpasang di komputer, seperti tipe, format, nomer serial-nya.

Pencari Ayat Al Qur'an

Aplikasi ini merupakan aplikasi yang digunakan untuk mencari ayat Al Qur'an. Aplikasi ini membutuhkan koneksi internet (online) untuk menampilkan ayat-nya.

Stopwatch

Berikut ini cara membuat aplikasi stopwatch atau aplikasi penghitung waktu yang sederhana menggunakan Visual Basic.
Buat Project baru dengan sebuah Form. Masukkan ke dalam Form tersebut 1 kontrol Label, 2 kontrol Tombol / Button (utk Start dan Reset), dan 1 buah kontrol Timer (Enabled=False; Interval=10). Kemudian atur seperti gambar diatas, dan bagian kodenya adalah :


[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

Dim Jam As Integer, Menit As Integer, Detik As Integer, mDetik As Integer

Di bagian 'Form_Load' ketikkan :

Label1.Caption = "00 : 00 : 00,00"

Di bagian 'Command1_Click' ketikkan : (Start)

Timer1.Enabled = (Command1.Caption = "Start")
Command1.Caption = IIf(Command1.Caption = "Start", "Stop", "Start")

Di bagian 'Command2_Click' ketikkan : (Reset)

Timer1.Enabled = False
Command1.Caption = "Start"
Label1.Caption = "00 : 00 : 00,00"
Jam = 0
Menit = 0
Detik = 0
mDetik = 0

Di bagian 'Timer1_Timer' ketikkan :

mDetik = mDetik + 1
If mDetik = 100 Then
mDetik = 0
      
Detik = Detik + 1
If Detik = 60 Then
Detik = 0
          
Menit = Menit + 1
If Menit = 60 Then
Menit = 0
Jam = Jam + 1
End If
          
End If
End If
  
Label1.Caption = Format(Jam, "00") & " : " & Format(Menit, "00") & " : " & Format(Detik, "00") & "," & Format(mDetik, "00")

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

Dim Jam, Menit, Detik, mDetik As Integer

Di bagian 'Form1_Load' ketikkan :

Label1.Text = "00 : 00 : 00,00"

Di bagian 'Button1_Click' ketikkan : (Start)

Timer1.Enabled = (Button1.Text = "Start")
Button1.Text = IIf(Button1.Text = "Start", "Stop", "Start")

Di bagian 'Button2_Click' ketikkan : (Reset)

Timer1.Enabled = False
Button1.Text = "Start"
Label1.Text = "00 : 00 : 00,00"
Jam = 0
Menit = 0
Detik = 0
mDetik = 0

Di bagian 'Timer1_Tick' ketikkan :

mDetik += 1
If mDetik = 100 Then
mDetik = 0

Detik += 1
If Detik = 60 Then
Detik = 0

Menit += 1
If Menit = 60 Then
Menit = 0
Jam += 1
End If

End If
End If

Label1.Text = Format(Jam, "00") & " : " & Format(Menit, "00") & " : " & Format(Detik, "00") & "," & Format(mDetik, "00")

Aplikasi Belajar Mewarnai

Aplikasi ini dibuat untuk digunakan anak-anak sebagai media dalam belajar mewarnai suatu gambar. Aplikasi ini sejenis aplikasi Paint yang dibuat lebih sederhana.

Media Player

Ini merupakan aplikasi media player sederhana yang mampu memutar file audio, video, bahkan playlist. Didalamnya tersedia fasilitas fullscreen, loop, shuffle, dll.
Media player ini menggunakan kontrol Windows Media Player (wmp.dll) sebagai kontrol utamanya. Yang mungkin membedakan dengan souce code media player lain, terletak dimana daftar file media yang diputar terintegrasi dengan playlist dari kontrol, sehingga lebih mudah dikembangkan dan dikendalikan.
Download source code-nya disini.

Aplikasi 4L@ÿ Generator

Apakah Anda sering menulis sesuatu dengan gaya Alay seperti update status Facebook, chat di YM, nge-Blog. Sebenarnya Anda bisa membuat tulisan Alay lebih mudah dengan membuat aplikasi generatornya sendiri menggunakan Visual Basic.

Buat sebuah Module baru dan ketikkan :

Public Function Alay(ByVal Str As String) As String
Dim s As String, h As String, i As Integer
Str = LCase(Str)
For i = 1 To Len(Str)
s = Mid(Str, i, 1)
Select Case s
Case "a": s = "àáâãäåÀÁÂÃÄÅ@4"
Case "b": s = "ß8"
Case "c": s = "çÇ¢"
Case "d": s = "Ð"
Case "e": s = "èéêëÈÉÊË£3"
Case "g": s = "69"
Case "i": s = "ìíîïÌÍÎÏ¡!1"
Case "n": s = "ñÑ"
Case "o": s = "òóôõöøÒÓÔÕÖØ0"
Case "p": s = "þÞ"
Case "s": s = "$§5"
Case "t": s = "7"
Case "u": s = "ùúûüÙÚÛܵ"
Case "x": s = "×"
Case "y": s = "ýÿÝ¥"
Case Else: s = IIf(CInt(Rnd * 1) = 0, UCase(s), s)
End Select

Randomize
h = h & Mid(s, CInt(Rnd * (Len(s) - 1)) + 1, 1)
Next
Alay = h
End Function

Selanjutnya, buat sebuah Form baru dengan 2 buah kontrol TextBox didalamnya.
[ VB 6.0 ]
Di bagian 'Text1_Change' ketikkan :

Text2.Text = Alay(Text1.Text)

[ VB .NET ]
di bagian 'TextBox1_TextChanged' ketikkan :

TextBox2.Text = Alay(TextBox1.Text)

Jalankan aplikasi, kemudian coba ketikkan teks di TextBox yang pertama !

Alarm

Berbeda dengan aplikasi alarm pada umumnya, aplikasi alarm ini menyimpan beberapa data sekaligus. Terdapat juga fitur berjalan saat startup, minimize to tray, dan menyimpan data.
Download source code-nya disini.

Desktop Locker

Aplikasi ini merupakan aplikasi pengunci desktop / komputer sederhana. Aplikasi ini akan membatasi hampir seluruh aktivitas komputer sampai aplikasi ini di-unlock / diakhiri.
Meskipun ini sederhana, namun Anda harus mengingat password-nya.
Download source code-nya disini.

Zodiak

Aplikasi ini merupakan aplikasi zodiak sederhana untuk mengetahui Hari, Bintang, dan Shio berdasarkan tanggal lahir. Aplikasi ini dapat digunakan sebagai referensi bila Anda berminat pada aplikasi ramalan bintang atau sejenisnya.
Download source code-nya disini.

Kamus

Aplikasi ini merupakan aplikasi kamus sederhana Inggris-Indonesia dan Indonesia-Inggris. Databasenya berformat text (*.txt) yang diambil dan diolah dari database aplikasi gKamus.
Download source code-nya disini.

Kalkulator Mini

Aplikasi ini merupakan sebuah kalkulator dengan ukuran yang mini. Berbeda dengan aplikasi kalkulator pada umumnya, kalkulator ini tidak mempunyai tombol sama sekali.
Untuk menggunakannya, user tinggal mengetikkan rangkaian penghitungan angka ke dalam kontrol ComboBox. Aplikasi ini memerlukan Reference "Microsoft Script Control 1.0" (msscript.ocx) untuk proses penghitungannya.