Kod: Tümünü seç
Option Explicit
Dim secim
Dim temp
Dim sonuc
Dim dosyayolu
Dim fso
Dim dosyanumarasi
Dim cevap
Dim stream
' Kullanıcıdan dönüşüm türünü seçmesini iste
secim = InputBox("Celsius - Fahrenheit için 1, Fahrenheit - Celsius için 2, Celsius - Kelvin için 3, Kelvin - Celsius için 4 girin:", "Dönüşüm Seçimi")
' Kullanıcı iptal butonuna basarsa
If secim = "" Then
cevap = MsgBox("Programdan çıkmak istediğinizde emin misiniz?", vbYesNo + vbQuestion, "Çıkış Onayı")
If cevap = vbYes Then WScript.Quit
End If
' Seçime göre dönüşüm işlemi
If secim = "1" Then
' Celsius - Fahrenheit Dönüşümü
temp = InputBox("Lütfen Celsius cinsinden sıcaklığı girin:", "Celsius - Fahrenheit Dönüştürücü")
If IsNumeric(temp) Then
sonuc = (CDbl(temp) * 9 / 5) + 32
MsgBox "Sıcaklık: " & Round(sonuc, 2) & " derece F.", vbInformation, "Sonuç"
Else
MsgBox "Lütfen geçerli bir sayı girin.", vbExclamation, "Hata"
WScript.Quit
End If
ElseIf secim = "2" Then
' Fahrenheit - Celsius Dönüşümü
temp = InputBox("Lütfen Fahrenheit cinsinden sıcaklığı girin:", "Fahrenheit - Celsius Dönüştürücü")
If IsNumeric(temp) Then
sonuc = (CDbl(temp) - 32) * 5 / 9
MsgBox "Sıcaklık: " & Round(sonuc, 2) & " derece C.", vbInformation, "Sonuç"
Else
MsgBox "Lütfen geçerli bir sayı girin.", vbExclamation, "Hata"
WScript.Quit
End If
ElseIf secim = "3" Then
' Celsius - Kelvin Dönüşümü
temp = InputBox("Lütfen Celsius cinsinden sıcaklığı girin:", "Celsius - Kelvin Dönüştürücü")
If IsNumeric(temp) Then
sonuc = CDbl(temp) + 273.15
MsgBox "Sıcaklık: " & Round(sonuc, 2) & " Kelvin.", vbInformation, "Sonuç"
Else
MsgBox "Lütfen geçerli bir sayı girin.", vbExclamation, "Hata"
WScript.Quit
End If
ElseIf secim = "4" Then
' Kelvin - Celsius Dönüşümü
temp = InputBox("Lütfen Kelvin cinsinden sıcaklığı girin:", "Kelvin - Celsius Dönüştürücü")
If IsNumeric(temp) Then
sonuc = CDbl(temp) - 273.15
MsgBox "Sıcaklık: " & Round(sonuc, 2) & " derece C.", vbInformation, "Sonuç"
Else
MsgBox "Lütfen geçerli bir sayı girin.", vbExclamation, "Hata"
WScript.Quit
End If
Else
MsgBox "Lütfen geçerli bir seçim yapın (1, 2, 3 veya 4).", vbExclamation, "Hata"
WScript.Quit
End If
' Sonucu dosyaya kaydet
dosyayolu = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\sicaklik_donusum_sonucu.txt"
' ADODB.Stream nesnesi ile dosyayı UTF-8 formatında kaydet
Set stream = CreateObject("ADODB.Stream")
stream.Type = 2 ' Metin
stream.Charset = "utf-8"
stream.Open
stream.WriteText "Dönüşüm Sonucu: " & Round(sonuc, 2)
stream.SaveToFile dosyayolu, 2 ' 2 = Üzerine yaz
stream.Close
MsgBox "Sonuç masaüstüne kaydedildi: " & dosyayolu, vbInformation, "Kaydedildi"
Bu kod, kullanıcıdan sıcaklık dönüşüm türünü seçmesini isteyen bir Visual Basic Script (VBS) programıdır.
Programın işleyişi şu şekildedir:
1.Kullanıcıdan Seçim Alma:
Kullanıcıdan Celsius-Fahrenheit, Fahrenheit-Celsius, Celsius-Kelvin veya Kelvin-Celsius dönüşüm türlerinden birini seçmesi istenir.
2.İptal Durumu:
Eğer kullanıcı iptal butonuna basarsa, programdan çıkmak isteyip istemediği sorulur.
3.Dönüşüm İşlemleri:
Kullanıcının seçimine göre uygun dönüşüm işlemi gerçekleştirilir:
Celsius - Fahrenheit: Celsius değeri Fahrenheit'a dönüştürülür.
Fahrenheit - Celsius: Fahrenheit değeri Celsius'a dönüştürülür.
Celsius - Kelvin: Celsius değeri Kelvin'e dönüştürülür.
Kelvin - Celsius: Kelvin değeri Celsius'a dönüştürülür.
Her dönüşüm için, geçerli bir sayı girilip girilmediği kontrol edilir. Geçerli değilse hata mesajı gösterilir.
4.Sonucu Dosyaya Kaydetme:
Dönüşüm sonucu, kullanıcının masaüstünde "sicaklik_donusum_sonucu.txt" adlı bir dosyaya UTF-8 formatında kaydedilir.
5.Sonuç Mesajı:
Sonucun kaydedildiğine dair bir bilgi mesajı gösterilir.
Özetle, bu program, sıcaklık dönüşümlerini kolayca yapmayı ve sonuçları kaydetmeyi sağlar.
