- 令 sss = sss6
- 否则如果 n = 7 则
- 令 sss = sss7
- 否则如果 n = 8 则
- 令 sss = sss8
- 否则如果 n = 9 则
- 令 sss = sss9
- 否则如果 n = 10 则
- 令 sss = sss10
- 否则如果 n = 11 则
- 令 sss = sss11
- 否则如果 n = 12 则
- 令 sss = sss12
- 条件结束
- (语句无法识别,可能有错误): jiag=wupin(geshu,sss) //获取物品价钱
- 注释:Call xiejiage(geshu,jiag,sss)
- 注释:BeginThread 输出信息
- 跳出循环
- 条件结束
- 令 n = n + 1
- 循环结束
- (语句无法识别,可能有错误): qian=qian+jiag //计算总价格
- (语句无法识别,可能有错误): jiag=0 //价格清零
- (语句无法识别,可能有错误): ux=ux+30 //x坐标加30,扫描下一个框内物品
- (语句无法识别,可能有错误): geshu=geshu+1 //个数循环
- 令 n = 0
- 循环结束
- (语句无法识别,可能有错误): jiage=qian //参数传递
- 函数结束
- (语句无法识别,可能有错误): Function wupin(GS,JQ) //计算物品总价格 LX 查找类型
- 注释:代码太他妈有才了
- 注释:此代码论坛中有,个人觉得很好。
- 定义变量 a(100)
- 定义变量 b(100)
- 定义变量 q(100)
- 令 number0 = "Attachment:\0.bmp"
- 令 number1 = "Attachment:\1.bmp"
- 令 number2 = "Attachment:\2.bmp"
- 令 number3 = "Attachment:\3.bmp"
- 令 number4 = "Attachment:\4.bmp"
- 令 number5 = "Attachment:\5.bmp"
- 令 number6 = "Attachment:\6.bmp"
- 令 number7 = "Attachment:\7.bmp"
- 令 number8 = "Attachment:\8.bmp"
- 令 number9 = "Attachment:\9.bmp"
- 令 cishu = 1
- (语句无法识别,可能有错误): leftx=72+(GS-1)*30 //132
- (语句无法识别,可能有错误): upy=174 //155
- (语句无法识别,可能有错误): rightx=99+(GS-1)*30 //162
- (语句无法识别,可能有错误): downy=185 //235
- 令 Similar = 1
- 令 lx = leftx
- 定义变量 n, m, p, i, j
- 令 n = 0
- 令 m = 1
- 令 p = 1
- 循环当 n <> m 时
- 令 m = n
- 从左上到右下查找图片 number0,把找到的坐标保存到 (fx, fy),指定区域(左:leftx 上:upy 右:rightx 下:downy),相似度 Similar
- 如果 fx >= 0 并且 fy >= 0 则
- 令 n = n + 1
- 令 leftx = fx + 1
- 令 a(n) = fx
- 令 b(n) = 0
- 条件结束
- 循环结束
- 令 leftx = lx
- 令 m = m - 1
- 循环当 n <> m 时
- 令 m = n
- 从左上到右下查找图片 number1,把找到的坐标保存到 (fx, fy),指定区域(左:leftx 上:upy 右:rightx 下:downy),相似度 Similar
- 如果 fx >= 0 并且 fy >= 0 则
- 令 n = n + 1
- 令 leftx = fx + 1
- 令 a(n) = fx
- 令 b(n) = 1
- 条件结束
- 循环结束
- 令 leftx = lx
- 令 m = m - 1
- 循环当 n <> m 时
- 令 m = n
- 从左上到右下查找图片 number2,把找到的坐标保存到 (fx, fy),指定区域(左:leftx 上:upy 右:rightx 下:downy),相似度 Similar
- 如果 fx >= 0 并且 fy >= 0 则
- 令 n = n + 1
- 令 leftx = fx + 1
- 令 a(n) = fx
- 令 b(n) = 2
- 条件结束
- 循环结束
- 令 leftx = lx
- 令 m = m - 1
- 循环当 n <> m 时
- 令 m = n
- 从左上到右下查找图片 number3,把找到的坐标保存到 (fx, fy),指定区域(左:leftx 上:upy 右:rightx 下:downy),相似度 Similar
- 如果 fx >= 0 并且 fy >= 0 则
- 令 n = n + 1
- 令 leftx = fx + 1
- 令 a(n) = fx
- 令 b(n) = 3