|
© MCS Electronics, 1995-2007 |
$swstack = 10 |
' default use 10 |
for the SW stack |
' default use 40 |
$framesize = 40 |
|
for the frame space |
|
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Dim A As Byte , S As String * 10 s ="ABC"
A = Asc(s)
Print A 'will print 65
End
ASIN
Action
Returns the arcsine of a single in radians.
Syntax
var = ASIN( x )
Remarks
Var |
A float variable such as single or double that is assigned with the |
|
ASIN of variable x. |
XThe float to get the ASIN of. Input is valid from –1 to +1 and returns -p/2 to +p/2.
If Input is < -1 than -p/2 and input is > 1 than p/2 will returned.
If Input is cause of rounding effect in single-operations a little bit over 1 or -1, the value for 1.0 (-1.0) will be returned. This is the reason to give the value of the limit-point back, if Input is beyond limit. Generally the user have to take care, that Input to this function lies within –1 to +1.
All trig functions work with radians. Use deg2rad and rad2deg to convert between radians and angles.
See Also
RAD2DEG , DEG2RAD , COS , SIN , TAN , ATN , ACOS , ATN2
Example
$regfile = "m48def.dat" |
' specify the used |
micro |
' used crystal |
$crystal = 8000000 |
|
frequency |
' use baud rate |
$baud = 19200 |
|
$hwstack = 32 |
' default use 32 |
for the hardware stack |
' default use 10 |
$swstack = 10 |
|
|
page -275- |
© MCS Electronics, 1995-2007
for the SW stack
$framesize = 40 ' default use 40 for the frame space
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Dim S As Single , X As Single
X = 0.5 : S = Asin(x)
Print S '0.523595867
End
ATN
Action
Returns the Arctangent of a single in radians.
Syntax
var = ATN( single )
Remarks
Var |
A float variable that is assigned with the arctangent of variable |
|
single. |
Single |
The float variable to get the arctangent of. |
|
|
All trig functions work with radians. Use deg2rad and rad2deg to convert between radians and angles.
See Also
RAD2DEG , DEG2RAD , COS , SIN , TAN , ATN2
Example
$regfile = "m48def.dat" |
' specify the used |
micro |
' used crystal |
$crystal = 8000000 |
|
frequency |
' use baud rate |
$baud = 19200 |
|
$hwstack = 32 |
' default use 32 |
for the hardware stack |
' default use 10 |
$swstack = 10 |
|
for the SW stack |
' default use 40 |
$framesize = 40 |
|
for the frame space |
|
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Dim S As Single , X As Single
S = Atn(1) * 4
Print S ' prints 3.141593 PI
page -276-
© MCS Electronics, 1995-2007
End
ATN2
Action
ATN2 is a four-quadrant arc-tangent.
While the ATN-function returns from -p/2 (-90°) to p/2 (90°), the ATN2 function returns the whole range of a circle from -p (-180°) to +p (180°). The result depends on the ratio of Y/X and the signs of X and Y.
Syntax
var = ATN2( y, x )
Remarks
Var |
A single variable that is assigned with the ATN2 of variable single. |
|
X
The single variable with the distance in x-direction.
Y
The single variable with the distance in y-direction
Quadrant |
Sign Y |
Sign X |
ATN2 |
I |
+ |
+ |
0 to p/2 |
II |
+ |
- |
p/2 to p |
III |
- |
- |
-p/2 to -p |
IV |
- |
+ |
0 to –p/2 |
|
|
|
|
If you go with the ratio Y/X into ATN you will get same result for X greater zero (right side in coordinate system) as with ATN2. ATN2 uses X and Y and can give information of the angle of the point over 360° in the coordinates system.
All trig functions work with radians. Use deg2rad and rad2deg to convert between radians and angles.
See Also
RAD2DEG , DEG2RAD , COS , SIN , TAN , ATN
page -277-
|
© MCS Electronics, 1995-2007 |
Example |
' specify the used |
$regfile = "m48def.dat" |
|
micro |
' used crystal |
$crystal = 8000000 |
|
frequency |
' use baud rate |
$baud = 19200 |
|
$hwstack = 32 |
' default use 32 |
for the hardware stack |
' default use 10 |
$swstack = 10 |
|
for the SW stack |
' default use 40 |
$framesize = 40 |
|
for the frame space |
|
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Dim S As Single , X As Single
X = 0.5 : S = 1.1
S = Atn2(s , X)
Print S ' prints 1.144164676
End
BASE64DEC
Action
Converts Base-64 data into the original data.
Syntax
Result = BASE64DEC( source)
Remarks
Result |
A string variable that is assigned with the un-coded string. |
Source |
The source string that is coded with base-64. |
|
|
Base-64 is not an encryption protocol. It sends data in 7-bit ASCII data format. MIME, web servers, and other Internet servers and clients use Base-64 coding.
The provided Base64Dec() function is a decoding function. It was written to add authentication to the web server sample.
When the web server asks for authentication, the client will send the user and password unencrypted, but base-64 coded to the web server.
Base-64 coded strings are always in pairs of 4 bytes. These 4 bytes represent 3 bytes.
See also
CONFIG TCPIP, GETSOCKET , SOCKETCONNECT, SOCKETSTAT , TCPWRITE, TCPWRITESTR, CLOSESOCKET , SOCKETLISTEN , BASE64ENC
Example
$regfile = "m48def.dat" |
' specify the used |
micro |
|
page -278-