Hello and welcome to our community! Is this your first visit?
Register
Enjoy an ad free experience by logging in. Not a member yet? Register.
Results 1 to 4 of 4
  1. #1
    New Coder
    Join Date
    Dec 2005
    Posts
    16
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Question Calculator codes in VB.Net

    Hello all

    I would appreciate that if any one of you could send me the required codes to create a claculator using the VB.NET.


    Thank you

  • #2
    $object->toCD-R(LP); vinyl-junkie's Avatar
    Join Date
    Jun 2003
    Posts
    3,100
    Thanks
    2
    Thanked 23 Times in 23 Posts
    Google is your friend. Try the first link on that page. It includes a tutorial with everything you need.
    Music Around The World - Collecting tips, trade
    and want lists, album reviews, & more
    SNAP to it!

  • #3
    New Coder
    Join Date
    Oct 2005
    Posts
    84
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Hi

    First u start by yourself. and ask yor problems here
    warm Regards
    Abhishek Goel
    Software Developer at Handdshakeit (Handshake Infotech Pvt. Ltd)
    --------------------------------------------------
    ActiveX HTML Editor control

  • #4
    New to the CF scene
    Join Date
    Apr 2008
    Posts
    1
    Thanks
    0
    Thanked 0 Times in 0 Posts
    hi, i am new to this site so please be gentle. The problem i have is described below, and i wrote the code in VisualStudio 2005

    I am trying to make a calculator. The problem i have is that the value in the 1st textbox assigns to the first variable (used for 1st number), the value in the 2nd textbox assigns to the sign variable (to store the operator, - + / *) but then for some reason i cannot add anything into the 3rd textbox which should assign the 2nd variable (used for 2nd number)..... i will post all the code below including a screenshot of the form for you to see.

    please help me because i have tried to work this out for a few days and i cant see anything wrong with the code but for some reason it isnt working properly (like i said, it wont add anything to the 2nd variable)

    form:
    <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    Partial Class Form1
    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
    Try
    If disposing AndAlso components IsNot Nothing Then
    components.Dispose()
    End If
    Finally
    MyBase.Dispose(disposing)
    End Try
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
    Me.txtDisplay = New System.Windows.Forms.TextBox
    Me.btn0 = New System.Windows.Forms.Button
    Me.btn2 = New System.Windows.Forms.Button
    Me.btn3 = New System.Windows.Forms.Button
    Me.btn1 = New System.Windows.Forms.Button
    Me.btn4 = New System.Windows.Forms.Button
    Me.btn5 = New System.Windows.Forms.Button
    Me.btn6 = New System.Windows.Forms.Button
    Me.btn9 = New System.Windows.Forms.Button
    Me.btn8 = New System.Windows.Forms.Button
    Me.btn7 = New System.Windows.Forms.Button
    Me.btnDot = New System.Windows.Forms.Button
    Me.btnEquals = New System.Windows.Forms.Button
    Me.btnPlus = New System.Windows.Forms.Button
    Me.btnMinus = New System.Windows.Forms.Button
    Me.btnMultiply = New System.Windows.Forms.Button
    Me.btnDivide = New System.Windows.Forms.Button
    Me.btnMAdd = New System.Windows.Forms.Button
    Me.btnMErase = New System.Windows.Forms.Button
    Me.btnMRecall = New System.Windows.Forms.Button
    Me.btnSquareRt = New System.Windows.Forms.Button
    Me.btnPercent = New System.Windows.Forms.Button
    Me.btnCE = New System.Windows.Forms.Button
    Me.btnNegative = New System.Windows.Forms.Button
    Me.txtSign = New System.Windows.Forms.TextBox
    Me.txtAnswer = New System.Windows.Forms.TextBox
    Me.txtDisplay2 = New System.Windows.Forms.TextBox
    Me.SuspendLayout()
    '
    'txtDisplay
    '
    Me.txtDisplay.Location = New System.Drawing.Point(36, 117)
    Me.txtDisplay.Name = "txtDisplay"
    Me.txtDisplay.ReadOnly = True
    Me.txtDisplay.Size = New System.Drawing.Size(372, 20)
    Me.txtDisplay.TabIndex = 0
    '
    'btn0
    '
    Me.btn0.Location = New System.Drawing.Point(120, 350)
    Me.btn0.Name = "btn0"
    Me.btn0.Size = New System.Drawing.Size(36, 29)
    Me.btn0.TabIndex = 0
    Me.btn0.Text = "0"
    Me.btn0.UseVisualStyleBackColor = True
    '
    'btn2
    '
    Me.btn2.Location = New System.Drawing.Point(162, 315)
    Me.btn2.Name = "btn2"
    Me.btn2.Size = New System.Drawing.Size(36, 29)
    Me.btn2.TabIndex = 2
    Me.btn2.Text = "2"
    Me.btn2.UseVisualStyleBackColor = True
    '
    'btn3
    '
    Me.btn3.Location = New System.Drawing.Point(204, 315)
    Me.btn3.Name = "btn3"
    Me.btn3.Size = New System.Drawing.Size(36, 29)
    Me.btn3.TabIndex = 3
    Me.btn3.Text = "3"
    Me.btn3.UseVisualStyleBackColor = True
    '
    'btn1
    '
    Me.btn1.Location = New System.Drawing.Point(120, 315)
    Me.btn1.Name = "btn1"
    Me.btn1.Size = New System.Drawing.Size(36, 29)
    Me.btn1.TabIndex = 1
    Me.btn1.Text = "1"
    Me.btn1.UseVisualStyleBackColor = True
    '
    'btn4
    '
    Me.btn4.Location = New System.Drawing.Point(120, 280)
    Me.btn4.Name = "btn4"
    Me.btn4.Size = New System.Drawing.Size(36, 29)
    Me.btn4.TabIndex = 4
    Me.btn4.Text = "4"
    Me.btn4.UseVisualStyleBackColor = True
    '
    'btn5
    '
    Me.btn5.Location = New System.Drawing.Point(162, 280)
    Me.btn5.Name = "btn5"
    Me.btn5.Size = New System.Drawing.Size(36, 29)
    Me.btn5.TabIndex = 5
    Me.btn5.Text = "5"
    Me.btn5.UseVisualStyleBackColor = True
    '
    'btn6
    '
    Me.btn6.Location = New System.Drawing.Point(204, 280)
    Me.btn6.Name = "btn6"
    Me.btn6.Size = New System.Drawing.Size(36, 29)
    Me.btn6.TabIndex = 6
    Me.btn6.Text = "6"
    Me.btn6.UseVisualStyleBackColor = True
    '
    'btn9
    '
    Me.btn9.Location = New System.Drawing.Point(204, 245)
    Me.btn9.Name = "btn9"
    Me.btn9.Size = New System.Drawing.Size(36, 29)
    Me.btn9.TabIndex = 9
    Me.btn9.Text = "9"
    Me.btn9.UseVisualStyleBackColor = True
    '
    'btn8
    '
    Me.btn8.Location = New System.Drawing.Point(162, 245)
    Me.btn8.Name = "btn8"
    Me.btn8.Size = New System.Drawing.Size(36, 29)
    Me.btn8.TabIndex = 8
    Me.btn8.Text = "8"
    Me.btn8.UseVisualStyleBackColor = True
    '
    'btn7
    '
    Me.btn7.Location = New System.Drawing.Point(120, 245)
    Me.btn7.Name = "btn7"
    Me.btn7.Size = New System.Drawing.Size(36, 29)
    Me.btn7.TabIndex = 7
    Me.btn7.Text = "7"
    Me.btn7.UseVisualStyleBackColor = True
    '
    'btnDot
    '
    Me.btnDot.Location = New System.Drawing.Point(162, 350)
    Me.btnDot.Name = "btnDot"
    Me.btnDot.Size = New System.Drawing.Size(36, 29)
    Me.btnDot.TabIndex = 10
    Me.btnDot.Text = "."
    Me.btnDot.UseVisualStyleBackColor = True
    '
    'btnEquals
    '
    Me.btnEquals.Location = New System.Drawing.Point(204, 350)
    Me.btnEquals.Name = "btnEquals"
    Me.btnEquals.Size = New System.Drawing.Size(36, 29)
    Me.btnEquals.TabIndex = 11
    Me.btnEquals.Text = "="
    Me.btnEquals.UseVisualStyleBackColor = True
    '
    'btnPlus
    '
    Me.btnPlus.Location = New System.Drawing.Point(284, 315)
    Me.btnPlus.Name = "btnPlus"
    Me.btnPlus.Size = New System.Drawing.Size(36, 64)
    Me.btnPlus.TabIndex = 12
    Me.btnPlus.Text = "+"
    Me.btnPlus.UseVisualStyleBackColor = True
    '
    'btnMinus
    '
    Me.btnMinus.Location = New System.Drawing.Point(284, 280)
    Me.btnMinus.Name = "btnMinus"
    Me.btnMinus.Size = New System.Drawing.Size(36, 29)
    Me.btnMinus.TabIndex = 13
    Me.btnMinus.Text = "-"
    Me.btnMinus.UseVisualStyleBackColor = True
    '
    'btnMultiply
    '
    Me.btnMultiply.Location = New System.Drawing.Point(284, 245)
    Me.btnMultiply.Name = "btnMultiply"
    Me.btnMultiply.Size = New System.Drawing.Size(36, 29)
    Me.btnMultiply.TabIndex = 14
    Me.btnMultiply.Text = "*"
    Me.btnMultiply.UseVisualStyleBackColor = True
    '
    'btnDivide
    '
    Me.btnDivide.Location = New System.Drawing.Point(284, 210)
    Me.btnDivide.Name = "btnDivide"
    Me.btnDivide.Size = New System.Drawing.Size(36, 29)
    Me.btnDivide.TabIndex = 15
    Me.btnDivide.Text = "/"
    Me.btnDivide.UseVisualStyleBackColor = True
    '
    'btnMAdd
    '
    Me.btnMAdd.Location = New System.Drawing.Point(204, 210)
    Me.btnMAdd.Name = "btnMAdd"
    Me.btnMAdd.Size = New System.Drawing.Size(36, 29)
    Me.btnMAdd.TabIndex = 16
    Me.btnMAdd.Text = "M+"
    Me.btnMAdd.UseVisualStyleBackColor = True
    '
    'btnMErase
    '
    Me.btnMErase.Location = New System.Drawing.Point(162, 210)
    Me.btnMErase.Name = "btnMErase"
    Me.btnMErase.Size = New System.Drawing.Size(36, 29)
    Me.btnMErase.TabIndex = 17
    Me.btnMErase.Text = "M-"
    Me.btnMErase.UseVisualStyleBackColor = True
    '
    'btnMRecall
    '
    Me.btnMRecall.Location = New System.Drawing.Point(109, 210)
    Me.btnMRecall.Name = "btnMRecall"
    Me.btnMRecall.Size = New System.Drawing.Size(47, 29)
    Me.btnMRecall.TabIndex = 18
    Me.btnMRecall.Text = "MRC"
    Me.btnMRecall.UseVisualStyleBackColor = True
    '
    'btnSquareRt
    '
    Me.btnSquareRt.Location = New System.Drawing.Point(204, 175)
    Me.btnSquareRt.Name = "btnSquareRt"
    Me.btnSquareRt.Size = New System.Drawing.Size(36, 29)
    Me.btnSquareRt.TabIndex = 21
    Me.btnSquareRt.Text = "√"
    Me.btnSquareRt.UseVisualStyleBackColor = True
    '
    'btnPercent
    '
    Me.btnPercent.Location = New System.Drawing.Point(162, 175)
    Me.btnPercent.Name = "btnPercent"
    Me.btnPercent.Size = New System.Drawing.Size(36, 29)
    Me.btnPercent.TabIndex = 20
    Me.btnPercent.Text = "&#37;"
    Me.btnPercent.UseVisualStyleBackColor = True
    '
    'btnCE
    '
    Me.btnCE.Location = New System.Drawing.Point(109, 175)
    Me.btnCE.Name = "btnCE"
    Me.btnCE.Size = New System.Drawing.Size(47, 29)
    Me.btnCE.TabIndex = 19
    Me.btnCE.Text = "CE"
    Me.btnCE.UseVisualStyleBackColor = True
    '
    'btnNegative
    '
    Me.btnNegative.Location = New System.Drawing.Point(284, 175)
    Me.btnNegative.Name = "btnNegative"
    Me.btnNegative.Size = New System.Drawing.Size(36, 29)
    Me.btnNegative.TabIndex = 22
    Me.btnNegative.Text = "+/-"
    Me.btnNegative.UseVisualStyleBackColor = True
    '
    'txtSign
    '
    Me.txtSign.Location = New System.Drawing.Point(36, 91)
    Me.txtSign.Name = "txtSign"
    Me.txtSign.ReadOnly = True
    Me.txtSign.Size = New System.Drawing.Size(372, 20)
    Me.txtSign.TabIndex = 23
    '
    'txtAnswer
    '
    Me.txtAnswer.Location = New System.Drawing.Point(36, 12)
    Me.txtAnswer.Name = "txtAnswer"
    Me.txtAnswer.ReadOnly = True
    Me.txtAnswer.Size = New System.Drawing.Size(372, 20)
    Me.txtAnswer.TabIndex = 25
    '
    'txtDisplay2
    '
    Me.txtDisplay2.Location = New System.Drawing.Point(36, 65)
    Me.txtDisplay2.Name = "txtDisplay2"
    Me.txtDisplay2.ReadOnly = True
    Me.txtDisplay2.Size = New System.Drawing.Size(372, 20)
    Me.txtDisplay2.TabIndex = 26
    '
    'Form1
    '
    Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
    Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    Me.ClientSize = New System.Drawing.Size(436, 405)
    Me.Controls.Add(Me.txtDisplay2)
    Me.Controls.Add(Me.txtAnswer)
    Me.Controls.Add(Me.txtSign)
    Me.Controls.Add(Me.btnNegative)
    Me.Controls.Add(Me.btnSquareRt)
    Me.Controls.Add(Me.btnPercent)
    Me.Controls.Add(Me.btnCE)
    Me.Controls.Add(Me.btnMRecall)
    Me.Controls.Add(Me.btnMErase)
    Me.Controls.Add(Me.btnMAdd)
    Me.Controls.Add(Me.btnDivide)
    Me.Controls.Add(Me.btnMultiply)
    Me.Controls.Add(Me.btnMinus)
    Me.Controls.Add(Me.btnPlus)
    Me.Controls.Add(Me.btnEquals)
    Me.Controls.Add(Me.btnDot)
    Me.Controls.Add(Me.btn9)
    Me.Controls.Add(Me.btn8)
    Me.Controls.Add(Me.btn7)
    Me.Controls.Add(Me.btn6)
    Me.Controls.Add(Me.btn5)
    Me.Controls.Add(Me.btn4)
    Me.Controls.Add(Me.btn1)
    Me.Controls.Add(Me.btn3)
    Me.Controls.Add(Me.btn2)
    Me.Controls.Add(Me.btn0)
    Me.Controls.Add(Me.txtDisplay)
    Me.Name = "Form1"
    Me.Text = "Form1"
    Me.ResumeLayout(False)
    Me.PerformLayout()

    End Sub
    Friend WithEvents txtDisplay As System.Windows.Forms.TextBox
    Friend WithEvents btn0 As System.Windows.Forms.Button
    Friend WithEvents btn2 As System.Windows.Forms.Button
    Friend WithEvents btn3 As System.Windows.Forms.Button
    Friend WithEvents btn1 As System.Windows.Forms.Button
    Friend WithEvents btn4 As System.Windows.Forms.Button
    Friend WithEvents btn5 As System.Windows.Forms.Button
    Friend WithEvents btn6 As System.Windows.Forms.Button
    Friend WithEvents btn9 As System.Windows.Forms.Button
    Friend WithEvents btn8 As System.Windows.Forms.Button
    Friend WithEvents btn7 As System.Windows.Forms.Button
    Friend WithEvents btnDot As System.Windows.Forms.Button
    Friend WithEvents btnEquals As System.Windows.Forms.Button
    Friend WithEvents btnPlus As System.Windows.Forms.Button
    Friend WithEvents btnMinus As System.Windows.Forms.Button
    Friend WithEvents btnMultiply As System.Windows.Forms.Button
    Friend WithEvents btnDivide As System.Windows.Forms.Button
    Friend WithEvents btnMAdd As System.Windows.Forms.Button
    Friend WithEvents btnMErase As System.Windows.Forms.Button
    Friend WithEvents btnMRecall As System.Windows.Forms.Button
    Friend WithEvents btnSquareRt As System.Windows.Forms.Button
    Friend WithEvents btnPercent As System.Windows.Forms.Button
    Friend WithEvents btnCE As System.Windows.Forms.Button
    Friend WithEvents btnNegative As System.Windows.Forms.Button
    Friend WithEvents txtSign As System.Windows.Forms.TextBox
    Friend WithEvents txtAnswer As System.Windows.Forms.TextBox
    Friend WithEvents txtDisplay2 As System.Windows.Forms.TextBox
    End Class
    --------------------------------------------------------------------------
    Code:
    Public Class Form1

    'Inherits System.Windows.Forms.Form

    Dim Numbers() As Integer = New Integer(1) {total1, total2}
    Dim total1 As Integer
    Dim total2 As Integer
    Dim sign As String
    Dim total3 As Decimal
    Dim read As Double

    Private Sub btn0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn0.Click

    If txtDisplay.Text = "" Then
    txtDisplay.Text = ""
    Else
    txtDisplay.Text = txtDisplay.Text & "0"
    End If

    End Sub

    Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click

    txtDisplay.Text = txtDisplay.Text & "1"

    End Sub

    Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click

    txtDisplay.Text = txtDisplay.Text & "2"

    End Sub

    Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click

    txtDisplay.Text = txtDisplay.Text & "3"

    End Sub

    Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click

    txtDisplay.Text = txtDisplay.Text & "4"

    End Sub

    Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click

    txtDisplay.Text = txtDisplay.Text & "5"

    End Sub

    Private Sub btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click

    txtDisplay.Text = txtDisplay.Text & "6"

    End Sub

    Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click

    txtDisplay.Text = txtDisplay.Text & "7"

    End Sub

    Private Sub btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn8.Click

    txtDisplay.Text = txtDisplay.Text & "8"

    End Sub

    Private Sub btn9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn9.Click

    txtDisplay.Text = txtDisplay.Text & "9"

    End Sub

    Private Sub btnDot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDot.Click

    If txtDisplay.Text = "." Then
    txtDisplay.Text = total3
    Else
    txtDisplay.Text = txtDisplay.Text & "."
    End If

    btnDot.Enabled = False

    End Sub

    Private Sub btnPlus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlus.Click

    total1 = txtDisplay.Text
    sign = "+"
    txtSign.Text = sign
    MsgBox(total1)
    MsgBox(total2)


    End Sub

    Private Sub btnMinus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMinus.Click

    total1 = txtDisplay.Text
    sign = "-"
    txtSign.Text = sign
    MsgBox(total1)
    MsgBox(total2)

    End Sub

    Private Sub btnMultiply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMultiply.Click

    total1 = txtDisplay.Text
    sign = "*"
    txtSign.Text = sign
    MsgBox(total1)
    MsgBox(total2)

    End Sub

    Private Sub btnDivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDivide.Click

    total1 = txtDisplay.Text
    sign = "/"
    txtSign.Text = sign
    MsgBox(total1)
    MsgBox(total2)

    End Sub

    Private Sub btnNegative_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNegative.Click

    total1 = txtDisplay.Text
    sign = "-"
    txtSign.Text = sign
    MsgBox(total1)
    MsgBox(total2)

    End Sub

    End Class


  •  

    Posting Permissions

    • You may not post new threads
    • You may not post replies
    • You may not post attachments
    • You may not edit your posts
    •