|
坐标1 = 驱动读内存 (进程ID, 到十进制 (“坐标1内存”)) ' 坐标1
坐标2 = 驱动读内存 (进程ID, 到十进制 (“坐标2内存”)) ' 坐标2
进位1 = 到数值 (“60”)
编辑框1.内容 = 到文本 (坐标1)
编辑框2.内容 = 到文本 (坐标2)
.如果 (坐标1 > 到数值 (“255”))
.如果 (坐标1 > 到数值 (“511”))
.如果 (坐标1 > 到数值 (“767”))
进位1 = 进位1 + 到数值 (“12”) ' 大于511小于等于767的坐标
地址1 = 坐标1 - 到数值 (“768”) ' 1
地址3 = 地址1 ÷ 到数值 (“4”) ' 0
封包1 = 地址3 + 到数值 (“60”) ' 60 3c
地址4 = 地址3 × 到数值 (“4”) ' 0
地址6 = 地址1 - 地址4
.如果真 (地址6 = 到数值 (“0”))
封包2 = 到数值 (“60”) ' 3c
.如果真结束
.如果真 (地址6 = 到数值 (“1”))
封包2 = 到数值 (“76”) ' 4c
.如果真结束
.如果真 (地址6 = 到数值 (“2”))
封包2 = 到数值 (“92”) ' 5c
.如果真结束
.如果真 (地址6 = 到数值 (“3”))
封包2 = 到数值 (“108”) ' 6c '取地址2 和地址5
.如果真结束
' 大于767的坐标
.否则
进位1 = 进位1 + 到数值 (“8”) ' 大于511小于等于767的坐标
地址1 = 坐标1 - 到数值 (“512”) ' 1
地址3 = 地址1 ÷ 到数值 (“4”) ' 0
封包1 = 地址3 + 到数值 (“60”) ' 60 3c
地址4 = 地址3 × 到数值 (“4”) ' 0
地址6 = 地址1 - 地址4
.如果真 (地址6 = 到数值 (“0”))
封包2 = 到数值 (“60”) ' 3c
.如果真结束
.如果真 (地址6 = 到数值 (“1”))
封包2 = 到数值 (“76”) ' 4c
.如果真结束
.如果真 (地址6 = 到数值 (“2”))
封包2 = 到数值 (“92”) ' 5c
.如果真结束
.如果真 (地址6 = 到数值 (“3”))
封包2 = 到数值 (“108”) ' 6c '取地址2 和地址5
.如果真结束
.如果结束
.否则
进位1 = 进位1 + 到数值 (“4”) ' 大于255小于等于511的坐标
地址1 = 坐标1 - 到数值 (“256”) ' 45
地址3 = 地址1 ÷ 到数值 (“4”) ' 11
封包1 = 地址3 + 到数值 (“60”) ' 71
地址4 = 地址3 × 到数值 (“4”) ' 44
地址6 = 地址1 - 地址4
.如果真 (地址6 = 到数值 (“0”))
封包2 = 到数值 (“60”) ' 3c
.如果真结束
.如果真 (地址6 = 到数值 (“1”))
封包2 = 到数值 (“76”) ' 4c
.如果真结束
.如果真 (地址6 = 到数值 (“2”))
封包2 = 到数值 (“92”) ' 5c
.如果真结束
.如果真 (地址6 = 到数值 (“3”))
封包2 = 到数值 (“108”) ' 6c '取地址2 和地址5
.如果真结束
.如果结束
.否则
地址1 = 坐标1 ÷ 到数值 (“4”) ' 63 小于等于255
封包1 = 地址1 + 到数值 (“60”) ' 123 '7B
地址3 = 地址1 × 到数值 (“4”) ' 252
地址4 = 坐标1 - 地址3 ' 2
.如果真 (地址4 = 到数值 (“0”))
封包2 = 到数值 (“60”) ' 3c
.如果真结束
.如果真 (地址4 = 到数值 (“1”))
封包2 = 到数值 (“76”) ' 4c
.如果真结束
.如果真 (地址4 = 到数值 (“2”))
封包2 = 到数值 (“92”) ' 5c
.如果真结束
.如果真 (地址4 = 到数值 (“3”))
封包2 = 到数值 (“108”) ' 6c '取地址2 和地址5
.如果真结束
.如果结束
.如果 (坐标2 > 到数值 (“63”))
.如果 (坐标2 > 到数值 (“127”))
.如果 (坐标2 > 到数值 (“191”))
.如果 (坐标2 > 到数值 (“255”))
.如果 (坐标2 > 到数值 (“319”))
.如果 (坐标2 > 到数值 (“383”))
.如果 (坐标2 > 到数值 (“447”))
.如果 (坐标2 > 到数值 (“511”))
.如果 (坐标2 > 到数值 (“575”))
.如果 (坐标2 > 到数值 (“639”))
.如果 (坐标2 > 到数值 (“703”))
进位1 = 进位1 + 到数值 (“3”) ' 大于639小于703
封包3 = 坐标2 - 到数值 (“644”) ' 大于703小于767
返回 ()
.否则
进位1 = 进位1 + 到数值 (“2”) ' 大于639小于703
封包3 = 坐标2 - 到数值 (“580”) ' 大于639小于703
.如果结束
返回 ()
.否则
进位1 = 进位1 + 到数值 (“1”) ' 大于575小于639
封包3 = 坐标2 - 到数值 (“516”) ' 大于575小于639
.如果结束
返回 ()
.否则
封包3 = 坐标2 - 到数值 (“452”) ' 大于511小于575
.如果结束
返回 ()
.否则
进位1 = 进位1 + 到数值 (“3”)
封包3 = 坐标2 - 到数值 (“388”) ' 大于447等于511
.如果结束
返回 ()
.否则
进位1 = 进位1 + 到数值 (“2”)
封包3 = 坐标2 - 到数值 (“324”) ' 大于383小于447
.如果结束
返回 ()
.否则
进位1 = 进位1 + 到数值 (“1”)
封包3 = 坐标2 - 到数值 (“260”) ' 大于319小于383
.如果结束
返回 ()
.否则
封包3 = 坐标2 - 到数值 (“196”) ' 大于255小于319
.如果结束
返回 ()
.否则
进位1 = 进位1 + 到数值 (“3”) ' 大于191小于255
封包3 = 坐标2 - 到数值 (“132”)
.如果结束
返回 ()
.否则
进位1 = 进位1 + 到数值 (“2”) ' 大于127小于191
封包3 = 坐标2 - 到数值 (“68”)
.如果结束
返回 ()
.否则
进位1 = 进位1 + 到数值 (“1”) ' 大于64小于127
封包3 = 坐标2 - 到数值 (“4”)
.如果结束
返回 ()
.否则
封包3 = 坐标2 + 到数值 (“60”) ' 小于64 ’7b
是这个吗? |
|