Home > Available Help Files > PC-DMIS BASIC Language > Language Reference A – Z > Atn Function > Example - Atn Function
Current Help File: PC-DMIS Basic (View Core Help)
Example - Atn Function
Sub Main ()
Dim Msg, Pi ' Declare variables.
Pi = 4 * Atn(1) ' Calculate Pi.
Msg = "Pi is equal to " & Str(Pi)
MsgBox Msg ' Display results.
End Sub