Jumat, 30 September 2011

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.

Label: , ,

Senin, 26 September 2011

Aplikasi Pengambil Warna

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

Label: , ,

Jumat, 23 September 2011

Permainan MouseMotion

Ini merupakan permainan dimana mengharuskan user untuk menggerakkan mouse/ cursor sesuai area jalan yang telah ditentukan.

Label: , ,

Kamis, 22 September 2011

Permainan Tebak Kata

Permainan ini merupakan permainan menebak kata sederhana. Dimana user diharuskan memasukkan huruf demi huruf untuk mendapatkan jawaban / kata yang benar.

Label: , ,

Senin, 19 September 2011

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.

Label: , , ,

Selasa, 06 September 2011

Informasi Drive

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

Label: , , ,

Minggu, 04 September 2011

Mengetahui Versi Windows

Berikut ini adalah kode sederhana untuk mengetahui versi dari Windows di komputer.
Buat Project baru dengan sebuah Form didalamnya, kemudian tambahkan kontrol Label (untuk menampung hasilnya) ke dalam Form tersebut. Lalu ketikkan kode berikut di bagian 'Form_Load' :

[ VB 6.0 ]
Dim Win As Object
For Each Win In GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
Label1.Caption = Win.Caption & vbCrLf & Win.CSDVersion & vbCrLf & "Version : " & Win.Version & vbCrLf & "Build : " & Win.BuildNumber
Next

[ VB .NET ]
For Each Win As Object In GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
Label1.Text = Win.Caption & vbCrLf & Win.CSDVersion & vbCrLf & "Version : " & Win.Version & vbCrLf & "Build : " & Win.BuildNumber
Next

Label: , , ,