Visual Basic Siyah Ekran(Konsol) Hesap Makinesi

Bu dersimizde Visual Basic'te siyah ekranda(Konsolda) hesap makinesi yapalım.

Bu dersimizde Visual Basic'te siyah ekranda(Konsolda) hesap makinesi yapalım...

Bunun için Console Application projesi açalım ve aşağıdaki kodları yazalım...


Module Module1

    Dim sayi1 As Integer

    Dim sayi2 As Integer

    Dim secim As Integer

    Dim kontrol As String 

    Dim secimkontrol As String



    Sub Main()

        kontrol = "E"

        While kontrol = "E" Or kontrol = "e"

            Console.Title = "Visual Basic Siyah Ekran(Konsol) Hesap Makinesi"

            Console.Write("1.Sayıyı Giriniz : ")

            sayi1 = Console.ReadLine()

            Console.Write("2.Sayıyı Giriniz : ")

            sayi2 = Console.ReadLine()

            Console.Write("1)Toplama " + vbNewLine + "2)Çıkarma" + vbNewLine + "3)Çarpma" + vbNewLine + "4)Bölme" + vbNewLine + "Seçiminiz : ")

            secim = Console.ReadLine()

            secimkontrol = "e"

            While secimkontrol = "e"

                Select Case secim

                    Case 1

                        Console.WriteLine(sayi1 & " + " & sayi2 & " = " & (sayi1 + sayi2))

                    Case 2

                        Console.WriteLine(sayi1 & " - " & sayi2 & " = " & (sayi1 - sayi2))

                    Case 3

                        Console.WriteLine(sayi1 & " * " & sayi2 & " = " & (sayi1 * sayi2))

                    Case 4

                        Console.WriteLine(sayi1 & " / " & sayi2 & " = " & (sayi1 / sayi2))

                    Case Else

                        Console.Write("Yeniden seçim yapınız..." + vbNewLine + "Seçiminiz : ")

                        secim = Console.ReadLine()



                        If secim <= 0 Or secim >= 5 Then

                            secimkontrol = "e"

                        Else

                            secimkontrol = "h"

                            Select Case secim

                                Case 1

                                    Console.WriteLine(sayi1 & " + " & sayi2 & " = " & (sayi1 + sayi2))

                                Case 2

                                    Console.WriteLine(sayi1 & " - " & sayi2 & " = " & (sayi1 - sayi2))

                                Case 3

                                    Console.WriteLine(sayi1 & " * " & sayi2 & " = " & (sayi1 * sayi2))

                                Case 4

                                    Console.WriteLine(sayi1 & " / " & sayi2 & " = " & (sayi1 / sayi2))

                                Case Else

                            End Select



                        End If





                End Select

            End While

            Console.WriteLine("Yeni işlem yapmak ister misiniz?EH")

            kontrol = Console.ReadLine()

        End While

    End Sub



End Module


  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Yukarı Git