问vb回调函数中能否将数组作为传递参数?
来源:互联网 发布:javascript 添加class 编辑:程序博客网 时间:2024/04/28 05:27
是关于非线性最小二乘拟合的问题
在vc的dll中,我这样用
int __stdcall NonLinearFit (double x[], double y[], double z[], int n, ModelFun *modelFunction, double coef[], int ncoef, double *MSE);
typedef double CVICALLBACK ModelFun(double x, double *coef, int ncoef);
在vb公共模块中:
Public Declare Function NonLinearFit Lib "LinkVC.dll" (x As Double, y As Double, z As Double, ByVal n As Long, lpFunc As Any, a As Double, ByVal nCoef As Long, mse As Double) As Long
Public Function NLFitFunc(ByVal x As Double, a() As Double, ByVal nCoef As Long) As Double
Dim y As Double
'ReDim a(1 To nCoef) As Double
y = a(0) * Exp(x) + a(1) * Exp(-x)
NLFitFunc = y
End Function
vb窗体中:
Private Sub Command6_Click()
Dim x(1 To 20) As Double, y(1 To 20) As Double, z(1 To 20) As Double
Dim nCoef As Long, n As Long
Dim a(1 To 2) As Double, mse As Double
On Error Resume Next
n = 20
nCoef = 2
For i = 1 To n
x(i) = i
y(i) = 1# * Exp(x(i)) + 2# * Exp(-x(i)) + 0.1 * Rnd
Next i
a(1) = 0.9
a(2) = 1.85
status = NonLinearFit(x(1), y(1), z(1), n, AddressOf NLFitFunc, a(1), nCoef, mse)
End Sub
不知怎么的,就是出问题
- 问vb回调函数中能否将数组作为传递参数?
- C语言中如何将数组作为函数参数传递
- C语言中如何将二维数组作为参数传递
- 回调函数 参数传递
- 将数组作为参数进行传递
- 将成员函数作为回调函数
- 关于sqlite_exec回调函数中参数传递的问题
- jQuery中on方法向回调函数传递参数
- 关于回调函数作为函数参数
- 函数指针作为参数&回调函数
- 将一个函数作为另一个函数的参数(回调函数)
- js 函数作为参数,作为回调函数的使用。
- ajax回调函数参数传递
- Javascript AJAX回调函数传递参数
- C++中二维数组作为参数传递
- C语言中如何将二维数组作为函数的参数传递
- C语言中如何将二维数组作为函数的参数传递
- C语言中如何将二维数组作为函数的参数传递
- 呼呼~被自己的笨吓到了........
- CSDN的这个blog网站太不稳定
- 利用WMI获取和更新网络设置(VBS脚本)
- 女孩子应该体谅男孩子的十个地方![转]
- Axis快速配置
- 问vb回调函数中能否将数组作为传递参数?
- SQL Server的几个安全问题
- 心情非常糟糕
- SQL Server连接中三个常见的错误分析
- 文件拷贝
- 有关Motorola J2ME开发的几个细节问题
- "失踪"61年的上帝之鸟重回美国阿肯色州 (组图)
- grub安装修复!
- 问题