手持终端(Panasonic )_环境设置,程序控制振动

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

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

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

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

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

 

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

 

环境设置截图:

手持终端(Panasonic )_环境设置,程序控制振动_第1张图片

手持终端(Panasonic )_环境设置,程序控制振动_第2张图片

手持终端(Panasonic )_环境设置,程序控制振动_第3张图片

手持终端(Panasonic )_环境设置,程序控制振动_第4张图片

 

 

 

 

 

 

代码控制震动:


                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)

 

你可能感兴趣的:(手持终端(Panasonic )_环境设置,程序控制振动)