' Kullanıcıdan iki sayı ve işlem türlerini al
Dim sayi1, sayi2, islem, sonuc, islemListesi, i
Dim sonucMetni, fso, dosya, dosyaYolu

' Kullanıcıdan birinci sayıyı al
sayi1 = InputBox("Birinci sayıyı girin (ondalık, tam, kesirli veya irrasyonel):")
If sayi1 = "" Then WScript.Quit ' İptal butonuna tıklanırsa çık

' Kullanıcıdan ikinci sayıyı al
sayi2 = InputBox("İkinci sayıyı girin (ondalık, tam, kesirli veya irrasyonel):")
If sayi2 = "" Then WScript.Quit ' İptal butonuna tıklanırsa çık

' Kullanıcıdan işlem türlerini al
islem = InputBox("Yapmak istediğiniz işlemleri girin (T: toplama, Ç: çıkarma, C: çarpma, B: bölme, virgülle ayırarak):")
If islem = "" Then WScript.Quit ' İptal butonuna tıklanırsa çık

' Sayıları işlemek için bir fonksiyon
Function ConvertToNumber(value)
    Dim parts
    If InStr(value, "/") > 0 Then
        ' Kesirli sayıyı işleme
        parts = Split(value, "/")
        ConvertToNumber = CDbl(parts(0)) / CDbl(parts(1))
    Else
        ' Diğer sayıları işleme
        ConvertToNumber = CDbl(value)
    End If
End Function

' Sayıları sayısal değerlere dönüştür
sayi1 = ConvertToNumber(sayi1)
sayi2 = ConvertToNumber(sayi2)

' İşlem türlerini virgülle ayırarak listele
islemListesi = Split(islem, ",")

' Sonuç metnini başlat
sonucMetni = ""

' Her bir işlem için hesaplama yap
For i = LBound(islemListesi) To UBound(islemListesi)
    Select Case LCase(Trim(islemListesi(i)))
        Case "t" ' Toplama
            sonuc = sayi1 + sayi2
            sonucMetni = sonucMetni & "------------------------------" & vbCrLf
            sonucMetni = sonucMetni & "Toplama" & vbCrLf
            sonucMetni = sonucMetni & sayi1 & " + " & sayi2 & " = " & sonuc & vbCrLf
            sonucMetni = sonucMetni & "------------------------------" & vbCrLf
        Case "ç" ' Çıkarma
            sonuc = sayi1 - sayi2
            sonucMetni = sonucMetni & "------------------------------" & vbCrLf
            sonucMetni = sonucMetni & "Çıkarma" & vbCrLf
            sonucMetni = sonucMetni & sayi1 & " - " & sayi2 & " = " & sonuc & vbCrLf
            sonucMetni = sonucMetni & "------------------------------" & vbCrLf
        Case "c" ' Çarpma
            sonuc = sayi1 * sayi2
            sonucMetni = sonucMetni & "------------------------------" & vbCrLf
            sonucMetni = sonucMetni & "Çarpma" & vbCrLf
            sonucMetni = sonucMetni & sayi1 & " * " & sayi2 & " = " & sonuc & vbCrLf
            sonucMetni = sonucMetni & "------------------------------" & vbCrLf
        Case "b" ' Bölme
            If sayi2 <> 0 Then
                sonuc = sayi1 / sayi2
                sonucMetni = sonucMetni & "------------------------------" & vbCrLf
                sonucMetni = sonucMetni & "Bölme" & vbCrLf
                sonucMetni = sonucMetni & sayi1 & " / " & sayi2 & " = " & sonuc & vbCrLf
                sonucMetni = sonucMetni & "------------------------------" & vbCrLf
            Else
                sonucMetni = sonucMetni & "------------------------------" & vbCrLf
                sonucMetni = sonucMetni & "Bölme" & vbCrLf
                sonucMetni = sonucMetni & "Bir sayıyı sıfıra bölemezsiniz!"
                sonucMetni = sonucMetni & "------------------------------" & vbCrLf
            End If
        Case Else
            sonucMetni = sonucMetni & "------------------------------" & vbCrLf
            sonucMetni = sonucMetni & "Geçersiz işlem türü: " & Trim(islemListesi(i)) & vbCrLf
            sonucMetni = sonucMetni & "------------------------------" & vbCrLf
    End Select
Next

' Tasarımcı bilgisi ekle
sonucMetni = sonucMetni & "Tasarlayan-Kodlayan: TRWE_2012" & vbCrLf

' Kullanıcıya sonuçları göster
MsgBox sonucMetni

' Sonuçları masaüstünde bir .txt dosyasına kaydet
Set fso = CreateObject("Scripting.FileSystemObject")
dosyaYolu = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\HesaplamaSonucu.txt"
Set dosya = fso.CreateTextFile(dosyaYolu, True)
dosya.WriteLine sonucMetni
dosya.Close

' Kullanıcıya dosyanın kaydedildiğini bildirin
MsgBox "Sonuçlar masaüstünde 'HesaplamaSonucu.txt' dosyasına kaydedildi."