Procedure:Pythagorus
Posted: Tue Jan 31, 2017 9:58 am
Just a quick and simple Triangle side length calculator based around pythagorus for a bit of fun.
You can use 3,4,5 to test.
Enter any two side lengths and the third is calculated and presented in the empty string gadget.
Enjoy
cd
You can use 3,4,5 to test.
Enter any two side lengths and the third is calculated and presented in the empty string gadget.
Code: Select all
Enumeration FormWindow
#winMain
#txtSideA
#strSideA
#txtSideB
#strSideB
#txtHypotenuse
#strHypotenuse
#btnCalculate
EndEnumeration
Procedure Calculate()
Define A.i, B.i, H.i, x.i
A = Val(GetGadgetText(#strSideA))
B = Val(GetGadgetText(#strSideB))
H = Val(GetGadgetText(#strHypotenuse))
If A = 0
x = Sqr((H * H) - (B * B))
SetGadgetText(#strSideA,Str(x))
EndIf
If B = 0
x = Sqr((H * H) - (A * A))
SetGadgetText(#strSideB,Str(x))
EndIf
If H = 0
x = Sqr((A * A) + (B * B))
SetGadgetText(#strHypotenuse,Str(x))
EndIf
EndProcedure
OpenWindow(#winMain, 5, 5, 310, 110, "Pythagorus", #PB_Window_SystemMenu)
TextGadget(#txtSideA, 10, 10, 90, 20, "Side A")
StringGadget(#strSideA, 10, 40, 90, 20, "")
TextGadget(#txtSideB, 110, 10, 90, 20, "Side B")
StringGadget(#strSideB, 110, 40, 90, 20, "")
TextGadget(#txtHypotenuse, 210, 10, 90, 20, "Hypotenuse")
StringGadget(#strHypotenuse, 210, 40, 90, 20, "")
ButtonGadget(#btnCalculate, 220, 70, 80, 30, "Calculate")
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_CloseWindow
End
Case #PB_Event_Gadget
Select EventGadget()
Case #btnCalculate
Calculate()
EndSelect
EndSelect
ForEvercd