Merhaba arkadaşlar kodlama yol da öğrenilen bir dünyadır. Bu yüzden sizler de her gün yeni uygulamalar denemelisiniz. Bugün sizlere Visual Basic ile disk bilgilerini toplama uygulama örneğini aktaracağız. Disk bilgileri nasıl toplanır ? Disk bilgileri ne işe yarar? Bilgisayarınız hakkında detaylı bilgiyi kodlama ile nasıl öğrenebiliriz? Disk sürücülerimiz hakkında nasıl bilgi öğreniriz ve ne işimize yarar? Şeklinde kafanız da oluşacak soruların cevabını bu içeriğimiz de bulabilirsiniz.
 |
| Visual Studio Görseli |
Bilgilendirme
Bu uygulama örneğimiz de visual basic’ i kullanarak bilgisayarınız da bulunan sürücüler hakkında bilgi toplayabilirsiniz. Bilgisayarlarınız da bulunan sürücüler ile ilgili bilgi toplamak için en basit yöntem “filesystemobject ” kullanmak olacaktır. Bu bilgilere ulaşım sağlamak için ise “api” komutunu kullanmak gerekmektedir. Biz sizlere farklı bir yöntem göstereceğiz. Yapacağımız uygulama da scrrun.dll içerisinde bulunan filesystemobject i kullanacağız. Bu da sizler için bir çok kolaylık sağlayacaktır. Diğer anlattığımız yöntem biraz karmaşık ve zor olacaktır. Bu uygulama da kullanacağımız yöntem ise işinizi çok kolaylaştıracaktır. Unutmayın kodlama alanın da işin kolaylaşması her zaman işinize yaracaktır.
Form Alanı
Uygulamamıza yeni bir form açalım. Disk bilgileri toplamak için yapılması gereken project-references dan Microsoft scripting runtime’i açtığımız form projesine dahil edelim. Formumuz da sadece 1 adet button bulunmaktadır. Bütün çalışmalarımız bu button a basınca başlayacaktır.
Kod Alanı
Kodlama metnine geçmeden önce sizlere metin içerisindeki işleyişe dair ufak bilgilendirmeler vereceğiz.
1) Değişkenlerimizin her zaman tanımlı olması gereken “Option Explicit ” bölümü bulunmaktadır.
2) Bu uygulamamız için formumuz da bir kısıtlamaya gitmek zorundayız. Formumuzu maximized şeklinde açmak zorundayız yoksa istediğimiz bazı yazıları göremeyebiliriz. Bu işlemi ise formumuzun load kısmında gerçekleştireceğiz.
3) İlgili değişken tanımlamamızı butonumuzun içerisine giriş yaptığımız an başlatıyoruz.
4) Uygun olmayan bir sürücü ile karşılaşıldığı an programımızın hata vermemesi için “On Error Resume Next” kod satırını kullanıyoruz.
5) Sürücümüzün türünün ne olduğunu belli etmek için “Select Case drv.DriveType” kod satırını kullanıyoruz.
6) Son olarak sürücümüzün kullanılabilir olup olmadığını anlamak için bir if-else komutu kullanıyoruz.
Uygulamamızın kod metin alanı aşağıdaki gibidir:
Option Explicit
Private Sub Form_Load()
Me.WindowState = 2
End Sub
Private Sub Command1_Click()
Dim fs As New Scripting.FileSystemObject
Dim drv As Drive
On Error Resume Next
For Each drv In fs.Drives
Select Case drv.DriveType
Case 1:
Print "DİSKET SÜRÜCÜ: " & drv.DriveLetter
Case 2:
Print "HARDDİSK: " & drv.DriveLetter
Case 3:
Print "A? SÜRÜCÜSÜ: " & drv.DriveLetter
Case 4:
Print "CDROM: " & drv.DriveLetter
Case 5:
Print "RAM SÜRÜCÜ: " & drv.DriveLetter
Case 0:
Print "BİLİNMİYOR: " & drv.DriveLetter
End Select
If drv.IsReady Then
Print " Hazır"
Else
Print " Hazır değil"
End If
Print " Adı: " & drv.VolumeName
Print " Yolu: " & drv.Path
Print " Tam Yolu: " & drv.RootFolder
Print " Toplam alan: " & drv.TotalSize
Print " Boş alan: " & drv.FreeSpace
Print " Dosya Sistemi: " & drv.FileSystem
Print " Seri Numarası: " & drv.SerialNumber
Next drv
End Sub