' SmallBasic Version 1.2
' Program: CartesianToPolar
' Changelog:
' Author: Pappa Lapub
' Website: https://social.msdn.microsoft.com/Forums/en-US/95706095-0984-40d7-897f-0ec14ed58039/small-basic-subroutine-library-project
' ImportURL: http://smallbasic.com/program/?CVS185-0
' SBOnline: http://smallbasic-publicwebsite-dev.azurewebsites.net/Program/view.aspx?
' Extension: LitDev
' Comment:
'
' Variables:
' ToDo:
' ==============================================================================
using an angle of 30°, tan(30°) = 1/sqrt(3)
x = 100
y = 100 / Math.SquareRoot(3)
_r = ""
_a = ""
path = Program.Directory +"\Math_Functions.sbsub" ' is a renamed SB-Exe with Sub Routines
incl = LDCall.Include(path)
If incl <> "" Then
LDCall.CallInclude(incl, "Math_CartesianToPolar") ' Name of the Sub to call
' now return values should be in _r and _a
Else
TextWindow.Read()
Program.End()
EndIf
'' TEST
polar = LDMath.Convert2Radial(0,0, x,y)
'' call as function (within EntryAssembly)
args = ""
res = ""
res = LDCall.Function("CartesianToPolar", "1="+ _r +";2="+ _a +";") '' or ...
'res = LDCall.Function2("CartesianToPolar", _r,_a)