最新调试更新版本见另一个帖子2017-11-1012:07:54>~(修复讯飞语音基本崩溃的bug纯属原创!!结合自带语音插件实现!)
经多次调试最终版本
2017-10-2614:24:36
今天特来修改相关内容,原来写好了,没有加讯飞语音的语音识别功能,,但是我的控制端肯定要加语音识别的呀,
远程控制端发送语音识别,然后发送到服务器,接着接收端解析,然后执行动作,播放语音。
找了一上午,终于找到了原因,竟然是编程软件的问题!jar库和so库的解析,并没有更新,导致现在的e4a已经无法使用语音识别功能了,机智的我调用了例程里面的库文件,就可以运行了。下面代码无需更改,不再闪退了。
1 变量 K1开关 为 文本型 2 变量 K2开关 为 文本型 3 变量 启动时间 为 长整数型 4 变量 网址 为 文本型 5 变量 引号 为 文本型 6 变量 一级返回文本 为 文本型 7 变量 二级返回文本 为 文本型 8 变量 三级返回文本 为 文本型 9 变量 终级返回文本 为 文本型 10 变量 日光灯返回值 为 文本型 11 变量 门锁返回值 为 文本型 12 常量 日光灯 为 文本型="开灯" 13 常量 门锁 为 文本型="开门" 14 变量 检测 为 整数型 15 变量 型号 为 文本型 16 事件 按钮3.被单击() 17 判断 按钮3.标题 18 分支 "搜索设备" 19 列表框1.清空项目() 20 蓝牙1.搜索设备() '搜索设备 21 弹出提示("正在搜索") 22 分支 "断开连接" 23 蓝牙1.断开连接() '退出处理,释放资源,结束内部处理线程 24 按钮3.标题="搜索设备" 25 结束 判断 26 结束 事件 27 事件 主窗口.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型) 28 如果 键代码 = 返回键 则 29 如果 取启动时间() - 启动时间 >2000 则 30 弹出提示("再按一次退出程序") 31 启动时间 = 取启动时间() 32 否则 33 结束程序() 34 结束 如果 35 结束 如果 36 结束 事件 37 事件 主窗口.创建完毕() 38 时钟1.时钟周期=0 39 讯飞语音1.初始化("59f06f73") 40 讯飞语音1.初始化语音识别() 41 讯飞语音1.设置语音识别参数(1,真) 42 讯飞语音1.初始化语音合成() 43 讯飞语音1.设置语音合成参数(1,50,50,50) 44 45 列表框1.字体大小 = 15 46 标签2.背景颜色=无色 47 标签1.背景颜色=无色 48 列表框1.背景颜色=灰色 49 蓝牙1.是否存在() 50 判断 蓝牙1.是否存在() 51 分支 假 52 弹出提示("没有检测到蓝牙设备,程序将关闭") 53 结束程序() 54 分支 真 55 判断 蓝牙1.是否已开启() 56 分支 假 57 蓝牙1.开启蓝牙() 58 结束 判断 59 结束 判断 60 结束 事件 61 事件 蓝牙1.发现设备(设备名称 为 文本型,设备地址 为 文本型,是否已配对 为 逻辑型) 62 列表框1.添加项目(设备名称 & "/" & 设备地址 & "/" & 是否已配对) 63 结束 事件 64 事件 列表框1.表项被单击(项目索引 为 整数型) 65 变量 设备信息 为 文本型 66 变量 文本数组 为 文本型() 67 变量 设备地址 为 文本型 68 设备信息 = 列表框1.取项目内容(项目索引) 69 文本数组 = 分割文本(设备信息,"/") 70 设备地址 = 文本数组(1) 71 弹出提示(设备地址) 72 蓝牙1.连接设备(设备地址) '连接设备 我看了有些例程是没有的 73 弹出提示("正在连接") 74 蓝牙1.停止搜索() 75 结束 事件 76 事件 蓝牙1.连接完毕(连接结果 为 逻辑型,设备名称 为 文本型,设备地址 为 文本型,连接模式 为 整数型) 77 变量 设备信息 为 文本型 78 变量 文本数组 为 文本型() 79 如果 连接结果 = 真 则 80 标签2.标题 = "已连接:" & 设备名称 & "-" & 设备地址 81 按钮3.标题="断开连接" 82 弹出提示("连接成功") 83 时钟1.时钟周期=6000 84 否则 85 弹出提示("连接失败") 86 结束 如果 87 结束 事件 88 89 事件 蓝牙1.蓝牙设置完毕(设置结果 为 整数型) 90 判断 设置结果 91 分支 1 '开启蓝牙 92 弹出提示("蓝牙已开启") 93 蓝牙1.置可被发现() '置可被发现 94 分支 2 '不开启蓝牙 95 信息框("信息","蓝牙未被开启,程序将退出!","确定") 96 结束程序() 97 分支 3 '置可被发现 98 弹出提示("蓝牙已设置为可被发现") 99 蓝牙1.置工作模式(2) '蓝牙聊天模式 100 分支 4 '不置可被发现 101 信息框("信息","蓝牙未被设置为可被发现,程序将退出!","确定") 102 结束程序() 103 结束 判断 104 结束 事件 105 事件 蓝牙1.收到数据(数据 为 字节型(),设备名称 为 文本型,设备地址 为 文本型) 106 结束 事件 107 '''toclassid=70965&book_title=456213&book_content=sfauiasfgufg&ishidden=0&action=gomod&classid=70965&siteid=24233&page=1&sid=D1BD2C713EF464690_3_23240_25313_23240-2-0-0-0-320&bt=%E6%8F%90+%E4%BA%A4 108 事件 时钟1.周期事件() 109 型号=手机1.取手机型号() & 到文本( 取秒(取现行时间())) 110 引号=编辑框1.内容 111 多线程1.开始取网页源码("http://back.waphx.com/guessbook/book_list.aspx?siteid=24233&classid=70965&page=1&sid=D1BD2C713EF464690_3_23240_25313_23240-2-0-0-0-320","utf-8") 112 二级返回文本=取指定文本2(一级返回文本,"line1" & 引号 &"><a href=" & 引号 ,引号 & ">") 113 多线程1.开始取网页源码2(二级返回文本,"utf-8") 114 终级返回文本=取指定文本2(三级返回文本,"【","】") 115 弹出提示(终级返回文本) 116 判断 取指定文本2(三级返回文本,"【","】") 117 分支 "开门" 118 蓝牙1.发送数据(文本到字节("k","GBK")) 119 讯飞语音1.开始语音合成("正在执行开门服务") 120 弹出提示(发送网络数据("http://back.waphx.com/guessbook/admin_WAPadd.aspx","toclassid=70965&book_title="& 型号 &"&book_content="&"【门已打开】"&型号 &"&ishidden=0&action=gomod&classid=70965&siteid=24233&page=1&sid=D1BD2C713EF464690_3_23240_25313_23240-2-0-0-0-320&bt=%E6%8F%90+%E4%BA%A4","utf-8",2000)) 121 分支 "关门" 122 蓝牙1.发送数据(文本到字节("g","GBK")) 123 讯飞语音1.开始语音合成("正在执行关门服务") 124 弹出提示(发送网络数据("http://back.waphx.com/guessbook/admin_WAPadd.aspx","toclassid=70965&book_title="& 型号 &"&book_content="&"【门已关闭】"&型号 &"&ishidden=0&action=gomod&classid=70965&siteid=24233&page=1&sid=D1BD2C713EF464690_3_23240_25313_23240-2-0-0-0-320&bt=%E6%8F%90+%E4%BA%A4","utf-8",2000)) 125 分支 "开灯" 126 蓝牙1.发送数据(文本到字节("m","GBK")) 127 讯飞语音1.开始语音合成("正在执行开灯服务") 128 弹出提示(发送网络数据("http://back.waphx.com/guessbook/admin_WAPadd.aspx","toclassid=70965&book_title="& 型号 &"&book_content="&"【灯已打开】"& 型号&"&ishidden=0&action=gomod&classid=70965&siteid=24233&page=1&sid=D1BD2C713EF464690_3_23240_25313_23240-2-0-0-0-320&bt=%E6%8F%90+%E4%BA%A4","utf-8",2000)) 129 分支 "关灯" 130 蓝牙1.发送数据(文本到字节("l","GBK")) 131 讯飞语音1.开始语音合成("正在执行关灯服务") 132 弹出提示(发送网络数据("http://back.waphx.com/guessbook/admin_WAPadd.aspx","toclassid=70965&book_title="& 型号 &"&book_content="&"【灯已关闭】"&型号 &"&ishidden=0&action=gomod&classid=70965&siteid=24233&page=1&sid=D1BD2C713EF464690_3_23240_25313_23240-2-0-0-0-320&bt=%E6%8F%90+%E4%BA%A4","utf-8",2000)) 133 分支 "开风" 134 蓝牙1.发送数据(文本到字节("f","GBK")) 135 讯飞语音1.开始语音合成("正在执行开风扇服务") 136 弹出提示(发送网络数据("http://back.waphx.com/guessbook/admin_WAPadd.aspx","toclassid=70965&book_title="& 型号 &"&book_content="&"【风扇已打开】"& 型号 &"&ishidden=0&action=gomod&classid=70965&siteid=24233&page=1&sid=D1BD2C713EF464690_3_23240_25313_23240-2-0-0-0-320&bt=%E6%8F%90+%E4%BA%A4","utf-8",2000)) 137 分支 "关风" 138 蓝牙1.发送数据(文本到字节("o","GBK")) 139 讯飞语音1.开始语音合成("正在执行关风扇服务") 140 弹出提示(发送网络数据("http://back.waphx.com/guessbook/admin_WAPadd.aspx","toclassid=70965&book_title="& 型号 &"&book_content="&"【风扇已关闭】"&型号 &"&ishidden=0&action=gomod&classid=70965&siteid=24233&page=1&sid=D1BD2C713EF464690_3_23240_25313_23240-2-0-0-0-320&bt=%E6%8F%90+%E4%BA%A4","utf-8",2000)) 141 142 结束 判断 143 结束 事件 144 145 事件 多线程1.取网页源码完毕(源码 为 文本型) 146 一级返回文本=源码 147 结束 事件 148 事件 多线程1.取网页源码2完毕(源码 为 文本型) 149 三级返回文本=源码 150 结束 事件 151 152 事件 时钟2.周期事件() 153 结束 事件 154 155 事件 讯飞语音1.语音识别初始化完毕(初始化结果 为 逻辑型) 156 弹出提示("语音初始化成功") 157 结束 事件 158 159 事件 讯飞语音1.语音合成初始化完毕(初始化结果 为 逻辑型) 160 弹出提示("语音合成成功") 161 结束 事件 162 163 事件 按钮1.被单击() 164 讯飞语音1.开始语音合成("666666") 165 结束 事件 166 167 事件 按钮2.被单击() 168 讯飞语音1.开始语音识别() 169 结束 事件 170 171 172 事件 讯飞语音1.语音识别完毕(识别结果 为 逻辑型,识别内容 为 文本型) 173 弹出提示(识别内容) 174 结束 事件