User manual - DT-5100カシオライブラリマニュアル for.NET【概要編】ver.3.00(2004年3月8日)

DT-5100 .NET ライブラリマニュアル
【概要編】
4.4 VB．NET アプリケーションでの使用例
カシオライブラリのシステムライブラリ関数を利用する場合のサンプルを以下に示します。
アプリケーション作成時に提供ソースファイル（VBClibsys.vb）を組み込む。
VBClibsys.vb の内容
アプリケーションの記述
Imports System.Runtime.InteropServices
Public Class VBClibsys
'---------------------------------------------
' 定数定義
'---------------------------------------------
'BUTTON
Public Const CLB_BUTTON_LEFTTRIGGER As Int64 = 1
Public Const CLB_BUTTON_RIGHTTRIGGER As Int64 = 2
：
：
'---------------------------------------------
' システムライブラリ
'---------------------------------------------
Declare Auto Function CLBSetBootableButtons Lib "Clbsys" (ByVal dwBootableButtons As Int64) As Boolean
Declare Auto Function CLBGetBootableButtons Lib "Clbsys" (ByRef pdwBootableButtons As Int64) As Boolean
Declare Auto Function CLBSetOffMaskTime Lib "Clbsys" (ByVal pdwKey As Int64, ByVal dwCard As Int64) As Boolean
Declare Auto Function CLBGetOffMaskTime Lib "Clbsys" (ByRef dwKey As Int64, ByRef dwCard As Int64) As Boolean
Declare Auto Function CLBPowerOff Lib "Clbsys" ()
：
：
End Class
Imports System.Runtime.InteropServices
Imports (アプリケーション名).VBClibsys
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' ----- Wakeup要因による電源ONの有効／無効設定を行います。
Dim bl As Boolean
bl = VBClibsys.CLBSetBootableButtons(VBClibsys.CLB_BUTTON_LEFTTRIGGER)
' 先頭で Imports により名前修飾しているため下記でも可
bl = CLBSetBootableButtons(CLB_BUTTON_LEFTTRIGGER)
' ----- Wakeup要因による電源ONの有効／無効状態を読み出します。
Dim dat As Int64
bl = CLBGetBootableButtons(dat)
If (dat And CLB_BUTTON_LEFTTRIGGER) <> 0 Then MsgBox("左ボタン有効")
' ----- 電源ON後、指定された時間電源OFFを禁止するための設定を行います。
bl = CLBSetOffMaskTime(10, 0) ' 10秒
' ----- 本体電源をOFFします。
CLBPowerOff()
' ----- 本体とIOボックスとの接続状態を取得します。また、接続状態を監視する時間の設定も同時に行います。
Dim ans As Int32
ans = CLBCheckCharger(0)
End Sub
14