1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

VB.NET Konsol Hesap Makinesi


  1. Unforgiven

    Unforgiven Buralıyım rank8

    Kayıt:
    13 Temmuz 2009
    Mesajlar:
    3.605
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    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