Membuat kalkulator pada console application Visual Basic.Net

Artikel berikut ini merupakan potongan syntax sederhana untuk membuat sebuah kalkulator pada console application Visual Basic .Net

Syntax

Sub Main()

XX:    
        Console.Clear()
        Console.Write("Bilangan 1 : ")

        Dim Angka1 As Double
        Angka1 = Console.ReadLine()
        Console.Write("Operasi (x,/,+,-) : ")
        Dim Operasi As String
        Operasi = Console.ReadLine()
        Console.Write("Bilangan 2 : ")
        Dim Angka2 As Double
        Angka2 = Console.ReadLine()

        Select Case UCase(Operasi)
            Case "X"
                Console.WriteLine()
                Console.WriteLine("--------------------------")
                Console.WriteLine()
                Console.Write("Hasil : ")
                Console.WriteLine(Angka1 * Angka2)
            Case "/"
                Console.WriteLine()
                Console.WriteLine("--------------------------")
                Console.WriteLine()
                Console.Write("Hasil : ")
                Console.WriteLine(Angka1 / Angka2)
            Case "+"
                Console.WriteLine()
                Console.WriteLine("--------------------------")
                Console.WriteLine()
                Console.Write("Hasil : ")
                Console.WriteLine(Angka1 + Angka2)
            Case "-"
                Console.WriteLine()
                Console.WriteLine("--------------------------")
                Console.WriteLine()
                Console.Write("Hasil : ")
                Console.WriteLine(Angka1 - Angka2)
            Case Else
                Console.WriteLine()
                Console.WriteLine("Anda salah memasukkan operasi")
        End Select

        Console.WriteLine()
        Console.WriteLine("----------------------------------------")
        Console.Write("Ulangi lagi? (Y/T): ")
        Dim xUlang As String
        xUlang = Console.ReadLine()

        Select Case UCase(xUlang)
            Case "Y"
                GoTo XX
            Case Else
                Console.Write("Terima Kasih")
                Console.ReadLine()
        End Select

End Sub

Alfa Adhitya Member since December 18, 2019

Computer science education cannot make anybody an expert programmer any more than studying brushes and pigment can make somebody an expert painter – Eric S