Simple Calculator Visual Basic

Haloo , Setelah waktu ashar lewat . Kali ini saya akan memberikan secuil Kode untuk membuat Simple Calculator Visual Basic . berikut ini codenya :



[code]

Module Calculator
Sub Main()
Lineprog:
Dim hasil As Integer = 0
Dim pilihan As String
Console.Write("Masukkan Bilangan pertama :")
Dim bil1 As Double = Console.ReadLine()
Console.Write("Masukkan Bilangan kedua : ")
Dim bil2 As Double = Console.ReadLine()
Console.WriteLine("Pilih Operator :")
Console.WriteLine("1.Tambah")
Console.WriteLine("2.Kurang")
Console.WriteLine("3.Kali")
Console.WriteLine("4.Bagi")
Console.Write("Pilih : ")
Dim operators As Integer = Console.ReadLine()
If operators = 1 Then
hasil = bil1 + bil2
Console.WriteLine("Hasil penjumlahannya adalah " + hasil.ToString)
Console.Write("Mau mengulang ??? Y/N:")
pilihan = Console.ReadLine()
If pilihan = "Y" Or pilihan = "y" Then
GoTo Lineprog
Else
End
End If
ElseIf operators = 2 Then
hasil = bil1 - bil2
Console.WriteLine("Hasil pengurangannya adalah " + hasil.ToString)
Console.Write("Mau mengulang ??? Y/N:")
pilihan = Console.ReadLine()
If pilihan = "Y" Or pilihan = "y" Then
GoTo Lineprog
Else
End
End If
ElseIf operators = 3 Then
hasil = bil1 * bil2
Console.WriteLine("Hasil perkalian adalah " + hasil.ToString)
Console.Write("Mau mengulang ??? Y/N:")
pilihan = Console.ReadLine()
If pilihan = "Y" Or pilihan = "y" Then
GoTo Lineprog
Else
End
End If
ElseIf operators = 4 Then
hasil = bil1 + bil2
Console.WriteLine("Hasil pembagian adalah " + hasil.ToString)
Console.Write("Mau mengulang ??? Y/N:")
pilihan = Console.ReadLine()
If pilihan = "Y" Or pilihan = "y" Then
GoTo Lineprog
Else
End
End If
Else
Console.WriteLine("Tidak ada pilihan operator tsb")
Console.Write("Mau mengulang ??? Y/N:")
pilihan = Console.ReadLine()
If pilihan = "Y" Or pilihan = "y" Then
GoTo Lineprog
Else
End
End If
End If

End Sub
End Module

[/code]

Untuk hasilnya nanti akan jadi seperti ini :D



Kalau Bingung , Silahkan komentar dibawah nanti saya coba jelaskan kepada anda :D Okee sekian dan terimakasih