Fahmi app. Corporation
Download aplikasi, tutorial dan contoh pemrograman VB
Jumat, 30 September 2011
Senin, 26 September 2011
Jumat, 23 September 2011
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: (Menengah), Permainan, VB .NET
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: (Menengah), Aplikasi, Desktop, VB .NET
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: (Menengah), Aplikasi, Hardware, VB .NET
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
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
Label1.Text = Win.Caption & vbCrLf & Win.CSDVersion & vbCrLf & "Version : " & Win.Version & vbCrLf & "Build : " & Win.BuildNumber
Next