Tag Archives: VB

A small demonstration: How many ways are existing to solve the same problem?

January 4, 2012Programming/Development.NET, VBRasan

The Problem:

The preparation of the monthly water bill is doing according to the following measures.
Price for first 10 units = 5.00
Price for units 11-20 = 10.00
Price for units 21-30 = 18.00
Price for units 31-40 = 20.00
Price for units 41 onwards = 25.00
Tax (not effected to the monthly rental) = 10%
Monthly rental = 100.00

As an example, the calculation for the total monthly usage of 25 units can be done as follows.
(10*5) + (10*10) + (18*5) + 100 = 340.00

You are asked to develop an application for doing above calculation processes.

Generally we have a designed interface with an input field, a button control and a label control for display output in a windows form. On this demonstration I want to show you how many coding methods exists to solve the same problem. 🙂 To understand below coding blogs you should have some basic knowledge in VB programming such as if condition, case statement, loops, functions and windows forms designing.
Solution 1: (it has used a function to do the calculation)

Public Class Form1
    Dim intUnits As Integer
    Dim range1 As Double = 5 'Price for units 0-10
    Dim range2 As Double = 10 'Price for units 11-20
    Dim range3 As Double = 18 'Price for units 21-30
    Dim range4 As Double = 20 'Price for units 31-40
    Dim range5 As Double = 25 'Price for units 41 onwards
    Dim tax As Double = 10 'tax as percentage
    Dim rental As Double = 100 'monthly rental
    Dim basic, totalpayment As Double
 
    Public Function getbasic(ByVal units As Integer) As Double
        If units < 10 Then
            basic = units * range1
            Return basic
        Else
            units -= 10
        End If
        If units < 10 Then
            basic = (10 * range1) + (units * range2)
            Return basic
        Else
            units -= 10
        End If
        If units < 10 Then
            basic = (10 * range1) + (10 * range2) + (units * range3)
            Return basic
        Else
            units -= 10
        End If
        If units < 10 Then
            basic = (10 * range1) + (10 * range2) + (10 * range3) + (units * range4)
            Return basic
        Else
            units -= 10
        End If
        basic = (10 * range1) + (10 * range2) + (10 * range3) + (10 * range4) + (units * range5)
        Return basic
    End Function
 
    Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click
        basic = getbasic(Val(txtInput.Text))
        basic += basic * (tax / 100)
        totalpayment = basic + rental
        lblOutput.Text = totalpayment
    End Sub
End Class

Public Class Form1
    Dim intUnits As Integer
    Dim range1 As Double = 5 'Price for units 0-10
    Dim range2 As Double = 10 'Price for units 11-20
    Dim range3 As Double = 18 'Price for units 21-30
    Dim range4 As Double = 20 'Price for units 31-40
    Dim range5 As Double = 25 'Price for units 41 onwards
    Dim tax As Double = 10 'tax as percentage
    Dim rental As Double = 100 'monthly rental
    Dim basic, totalpayment As Double

    Public Function getbasic(ByVal units As Integer) As Double
        If units < 10 Then
            basic = units * range1
            Return basic
        Else
            units -= 10
        End If
        If units < 10 Then
            basic = (10 * range1) + (units * range2)
            Return basic
        Else
            units -= 10
        End If
        If units < 10 Then
            basic = (10 * range1) + (10 * range2) + (units * range3)
            Return basic
        Else
            units -= 10
        End If
        If units < 10 Then
            basic = (10 * range1) + (10 * range2) + (10 * range3) + (units * range4)
            Return basic
        Else
            units -= 10
        End If
        basic = (10 * range1) + (10 * range2) + (10 * range3) + (10 * range4) + (units * range5)
        Return basic
    End Function

    Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click
        basic = getbasic(Val(txtInput.Text))
        basic += basic * (tax / 100)
        totalpayment = basic + rental
        lblOutput.Text = totalpayment
    End Sub
End Class

Solution 2: (using the “if” statement) Please note that it’s been skipped from posting the variable declarations again and again in below code blocks.

Public Class Form1
 
Private Sub btnCalc2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc2.Click
        intUnits = Val(txtInput.Text)
        If intUnits <= 10 Then
            basic = intUnits * range1
        ElseIf intUnits <= 20 Then
            basic = (10 * range1) + ((intUnits - 10) * range2)
        ElseIf intUnits <= 30 Then
            basic = (10 * range1) + (10 * range2) + ((intUnits - 20) * range3)
        ElseIf intUnits <= 40 Then
            basic = (10 * range1) + (10 * range2) + (10 * range3) + ((intUnits - 30) * range4)
        Else
            basic = (10 * range1) + (10 * range2) + (10 * range3) + (10 * range4) + ((intUnits - 40) * range5)
        End If
        basic += basic * (tax / 100)
        totalpayment = basic + rental
        lblOutput.Text = totalpayment
    End Sub
End Class

Public Class Form1

Private Sub btnCalc2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc2.Click
        intUnits = Val(txtInput.Text)
        If intUnits <= 10 Then
            basic = intUnits * range1
        ElseIf intUnits <= 20 Then
            basic = (10 * range1) + ((intUnits - 10) * range2)
        ElseIf intUnits <= 30 Then
            basic = (10 * range1) + (10 * range2) + ((intUnits - 20) * range3)
        ElseIf intUnits <= 40 Then
            basic = (10 * range1) + (10 * range2) + (10 * range3) + ((intUnits - 30) * range4)
        Else
            basic = (10 * range1) + (10 * range2) + (10 * range3) + (10 * range4) + ((intUnits - 40) * range5)
        End If
        basic += basic * (tax / 100)
        totalpayment = basic + rental
        lblOutput.Text = totalpayment
    End Sub
End Class

Solution 3: (using the “case” statement).

Public Class Form1
 
Private Sub btnCalc3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc3.Click
        intUnits = Val(txtInput.Text)
        Select Case intUnits
            Case 0 To 10
                basic = intUnits * range1
            Case 11 To 20
                basic = (10 * range1) + ((intUnits - 10) * range2)
            Case 21 To 30
                basic = (10 * range1) + (10 * range2) + ((intUnits - 20) * range3)
            Case 31 To 40
                basic = (10 * range1) + (10 * range2) + (10 * range3) + ((intUnits - 30) * range4)
            Case Else
                basic = (10 * range1) + (10 * range2) + (10 * range3) + (10 * range4) + ((intUnits - 40) * range5)
        End Select
        basic += basic * (tax / 100)
        totalpayment = basic + rental
        lblOutput.Text = totalpayment
    End Sub
End Class

Public Class Form1

Private Sub btnCalc3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc3.Click
        intUnits = Val(txtInput.Text)
        Select Case intUnits
            Case 0 To 10
                basic = intUnits * range1
            Case 11 To 20
                basic = (10 * range1) + ((intUnits - 10) * range2)
            Case 21 To 30
                basic = (10 * range1) + (10 * range2) + ((intUnits - 20) * range3)
            Case 31 To 40
                basic = (10 * range1) + (10 * range2) + (10 * range3) + ((intUnits - 30) * range4)
            Case Else
                basic = (10 * range1) + (10 * range2) + (10 * range3) + (10 * range4) + ((intUnits - 40) * range5)
        End Select
        basic += basic * (tax / 100)
        totalpayment = basic + rental
        lblOutput.Text = totalpayment
    End Sub
End Class

Solution 4: (by using a “loop”)

Public Class Form1
 
Private Sub btnCalc4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc4.Click
        intUnits = Val(txtInput.Text)
        basic = 0 'it must reset before start
        Dim costperunit As Double
        For intUnits = 1 To intUnits
            If intUnits <= 10 Then
                costperunit = range1
            ElseIf intUnits <= 20 Then
                costperunit = range2
            ElseIf intUnits <= 30 Then
                costperunit = range3
            ElseIf intUnits <= 40 Then
                costperunit = range4
            Else
                costperunit = range5
            End If
            basic += costperunit
        Next
        basic += basic * (tax / 100)
        totalpayment = basic + rental
        lblOutput.Text = totalpayment
    End Sub
End Class

Public Class Form1

Private Sub btnCalc4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc4.Click
        intUnits = Val(txtInput.Text)
        basic = 0 'it must reset before start
        Dim costperunit As Double
        For intUnits = 1 To intUnits
            If intUnits <= 10 Then
                costperunit = range1
            ElseIf intUnits <= 20 Then
                costperunit = range2
            ElseIf intUnits <= 30 Then
                costperunit = range3
            ElseIf intUnits <= 40 Then
                costperunit = range4
            Else
                costperunit = range5
            End If
            basic += costperunit
        Next
        basic += basic * (tax / 100)
        totalpayment = basic + rental
        lblOutput.Text = totalpayment
    End Sub
End Class

Solution 5: (it has used “if condition” in a different method than previous one)

Public Class Form1
 
 Private Sub btnCalc5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc5.Click
        Dim modulus As Integer
        Dim range As Integer
        intUnits = Val(txtInput.Text)
        range = intUnits \ 10
        modulus = intUnits Mod 10
        If range = 0 Then
            basic = intUnits * range1
        End If
        If range = 1 Then
            basic = 10 * range1
            basic += modulus * range2
        End If
        If range = 2 Then
            basic = 10 * range1
            basic += 10 * range2
            basic += modulus * range3
        End If
        If range = 3 Then
            basic = 10 * range1
            basic += 10 * range2
            basic += 10 * range3
            basic += modulus * range4
        End If
        If range > 4 Then
            basic = 10 * range1
            basic += 10 * range2
            basic += 10 * range3
            basic += 10 * range4
            basic += (intUnits - 40) * range5
        End If
        basic += basic * (tax / 100)
        totalpayment = basic + rental
        lblOutput.Text = totalpayment
    End Sub
End Class

Public Class Form1

 Private Sub btnCalc5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc5.Click
        Dim modulus As Integer
        Dim range As Integer
        intUnits = Val(txtInput.Text)
        range = intUnits \ 10
        modulus = intUnits Mod 10
        If range = 0 Then
            basic = intUnits * range1
        End If
        If range = 1 Then
            basic = 10 * range1
            basic += modulus * range2
        End If
        If range = 2 Then
            basic = 10 * range1
            basic += 10 * range2
            basic += modulus * range3
        End If
        If range = 3 Then
            basic = 10 * range1
            basic += 10 * range2
            basic += 10 * range3
            basic += modulus * range4
        End If
        If range > 4 Then
            basic = 10 * range1
            basic += 10 * range2
            basic += 10 * range3
            basic += 10 * range4
            basic += (intUnits - 40) * range5
        End If
        basic += basic * (tax / 100)
        totalpayment = basic + rental
        lblOutput.Text = totalpayment
    End Sub
End Class

After the implementation of all above methods on one single windows form it is looks as below. Download this application with it’s source code from here: BillCalc Source Code (requires .NET 2.0 framework)

Simple Calculator (why would we need an another one!?)

December 24, 2011Programming/Development.NET, Calculations, VBRasan

Hi everyone! This is a simple calculator which programmed by me on Visual studio. Worked out on .NET 2.0 framework and used Visual Basic as the programming language. This calculator is absolutely looks like (and also the functionality) the windows calculator on accessories menu.

The code block for button click events is as below.

'2010-08-14 Calculator Solution By Rasan
Public Class frmMain
    Dim lastbtn As String = "oprt"
    Dim lastoprt As String
    Dim result As Double = 0
    Dim ram As Double = 0
    Dim mplus As Double = 0
    Dim num As Integer
    Dim isdec As Boolean = False
    Dim upperval As Double = 0
    Dim lowerval As Double = 0
 
    Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastbtn = "oprt" Or lastbtn = "sqrt" Or txtDisplay.Text = "0." Then
                txtDisplay.Text = "."
            End If
            If isdec = False Then
                num = txtDisplay.Text.Length - 1
                txtDisplay.Text = txtDisplay.Text.Insert(num, "1")
            Else
                If txtDisplay.Text = "." Then
                    txtDisplay.Text = "0."
                End If
                num = txtDisplay.Text.Length
                txtDisplay.Text = txtDisplay.Text.Insert(num, "1")
            End If
            lastbtn = "in"
        End If
    End Sub
 
    Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastbtn = "oprt" Or lastbtn = "sqrt" Or txtDisplay.Text = "0." Then
                txtDisplay.Text = "."
            End If
            If isdec = False Then
                num = txtDisplay.Text.Length - 1
                txtDisplay.Text = txtDisplay.Text.Insert(num, "2")
            Else
                If txtDisplay.Text = "." Then
                    txtDisplay.Text = "0."
                End If
                num = txtDisplay.Text.Length
                txtDisplay.Text = txtDisplay.Text.Insert(num, "2")
            End If
            lastbtn = "in"
        End If
    End Sub
 
    Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastbtn = "oprt" Or lastbtn = "sqrt" Or txtDisplay.Text = "0." Then
                txtDisplay.Text = "."
            End If
            If isdec = False Then
                num = txtDisplay.Text.Length - 1
                txtDisplay.Text = txtDisplay.Text.Insert(num, "3")
            Else
                If txtDisplay.Text = "." Then
                    txtDisplay.Text = "0."
                End If
                num = txtDisplay.Text.Length
                txtDisplay.Text = txtDisplay.Text.Insert(num, "3")
            End If
            lastbtn = "in"
        End If
    End Sub
 
    Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastbtn = "oprt" Or lastbtn = "sqrt" Or txtDisplay.Text = "0." Then
                txtDisplay.Text = "."
            End If
            If isdec = False Then
                num = txtDisplay.Text.Length - 1
                txtDisplay.Text = txtDisplay.Text.Insert(num, "4")
            Else
                If txtDisplay.Text = "." Then
                    txtDisplay.Text = "0."
                End If
                num = txtDisplay.Text.Length
                txtDisplay.Text = txtDisplay.Text.Insert(num, "4")
            End If
            lastbtn = "in"
        End If
    End Sub
 
    Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastbtn = "oprt" Or lastbtn = "sqrt" Or txtDisplay.Text = "0." Then
                txtDisplay.Text = "."
            End If
            If isdec = False Then
                num = txtDisplay.Text.Length - 1
                txtDisplay.Text = txtDisplay.Text.Insert(num, "5")
            Else
                If txtDisplay.Text = "." Then
                    txtDisplay.Text = "0."
                End If
                num = txtDisplay.Text.Length
                txtDisplay.Text = txtDisplay.Text.Insert(num, "5")
            End If
            lastbtn = "in"
        End If
    End Sub
 
    Private Sub btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastbtn = "oprt" Or lastbtn = "sqrt" Or txtDisplay.Text = "0." Then
                txtDisplay.Text = "."
            End If
            If isdec = False Then
                num = txtDisplay.Text.Length - 1
                txtDisplay.Text = txtDisplay.Text.Insert(num, "6")
            Else
                If txtDisplay.Text = "." Then
                    txtDisplay.Text = "0."
                End If
                num = txtDisplay.Text.Length
                txtDisplay.Text = txtDisplay.Text.Insert(num, "6")
            End If
            lastbtn = "in"
        End If
    End Sub
 
    Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastbtn = "oprt" Or lastbtn = "sqrt" Or txtDisplay.Text = "0." Then
                txtDisplay.Text = "."
            End If
            If isdec = False Then
                num = txtDisplay.Text.Length - 1
                txtDisplay.Text = txtDisplay.Text.Insert(num, "7")
            Else
                If txtDisplay.Text = "." Then
                    txtDisplay.Text = "0."
                End If
                num = txtDisplay.Text.Length
                txtDisplay.Text = txtDisplay.Text.Insert(num, "7")
            End If
            lastbtn = "in"
        End If
    End Sub
 
    Private Sub btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn8.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastbtn = "oprt" Or lastbtn = "sqrt" Or txtDisplay.Text = "0." Then
                txtDisplay.Text = "."
            End If
            If isdec = False Then
                num = txtDisplay.Text.Length - 1
                txtDisplay.Text = txtDisplay.Text.Insert(num, "8")
            Else
                If txtDisplay.Text = "." Then
                    txtDisplay.Text = "0."
                End If
                num = txtDisplay.Text.Length
                txtDisplay.Text = txtDisplay.Text.Insert(num, "8")
            End If
            lastbtn = "in"
        End If
    End Sub
 
    Private Sub btn9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn9.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastbtn = "oprt" Or lastbtn = "sqrt" Or txtDisplay.Text = "0." Then
                txtDisplay.Text = "."
            End If
            If isdec = False Then
                num = txtDisplay.Text.Length - 1
                txtDisplay.Text = txtDisplay.Text.Insert(num, "9")
            Else
                If txtDisplay.Text = "." Then
                    txtDisplay.Text = "0."
                End If
                num = txtDisplay.Text.Length
                txtDisplay.Text = txtDisplay.Text.Insert(num, "9")
            End If
            lastbtn = "in"
        End If
    End Sub
 
    Private Sub btn0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn0.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastbtn = "oprt" Or lastbtn = "sqrt" Or txtDisplay.Text = "0." Then
                txtDisplay.Text = "."
            End If
            If isdec = False Then
                If txtDisplay.Text <> "0." Then
                    num = txtDisplay.Text.Length - 1
                    txtDisplay.Text = txtDisplay.Text.Insert(num, "0")
                End If
            Else
                If txtDisplay.Text = "." Then
                    txtDisplay.Text = "0."
                End If
                num = txtDisplay.Text.Length
                txtDisplay.Text = txtDisplay.Text.Insert(num, "0")
            End If
            lastbtn = "in"
        End If
    End Sub
 
    Private Sub btnDot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDot.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastbtn = "oprt" Or lastbtn = "sqrt" Then
                txtDisplay.Text = "0."
            End If
            isdec = True
            lastbtn = "in"
        End If
    End Sub
 
    Private Sub btnPlus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlus.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastoprt <> "plus" Or lastbtn = "in" Then
                ram = txtDisplay.Text
                If lastoprt = "eq" Then
                    result = txtDisplay.Text
                End If
                If lastbtn <> "oprt" Then
                    If lastoprt = "plus" Then
                        result = result + ram
                    ElseIf lastoprt = "minus" Then
                        result = result - ram
                    ElseIf lastoprt = "mul" Then
                        result = result * ram
                    ElseIf lastoprt = "dev" Then
                        result = result / ram
                    Else
                        result = result + ram
                    End If
                End If
                lastbtn = "oprt"
                lastoprt = "plus"
                txtDisplay.Text = result
                If txtDisplay.Text.Contains(".") Then
                    txtDisplay.Text = result
                Else
                    txtDisplay.Text = result & "."
                End If
                isdec = False
            End If
        End If
    End Sub
 
    Private Sub btnMinus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMinus.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastoprt <> "minus" Or lastbtn = "in" Then
                ram = txtDisplay.Text
                If lastoprt = "eq" Then
                    result = txtDisplay.Text
                End If
                If lastbtn <> "oprt" Then
                    If lastoprt = "plus" Then
                        result = result + ram
                    ElseIf lastoprt = "minus" Then
                        result = result - ram
                    ElseIf lastoprt = "mul" Then
                        result = result * ram
                    ElseIf lastoprt = "dev" Then
                        result = result / ram
                    Else
                        result = result + ram
                    End If
                End If
                lastbtn = "oprt"
                lastoprt = "minus"
                txtDisplay.Text = result
                If txtDisplay.Text.Contains(".") Then
                    txtDisplay.Text = result
                Else
                    txtDisplay.Text = result & "."
                End If
                isdec = False
            End If
        End If
    End Sub
 
    Private Sub btnMul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMul.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastoprt <> "mul" Or lastbtn = "in" Then
                ram = txtDisplay.Text
                If lastoprt = "eq" Then
                    result = txtDisplay.Text
                End If
                If lastbtn <> "oprt" Then
                    If lastoprt = "plus" Then
                        result = result + ram
                    ElseIf lastoprt = "minus" Then
                        result = result - ram
                    ElseIf lastoprt = "mul" Then
                        result = result * ram
                    ElseIf lastoprt = "dev" Then
                        result = result / ram
                    Else
                        result = result + ram
                    End If
                End If
                lastbtn = "oprt"
                lastoprt = "mul"
                txtDisplay.Text = result
                If txtDisplay.Text.Contains(".") Then
                    txtDisplay.Text = result
                Else
                    txtDisplay.Text = result & "."
                End If
                isdec = False
            End If
        End If
    End Sub
 
    Private Sub btnDev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDev.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastoprt <> "dev" Or lastbtn = "in" Then
                ram = txtDisplay.Text
                upperval = ram
                If lastoprt = "eq" Then
                    result = txtDisplay.Text
                End If
                If lastbtn <> "oprt" Then
                    If lastoprt = "plus" Then
                        result = result + ram
                    ElseIf lastoprt = "minus" Then
                        result = result - ram
                    ElseIf lastoprt = "mul" Then
                        result = result * ram
                    ElseIf lastoprt = "dev" Then
                        result = result / ram
                    Else
                        result = result + ram
                    End If
                End If
                lastbtn = "oprt"
                lastoprt = "dev"
                txtDisplay.Text = result
                If txtDisplay.Text.Contains(".") Then
                    txtDisplay.Text = result
                Else
                    txtDisplay.Text = result & "."
                End If
                isdec = False
            End If
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtDisplay.Text = "0."
    End Sub
 
    Private Sub btnEq_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEq.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            ram = txtDisplay.Text
            If lastoprt = "plus" Then
                result = result + ram
            ElseIf lastoprt = "minus" Then
                result = result - ram
            ElseIf lastoprt = "mul" Then
                result = result * ram
            ElseIf lastoprt = "dev" Then
                result = result / ram
            Else
                result = ram
            End If
            lastbtn = "oprt"
            lastoprt = "eq"
            txtDisplay.Text = result
            If txtDisplay.Text.Contains(".") Then
                txtDisplay.Text = result
            Else
                txtDisplay.Text = result & "."
            End If
            isdec = False
        End If
    End Sub
 
    Private Sub btnNeg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNeg.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            ram = txtDisplay.Text
            If ram <> 0 Then
                If txtDisplay.Text.Contains("-") Then
                    txtDisplay.Text = txtDisplay.Text.Remove(0, 1)
                Else
                    txtDisplay.Text = txtDisplay.Text.Insert(0, "-")
                End If
            End If
        End If
    End Sub
 
    Private Sub btnC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnC.Click
        txtDisplay.Text = "0."
        lastbtn = "oprt"
        lastoprt = ""
        isdec = False
        result = 0
        ram = 0
        mplus = 0
        lowerval = 0
        upperval = 0
        lblDisplay.Text = ""
    End Sub
 
    Private Sub btnCe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCe.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            result = 0
            ram = 0
        End If
        txtDisplay.Text = "0."
        lastbtn = "oprt"
        isdec = False
    End Sub
 
    Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Or lastbtn <> "in" Then
            Beep()
        Else
            num = txtDisplay.Text.Length
            If txtDisplay.Text.Chars(num - 1) = "." Then
                If isdec = True Then
                    isdec = False
                Else
                    txtDisplay.Text = txtDisplay.Text.Remove(num - 2, 1)
                End If
            Else
                txtDisplay.Text = txtDisplay.Text.Remove(num - 1, 1)
            End If
            If num = 2 Or (txtDisplay.Text.Contains("-") And num = 3) Then
                txtDisplay.Text = "0."
                isdec = False
                lastbtn = "oprt"
            End If
        End If
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMplus.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            ram = txtDisplay.Text
            mplus = mplus + ram
            lblDisplay.Text = "M"
        End If
        lastbtn = "oprt"
    End Sub
 
    Private Sub btnSqrt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSqrt.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            Dim sqrt As Double = 0
            ram = txtDisplay.Text
            lastbtn = "sqrt"
            lastoprt = "sqrt"
            sqrt = ram ^ (1 / 2)
            txtDisplay.Text = sqrt
            If txtDisplay.Text.Contains(".") Then
                txtDisplay.Text = sqrt
            Else
                txtDisplay.Text = sqrt & "."
            End If
            isdec = False
        End If
    End Sub
 
    Private Sub btnMminus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMminus.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            mplus = 0
            lblDisplay.Text = ""
        End If
        lastbtn = "oprt"
    End Sub
 
    Private Sub btnMr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMr.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            txtDisplay.Text = mplus
            If txtDisplay.Text.Contains(".") Then
                txtDisplay.Text = mplus
            Else
                txtDisplay.Text = mplus & "."
            End If
        End If
        lastbtn = "oprt"
    End Sub
 
    Private Sub btnUndreone_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUndreone.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            Dim undrone As Double = 0
            ram = txtDisplay.Text
            lastbtn = "sqrt"
            lastoprt = "sqrt"
            undrone = 1 / ram
            txtDisplay.Text = undrone
            If txtDisplay.Text.Contains(".") Then
                txtDisplay.Text = undrone
            Else
                txtDisplay.Text = undrone & "."
            End If
            isdec = False
        End If
    End Sub
 
    Private Sub btnMs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMs.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            mplus = txtDisplay.Text
            lblDisplay.Text = "M"
        End If
        lastbtn = "oprt"
    End Sub
 
    Private Sub btnPercentage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPercentage.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            lowerval = txtDisplay.Text
            If lowerval = 0 Then
                result = 0
            Else
                result = upperval / lowerval * 100
            End If
            txtDisplay.Text = result
            If txtDisplay.Text.Contains(".") Then
                txtDisplay.Text = result
            Else
                txtDisplay.Text = result & "."
            End If
            lastbtn = "oprt"
        End If
    End Sub
 
    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        End
    End Sub
 
    Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
        frmAbout.Show()
    End Sub
End Class

'2010-08-14 Calculator Solution By Rasan
Public Class frmMain
    Dim lastbtn As String = "oprt"
    Dim lastoprt As String
    Dim result As Double = 0
    Dim ram As Double = 0
    Dim mplus As Double = 0
    Dim num As Integer
    Dim isdec As Boolean = False
    Dim upperval As Double = 0
    Dim lowerval As Double = 0

    Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastbtn = "oprt" Or lastbtn = "sqrt" Or txtDisplay.Text = "0." Then
                txtDisplay.Text = "."
            End If
            If isdec = False Then
                num = txtDisplay.Text.Length - 1
                txtDisplay.Text = txtDisplay.Text.Insert(num, "1")
            Else
                If txtDisplay.Text = "." Then
                    txtDisplay.Text = "0."
                End If
                num = txtDisplay.Text.Length
                txtDisplay.Text = txtDisplay.Text.Insert(num, "1")
            End If
            lastbtn = "in"
        End If
    End Sub

    Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastbtn = "oprt" Or lastbtn = "sqrt" Or txtDisplay.Text = "0." Then
                txtDisplay.Text = "."
            End If
            If isdec = False Then
                num = txtDisplay.Text.Length - 1
                txtDisplay.Text = txtDisplay.Text.Insert(num, "2")
            Else
                If txtDisplay.Text = "." Then
                    txtDisplay.Text = "0."
                End If
                num = txtDisplay.Text.Length
                txtDisplay.Text = txtDisplay.Text.Insert(num, "2")
            End If
            lastbtn = "in"
        End If
    End Sub

    Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastbtn = "oprt" Or lastbtn = "sqrt" Or txtDisplay.Text = "0." Then
                txtDisplay.Text = "."
            End If
            If isdec = False Then
                num = txtDisplay.Text.Length - 1
                txtDisplay.Text = txtDisplay.Text.Insert(num, "3")
            Else
                If txtDisplay.Text = "." Then
                    txtDisplay.Text = "0."
                End If
                num = txtDisplay.Text.Length
                txtDisplay.Text = txtDisplay.Text.Insert(num, "3")
            End If
            lastbtn = "in"
        End If
    End Sub

    Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastbtn = "oprt" Or lastbtn = "sqrt" Or txtDisplay.Text = "0." Then
                txtDisplay.Text = "."
            End If
            If isdec = False Then
                num = txtDisplay.Text.Length - 1
                txtDisplay.Text = txtDisplay.Text.Insert(num, "4")
            Else
                If txtDisplay.Text = "." Then
                    txtDisplay.Text = "0."
                End If
                num = txtDisplay.Text.Length
                txtDisplay.Text = txtDisplay.Text.Insert(num, "4")
            End If
            lastbtn = "in"
        End If
    End Sub

    Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastbtn = "oprt" Or lastbtn = "sqrt" Or txtDisplay.Text = "0." Then
                txtDisplay.Text = "."
            End If
            If isdec = False Then
                num = txtDisplay.Text.Length - 1
                txtDisplay.Text = txtDisplay.Text.Insert(num, "5")
            Else
                If txtDisplay.Text = "." Then
                    txtDisplay.Text = "0."
                End If
                num = txtDisplay.Text.Length
                txtDisplay.Text = txtDisplay.Text.Insert(num, "5")
            End If
            lastbtn = "in"
        End If
    End Sub

    Private Sub btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastbtn = "oprt" Or lastbtn = "sqrt" Or txtDisplay.Text = "0." Then
                txtDisplay.Text = "."
            End If
            If isdec = False Then
                num = txtDisplay.Text.Length - 1
                txtDisplay.Text = txtDisplay.Text.Insert(num, "6")
            Else
                If txtDisplay.Text = "." Then
                    txtDisplay.Text = "0."
                End If
                num = txtDisplay.Text.Length
                txtDisplay.Text = txtDisplay.Text.Insert(num, "6")
            End If
            lastbtn = "in"
        End If
    End Sub

    Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastbtn = "oprt" Or lastbtn = "sqrt" Or txtDisplay.Text = "0." Then
                txtDisplay.Text = "."
            End If
            If isdec = False Then
                num = txtDisplay.Text.Length - 1
                txtDisplay.Text = txtDisplay.Text.Insert(num, "7")
            Else
                If txtDisplay.Text = "." Then
                    txtDisplay.Text = "0."
                End If
                num = txtDisplay.Text.Length
                txtDisplay.Text = txtDisplay.Text.Insert(num, "7")
            End If
            lastbtn = "in"
        End If
    End Sub

    Private Sub btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn8.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastbtn = "oprt" Or lastbtn = "sqrt" Or txtDisplay.Text = "0." Then
                txtDisplay.Text = "."
            End If
            If isdec = False Then
                num = txtDisplay.Text.Length - 1
                txtDisplay.Text = txtDisplay.Text.Insert(num, "8")
            Else
                If txtDisplay.Text = "." Then
                    txtDisplay.Text = "0."
                End If
                num = txtDisplay.Text.Length
                txtDisplay.Text = txtDisplay.Text.Insert(num, "8")
            End If
            lastbtn = "in"
        End If
    End Sub

    Private Sub btn9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn9.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastbtn = "oprt" Or lastbtn = "sqrt" Or txtDisplay.Text = "0." Then
                txtDisplay.Text = "."
            End If
            If isdec = False Then
                num = txtDisplay.Text.Length - 1
                txtDisplay.Text = txtDisplay.Text.Insert(num, "9")
            Else
                If txtDisplay.Text = "." Then
                    txtDisplay.Text = "0."
                End If
                num = txtDisplay.Text.Length
                txtDisplay.Text = txtDisplay.Text.Insert(num, "9")
            End If
            lastbtn = "in"
        End If
    End Sub

    Private Sub btn0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn0.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastbtn = "oprt" Or lastbtn = "sqrt" Or txtDisplay.Text = "0." Then
                txtDisplay.Text = "."
            End If
            If isdec = False Then
                If txtDisplay.Text <> "0." Then
                    num = txtDisplay.Text.Length - 1
                    txtDisplay.Text = txtDisplay.Text.Insert(num, "0")
                End If
            Else
                If txtDisplay.Text = "." Then
                    txtDisplay.Text = "0."
                End If
                num = txtDisplay.Text.Length
                txtDisplay.Text = txtDisplay.Text.Insert(num, "0")
            End If
            lastbtn = "in"
        End If
    End Sub

    Private Sub btnDot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDot.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastbtn = "oprt" Or lastbtn = "sqrt" Then
                txtDisplay.Text = "0."
            End If
            isdec = True
            lastbtn = "in"
        End If
    End Sub

    Private Sub btnPlus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlus.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastoprt <> "plus" Or lastbtn = "in" Then
                ram = txtDisplay.Text
                If lastoprt = "eq" Then
                    result = txtDisplay.Text
                End If
                If lastbtn <> "oprt" Then
                    If lastoprt = "plus" Then
                        result = result + ram
                    ElseIf lastoprt = "minus" Then
                        result = result - ram
                    ElseIf lastoprt = "mul" Then
                        result = result * ram
                    ElseIf lastoprt = "dev" Then
                        result = result / ram
                    Else
                        result = result + ram
                    End If
                End If
                lastbtn = "oprt"
                lastoprt = "plus"
                txtDisplay.Text = result
                If txtDisplay.Text.Contains(".") Then
                    txtDisplay.Text = result
                Else
                    txtDisplay.Text = result & "."
                End If
                isdec = False
            End If
        End If
    End Sub

    Private Sub btnMinus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMinus.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastoprt <> "minus" Or lastbtn = "in" Then
                ram = txtDisplay.Text
                If lastoprt = "eq" Then
                    result = txtDisplay.Text
                End If
                If lastbtn <> "oprt" Then
                    If lastoprt = "plus" Then
                        result = result + ram
                    ElseIf lastoprt = "minus" Then
                        result = result - ram
                    ElseIf lastoprt = "mul" Then
                        result = result * ram
                    ElseIf lastoprt = "dev" Then
                        result = result / ram
                    Else
                        result = result + ram
                    End If
                End If
                lastbtn = "oprt"
                lastoprt = "minus"
                txtDisplay.Text = result
                If txtDisplay.Text.Contains(".") Then
                    txtDisplay.Text = result
                Else
                    txtDisplay.Text = result & "."
                End If
                isdec = False
            End If
        End If
    End Sub

    Private Sub btnMul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMul.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastoprt <> "mul" Or lastbtn = "in" Then
                ram = txtDisplay.Text
                If lastoprt = "eq" Then
                    result = txtDisplay.Text
                End If
                If lastbtn <> "oprt" Then
                    If lastoprt = "plus" Then
                        result = result + ram
                    ElseIf lastoprt = "minus" Then
                        result = result - ram
                    ElseIf lastoprt = "mul" Then
                        result = result * ram
                    ElseIf lastoprt = "dev" Then
                        result = result / ram
                    Else
                        result = result + ram
                    End If
                End If
                lastbtn = "oprt"
                lastoprt = "mul"
                txtDisplay.Text = result
                If txtDisplay.Text.Contains(".") Then
                    txtDisplay.Text = result
                Else
                    txtDisplay.Text = result & "."
                End If
                isdec = False
            End If
        End If
    End Sub

    Private Sub btnDev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDev.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            If lastoprt <> "dev" Or lastbtn = "in" Then
                ram = txtDisplay.Text
                upperval = ram
                If lastoprt = "eq" Then
                    result = txtDisplay.Text
                End If
                If lastbtn <> "oprt" Then
                    If lastoprt = "plus" Then
                        result = result + ram
                    ElseIf lastoprt = "minus" Then
                        result = result - ram
                    ElseIf lastoprt = "mul" Then
                        result = result * ram
                    ElseIf lastoprt = "dev" Then
                        result = result / ram
                    Else
                        result = result + ram
                    End If
                End If
                lastbtn = "oprt"
                lastoprt = "dev"
                txtDisplay.Text = result
                If txtDisplay.Text.Contains(".") Then
                    txtDisplay.Text = result
                Else
                    txtDisplay.Text = result & "."
                End If
                isdec = False
            End If
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtDisplay.Text = "0."
    End Sub

    Private Sub btnEq_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEq.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            ram = txtDisplay.Text
            If lastoprt = "plus" Then
                result = result + ram
            ElseIf lastoprt = "minus" Then
                result = result - ram
            ElseIf lastoprt = "mul" Then
                result = result * ram
            ElseIf lastoprt = "dev" Then
                result = result / ram
            Else
                result = ram
            End If
            lastbtn = "oprt"
            lastoprt = "eq"
            txtDisplay.Text = result
            If txtDisplay.Text.Contains(".") Then
                txtDisplay.Text = result
            Else
                txtDisplay.Text = result & "."
            End If
            isdec = False
        End If
    End Sub

    Private Sub btnNeg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNeg.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            ram = txtDisplay.Text
            If ram <> 0 Then
                If txtDisplay.Text.Contains("-") Then
                    txtDisplay.Text = txtDisplay.Text.Remove(0, 1)
                Else
                    txtDisplay.Text = txtDisplay.Text.Insert(0, "-")
                End If
            End If
        End If
    End Sub

    Private Sub btnC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnC.Click
        txtDisplay.Text = "0."
        lastbtn = "oprt"
        lastoprt = ""
        isdec = False
        result = 0
        ram = 0
        mplus = 0
        lowerval = 0
        upperval = 0
        lblDisplay.Text = ""
    End Sub

    Private Sub btnCe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCe.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            result = 0
            ram = 0
        End If
        txtDisplay.Text = "0."
        lastbtn = "oprt"
        isdec = False
    End Sub

    Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Or lastbtn <> "in" Then
            Beep()
        Else
            num = txtDisplay.Text.Length
            If txtDisplay.Text.Chars(num - 1) = "." Then
                If isdec = True Then
                    isdec = False
                Else
                    txtDisplay.Text = txtDisplay.Text.Remove(num - 2, 1)
                End If
            Else
                txtDisplay.Text = txtDisplay.Text.Remove(num - 1, 1)
            End If
            If num = 2 Or (txtDisplay.Text.Contains("-") And num = 3) Then
                txtDisplay.Text = "0."
                isdec = False
                lastbtn = "oprt"
            End If
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMplus.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            ram = txtDisplay.Text
            mplus = mplus + ram
            lblDisplay.Text = "M"
        End If
        lastbtn = "oprt"
    End Sub

    Private Sub btnSqrt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSqrt.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            Dim sqrt As Double = 0
            ram = txtDisplay.Text
            lastbtn = "sqrt"
            lastoprt = "sqrt"
            sqrt = ram ^ (1 / 2)
            txtDisplay.Text = sqrt
            If txtDisplay.Text.Contains(".") Then
                txtDisplay.Text = sqrt
            Else
                txtDisplay.Text = sqrt & "."
            End If
            isdec = False
        End If
    End Sub

    Private Sub btnMminus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMminus.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            mplus = 0
            lblDisplay.Text = ""
        End If
        lastbtn = "oprt"
    End Sub

    Private Sub btnMr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMr.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            txtDisplay.Text = mplus
            If txtDisplay.Text.Contains(".") Then
                txtDisplay.Text = mplus
            Else
                txtDisplay.Text = mplus & "."
            End If
        End If
        lastbtn = "oprt"
    End Sub

    Private Sub btnUndreone_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUndreone.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            Dim undrone As Double = 0
            ram = txtDisplay.Text
            lastbtn = "sqrt"
            lastoprt = "sqrt"
            undrone = 1 / ram
            txtDisplay.Text = undrone
            If txtDisplay.Text.Contains(".") Then
                txtDisplay.Text = undrone
            Else
                txtDisplay.Text = undrone & "."
            End If
            isdec = False
        End If
    End Sub

    Private Sub btnMs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMs.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            mplus = txtDisplay.Text
            lblDisplay.Text = "M"
        End If
        lastbtn = "oprt"
    End Sub

    Private Sub btnPercentage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPercentage.Click
        If txtDisplay.Text.Contains("Infinity.") Or txtDisplay.Text.Contains("NaN.") Then
            Beep()
        Else
            lowerval = txtDisplay.Text
            If lowerval = 0 Then
                result = 0
            Else
                result = upperval / lowerval * 100
            End If
            txtDisplay.Text = result
            If txtDisplay.Text.Contains(".") Then
                txtDisplay.Text = result
            Else
                txtDisplay.Text = result & "."
            End If
            lastbtn = "oprt"
        End If
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        End
    End Sub

    Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
        frmAbout.Show()
    End Sub
End Class

How does it looks? OK. just feel free to download the source code from the below link, study it and improve it.

Download: Calculator VS Project

Catch Butterfly! It’s a simple game!

November 5, 2011Programming/Development.NET, Games, VBRasan

Hello guys! I would like to start my 1st blog post about my very first developed application on .NET framework. For those who are new to programming, this would be a good resource to learn.

Well it is just a simple 2D game which has designed by using a simple windows form on Visual Studio 2005. The language used to develop this application is Visual Basic. Coding is simple, readable and easy to understand.

Download the source: CatchButterfly_by_Rasan

I'm Rasan Samarasinghe

Fascinated about People, Technology and Leadership. Good Reads. Good Converses. Rejoices Life to the Maximum!

Tag Archives: VB

A small demonstration: How many ways are existing to solve the same problem?

Simple Calculator (why would we need an another one!?)

Catch Butterfly! It’s a simple game!