FC2ブログ

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

レジスタ読出し

 単体のレジスタ番号から値を読み出す関数プロシージャを作成します。


'単体のレジスタ番号から値を読み出す
'引数====================
'Register:レジスタ番号
'返り値==================
'読み出したレジスタデータ
'========================

Public Function RegRead(Register As String) As Long
  Dim rc As Long         'リターンコード
  Dim hRegister As Long     'レジスタデータハンドル
  Dim RegisterResData As Long  '設定レジスタの値
  Dim ReadDataNumber As Long   'レジスタデータ個数

  'レジスタデータハンドル取得
  '引数====================
  'レジスタ番号
  'レジスタデータハンドルを受け取るバッファ
  '========================

  rc = ymcGetRegisterDataHandle(Register, hRegister)
  If rc <> MP_SUCCESS Then
    MsgBox "レジスタデータハンドル取得に失敗しました。" & vbCrLf & "ErrorCode [" & Hex(rc) & "]"
    Exit Function
  End If

  'レジスタの値を読み出す
  '引数====================
  'レジスタデータハンドル
  'レジスタ設定数=1
  'レジスタから読み出した値を受け取るバッファ
  '実際に取得できたレジスタデータ個数を受け取るバッファ
  '========================

  rc = ymcGetRegisterData(hRegister, 1, RegisterResData, ReadDataNumber)
  If rc <> MP_SUCCESS Then
    MsgBox "レジスタ読出しに失敗しました。" & vbCrLf & "ErrorCode [" & Hex(rc) & "]"
    Exit Function
  End If

  RegRead = RegisterResData  '値を返す
End Function


次回「レジスタ名の指定」へ続く...
スポンサーサイト

テーマ : プログラミング
ジャンル : コンピュータ


スポンサード リンク
コンテンツ
リンク
ブログ・PVランキング
ブログ内検索
RSSフィード
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。