AgiRadar::AgiRadar()
{
//	connecting to .net DLL to use the following functions

//	Public Shared Function testFunc1() As Integer
//	    Return 123
//	End Function
	
//	Public Shared Function testFunc2(ByVal x As Double) As Double
//	    Return x * x
//	End Function

	Dl turbineSpeedCalc;

	String myDllFolder = "D:\\temp\\test\\Debug\\";

/////////////////////////////////////////	

	double (*testFunc2)(double);
	
	if (!turbineSpeedCalc.Load(AppendFileName(myDllFolder, "turbineSpeedCalc.dll")))
	    throw Exc(Format(t_("% dll not found"), "turbineSpeedCalc"));
	
	testFunc2 = (double (*)(double))turbineSpeedCalc.GetFunction("testFunc2");
	
	if (!testFunc2)
	    throw Exc(Format(t_("Function %s was not found in dll"), "testFunc2"));
	
	double argOut = testFunc2(15.0);	
	
	String s = Format("answer is %f",argOut);
	PromptOK(s);
	
//////////////////////////////////////////
	
	int (*testFunc1)();
	
	if (!turbineSpeedCalc.Load(AppendFileName(myDllFolder, "turbineSpeedCalc.dll")))
	    throw Exc(Format(t_("% dll not found"), "turbineSpeedCalc"));
	
	testFunc1 = (int (*)())turbineSpeedCalc.GetFunction("testFunc1");
	
	if (!testFunc1)
	    throw Exc(Format(t_("Function %s was not found in dll"), "testFunc1"));
	
	double argOut2 = testFunc1();	
	
	s = Format("answer is %f",argOut2);
	PromptOK(s);
	
}