手持终端（Panasonic ）_环境设置，程序控制振动

来源：互联网发布：淘宝买乐天免税店积分编辑：程序博客网时间：2024/05/01 21:53

在试用了Honeywell，Casio后，又被要求试试Panasonic的一种，

不带触摸屏，初步感觉不是太方便。

提供的一堆资料有用的不多，还有大片的API函数还是英文说明，看得挺累。

最后振动问题解决了，但不能播放声音文件，只好控制发出蜂鸣器声音。

控制添TAB键和无线网络连接，还要使用提供的定制程序。

具体请下载我的资源：http://download.csdn.net/detail/wang_cel/5009919

环境设置截图：

代码控制震动：

Imports Panalib.JTCOM_IF
Imports Panalib.JTLIB_IF

'震动

                Dim pVIBLATRO_INFO As New VIBLATRO_INFO
                pVIBLATRO_INFO.RepeatCount = 2
                pVIBLATRO_INFO.VibrationTime = 2000
                pVIBLATRO_INFO.WaitingTime = 1000
                pVIBLATRO_INFO.Flags = 1
                pVIBLATRO_INFO.SyncTimeout = 1
                VIB_ControlPattern(pVIBLATRO_INFO)

'蜂鸣

Dim pBuzParam(3) As BUZZER_PARAM

                pBuzParam(0) = New BUZZER_PARAM
                pBuzParam(0).ulFrequency = 500
                pBuzParam(0).ulDuration = 1000
                pBuzParam(1) = New BUZZER_PARAM
                pBuzParam(1).ulFrequency = 0
                pBuzParam(1).ulDuration = 1000
                pBuzParam(2) = New BUZZER_PARAM
                pBuzParam(2).ulFrequency = 500
                pBuzParam(2).ulDuration = 1000
                pBuzParam(3) = New BUZZER_PARAM
                pBuzParam(3).ulFrequency = 0
                pBuzParam(3).ulDuration = 1000

Buzzer_ControlPattern(pBuzParam, 4, False)