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

[Add-in]Malical Language 2.0c！！

本帖最后由 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
    line
    line
    var
    title = "Malical Demo"
    box *8+2]
    printxy
    locate
    print ["Press Any Key..."]
    getkey
::end
::show_menu
    # 30018 = UP
    # 30023 = DOWN
    # 30002 = EXIT
    # 30004 = EXE
    var
    var
    left = 36
    index = 0
    refresh = true
    box
    while true
      if refresh
            refresh = false
            printxy["Command 1"]
            printxy["Command 2"]
            printxy["Command 3"]
            printxy["Command 4"]
            printxy["Command 5"]
      end
      key = getkey
      # locate
      # print
      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
            print ["Command Index :"]
            locate
            print
            return nil
      end
      if key==30002
            allclr
            locate
            print ["Exit"]
            return nil   
      end
    end
::end

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

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

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

图形函数
line 绘制一条直线
box 清除一块区域，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 http://www.cncalc.org/images/common/back.gif
字符串运算函数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、putdisp、eval
附带例子——3D function power的Malical版
（注：函数调用的括号使用方括号"["、"]"，3DFP可以使用方向键转换视角）

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

好啊，怎么没人顶呢？
页: [1]
查看完整版本: [Add-in]Malical Language 2.0c！！