[Add-in]Malical Language 2.0c！！

diameter · 发表于 2011-6-18 18:38:08

本帖最后由 diameter 于 2011-6-26 18:07 编辑

11楼有更新
字符串运算支持
丰富的图形函数支持
语法等详细说明见此贴
http://www.cncalc.org/thread-6170-1-1.html
注！强制引用操作符“$”已经作废
附带一个demo，PGRM绝对写不出来的效果
一会上图，附带图形函数的使用方法

diameter · 发表于 2011-6-18 18:40:49

本帖最后由 diameter 于 2011-6-18 18:42 编辑

演示效果

贴上代码

::main
show_title
show_menu
::end
::show_title
box [0][0][127][63][true]
line [0][0][127][63]
line [127][0][0][63]
var [title]
title = "Malical Demo"
box [23][8][len[title]*8+2][10+8+1][true]
printxy[25][10][title][true]
locate[4][6]
print ["Press Any Key..."]
getkey
::end
::show_menu
# 30018 = UP
# 30023 = DOWN
# 30002 = EXIT
# 30004 = EXE
var [index][key][refresh]
var [left]
left = 36
index = 0
refresh = true
box [10][10][117][54][true]
while true
if refresh
refresh = false
printxy[left][12]["Command 1"][index==0]
printxy[left][20]["Command 2"][index==1]
printxy[left][28]["Command 3"][index==2]
printxy[left][36]["Command 4"][index==3]
printxy[left][44]["Command 5"][index==4]
end
key = getkey
# locate[1][1]
# print [key]
if key==30018
index = index - 1
if index<0
index = 4
end
refresh = true
end
if key==30023
index = index + 1
if index>4
index = 0
end
refresh = true
end
if key==30004
allclr
locate[1][1]
print ["Command Index :"]
locate[1][2]
print [index+1]
return nil
end
if key==30002
allclr
locate[1][1]
print ["Exit"]
return nil
end
end
::end

复制代码

diameter · 发表于 2011-6-18 18:49:55

IO 函数
locate [x][y] 将字符串输出的位置设定在文字坐标（x,y）处（与pgrm中的Locate定义域相同）
print [object] 在locate定义的坐标输出一个对象，若对象不是字符串将被转为字符串
gets （无参数）在locate定义的坐标输入字符串（不多于21个字符）
getkey （无参数）等待用户按下一个键并返回键代码
printxy [x][y][object][rev] 在屏幕坐标（x,y）处输出一个对象，rev是一个布尔值，当其为true的时候将反色绘制字符串

diameter · 发表于 2011-6-18 18:52:37

图形函数
line [x1][y1][x2][y2]绘制一条直线
box [left][top][right][bottom][sel]清除一块区域，sel是一个布尔值，当其为true的时候将用直线绘制出区域的边框
allclr （无参数）清除屏幕

diameter · 发表于 2011-6-18 19:24:34

没人？？！？！？！

l5h5t7 · 发表于 2011-6-18 21:26:27

8错8错，终于有不费电的Getkey了。

diameter · 发表于 2011-6-25 17:47:22

本帖最后由 diameter 于 2011-6-25 17:48 编辑

怎么？？没人顶吗？？？
如果是技术方面的问题大家可以提出来我再改进啊

l5h5t7 · 发表于 2011-6-25 18:47:47

7# diameter

计算器以计算为主，这语言好是好，计算功能还是太鸡肋。

diameter · 发表于 2011-6-25 19:34:52

7# diameter

计算器以计算为主，这语言好是好，计算功能还是太鸡肋。
l5h5t7 发表于 2011-6-25 18:47

字符串运算函数eval[]没有放出……改天把Malical写的3D Function power发出来

l5h5t7 · 发表于 2011-6-25 19:38:02

9# diameter

我的建议是：先放出后修正。

diameter · 发表于 2011-6-26 18:05:57

本帖最后由 diameter 于 2011-6-26 18:09 编辑

小小修正
添加popupwin[n]、putdisp、eval[str]
附带例子——3D function power的Malical版
（注：函数调用的括号使用方括号"["、"]"，3DFP可以使用方向键转换视角）

NAT · 发表于 2011-12-2 23:04:49

好啊，怎么没人顶呢？

账号		自动登录	找回密码
密码			注册

[fx-9860/9750系列] [Add-in]Malical Language 2.0c！！

评分

相关帖子