Visual Basic Siyah Ekran(Konsol) Hesap Makinesi

[beyic_baris]

Türkiye'de ilk Mobil & PC Aynı Anda Metin2 Oyna. Triarchonline kalıcı ve uzun ömürlü yapısı ile 24 Temmuz'da açılıyor. | 1-99 Mobil Metin2 Triarch 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.