The VisualBasic command translates Maple code to Visual Basic code.

- If the parameter x is an algebraic expression, then a Visual Basic statement assigning the expression to a variable is generated.

- If x is a list, Maple Array or rtable of algebraic expressions, then a sequence of Visual Basic statements assigning the elements to a Visual Basic array is produced. Only the initialized elements of the rtable or Maple Array are translated.

- If x is a list of equations $\mathrm{nm}=\mathrm{expr}$ where $\mathrm{nm}$ is a name and $\mathrm{expr}$ is an algebraic expression, this is understood to mean a sequence of assignment statements.  In this case, the equivalent sequence of Visual Basic assignment statements is generated.

- If x is a procedure, then a Visual Basic module is generated containing a function equivalent to the procedure, along with any necessary import statements.

- If x is a module, then a Visual Basic module is generated, as described on the VisualBasicDetails help page.

The parameter cgopts may include one or more CodeGeneration options, as described in CodeGenerationOptions.

For more information about how the CodeGeneration package translates Maple code to other languages, see Translation Details. For more information about translation to VisualBasic in particular, see VisualBasicDetails.

$\mathrm{with}\left(\mathrm{CodeGeneration}\right)\:$

$\mathrm{VisualBasic}\left(x+yz-2xz\,\mathrm{resultname}=''w''\right)$

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

$\mathrm{VisualBasic}\left(\left[\left[x\,2y\right]\,\left[5\,z\right]\right]\,\mathrm{resultname}=''w''\right)$

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

$\mathrm{cs}≔\left[s=1.0+x\,t=\ln \left(s\right)\exp \left(-x\right)\,r=\exp \left(-x\right)+xt\right]\:$

$\mathrm{VisualBasic}\left(\mathrm{cs}\,\mathrm{optimize}\right)$

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

$s≔\mathrm{VisualBasic}\left(x+y+1\,\mathrm{declare}=\left[x::\mathrm{float}\,y::\mathrm{integer}\right]\,\mathrm{output}=\mathrm{string}\right)$

$s≔''cg\; =\; x\; +\; CDbl(y)\; +\; 0.1E1''$

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

$\mathrm{VisualBasic}\left(f\,\mathrm{defaulttype}=\mathrm{integer}\right)$

Public Module CodeGenerationModule
  Public Function f( _
    ByVal x As Integer, _
    ByVal y As Integer, _
    ByVal z As Integer) As Integer
    Return y * x - 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:

$\mathrm{VisualBasic}\left(f\right)$

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:

$\mathrm{VisualBasic}\left(f\right)$

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:

$\mathrm{VisualBasic}\left(m\,\mathrm{resultname}=\mathrm{t0}\right)$

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

$\mathrm{VisualBasic}\left(2\cosh \left(x\right)-7\tanh \left(x\right)\right)$

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:

$\mathrm{VisualBasic}\left(f\right)$

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