 |
Basic |
Version: 14.6.03
About Hardcopy a productive Basic interpreter is available to you.
In the following a short overview of the statements and functions is listed.
Statements:
Dim
If ... Then ... Else ... EndIf
For ... To ... Step ... Next
Do ... Loop
While ... Wend
Goto
Sub
End
Print
Input
Dialog
Beep
Functions:
Sqr
Hypot
Abs
Sin
Cos
Tan
ATan
ASin
ACos
ATan2
DegToRad
RadToDeg
Exp
Log
Log10
Len
InStr
Left
Right
Mid
LTrim
RTrim
Trim
UCase
LCase
IsInteger
IsFloating
IsString
AsInteger
AsFloating
AsString
Special Hardcopy Devolopments:
Objects:
File
Find
NumberOfElements
Name
Path
HcDate
Size
Time
Limit
NumberOfFiles
CurrentDirectory
Special directorys
WithDirectories
IsDirectory
Recursive
SortOrder
SortOnlyFiles
OnlyDirectories
CopyTo
CreateDirectoryByCopyTo
Delete
TestOnly
Open (from V14.7.07)
Close (from V14.7.07)
Read (from V14.7.07)
Write (from V14.7.07)
Font
Align
BkColor
BkModeOpaque
Bold
Color
Ellipses
Italic
Name
Orientation
Size
StrikeOut
Underline
Image
Color
CopyToClipboard
GrayScale
Height
Line
Open
PasteFromClipboard
Position / Color
Position / Text
Rectangle / Color
Rectangle / Text
PseudoColor
RainbowColor
Resample
Save from V14.7.05
Sobel
Width
Settings
NumberImagesVertical
NumberImagesHorizontal
NextNumber
Functions:
CreateImage
GetImageCount
GetRValue / GetGValue / GetBValue
GetTime
HLStoRGB
Redraw
RGB
Sleep
Following example shows the use of the Basic interpreter because of a question of a user.
FAQ: 822: Is it possible to induce the program to stamp a text (Confidential, e.t.c.) diagonally over the page?
text = " Vertraulich / Top Secret "
Font.Bold = TRUE
Font.Color = _ColorPink
Font.Name = "Courier New"
Font.Size = Image(0).Width / Len( text ) * 2
Font.Orientation = RadToDeg( ATan( Image(0).Height / Image(0).Width ))
Image(0).DrawText( 0, Image(0).Height-Font.Size, 0,0, text )
The result:
Last update: 10/23/2016 11:28:48