I'm trying to get the output to be displayed in a picture box, but it just doesn't want to work. I can't see where my mistake is.
This is my code:
What am I doing wrong?
This is my code:
Code:
Private Sub cmdCalculate_Click() Call ChooseMath Call DisplayInfo End Sub Sub ChooseMath() If optAdd = True Then FirstNumber = Val(txtFirstNumber) Operation = "Add" SecondNumber = Val(txtSecondNumber) Result = Val(txtFirstNumber) + Val(txtSecondNumber) End If If optSubtract = True Then FirstNumber = Val(txtFirstNumber) Operation = "Subtract" SecondNumber = Val(txtSecondNumber) Result = Val(txtFirstNumber) - Val(txtSecondNumber) End If If optMultiply = True Then FirstNumber = Val(txtFirstNumber) Operation = "Multiply" SecondNumber = Val(txtSecondNumber) Result = Val(txtFirstNumber) * Val(txtSecondNumber) End If If optDivide = True Then FirstNumber = Val(txtFirstNumber) Operation = "Divide" SecondNumber = Val(txtSecondNumber) Result = Val(txtFirstNumber) / Val(txtSecondNumber) End If If optBritishColumbia = True Then FirstNumber = Val(txtFirstNumber) Operation = Exponent SecondNumber = Val(txtSecondNumber) Result = Val(txtFirstNumber) ^ Val(txtSecondNumber) End If End Sub Sub DisplayInfo() picOutput.Print FirstNumber, Operation, SecondNumber, Result End Sub Private Sub cmdExit_Click() End End Sub
Comment