- Konum
- BERTUNA
-
- Üyelik Tarihi
- 2 Haz 2020
-
- Mesajlar
- 5,354
-
- MFC Puanı
- 16,350
EKRAN GÖRÜNTÜLERİ :
KOD İÇERİĞİ :
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
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
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
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
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
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
Hesaplanan MB değerleri, Round fonksiyonu ile tamsayıya yuvarlanır.
7.MB Değerlerini GB Cinsine Çevirme
Küçük ve büyük parça boyutları, tekrar GB cinsine çevrilir.
8.Sonuçları Gösterme
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
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.
KOD İÇERİĞİ :
Kod:
' 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 IfVBS 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:
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:
If IsNumeric(diskSizeInput) ThenIsNumeric 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:
totalDiskSizeMB = CDbl(diskSizeInput) * 1024 ' 1 GB = 1024 MBKullanı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:
phi = (1 + Sqr(5)) / 2 ' Altın oranAltı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:
smallPartSizeMB = totalDiskSizeMB / (phi + 1)
largePartSizeMB = totalDiskSizeMB - smallPartSizeMBKüçü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:
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:
smallPartSizeGB = smallPartSizeMB / 1024
largePartSizeGB = largePartSizeMB / 1024Küçük ve büyük parça boyutları, tekrar GB cinsine çevrilir.
8.Sonuçları Gösterme
Kod:
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:
Else
MsgBox "Lütfen geçerli bir sayı girin.", vbExclamation, "Geçersiz Giriş"
End IfEğ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.