学科竞赛作品 智能家居受控端

最新调试更新版本见另一个帖子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 结束 事件
@青山不移,文笔不息。学习,坚持,梦想青春!
原文地址:https://www.cnblogs.com/pengwenzheng/p/7732367.html