Visual Basic .NET

Visual Basic .NETでのプログラム例です。変換データやエラー内容は、デバッグウィンドウに表示されます。
AioSingleAiを使用したプログラム例
AioMultiAiを使用したプログラム例

AioSingleAiを使用したプログラム例

'---------------------------
' 変数宣言
'---------------------------
Dim Ret As Integer '関数の戻り値
Dim Id As Short 'ID
Dim ErrorString As String = Space(256) 'エラー文字列格納用配列
Dim AiData As Integer '変換データ

'---------------------------
' デバイスの初期化
' デバイス名：Aio000
'---------------------------
Ret = AioInit("Aio000", Id)
If Ret <> 0 Then
    AioGetErrorString(Ret, ErrorString)
    System.Diagnostics.Trace.WriteLine("AioInit : " + ErrorString)
    Exit Sub
End If

'---------------------------
' アナログ入力方式の設定
' 入力方式：シングルエンド入力
'---------------------------
Ret = AioSetAiInputMethod(Id, 0)
If Ret <> 0 Then
    AioGetErrorString(Ret, ErrorString)
    System.Diagnostics.Trace.WriteLine("AioSetAiInputMethod : " + ErrorString)
    Ret = AioExit(Id)
    Exit Sub
End If

'---------------------------
' アナログ入力レンジの設定
' レンジ：±10V
'---------------------------
Ret = AioSetAiRangeAll(Id, PM10)
If Ret <> 0 Then
    AioGetErrorString(Ret, ErrorString)
    System.Diagnostics.Trace.WriteLine("AioSetAiRangeAll : " + ErrorString)
    Ret = AioExit(Id)
    Exit Sub
End If

'---------------------------
' 指定チャネルを1回アナログ入力
' 入力チャネル：０
'---------------------------
Ret = AioSingleAi(Id, 0, AiData)
If Ret <> 0 Then
    AioGetErrorString(Ret, ErrorString)
    System.Diagnostics.Trace.WriteLine("AioSingleAi : " + ErrorString)
    Ret = AioExit(Id)
    Exit Sub
End If
System.Diagnostics.Trace.WriteLine("チャネル0 : " + AiData.ToString())

'---------------------------
' デバイスの終了
'---------------------------
Ret = AioExit(Id)
If Ret <> 0 Then
    AioGetErrorString(Ret, ErrorString)
    System.Diagnostics.Trace.WriteLine("AioExit : " + ErrorString)
    Exit Sub
End If

AioMultiAiを使用したプログラム例

'---------------------------
' 複数チャネルを1回アナログ入力
' 入力チャネル数：８
'---------------------------
Ret = AioMultiAi(Id, 8, AiData(0))
If Ret <> 0 Then
    AioGetErrorString(Ret, ErrorString)
    System.Diagnostics.Trace.WriteLine("AioMultiAi : " + ErrorString)
    Ret = AioExit(Id)
    Exit Sub
End If

For i = 0 To 7
System.Diagnostics.Trace.WriteLine("チャネル" + i.ToString() + " : " + AiData(i))
Next i