No Title for Now

Only available on StudyMode
  • Topic: Class
  • Pages : 3 (443 words )
  • Download(s) : 39
  • Published : February 13, 2013
Open Document
Text Preview
Public Class frmCal

Private Sub btnOutput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOutput.Click If Label1.Text = "+" Then
txtInput.Text = Val(My.Settings.First) + Val(txtInput.Text) ElseIf Label1.Text = "-" Then
txtInput.Text = Val(My.Settings.First) - Val(txtInput.Text) ElseIf Label1.Text = "*" Then
txtInput.Text = Val(My.Settings.First) * Val(txtInput.Text) ElseIf Label1.Text = "/" Then
txtInput.Text = Val(My.Settings.First) / Val(txtInput.Text) End If
End Sub

Private Sub btn0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn0.Click txtInput.AppendText("0")
End Sub

Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click txtInput.AppendText("1")
End Sub

Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click txtInput.AppendText("2")
End Sub

Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click txtInput.AppendText("3")
End Sub

Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click txtInput.AppendText("4")
End Sub

Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click txtInput.AppendText("5")
End Sub

Private Sub btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click txtInput.AppendText("6")
End Sub

Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click txtInput.AppendText("7")
End Sub

Private Sub btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn8.Click txtInput.AppendText("8")
End...
tracking img