Skip to main content

Calculator with all arithmetic functions in VB.NET.

PROPERTIES:
Button1 To Button9
Name(Button1,..,Button9)B1,B2,..,B9
Text(Button1,..,Button9)1,2,..,9
Button10,Button11,Button12,Button13,Button14,Button15,Button16,Button17
Text(Button10,Button11,Button12,Button13,Button14,Button15,Button16,Button17)0,00,.,+,-,*,/,MOD
Name(Button10,Button11,Button12,Button13,Button14,Button15,Button16,Button17)B0,B00,BDOT,plus,min,mul,div,modu
TabIndex(Button13,Button14,Button15,Button16,Button17)1,2,3,4,5
Button18
NameEQUL
Text=
Button19
Namec
TextC
Button20
Names
TextSQRT
Button21
NameX1
Text1/X
Button22
NameX2
TextX*X
TextBox1
Text
CODEING:
Imports System.Math
Public Class Form1
    Dim ans As Double = 0
    Dim temp As Double = 0
    Dim opcode As Integer = 0
    Dim dot As Short = 0
    Private Sub B1_Click(sender As Object, e As EventArgs) Handles B1.Click, B2.Click, B3.Click, B4.Click, B5.Click, B6.Click, B7.Click, B8.Click, B9.Click, B0.Click, B00.Click
'This Logic solve problem like user input a/b+c*d-e= or a*b=/c=
'i.e. 130/65+38*1-20=  Then 20 is display or 10*200=/20= Then 100 is Display
        Select Case opcode
            Case 0
                TextBox1.Text = TextBox1.Text & sender.text
                ans = TextBox1.Text
            Case 1
                TextBox1.Text = TextBox1.Text & sender.text
                ans = ans - temp
                ans = ans + Val(TextBox1.Text)
                temp = Val(TextBox1.Text)
            Case 2
                TextBox1.Text = TextBox1.Text & sender.text
                ans = ans + temp
                ans = ans - Val(TextBox1.Text)
                temp = Val(TextBox1.Text)
            Case 3
                TextBox1.Text = TextBox1.Text & sender.text
                temp = ans - temp
                ans = temp * Val(TextBox1.Text)
                temp = ans - temp
            Case 4
                TextBox1.Text = TextBox1.Text & sender.text
                temp = temp + 1
                ans = (temp * ans) / Val(TextBox1.Text)
                temp = Val(TextBox1.Text) - 1
            Case 5
                temp = Val(TextBox1.Text) * temp + ans
                TextBox1.Text = TextBox1.Text & sender.text
                ans = temp Mod Val(TextBox1.Text)
                temp = Math.Floor(temp / Val(TextBox1.Text))
        End Select
    End Sub
    Private Sub EQUL_Click(sender As Object, e As EventArgs) Handles EQUL.Click
        TextBox1.Text = ans
        opcode = 0
    End Sub
    Private Sub plus_Click(sender As Object, e As EventArgs) Handles plus.Click, min.Click, mul.Click, div.Click, modu.Click
        TextBox1.Text = ""
        opcode = sender.TabIndex
        temp = 0
    End Sub
    Private Sub BDOT_Click(sender As Object, e As EventArgs) Handles BDOT.Click
        If dot = 0 Then
            TextBox1.Text = TextBox1.Text & sender.text
            dot = 1
        End If
    End Sub
    Private Sub clear_Click(sender As Object, e As EventArgs)
        TextBox1.Text = ""
        temp = 0
        dot = 0
        ans = 0
    End Sub
    Private Sub SQRT_Click(sender As Object, e As EventArgs) Handles S.Click
        TextBox1.Text = Sqrt(Val(TextBox1.Text))
        ans = Val(TextBox1.Text)
    End Sub
    Private Sub X2_Click(sender As Object, e As EventArgs) Handles X2.Click
        TextBox1.Text = Val(TextBox1.Text) * Val(TextBox1.Text)
        ans = Val(TextBox1.Text)
    End Sub
    Private Sub X1_Click(sender As Object, e As EventArgs) Handles X1.Click
        TextBox1.Text = 1 / Val(TextBox1.Text)
        ans = Val(TextBox1.Text)
    End Sub
End Class
DESIGNING:

Comments

Post a Comment

Popular posts from this blog

BCA SEM 5 SHELL SCRIPT PROGRAM

1  Write a shell script to execute following commands 1. Sort file abc.txt and save this sorted file in xyz.txt 2. Give an example of : To execute commands together without affecting result of each other. 3. How to print “this is a three –line 1. Text message” 4. Which command display version of the UNIX? 5. How would u get online help of cat command? echo “sorting the file” sort abc.txt > xyz.txt echo “executing two commands” who ; ls echo “this is \n a three-line \n Text message” # use -e option if required echo “The version is `uname -a`” echo “Help of cat command” man cat 2  Write a shell script to execute following commands 1. How would u display the hidden files? 2. How delete directory with files? 3. How would user can do interactive copying? 4. How would user can do interactive deletion of files? 5. Explain two functionality of “mv” command with example? echo “1. How would u display the hidden files” echo “2. How delete directory with files” echo...
Post a Comment
Read more

C++

I NTRODUCTION TO OOP,CLASSES & OBJECTS 1. Use of scope Resolution of Operators. 2. Define a function outside a using scope resolution operators. 3. Write a program to calculate the area of circle, rectangle and square using function overloading. 4. Write a program to calculate the area of circle, rectangle and square using with class & object. 5. Write a program to demonstrate the use of returning a reference variable. 6. Create a class student,stores the details about name,roll no,marks of 5 subject,1.get function accept value of data members,2. display function to display,3.total function to return total of 5 subjects marks. 7. Create function power() in c++. & Create function power() in c++ and default argument. 8. Write a C++ program to swap the value of private data members from 2 different classes. 9. Write a program to illustrate the use of this pointer. 10. An election is contested by five candidates. The candidates are numbered 1 to 5 and the voting is do...
Post a Comment
Read more

Advanced Controls in VB.NET

1. Create a windows application as a word finder, which finds & replace the occurrence of that word with another word in VB.NET. 2. Create an application in which a user can enter a numeric value using one scroll bar between 0 to 100 and displays conversion of the value into Fahrenheit in VB.NET. 3. There are 3 Track Bars on the Form. The first Track Bar is stands for Red, second for Green and third for Blue, depends on the position of indicator the background color of label is display on Mouse Move in VB.NET. 4. Write a program to create a Treeview dynamically with buttons Add To Root, Add To Selected Node, Remove and Scan buttons.On click of Scan button all the nodes of the Treeview should be listed in the Listbox placed in side by. 5. Write a Program to Implement a MDI application. It should have File menu with option New, Close, Close All and Exit. It should also have window menu to arrange the child forms like Tile Horizontal, Tile Vertical, Cascade and Arrange Icons in VB...
Post a Comment
Read more