calculator..just adding

[Ciduletz1983]

Public Class Form1
Inherits System.Windows.Forms.Form
 
Dim total1 As Integer
Dim total2 As Integer
 
Private Sub btnZero_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZero.Click
txtDisplay.Text = txtDisplay.Text & btnZero.Text
End Sub
 
Private Sub btnOne_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOne.Click
txtDisplay.Text = txtDisplay.Text & btnOne.Text
End Sub
 
Private Sub btnTwo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnTwo.Click
txtDisplay.Text = txtDisplay.Text & btnTwo.Text
End Sub
 
Private Sub btnThree_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnThree.Click
txtDisplay.Text = txtDisplay.Text & btnThree.Text
End Sub
 
Private Sub btnFour_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnFour.Click
txtDisplay.Text = txtDisplay.Text & btnFour.Text
End Sub
 
Private Sub btnFive_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnFive.Click
txtDisplay.Text = txtDisplay.Text & btnFive.Text
End Sub
 
Private Sub btnSix_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSix.Click
txtDisplay.Text = txtDisplay.Text & btnSix.Text
End Sub
 
Private Sub btnSeven_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSeven.Click
txtDisplay.Text = txtDisplay.Text & btnSeven.Text
End Sub
 
Private Sub btnEight_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnEight.Click
txtDisplay.Text = txtDisplay.Text & btnEight.Text
End Sub
 
Private Sub btnNine_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNine.Click
txtDisplay.Text = txtDisplay.Text & btnNine.Text
End Sub
 
Private Sub cmdClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdClear.Click
txtDisplay.Clear()
End Sub
 
Private Sub cmdPlus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPlus.Click
total1 = total1 + Val(txtDisplay.Text)
txtDisplay.Clear()
End Sub
 
Private Sub cmdEquals_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEquals.Click
total2 = total1 + txtDisplay.Text
txtDisplay.Text = total2
total1 = 0
End Sub
End Class

My question is... why the PLUS button needs the Val and the Equals button doesn`t. Cause i wrote total2 = total1 + Val(display.Text) and it didn`t work. When i erased the Val from the Equals button it worked. Dim total1 As Integer doesn`t tell VB that total 1 it`s already a number ? why we must use Val to keep it as a number if we already told VB that total1 it`s a number(Integer) ? As a conclusion that is the diffrence between Integer & Val ?? Please i`m a begginer and i need some help.

 

[JuggaloBrotha]

you cant add a number to a string, before doing math on a string you need to convert it to a number (and i would stay away from the Val function)

i would use Decimal's instead of integers, and when you add one decimal to the number in the txtDisplay.Text you need to conver txtDisplay.Text to a Decimal CDec(txtDisplay.Text) would be your friend

 

[Ciduletz1983]

Thx JuggaloBrotha i fully understand now. Thx again.