Advertisement
ellenlee218

Basic 1-Digit Calculator

Jan 31st, 2016
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.23 KB | None | 0 0
  1. result = Null;
  2. num1 = Null;
  3. num2 = Null;
  4. Column[{
  5. Row[{Style[Dynamic@ToString[N[result, 5]], FontSize -> 18,
  6. FontFamily -> "Georgia"]}],
  7. Row[{Button[" + ",
  8. If[NumberQ[num1] && NumberQ[num2], result = num1 + num2];],
  9. Button[" 7 ", If[! NumberQ[num1], num1 = 7, num2 = 7];],
  10. Button[" 8 ", If[! NumberQ[num1], num1 = 8, num2 = 8];],
  11. Button[" 9 ", If[! NumberQ[num1], num1 = 9, num2 = 9];]}],
  12. Row[{Button[" - ",
  13. If[NumberQ[num1] && NumberQ[num2], result = num1 - num2];],
  14. Button[" 4 ", If[! NumberQ[num1], num1 = 4, num2 = 4];],
  15. Button[" 5 ", If[! NumberQ[num1], num1 = 5, num2 = 5];],
  16. Button[" 6 ", If[! NumberQ[num1], num1 = 6, num2 = 6];]}],
  17. Row[{Button[" * ",
  18. If[NumberQ[num1] && NumberQ[num2], result = num1*num2];],
  19. Button[" 1 ", If[! NumberQ[num1], num1 = 1, num2 = 1];],
  20. Button[" 2 ", If[! NumberQ[num1], num1 = 2, num2 = 2];],
  21. Button[" 3 ", If[! NumberQ[num1], num1 = 3, num2 = 3];]}],
  22. Row[{Button[" / ",
  23. If[NumberQ[num1] && NumberQ[num2], result = num1/num2];],
  24. Button[" 0 ", If[! NumberQ[num1], num1 = 0, num2 = 0]],
  25. Button[" Clear ",
  26. num1 = Null;
  27. num2 = Null;
  28. result = Null;]}]
  29. }, Frame -> True]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement