Kayıt
13 Temmuz 2009
Mesajlar
3.500
Beğeniler
0
Kod:
'www.EXTRALOOB.com / Unforgiven
Module Module1

    Sub Main()
        Dim s1, s2, sonuc As Double
        Dim islem As String
        Dim evetHayir As String

x:      Console.Write("1. Sayıyı girin: ")
        s1 = Console.ReadLine
        Console.Write("İşlemi girin: ")
        islem = Console.ReadLine
        If islem = "+" Then
            Console.Write("2. Sayıyı girin: ")
            s2 = Console.ReadLine
            sonuc = s1 + s2
            Console.WriteLine("Toplam = " & sonuc)
        End If
        If islem = "-" Then
            Console.Write("2. Sayıyı girin: ")
            s2 = Console.ReadLine
            sonuc = s1 - s2
            Console.WriteLine("Fark = " & sonuc)
        End If
        If islem = "*" Then
            Console.Write("2. Sayıyı girin: ")
            s2 = Console.ReadLine
            sonuc = s1 * s2
            Console.WriteLine("Çarpım = " & sonuc)
        End If
        If islem = "/" Then
            Console.Write("2. Sayıyı girin: ")
            s2 = Console.ReadLine
            sonuc = s1 / s2
            Console.WriteLine("Bölüm = " & sonuc)
        End If
        Console.Write("devam etmek istiyor musunuz? evet/hayır: ")
        evetHayir = Console.ReadLine
        If evetHayir = "evet" Then
            GoTo x
        End If
        If evetHayir = "hayır" Then
            Console.WriteLine("Görüşmek üzere...")
            Return
        End If
    End Sub

End Module
 
Yukarı Alt