VisualBasic 関数は、Maple のコードを Visual Basic コードに変換します。  

- パラメータ x が代数式の場合、その数式に1つの変数を割り当てる形で1つの Visual Basic の命令文が生成されます。

- パラメータ x が代数式のリスト、rtable または Maple の配列の場合、それら要素をVisual Basic 配列に割り当てる形で、 Visual Basic の命令文の列が作成されます。rtable または Maple の配列では、初期化された要素だけが変換されます。

- パラメータ x が nm=expr の形のリスト(ここで nm 名前、expr は代数式を表す)である場合、x は割り当てられた命令文の列を意味するものとして解釈されます。 この場合、等価な意味を持つ  Visual Basic の割り当て命令文の列が生成されます。

- パラメータ x が Maple の手続きである場合、 その手続きと等価な関数を含む Visual Basic モジュールが必要な import 文とともに生成されます。

- パラメータ x がモジュールである場合、 VisualBasicDetails に述べるように、Visual Basic モジュールが生成されます。

パラメータ cgopts は、1つまたはそれ以上の CodeGeneration のオプションを含みます。オプションについては、CodeGenerationOptions に記述されています。

CodeGeneration パッケージが Maple のコードを他の言語にどのように変換するかに関する詳細な情報は、CodeGenerationDetails を参照して下さい。 特に VisualBasic への変換に関する詳細な情報を得たい場合には、 VisualBasicDetails を参照して下さい。

with(CodeGeneration):

Warning, the protected name Matlab has been redefined and
unprotected

VisualBasic(x+y*z-2*x*z, resultname="w");

w = x + y * z - 2 * x * z

VisualBasic([[x, 2*y], [5, z]], resultname="w");

w(0,0) = x
w(0,1) = 2 * y
w(1,0) = 5
w(1,1) = z

cs := [s=1.0+x, t=ln(s)*exp(-x), r=exp(-x)+x*t]:
VisualBasic(cs, optimize);

s = 0.10E1 + x
t1 = Log(s)
t2 = Exp(-x)
t = t1 * t2
r = t2 + x * t

s := VisualBasic(x+y+1, declare=[x::float, y::integer], output=string);

f := proc(x, y, z) return x*y-y*z+x*z; end proc:
VisualBasic(f, defaulttype=integer);

Public Module CodeGenerationModule
  Public Function f( _
    ByVal x As Integer, _
    ByVal y As Integer, _
    ByVal z As Integer) As Integer
    Return x * y - y * z + x * z
  End Function
End Module

f := proc(n)
  local x, i;
  x := 0.0;
  for i to n do
    x := x + i;
  end do;
end proc:
VisualBasic(f);

Public Module CodeGenerationModule
  Public Function f(ByVal n As Integer) As Double
    Dim x As Double
    Dim i As Integer
    Dim cgret As Double
    x = 0.0E0
    For i = 1 To n
      x = x + CDbl(i)
      cgret = x
    Next
    Return cgret
  End Function
End Module

f := proc(x::Array(numeric, 5..7))
  return x[5]+x[6]+x[7];
end proc:
VisualBasic(f);

Public Module CodeGenerationModule
  Public Function f(ByVal x() As Double) As Double
    Return x(0) + x(1) + x(2)
  End Function
End Module

m := module() export p; local q;
    p := proc(x,y) if y>0 then trunc(x); else ceil(x); end if; end proc:
    q := proc(x) sin(x)^2; end proc:
end module:
VisualBasic(m, resultname=t0);

Imports System.Math
Public Module m
  Public Function p(ByVal x As Double, ByVal y As Integer) As Integer
    If (0 < y) Then
      Return Fix(x)
    Else
      Return Ceiling(x)
    End If
  End Function
  Private Function q(ByVal x As Double) As Double
    Return Pow(Sin(x), 0.2E1)
  End Function
End Module

VisualBasic(2*cosh(x)-7*tanh(x));

cg0 = 0.2E1 * Cosh(x) - 0.7E1 * Tanh(x)

f := proc(a::integer, p::integer)
  printf("The integer remainder of %d divided by %d is: %d\n", a, p, irem(a, p));
end proc:
VisualBasic(f);

Public Module CodeGenerationModule
  Public Sub f(ByVal a As Integer, ByVal p As Integer)
    System.Console.WriteLine("The integer remainder of " & a & " divided by " & p & " is: " & a Mod p)
  End Sub
End Module