智能小车 最基本最重要的 就是视频处理 来段易语言的

lm959680

1. .版本 2
   
2. .支持库 iext2
   
3. 
   
4. .程序集 窗口程序集1
   
5. .程序集变量 连接, 逻辑型
   
6. .程序集变量 取回数据, 字节集
   
7. 
   
8. .子程序 _客户_数据到达
   
9. 
   
10. 取回数据 ＝ 取回数据 ＋ 客户.取回数据 ()
    
11. ' 输出调试文本 (“文件头：” ＋ 到文本 (寻找字节集 (取回数据, { 255, 216 }, )))
    
12. ' 输出调试文本 (“文件尾：” ＋ 到文本 (倒找字节集 (取回数据, { 255, 217 }, )))
    
13. .如果真 (寻找字节集 (取回数据, { 255, 216 }, ) ≠ -1 且 倒找字节集 (取回数据, { 255, 217 }, ) ≠ -1) ' 找FFD8 十进制 就是 255 216 找FFD9 十进制 就是 255 216
    
14. 取回数据 ＝ 字节集替换 (取回数据, 1, 寻找字节集 (取回数据, { 255, 216 }, ) － 1, ) ' 将FFD8前面的文本删除，剩下的就是可用数据了
    
15. 画板1.底图 ＝ 取回数据 ' 直接就是标准jpg格式了 可以用类似UltraEdit的看文件头
    
16. 取回数据 ＝ { 0 }
    
17. .如果真结束
    
18. 
    
19. 延时 (1) ' 必须延时 哪怕1毫秒
    
20. 
    
21. .子程序 __启动窗口_将被销毁
    
22. 
    
23. 客户.断开连接 ()
    
24. 
    
25. .子程序 _按钮1_被单击
    
26. .局部变量 内容, 文本型
    
27. 
    
28. 连接 ＝ 客户.连接 (IP编辑框1.地址, 到整数 (编辑框1.内容)) ' 地址 端口
    
29. 输出调试文本 (连接)
    
30. .如果真 (连接 ＝ 真)
    
31. 内容 ＝ “GET /?action=stream HTTP/1.1” ＋ #换行符 ＋ #换行符 ' 这里使用GET方法 /?action=snapshot 只传一次 数据 /?action=stream 连续传 数据
    
32. 客户.发送数据 (内容)
    
33. 按钮2.禁止 ＝ 假
    
34. 按钮1.禁止 ＝ 真
    
35. .如果真结束
    
36. 
    
37. 
    
38. .子程序 _按钮2_被单击
    
39. 
    
40. 客户.断开连接 ()
    
41. 按钮2.禁止 ＝ 真
    
42. 按钮1.禁止 ＝ 假
    
43. 
    
44. .子程序 字节集到十六进制文本, 文本型, , 查看收到的数据 /?action=snapshot 只传一次数据 便于分析 注意：转换成 十六进制文本 时间需时比较久！
    
45. .参数 字节集, 字节集
    
46. .参数 间隔, 文本型, 可空, 十六进制文本显示的间隔,如为" ",则显示 D2 C3 A1格式,默认为不显示
    
47. .参数 自动换行数, 整数型, 可空, 如果为真,则每到此参数指定位置便自动换行
    
48. .参数 返回对应文本, 文本型, 可空, 将返回和十六进制对应的文本
    
49. .参数 对应文本中的未知符, 文本型, 可空
    
50. .局部变量 临时整数变量, 整数型
    
51. .局部变量 临时整数变量B, 整数型
    
52. .局部变量 临时文本变量, 文本型
    
53. .局部变量 临时文本变量B, 字节型, , "0"
    
54. 
    
55. 临时整数变量B ＝ 取字节集长度 (字节集)
    
56. 返回对应文本 ＝ “”
    
57. .如果真 (对应文本中的未知符 ＝ “”)
    
58. 对应文本中的未知符 ＝ “ ”
    
59. .如果真结束
    
60. .变量循环首 (1, 临时整数变量B, 1, 临时整数变量)
    
61. .如果 (取代码 (取字节集数据 (取字节集中间 (字节集, 临时整数变量, 1), #文本型), ) ＞ 32)
    
62. 返回对应文本 ＝ 返回对应文本 ＋ 取字节集数据 (取字节集中间 (字节集, 临时整数变量, 1), #文本型)
    
63. .否则
    
64. 返回对应文本 ＝ 返回对应文本 ＋ 对应文本中的未知符
    
65. .如果结束
    
66. .如果 (临时整数变量 ＜ 2)
    
67. 临时文本变量 ＝ 取文本右边 (“00” ＋ 取十六进制文本 (取字节集数据 (取字节集中间 (字节集, 临时整数变量, 1), #整数型)), 2)
    
68. .否则
    
69. .如果 (自动换行数 ＞ 0)
    
70. .如果 (临时整数变量 ％ 自动换行数 ＝ 0)
    
71. 临时文本变量 ＝ 临时文本变量 ＋ 间隔 ＋ 取文本右边 (“00” ＋ 取十六进制文本 (取字节集数据 (取字节集中间 (字节集, 临时整数变量, 1), #整数型)), 2)
    
72. .如果真 (临时整数变量B ＞ 临时整数变量)
    
73. 临时文本变量 ＝ 临时文本变量 ＋ #换行符
    
74. 返回对应文本 ＝ 返回对应文本 ＋ #换行符
    
75. .如果真结束
    
76. 
    
77. .否则
    
78. .如果 (临时整数变量 ％ 自动换行数 ＝ 1)
    
79. 临时文本变量 ＝ 临时文本变量 ＋ 取文本右边 (“00” ＋ 取十六进制文本 (取字节集数据 (取字节集中间 (字节集, 临时整数变量, 1), #整数型)), 2)
    
80. .否则
    
81. 临时文本变量 ＝ 临时文本变量 ＋ 间隔 ＋ 取文本右边 (“00” ＋ 取十六进制文本 (取字节集数据 (取字节集中间 (字节集, 临时整数变量, 1), #整数型)), 2)
    
82. .如果结束
    
83. 
    
84. .如果结束
    
85. 
    
86. .否则
    
87. 临时文本变量 ＝ 临时文本变量 ＋ 间隔 ＋ 取文本右边 (“00” ＋ 取十六进制文本 (取字节集数据 (取字节集中间 (字节集, 临时整数变量, 1), #整数型)), 2)
    
88. .如果结束
    
89. 
    
90. .如果结束
    
91. 
    
92. .变量循环尾 ()
    
93. 返回 (临时文本变量)
    

复制代码

WIFIRobot_视频测试.rar (3.76 KB, 下载次数: 52)

2014-4-10 14:25 上传

点击文件名下载附件 易源代码   自己编译

liuviking

一直觉得用易语言的才是大神啊！看中文代码实在是看不懂……

cjnt007

确实不适应

Diy_IMRE

表示看不懂

lm959680

我到想看懂C++的  英文不行 也懒的去记  

panlongfly

哇塞！这都能编译

谭先森

这个大哥 为什么喜欢用汉子写代码呢？你不觉得用c/c++写代码很简单么？瞎了我24k的钛合金眼

liuviking

谭先森 发表于 2014-4-12 12:55
这个大哥 为什么喜欢用汉子写代码呢？你不觉得用c/c++写代码很简单么？瞎了我24k的钛合金眼

易语言的特点就是汉化，主要照顾不擅长英文的中国人

不再扣篮

不明觉厉啊

hcm

8051可不可以易语言、、、。。。