Visual Basic Siyah Ekran(Konsol) Hesap Makinesi

[beyic_baris]

ROHAN2 WORLD 1-120 TR TİPİ OFFICIAL YOHARA, BALATHOR VE AMON! 80. GÜNÜNDE! +10.000 ONLİNE! HİLE VE BOT %100 ENGELLİ HEMEN TIKLA!

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

 

[VictoryAndGlory]

VB.NET olmasın bu sakın?

 

[Fauda]

Paylaşım için teşekkürler.

 

[Fauda]

Paylaşım için teşekkürler.