Disk Bölümleme (Altın Oran)

[TRWE_2012]

EKRAN GÖRÜNTÜLERİ :

KOD İÇERİĞİ :

Kod: Tümünü seç

' Kullanıcıdan disk boyutunu al
diskSizeInput = InputBox("Lütfen disk boyutunu GB cinsinden girin:", "Disk Boyutu Girişi")

' Girişin sayısal olup olmadığını kontrol et
If IsNumeric(diskSizeInput) Then
    ' Kullanıcının girdiği değeri GB'den MB'ye çevir
    totalDiskSizeMB = CDbl(diskSizeInput) * 1024 ' 1 GB = 1024 MB

    ' Altın oranı tanımla
    phi = (1 + Sqr(5)) / 2 ' Altın oran

    ' Küçük parça boyutunu hesapla (MB cinsinden)
    smallPartSizeMB = totalDiskSizeMB / (phi + 1)

    ' Büyük parça boyutunu hesapla (MB cinsinden)
    largePartSizeMB = totalDiskSizeMB - smallPartSizeMB

    ' MB değerlerini tamsayıya yuvarla
    smallPartSizeMB = Round(smallPartSizeMB)
    largePartSizeMB = Round(largePartSizeMB)

    ' MB değerlerini GB cinsine çevir
    smallPartSizeGB = smallPartSizeMB / 1024
    largePartSizeGB = largePartSizeMB / 1024

    ' Sonuçları göster (MB ve GB cinsinden)
    MsgBox "Altın Orana Göre Disk Bölümlemesi:" & vbCrLf & _
           "Büyük Parça: " & largePartSizeMB & " MB (" & Round(largePartSizeGB, 2) & " GB)" & vbCrLf & _
           "Küçük Parça: " & smallPartSizeMB & " MB (" & Round(smallPartSizeGB, 2) & " GB)" & vbCrLf & _
           vbCrLf & "Öneri:" & vbCrLf & _
           "Bu büyük bölüm C:\ olabilir." & vbCrLf & _
           "Bu küçük bölüm D:\ olabilir.", vbInformation, "Disk Bölümleme"
Else
    MsgBox "Lütfen geçerli bir sayı girin.", vbExclamation, "Geçersiz Giriş"
End If

VBS BETİĞİN SÖZEL AÇIKLAMASI :

Bu VBS (Visual Basic Script) betiği, kullanıcıdan bir disk boyutu girmesini ister ve bu boyutu altın oran kullanarak iki parçaya böler. Aşağıda betiğin adım adım açıklaması bulunmaktadır:

1.Kullanıcıdan Girdi Alma

Kod: Tümünü seç

diskSizeInput = InputBox("Lütfen disk boyutunu GB cinsinden girin:", "Disk Boyutu Girişi")

InputBox fonksiyonu, kullanıcıdan disk boyutunu GB cinsinden girmesini ister. Kullanıcının girdiği değer diskSizeInput değişkenine atanır.

2.Girişin Sayısal Olup Olmadığını Kontrol Etme

Kod: Tümünü seç

If IsNumeric(diskSizeInput) Then

IsNumeric fonksiyonu, kullanıcının girdiği değerin sayısal olup olmadığını kontrol eder. Eğer sayı değilse, kullanıcıya bir hata mesajı gösterilir.

3.Disk Boyutunu MB'ye Çevirme

Kod: Tümünü seç

totalDiskSizeMB = CDbl(diskSizeInput) * 1024 ' 1 GB = 1024 MB

Kullanıcının girdiği GB cinsinden değer, MB cinsine çevrilir. 1 GB'nin 1024 MB olduğu dikkate alınır.

4.Altın Oranı Tanımlama

Kod: Tümünü seç

phi = (1 + Sqr(5)) / 2 ' Altın oran

Altın oran phi sabit değişken olarak tanımlanır. Bu oran, doğada sıkça rastlanan ve sanatta sıkça kullanılanan bir orandır ve yaklaşık olarak 1.6180339887 değerine sahiptir.

5.Küçük ve Büyük Parça Boyutlarını Hesaplama

Kod: Tümünü seç

smallPartSizeMB = totalDiskSizeMB / (phi + 1)
largePartSizeMB = totalDiskSizeMB - smallPartSizeMB

Küçük parça boyutu, toplam disk boyutunun altın orana göre hesaplanır. Büyük parça boyutu ise toplam disk boyutundan küçük parça boyutunun çıkarılmasıyla elde edilir.

6.MB Değerlerini Tamsayıya Yuvarlama

Kod: Tümünü seç

smallPartSizeMB = Round(smallPartSizeMB)
largePartSizeMB = Round(largePartSizeMB)

Hesaplanan MB değerleri, Round fonksiyonu ile tamsayıya yuvarlanır.

7.MB Değerlerini GB Cinsine Çevirme

Kod: Tümünü seç

smallPartSizeGB = smallPartSizeMB / 1024
largePartSizeGB = largePartSizeMB / 1024

Küçük ve büyük parça boyutları, tekrar GB cinsine çevrilir.

8.Sonuçları Gösterme

Kod: Tümünü seç

MsgBox "Altın Orana Göre Disk Bölümlemesi:" & vbCrLf & _
       "Büyük Parça: " & largePartSizeMB & " MB (" & Round(largePartSizeGB, 2) & " GB)" & vbCrLf & _
       "Küçük Parça: " & smallPartSizeMB & " MB (" & Round(smallPartSizeGB, 2) & " GB)" & vbCrLf & _
       vbCrLf & "Öneri:" & vbCrLf & _
       "Bu büyük bölüm C:\ olabilir." & vbCrLf & _
       "Bu küçük bölüm D:\ olabilir.", vbInformation, "Disk Bölümleme"

MsgBox fonksiyonu ile hesaplanan büyük ve küçük parça boyutları kullanıcıya gösterilir. Ayrıca, bu bölümlerin hangi sürücülere atanabileceği hakkında önerilerde bulunulur.

9.Geçersiz Giriş Durumu

Kod: Tümünü seç

Else
    MsgBox "Lütfen geçerli bir sayı girin.", vbExclamation, "Geçersiz Giriş"
End If

Eğer kullanıcı geçerli bir sayı girmezse, bir uyarı mesajı gösterilir.

Özetlersek ;

Bu betik, kullanıcıdan alınan disk boyutunu altın oran kullanarak iki parçaya bölmek için basit bir yöntem sunar. Kullanıcı dostu bir arayüze sahip olup, geçersiz girişleri kontrol ederek kullanıcı deneyimini iyileştirir. Disk bölümleme işlemleri için pratik bir yaklaşım sunmaktadır.

Dosya Eki Aşağıdadır...

[admin]

Teşekkürler.

25 yıldır C: yi nispeten düşük tutuyorum. Çünkü d: yi yedek olarak kullanıyorum. Çoğunluk da belki böyle yapıyordur. Eğer 1 ssd 1 hdd var ise birini C: diğerini D: yapmak faydalı olabilir. Tek bölüm ssd ve özellikle %80 altında boş SSD daha hızlı çalışıyor.