Yazılım Adası

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
    totalDiskSizeMB = CDbl(diskSizeInput) * 1024 ' 1 GB = 1024 MB

    ' Kullanıcıdan kaç eşit bölüme ayırmak istediğini al
    numPartsInput = InputBox("Bu diski kaç eşit bölüme ayırmak istiyorsunuz? (Tamsayı veya ondalıklı sayı girin):", "Bölüm Sayısı Girişi")

    ' Girişin sayısal olup olmadığını kontrol et
    If IsNumeric(numPartsInput) And CDbl(numPartsInput) > 0 Then
        numParts = CDbl(numPartsInput)

        ' Her bir bölümün boyutunu hesapla (MB cinsinden)
        partSizeMB = totalDiskSizeMB / numParts

        ' MB değerini tamsayıya yuvarla
        partSizeMB = Round(partSizeMB)

        ' MB değerini GB cinsine çevir
        partSizeGB = partSizeMB / 1024

        ' Sonuçları göster (MB ve GB cinsinden)
        MsgBox "Disk Bölümlemesi:" & vbCrLf & _
               "Her Bir Bölüm: " & partSizeMB & " MB (" & Round(partSizeGB, 2) & " GB)", vbInformation, "Disk Bölümleme"
    Else
        MsgBox "Lütfen geçerli bir bölüm sayısı girin.", vbExclamation, "Geçersiz Giriş"
    End If
Else
    MsgBox "Lütfen geçerli bir disk boyutu girin.", vbExclamation, "Geçersiz Giriş"
End If