没思路-（菜单菜谱源码）提供思路参考学习

汉族

首先 因为 这道题！

大佬们帮小弟看看
http://bbs.125.la/forum.php?mod=viewthread&tid=14086604
(出处: 精易论坛)


今天放假 就搞了 2个多小时  由于思路太烂  烂尾代码 醉了！！！！


有正则、有 画板绘制操作、有滚动写法 有后期增加思路  我是没有动力写这个 破玩意儿了（UI毙了狗了，看着 醉了），给你参考写法  就是一个娱乐代码。会的就不要吐槽。
动态截图演示；





好了，演示代码在这里： 菜.e (115.72 KB, 下载次数: 29)

2017-11-4 22:50 上传

点击文件名下载附件    （由于代码 内置一张谱图框图片 所以代码有点大）

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
菜名	文本型	0
图片	字节集	0
元	文本型	0
拖动	逻辑型

子程序名	返回值类型	公开	备 注
绘制菜谱
参数名	类 型	参考	可空	数组	备 注
横
纵
触发	逻辑型

变量名	类 型	静态	数组	备 注
x
y
a	整数型
t	整数型
n	整数型
z	整数型

画板1.清除 (, , , )
画板1.高度 ＝ 取数组成员数 (菜名) × 232  ' ＋ 50  ' × 取数组成员数 (菜名)
计次循环首 (取数组成员数 (菜名), a)
t ＝ 载入图片 (图片 [a])
画板1.画图片 (t, x, (a － 1) × 232, , 232 － 50, )
卸载图片 (t)
画板1.文本颜色 ＝ #天蓝
如果真 (拖动 ＝ 假)
如果真 (取文本长度 (菜名 [a]) ＞ 16)  ' 超过 宽度显示 所以换行处理文本
计次循环首 (4, z)
如果 (取代码 (菜名 [a], 15 ＋ z) ＜ -1)  ' 表示中文    19+z  的第一次 就是  16
n ＝ n ＋ 1
如果真 (n ％ 2 ≠ 0)
菜名 [a] ＝ 取文本左边 (菜名 [a], 16) ＋ #换行符 ＋ “       ” ＋ 取文本右边 (菜名 [a], 取文本长度 (菜名 [a]) － 16) ＋ “（-双-）”  ' 演示看是哪个算法算出来的  双横 就是  双字节计算的
跳出循环 ()

菜名 [a] ＝ 取文本左边 (菜名 [a], 16) ＋ #换行符 ＋ “       ” ＋ 取文本右边 (菜名 [a], 取文本长度 (菜名 [a]) － 16) ＋ “（-单-）”  ' 单横就是 单字节计算的
跳出循环 ()

计次循环尾 ()

画板1.定位写出 (x, a × 232 － 50 ＋ 11, “(” ＋ 到文本 (a) ＋ “)” ＋ “ ·” ＋ 菜名 [a])
如果真 (横 ＞ x 且 横 ＜ 232 且 纵 ��� (a － 1) × 232 且 纵 ��� (a － 1) × 232 ＋ 232)
调试输出 (“11111”)
画板1.画矩形 (x, (a － 1) × 232, x ＋ 232, (a － 1) × 232 ＋ 232 － 50)
如果真 (触发 ＝ 真)
' 信息框 (菜名 [a], 0, , )
画板1.复制 (x, (a － 1) × 232, x ＋ 232, 232, 画板2, 画板2.宽度 ÷ 2 － 119, 65, )  ' 有斜杠 的添加 不好看  所以 pass掉
' ------------------下面代码 也行，不过 我 修改了 刷子类型 因为 不想写代码了
' t ＝ 载入图片 (图片 [a])
' 画板2.画图片 (t, 画板2.宽度 ÷ 2 － 120, 60, 232, 232 － 50, )
' 卸载图片 (t)

' 调试输出 (菜名 [a])
计次循环尾 ()
拖动 ＝ 真

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

获取文字图片 ()

子程序名	返回值类型	公开	备 注
获取文字图片

变量名	类 型	静态	数组	备 注
web	字节集
zz	正则表达式
jg	搜索结果		0
a	整数型
z	整数型		2

web ＝ HTTP读文件 (“http://www.meishij.net/china-food/caixi/chuancai/”)
' *** 缩略程序块 ***'作废的东西
' 写到文件 (取特定目录 (3) ＋ “1222.txt”, web)
' web ＝ 取字节集左边 (web, 19585)
z [1] ＝ 寻找文本 (到文本 (web), #分割头, , 假)
z [2] ＝ 寻找文本 (到文本 (web), #分割尾, z [1], 假)
' *** 缩略程序块 ***‘作废的东西
' web ＝ 到字节集 (取文本中间 (到文本 (web), z [2], z [2] － (z [1] ＋ 取文本长度 (#分割头))))
' 调试输出 (取数组成员数 (jg), 取字节集长度 (web))
' 调试输出 (到文本 (web))
' web ＝ 到字节集 (#常量1)
' web ＝ 编码转换 (web, #编码_UTF_8, #编码_GBK, )
' 调试输出 (到文本 (web))
zz.创建 ( #正则, )
jg ＝ zz.搜索全部 (到文本 (web))
置随机数种子 ()
计次循环首 (取数组成员数 (jg), a)
加入成员 (元, 到文本 (取随机数 (10, 45)))
加入成员 (菜名, 到文本 (编码转换 (到字节集 (jg [a].取子匹配文本 (到文本 (web), 2, )), #编码_UTF_8, #编码_GBK, )) ＋ “  ” ＋ 元 [a] ＋ “元”)
加入成员 (图片, HTTP读文件 (jg [a].取子匹配文本 (到文本 (web), 3, )))
调试输出 (菜名 [a])
计次循环尾 ()
绘制菜谱 (0, 0, 假)

子程序名	返回值类型	公开	备 注
_画板1_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

' 拖动 ＝ 真
绘制菜谱 (横向位置, 纵向位置, 假)

子程序名	返回值类型	公开	备 注
_画板1_鼠标左键被放开	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

' 拖动 ＝ 假
' 调试输出 (拖动)

子程序名	返回值类型	公开	备 注
_画板1_滚轮被滚动	逻辑型
参数名	类 型	参考	可空	数组	备 注
滚动距离	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
ls				高度

判断 (滚动距离 ＝ -1)  ' ↓滚
ls ＝ ls ＋ 30
如果真 (ls ≥ 画板1.高度 － 256)
ls ＝ 0

ls ＝ ls － 30
如果真 (ls ≤ 0)
ls ＝ 画板1.高度 － 526


画板1.顶边 ＝ －ls
调试输出 (滚动距离, ls)

子程序名	返回值类型	公开	备 注
_画板1_按下某键	逻辑型
参数名	类 型	参考	可空	数组	备 注
键代码	整数型
功能键状态	整数型

调试输出 (键代码)
如果真 (键代码 ＝ #上光标键 )
如果真 (画板1.顶边 ≤ 0)
画板1.顶边 ＝ 0

如果真 (键代码 ＝ #下光标键 )
画板1.顶边 ＝ 画板1.顶边 － 10

子程序名	返回值类型	公开	备 注
_画板1_被双击	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

绘制菜谱 (横向位置, 纵向位置, 真)

常量名称	常量值	公 开	备 注
正则	“”
分割头	“”
分割尾	“”

i支持库列表	支持库注释
spec	特殊功能支持库
RegEx	正则表达式支持库
internet	互联网支持库
iconv	编码转换支持库

.版本 2<br /> .支持库 spec<br /> .支持库 RegEx<br /> .支持库 internet<br /> .支持库 iconv<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 菜名, 文本型, , "0"<br /> .程序集变量 图片, 字节集, , "0"<br /> .程序集变量 元, 文本型, , "0"<br /> .程序集变量 拖动, 逻辑型<br /> <br /> .子程序 绘制菜谱<br /> .参数 横<br /> .参数 纵<br /> .参数 触发, 逻辑型<br /> .局部变量 x<br /> .局部变量 y<br /> .局部变量 a, 整数型<br /> .局部变量 t, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 z, 整数型<br /> <br /> 画板1.清除 (, , , )<br /> 画板1.高度 ＝ 取数组成员数 (菜名) × 232  ' ＋ 50  ' × 取数组成员数 (菜名)<br /> .计次循环首 (取数组成员数 (菜名), a)<br />     t ＝ 载入图片 (图片 [a])<br />     画板1.画图片 (t, x, (a － 1) × 232, , 232 － 50, )<br />     卸载图片 (t)<br />     画板1.文本颜色 ＝ #天蓝<br /> <br />     .如果真 (拖动 ＝ 假)<br />         .如果真 (取文本长度 (菜名 [a]) ＞ 16)  ' 超过 宽度显示 所以换行处理文本<br /> <br />             .计次循环首 (4, z)<br />                 .如果 (取代码 (菜名 [a], 15 ＋ z) ＜ -1)  ' 表示中文    19+z  的第一次 就是  16<br />                     n ＝ n ＋ 1<br />                     .如果真 (n ％ 2 ≠ 0)<br />                         菜名 [a] ＝ 取文本左边 (菜名 [a], 16) ＋ #换行符 ＋ “       ” ＋ 取文本右边 (菜名 [a], 取文本长度 (菜名 [a]) － 16) ＋ “（-双-）”  ' 演示看是哪个算法算出来的  双横 就是  双字节计算的<br />                         跳出循环 ()<br />                     .如果真结束<br /> <br />                 .否则<br />                     菜名 [a] ＝ 取文本左边 (菜名 [a], 16) ＋ #换行符 ＋ “       ” ＋ 取文本右边 (菜名 [a], 取文本长度 (菜名 [a]) － 16) ＋ “（-单-）”  ' 单横就是 单字节计算的<br />                     跳出循环 ()<br />                 .如果结束<br /> <br />             .计次循环尾 ()<br />         .如果真结束<br /> <br />     .如果真结束<br />     画板1.定位写出 (x, a × 232 － 50 ＋ 11, “(” ＋ 到文本 (a) ＋ “)” ＋ “ ·” ＋ 菜名 [a])<br />     .如果真 (横 ＞ x 且 横 ＜ 232 且 纵 ＞ (a － 1) × 232 且 纵 ＜ (a － 1) × 232 ＋ 232)<br />         调试输出 (“11111”)<br />         画板1.画矩形 (x, (a － 1) × 232, x ＋ 232, (a － 1) × 232 ＋ 232 － 50)<br />         .如果真 (触发 ＝ 真)<br />             ' 信息框 (菜名 [a], 0, , )<br />             画板1.复制 (x, (a － 1) × 232, x ＋ 232, 232, 画板2, 画板2.宽度 ÷ 2 － 119, 65, )  ' 有斜杠 的添加 不好看  所以 pass掉<br />             ' ------------------下面代码 也行，不过 我 修改了 刷子类型 因为 不想写代码了<br />             ' t ＝ 载入图片 (图片 [a])<br />             ' 画板2.画图片 (t, 画板2.宽度 ÷ 2 － 120, 60, 232, 232 － 50, )<br />             ' 卸载图片 (t)<br /> <br />         .如果真结束<br /> <br />     .如果真结束<br />     ' 调试输出 (菜名 [a])<br /> .计次循环尾 ()<br /> 拖动 ＝ 真<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 获取文字图片 ()<br /> <br /> .子程序 获取文字图片<br /> .局部变量 web, 字节集<br /> .局部变量 zz, 正则表达式<br /> .局部变量 jg, 搜索结果, , "0"<br /> .局部变量 a, 整数型<br /> .局部变量 z, 整数型, , "2"<br /> <br /> web ＝ HTTP读文件 (“http://www.meishij.net/china-food/caixi/chuancai/”)<br /> ' *** 缩略程序块 ***'作废的东西<br /> ' 写到文件 (取特定目录 (3) ＋ “1222.txt”, web)<br /> ' web ＝ 取字节集左边 (web, 19585)<br /> z [1] ＝ 寻找文本 (到文本 (web), #分割头, , 假)<br /> z [2] ＝ 寻找文本 (到文本 (web), #分割尾, z [1], 假)<br /> ' *** 缩略程序块 ***‘作废的东西<br /> ' web ＝ 到字节集 (取文本中间 (到文本 (web), z [2], z [2] － (z [1] ＋ 取文本长度 (#分割头))))<br /> ' 调试输出 (取数组成员数 (jg), 取字节集长度 (web))<br /> ' 调试输出 (到文本 (web))<br /> ' web ＝ 到字节集 (#常量1)<br /> ' web ＝ 编码转换 (web, #编码_UTF_8, #编码_GBK, )<br /> ' 调试输出 (到文本 (web))<br /> zz.创建 (#正则, )<br /> jg ＝ zz.搜索全部 (到文本 (web))<br /> 置随机数种子 ()<br /> .计次循环首 (取数组成员数 (jg), a)<br />     加入成员 (元, 到文本 (取随机数 (10, 45)))<br />     加入成员 (菜名, 到文本 (编码转换 (到字节集 (jg [a].取子匹配文本 (到文本 (web), 2, )), #编码_UTF_8, #编码_GBK, )) ＋ “  ” ＋ 元 [a] ＋ “元”)<br />     加入成员 (图片, HTTP读文件 (jg [a].取子匹配文本 (到文本 (web), 3, )))<br />     调试输出 (菜名 [a])<br /> .计次循环尾 ()<br /> 绘制菜谱 (0, 0, 假)<br /> <br /> <br /> .子程序 _画板1_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> ' 拖动 ＝ 真<br /> 绘制菜谱 (横向位置, 纵向位置, 假)<br /> <br /> .子程序 _画板1_鼠标左键被放开, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> ' 拖动 ＝ 假<br /> ' 调试输出 (拖动)<br /> <br /> .子程序 _画板1_滚轮被滚动, 逻辑型<br /> .参数 滚动距离, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 ls, , 静态, , 高度<br /> <br /> <br /> .判断开始 (滚动距离 ＝ -1)  ' ↓滚<br />     ls ＝ ls ＋ 30<br />     .如果真 (ls ≥ 画板1.高度 － 256)<br />         ls ＝ 0<br />     .如果真结束<br /> <br /> .默认<br />     ls ＝ ls － 30<br />     .如果真 (ls ≤ 0)<br />         ls ＝ 画板1.高度 － 526<br />     .如果真结束<br /> <br /> .判断结束<br /> <br /> 画板1.顶边 ＝ －ls<br /> 调试输出 (滚动距离, ls)<br /> <br /> <br /> .子程序 _画板1_按下某键, 逻辑型<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 调试输出 (键代码)<br /> <br /> .如果真 (键代码 ＝ #上光标键)<br />     .如果真 (画板1.顶边 ≤ 0)<br />         画板1.顶边 ＝ 0<br />     .如果真结束<br /> <br /> .如果真结束<br /> .如果真 (键代码 ＝ #下光标键)<br />     画板1.顶边 ＝ 画板1.顶边 － 10<br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 _画板1_被双击, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 绘制菜谱 (横向位置, 纵向位置, 真)<br /> .版本 2<br /> <br /> .常量 正则, "“[url=(.*?)]”"<br /> .常量 分割头, "“”"<br /> .常量 分割尾, "“”"

9898989

感谢您的分享 感谢您的分享 感谢您的分享

weihua2018

好有没有用了哦，哈哈

11116677

你都搞不定，我也是有心无力了，没有用

GZfate

写这个东东我绝对用GDI 死也不用画板

风里刀

看菜的卖相   拍照技术不咋滴啊

huxian

你都搞不定，我也是有心无力了，没有用

铅笔刀

不错 很强势

Lonelysoul

前排支持下

aodi1997

可以 学习下6666666