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
Bu VBS (Visual Basic Script) betiği, kullanıcıdan bir disk boyutu ve bu diskin kaç eşit bölüme ayrılacağını alarak her bir bölümün boyutunu hesaplar. Kullanıcıdan alınan disk boyutunu ve bölüm sayısını kullanarak her bir bölümün boyutunu hesaplamak 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....
