User manual - ファーストステップガイドver.1.09(2012年5月30日)

90
10. ボタン押下時のイベント関数に、以下のコードを追加してください。
Dim result As Int32
Dim msg As String
' 赤LEDを 0.5 秒点灯 0.5 秒消灯を 5 回繰り返す
result = Calib.SystemLibNet.Api.SysSetLED(Calib.SystemLibNet.Def.LED_RED, 5, 8, 8)
' .NETの「true」値は、「-1」、「false」値は、「0」
If result = -1 Then
' 点灯成功 点灯色を取得
result = Calib.SystemLibNet.Api.SysGetLED()
Select Case (result And &HF)
Case Calib.SystemLibNet.Def.LED_OFF
msg = "LED_OFF"
Case Calib.SystemLibNet.Def.LED_RED
msg = "LED_RED"
Case Calib.SystemLibNet.Def.LED_GREEN
msg = "LED_GREEN"
Case Calib.SystemLibNet.Def.LED_ORANGE
msg = "LED_ORANGE"
Case Else
msg = "LED_UNKNOWN"
End Select
MessageBox.Show(msg, "LED")
End If
11. ［ビルド］→［ソリューションのビルド］を選択し、正常にビルドできることを確認
します。