Aplikasi Kalkulator Sederhana Console VB.NET 2005

Disini kita akan membuat aplikasi kalkulator sederhana console VB.NET 2005 langsung saja ketik source code dibawah :

Module Module1

    Sub Main()
        'write => tulisannya disamping klo writeline tulisannya dibawah
A:      Console.Clear()
        Console.WriteLine("ginzorate.blogspot.com")
        Console.WriteLine("KALKULATOR MINI")
        Console.WriteLine("--------silahkan mencoba----------------")
        Console.WriteLine("----------------------------------------")
        Console.WriteLine("Jika Sudah Di isi lalu tekan enter")
        Console.WriteLine("----------------------------------------")
        Console.Write("Bilangan 1 : ")
        Dim xAngka1 As Double
        xAngka1 = Console.ReadLine()
        Console.Write("Operasi (x,/,+,-) : ")
        Dim xOperasi As String
        xOperasi = Console.ReadLine()
        Console.Write("Bilangan 2 : ")
        Dim xAngka2 As Double
        xAngka2 = Console.ReadLine()
        Select Case UCase(xOperasi)
            Case "X"
                Console.WriteLine()
                Console.WriteLine("--------------------------")
                Console.WriteLine()
                Console.Write("Hasil : ")
                Console.WriteLine(xAngka1 * xAngka2)
            Case "/"
                Console.WriteLine()
                Console.WriteLine("--------------------------")
                Console.WriteLine()
                Console.Write("Hasil : ")
                Console.WriteLine(xAngka1 / xAngka2)
            Case "+"
                Console.WriteLine()
                Console.WriteLine("--------------------------")
                Console.WriteLine()
                Console.Write("Hasil : ")
                Console.WriteLine(xAngka1 + xAngka2)
            Case "-"
                Console.WriteLine()
                Console.WriteLine("--------------------------")
                Console.WriteLine()
                Console.Write("Hasil : ")
                Console.WriteLine(xAngka1 - xAngka2)
            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 A
            Case Else
                Console.Write("Terima Kasih")
                Console.ReadLine()
        End Select
    End Sub

End Module

Selamat Mencoba dan Semoga Bermanfaat ^_^
Bila belum paham dengan menggunakan aplikasi Console vb silahkan lihat di : Dasar aplikasi vb Console