No Title for Now

Topics: Class Pages: 3 (443 words) Published: February 13, 2013
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...
Continue Reading

Please join StudyMode to read the full document

You May Also Find These Documents Helpful

  • title Essay
  • Title Essay
  • Title Essay
  • Title Essay
  • title Essay
  • title Essay
  • Then and Now Research Paper
  • Essay about Now and Then

Become a StudyMode Member

Sign Up - It's Free