Visual C++ V6 でDLLを作成
VisualBasic 2000 Feb
CalcSW.c
#include
double __stdcall fnCalcSW(int h,int sex)
{
double hl;
hl = h*0.01;
return hl * hl *(23-sex);
}
CalcSW.DEF
;CalcSW.DEF
LIBRARY CalcSW
EXPORTS
fnCalcSW @1
Private Declare Function fnCalcSW Lib "CalcSW.dll" _
(ByVal h As Long, ByVal sex As Long) As Double
h=160
s = 1
Msgbox fnCalcSW(h,s)