Casio DT-X11M10E, Быстрый старт

Страница: 75 / 83

75
5. In the event function for the button click, add the following code.
Dim result As Int32
Dim msg As String
result = Calib.SystemLibNet.Api.SysSetLED( _
Calib.SystemLibNet.Def.LED_RED, 5, 8, 8)
'.NET vales of “true” and “false” are “-1” and “0” respectively.
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
Note:
If you type this code manually you should see the IntelliSense offer you suitable options as
appropriate. If you do not, make sure you review steps 1 to 5 to make sure you have added the
reference correctly.
6. Initiate
ActiveSync
to establish connection between the DT-X11 and PC.
7. Choose
Deploy <name of project>
on
Build
menu.
8. The project will be built and copied to the DT-X11. By default, it will be copied to
\Program
Files\<name of project>
folder.
SystemLibNet.dll
will be deployed to the same folder.
9. Check that the program works correctly on the DT-X11.
You can also use the CASIO samples as described in Chapter 1.4.