Home > Available Help Files > PC-DMIS BASIC Language > Language Reference A – Z > Tan Function > Example - Tan Function
Current Help File: PC-DMIS Basic (View Core Help)
Example - Tan Function
' This sample program show the use of the Tan function
Sub Main ()
Dim Msg, Pi ' Declare variables.
Pi = 4 * Atn(1) ' Calculate Pi.
Msg = "Pi is equal to " & Pi
MsgBox Msg ' Display results.
x = Tan(Pi/4)
MsgBox x & " is the tangent of Pi/4"
End Sub