<< 前へ        次へ >>

ID : 7284

GetDiagnosisState

機能

診断動作の実施状況 (全軸分) を、取得します。

このコマンドはVer.2.6.*から有効です。

構文

GetDiagnosisState

戻り値

診断動作の実施状況 (全軸分) を、バリアント型データ(8要素)で返します。

各要素の値は下記になります。

値 内容
0 実施済
1 未実施

要素番号と軸との関係は、要素番号 "0" が1軸に該当し、順に、要素番号 "1" が2軸に、要素番号 "2" が3軸に該当していきます。最後に要素番号 "7" が8軸に該当しますが、7軸、8軸は、将来拡張用であり、現状は ”0” が格納されます。

解説

診断動作の実施状況 (全軸分) を、バリアント型データ(8要素)で返します。

関連項目

1年点検、ロボットプログラムによる方法、DiagnosisMove、GetDiagnosisWarning

注意事項

-

用例

Sub Main

  '診断動作が未実施である軸の軸番号を表示する
  Dim WarningAxis As Variant
  
  If GetDiagnosisWarning Then '診断動作が未実施である軸あり
    WarningAxis = GetDiagnosisState
    If WarningAxis( 0 ) Then '1軸が未実施の場合
      Msgbox "1軸が未実施です。"
    End If
    If WarningAxis( 1 ) Then '2軸が未実施の場合
      Msgbox "2軸が未実施です。"
    End If
    If WarningAxis( 2 ) Then '3軸が未実施の場合
      Msgbox "3軸が未実施です。"
    End If
    If WarningAxis( 3 ) Then '4軸が未実施の場合
      Msgbox "4軸が未実施です。"
    End If
    If WarningAxis( 4 ) Then '5軸が未実施の場合
      Msgbox "5軸が未実施です。"
    End If
    If WarningAxis( 5 ) Then '6軸が未実施の場合
      Msgbox "6軸が未実施です。"
    End If
  End If

End Sub

ID : 7284

<< 前へ        次へ >>