global a, b, c, #sideA, #sideB
print "Hypotenuse Calculator"
print "Length of side A: ";
textbox #sideA, a
print "Length of side B: ";
textbox #sideB, b
button #go, "Go!", computeSideC
if c > 0 then print "Length of side C: "; c
sub computeSideC key$
a = #sideA value()
b = #sideB value()
c = sqr(a^2+b^2)
If you compare this example to the one for lesson 2, you'll see most of the code is the same.
- The first few lines of code kick the program off by calling the displayAll subroutine.
- The displayAll subroutine adds a button which calls the computeSideC subroutine when it is clicked.
- The computeSideC subroutine does some math and then calls the displayAll subroutine, forcing the web page to update.