Module/文字列の計算モジュール

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14

// http://1106.suac.net/johoB/JavaScript/jscripte.html#eval
#module
#deffunc __cinit__
    newcom ie, "MSScriptControl.ScriptControl"
    ie("Language") = "JScript"
    return
 
#defcfunc calc str p1
    comres result
    _str = p1
    ie->"Eval" _str
    return result
#global
    __cinit__

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16

#ifndef __cinit__
#include "calc.hsp"
#endif
 
mes calc("5/2")
mes calc("a=10")
if ( calc("a*2==20") != 0 ) { mes "等しい" }
 
redraw 0
x = 0.0
repeat 640
    x += 0.01
    y = 240.0 * calc("Math.sin(" + x + ")")
    pset x * 100, 240 - y
loop
redraw