プログラム初心者です。
以下のソースをVB２０１０で動作させると型'double'の値を'system.Collections.ArrayList'に変換できません。となります。呼び出し方法がおかしいと思うのですが。よく分かりません。解決方法を教えてくださいお願い致します。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim aArr() As Double
aArr(1) = 1.1
aArr(2) = 2.3
MsgBox(AAA(aArr))
End Sub
Public Function AAA(ByVal aArr As ArrayList) As Double()
Dim retVal As Double() = Nothing
ReDim retVal(2)
Dim loopCnt As Integer = 0
Dim Arrcnt As Integer = aArr.Count
Dim sum As Double = 0.0
For loopCnt = 0 To Arrcnt - 1
sum += aArr(loopCnt)
Next
sum = sum / loopCnt
retVal(0) = sum
Return retVal
End Function
プログラム初心者です。
double型の配列をVB2010とC++で作成したｄｌｌで連携したいのですが、値が正しく渡されません。
値が正しく渡せるにはどうしたら良いでしょうか？
以下がその内容です。（int型の場合）これをdouble型で渡したいのですが。
C++ではSafeArrayの扱いになるとのことですが、方法が良く分かりません。
VBソース
-----------------
' Arrays.vb
Imports System
Imports Microsoft.VisualBasic
Imports System.Runtime.InteropServices
Friend NotInheritable Class NativeMethods
Private Sub New()
End Sub
Declare Function TestArrayOfInts Lib "makedll.dll" ( _
<[In](), Out()> ByVal myArray() As Integer, ByVal size As Integer) As Integer
End Class
Public NotInheritable Class App
Private Sub New()
End Sub
Public Shared Sub Main()
' *************** array ByVal **************
Dim array1(9) As Integer
Console.WriteLine("Integer array passed ByVal before call:")
Dim i As Integer
For i = 0 To array1.Length - 1
array1(i) = i
Console.Write(" " & array1(i))
Next i
Dim sum1 As Integer = NativeMethods.TestArrayOfInts(array1, array1.Length)
Console.WriteLine(ControlChars.CrLf & "Sum of elements:" & sum1)
Console.WriteLine(ControlChars.CrLf & "Integer array passed ByVal after call:")
For Each i In array1
Console.Write(" " & i)
Next i
Console.Read()
End Sub
End Class
//**********************************
C++作成ｄｌｌソース(makedll.cpp)
extern "C" MAKEDLL_API int TestArrayOfInts( int* pArray, int size )
{
int result = 0;
for( int i = 0; i < size; i++ )
{
result += pArray[ i ];
pArray[ i ] += 100;
}
return result;
}
//**********************************
C++作成ｄｌｌソース(makedll.h)
#ifdef MAKEDLL_EXPORTS
#define MAKEDLL_API __declspec(dllexport)
#else
#define MAKEDLL_API __declspec(dllimport)
#endif
extern "C" MAKEDLL_API int TestArrayOfInts( int* pArray, int size );
//**********************************
C++作成ｄｌｌソース(makedll.def)
LIBRARY makedll.dll
EXPORTS
TestArrayOfInts PRIVATE
プログラム初心者です。
double型の配列をVB2010とC++で作成したｄｌｌで連携したいのですが、値が正しく渡されません。
値が正しく渡せるにはどうしたら良いでしょうか？
以下がその内容です。（int型の場合）これをdouble型で渡したいのですが。
C++ではSafeArrayの扱いになるとのことですが、方法が良く分かりません。
VBソース
-----------------
' Arrays.vb
Imports System
Imports Microsoft.VisualBasic
Imports System.Runtime.InteropServices
Friend NotInheritable Class NativeMethods
Private Sub New()
End Sub
Declare Function TestArrayOfInts Lib "makedll.dll" ( _
<[In](), Out()> ByVal myArray() As Integer, ByVal size As Integer) As Integer
End Class
Public NotInheritable Class App
Private Sub New()
End Sub
Public Shared Sub Main()
' *************** array ByVal **************
Dim array1(9) As Integer
Console.WriteLine("Integer array passed ByVal before call:")
Dim i As Integer
For i = 0 To array1.Length - 1
array1(i) = i
Console.Write(" " & array1(i))
Next i
Dim sum1 As Integer = NativeMethods.TestArrayOfInts(array1, array1.Length)
Console.WriteLine(ControlChars.CrLf & "Sum of elements:" & sum1)
Console.WriteLine(ControlChars.CrLf & "Integer array passed ByVal after call:")
For Each i In array1
Console.Write(" " & i)
Next i
Console.Read()
End Sub
End Class
//**********************************
C++作成ｄｌｌソース(makedll.cpp)
extern "C" MAKEDLL_API int TestArrayOfInts( int* pArray, int size )
{
int result = 0;
for( int i = 0; i < size; i++ )
{
result += pArray[ i ];
pArray[ i ] += 100;
}
return result;
}
//**********************************
C++作成ｄｌｌソース(makedll.h)
#ifdef MAKEDLL_EXPORTS
#define MAKEDLL_API __declspec(dllexport)
#else
#define MAKEDLL_API __declspec(dllimport)
#endif
extern "C" MAKEDLL_API int TestArrayOfInts( int* pArray, int size );
//**********************************
C++作成ｄｌｌソース(makedll.def)
LIBRARY makedll.dll
EXPORTS
TestArrayOfInts PRIVATE
プログラム初心者です。
double型の配列をVB2010とC++で作成したｄｌｌで連携したいのですが、値が正しく渡されません。
値が正しく渡せるにはどうしたら良いでしょうか？
以下がその内容です。（int型の場合）これをdouble型で渡したいのですが。
C++ではSafeArrayの扱いになるとのことですが、方法が良く分かりません。
VBソース
-----------------
' Arrays.vb
Imports System
Imports Microsoft.VisualBasic
Imports System.Runtime.InteropServices
Friend NotInheritable Class NativeMethods
Private Sub New()
End Sub
Declare Function TestArrayOfInts Lib "makedll.dll" ( _
<[In](), Out()> ByVal myArray() As Integer, ByVal size As Integer) As Integer
End Class
Public NotInheritable Class App
Private Sub New()
End Sub
Public Shared Sub Main()
' *************** array ByVal **************
Dim array1(9) As Integer
Console.WriteLine("Integer array passed ByVal before call:")
Dim i As Integer
For i = 0 To array1.Length - 1
array1(i) = i
Console.Write(" " & array1(i))
Next i
Dim sum1 As Integer = NativeMethods.TestArrayOfInts(array1, array1.Length)
Console.WriteLine(ControlChars.CrLf & "Sum of elements:" & sum1)
Console.WriteLine(ControlChars.CrLf & "Integer array passed ByVal after call:")
For Each i In array1
Console.Write(" " & i)
Next i
Console.Read()
End Sub
End Class
//**********************************
C++作成ｄｌｌソース(makedll.cpp)
extern "C" MAKEDLL_API int TestArrayOfInts( int* pArray, int size )
{
int result = 0;
for( int i = 0; i < size; i++ )
{
result += pArray[ i ];
pArray[ i ] += 100;
}
return result;
}
//**********************************
C++作成ｄｌｌソース(makedll.h)
#ifdef MAKEDLL_EXPORTS
#define MAKEDLL_API __declspec(dllexport)
#else
#define MAKEDLL_API __declspec(dllimport)
#endif
extern "C" MAKEDLL_API int TestArrayOfInts( int* pArray, int size );
//**********************************
C++作成ｄｌｌソース(makedll.def)
LIBRARY makedll.dll
EXPORTS
TestArrayOfInts PRIVATE
xmlファイルの読込がうまくいきません。どこが間違っているでしょうか。
参考にしたページ
http://msdn.microsoft.com/ja-jp/library/ayf5ffy5(v=vs.80).aspx
－－－－－xmlファイルここから－－－－－
<root>
<parentnode1>
<childnode1>100</childnode1>
</parentnode1>
<parentnode2>20</parentnode2>
</root>
－－－－－xmlファイルこまで－－－－－
－－－－－コードここから－－－－－
Sub Main()
Dim b As Boolean
Dim objXmlR As XmlReader = XmlReader.Create("c:\temp\sample.xml")
objXmlR.MoveToContent()
b = objXmlR.ReadToDescendant("parentnode1")
Console.WriteLine(objXmlR.Name) '「parentnode1」を出力
Console.WriteLine(objXmlR.Value) '「」を出力
b = objXmlR.ReadToDescendant("childnode1")
Console.WriteLine(objXmlR.Name) '「childnode1」を出力
Console.WriteLine(objXmlR.Value) '「」を出力。ここで「100」が出て欲しい
End Sub
－－－－－コードここまで－－－－－
基本的なことだと思いますがよろしくお願いします。
