Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- result = Null;
- num1 = Null;
- num2 = Null;
- Column[{
- Row[{Style[Dynamic@ToString[N[result, 5]], FontSize -> 18,
- FontFamily -> "Georgia"]}],
- Row[{Button[" + ",
- If[NumberQ[num1] && NumberQ[num2], result = num1 + num2];],
- Button[" 7 ", If[! NumberQ[num1], num1 = 7, num2 = 7];],
- Button[" 8 ", If[! NumberQ[num1], num1 = 8, num2 = 8];],
- Button[" 9 ", If[! NumberQ[num1], num1 = 9, num2 = 9];]}],
- Row[{Button[" - ",
- If[NumberQ[num1] && NumberQ[num2], result = num1 - num2];],
- Button[" 4 ", If[! NumberQ[num1], num1 = 4, num2 = 4];],
- Button[" 5 ", If[! NumberQ[num1], num1 = 5, num2 = 5];],
- Button[" 6 ", If[! NumberQ[num1], num1 = 6, num2 = 6];]}],
- Row[{Button[" * ",
- If[NumberQ[num1] && NumberQ[num2], result = num1*num2];],
- Button[" 1 ", If[! NumberQ[num1], num1 = 1, num2 = 1];],
- Button[" 2 ", If[! NumberQ[num1], num1 = 2, num2 = 2];],
- Button[" 3 ", If[! NumberQ[num1], num1 = 3, num2 = 3];]}],
- Row[{Button[" / ",
- If[NumberQ[num1] && NumberQ[num2], result = num1/num2];],
- Button[" 0 ", If[! NumberQ[num1], num1 = 0, num2 = 0]],
- Button[" Clear ",
- num1 = Null;
- num2 = Null;
- result = Null;]}]
- }, Frame -> True]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement