Breadcrumbs

[xCoDeRx]

Calculator Requirments : 17 Buttons, 1 Textbox
Symbols Needed : ( ÷ = Divide) ( x = Times) ( - = Minus) ( + = Plus) ( . = Point)
* Make textbox1 text angle to right *
~~~~~~~~~~~~~~~~ CoDeS ~~ By : xCoDeRx ~~~~~~~~~~~~~~~
Public Class Form1

Code: Select all

Dim operation As String = ""
    Dim value1 As Double = 0
    Dim value2 As Double = 0

Button1 ( 0 )

Code: Select all

TextBox1.Text += "0"

Button2 ( 1 )

Code: Select all

TextBox1.Text += "1"

Button3 ( 2 )

Code: Select all

TextBox1.Text += "2"

Button4 ( 3 )

Code: Select all

TextBox1.Text += "3"

Button5 ( 4 )

Code: Select all

TextBox1.Text += "4"

Button6 ( 5 )

Code: Select all

TextBox1.Text += "5"

Button7 ( 6 )

Code: Select all

TextBox1.Text += "6"

Button8 ( 7 )

Code: Select all

TextBox1.Text += "7"

Button9 ( 8 )

Code: Select all

TextBox1.Text += "8"

Button10 ( 9 )

Code: Select all

TextBox1.Text += "9"

Button11 ( C )

Code: Select all

TextBox1.Clear()

Button12 ( + )

Code: Select all

operation = "+"
        If CInt(True) Then value1 = CDbl(TextBox1.Text)
        TextBox1.Clear()

Button13 ( - )

Code: Select all

operation = "-"
        If CInt(True) Then value1 = CDbl(TextBox1.Text)
        TextBox1.Clear()

Button14 ( x )

Code: Select all

operation = "x"
        If CInt(True) Then value1 = CDbl(TextBox1.Text)
        TextBox1.Clear()

Button15 ( . )

Code: Select all

 Dim dot As Boolean
        If TextBox1.Text.IndexOf(".") = 0 Then dot = True
        If dot = False Then TextBox1.Text += "."

Button16

Code: Select all

operation = "÷"
        If CInt(True) Then value1 = CDbl(TextBox1.Text)
        TextBox1.Clear()

Button17 ( = )

Code: Select all

  value2 = Val(TextBox1.Text)
        Select Case operation
            Case Is = "+"
                TextBox1.Text = (value1 + value2).ToString()
            Case Is = "-"
                TextBox1.Text = (value1 - value2).ToString()
            Case Is = "x"
                TextBox1.Text = (value1 * value2).ToString()
            Case Is = "÷"
                TextBox1.Text = (value1 / value2).ToString()
        End Select

Source Download : LOST SOURCE

[16namhcaz]

much stuff here
time to go through this

[Usman55]

You must have posted a screenshot so members could see how to put the buttons on the form. Anyways good tutorial.