makobasic/Calculator-1.2-code
Sorry but my last post didn't work. The code is: Dim number1 as integer number1=Val(TextField1.Text) Dim operation as String operation=TextField2.Text Dim number2 as integer number2=Val(TextField3.Text) IF operation ="+" THEN Dim sum as integer sum=(number1+number2) MsgBox "The answer is "+Str(sum) END IF operation ="-" THEN Dim sum as integer sum=(number1-number2) MsgBox "The answer is "+Str(sum) END IF operation ="x" THEN Dim sum as integer sum=(number1*number2) MsgBox "The answer is "+Str(sum) END IF operation ="/" THEN Dim sum as double sum=(number1/number2) MsgBox "The answer is "+Str(sum) END IF operation ="exponent" THEN Dim sum as integer sum=(number1^number2) MsgBox "The answer is "+Str(sum) END