mpl_functions
Differences
This shows you the differences between two versions of the page.
Both sides previous revisionPrevious revisionNext revision | Previous revision | ||
mpl_functions [2016/07/18 08:08] – [Function DATEJ2G (LI : LongInt) : String] gryphon | mpl_functions [2016/07/18 08:38] (current) – [Function DATEJ2G (LI : LongInt) : String] gryphon | ||
---|---|---|---|
Line 65: | Line 65: | ||
This function takes a julian date format and converts it to a gregorian format (MMDDYY). | This function takes a julian date format and converts it to a gregorian format (MMDDYY). | ||
+ | ==== Procedure GOTOXY (X: Byte, Y:Byte) ==== | ||
+ | |||
+ | This procedure will move the cursor to a specified X and Y position on the screen. | ||
+ | |||
+ | Example: | ||
+ | < | ||
+ | CLRSCR | ||
+ | GotoXY (1, 10) | ||
+ | WriteLn (' | ||
+ | </ | ||
+ | The above example will clear the screen then goto the first column of the tenth line and output the text " | ||
+ | |||
+ | |||
+ | ==== Procedure HALT ==== | ||
+ | |||
+ | This procedure will exit the program and return the user back to the BBS immediately. | ||
+ | |||
+ | Example: | ||
+ | < | ||
+ | If Graphics = 0 Do | ||
+ | Begin | ||
+ | WriteLn (' | ||
+ | Halt | ||
+ | End | ||
+ | </ | ||
+ | The above example will check to see if the user has ANSI graphics and if not, display " | ||
+ | |||
+ | ==== Function INITIALS (String) : String ==== | ||
+ | |||
+ | This function takes a user name and attempts to return one or two character initials. | ||
+ | < | ||
+ | S := Initials(' | ||
+ | </ | ||
==== Function INPUT (Field: Byte, Max: Byte, Mode: Byte, Default: string) : String ==== | ==== Function INPUT (Field: Byte, Max: Byte, Mode: Byte, Default: string) : String ==== | ||
Line 75: | Line 108: | ||
The Mode parameter is the type of input that will be accepted, and can be any one of the following input types: | The Mode parameter is the type of input that will be accepted, and can be any one of the following input types: | ||
- | < | + | ^Mode^Description^Coments^ |
- | 1 : Standard input. | + | |1|Standard input.|All characters allowed.| |
- | 2 : Upper case input. | + | |2|Upper case input.|Allows all characters, but will convert any lower case letters into upper case.| |
- | | + | |3|Proper input.|Allows all characters, but will convert the first letter in each word to an upper case letter.| |
- | 3 : Proper input. | + | |4|Phone input.|Allows only numbers and will pre-format them using the USA-style phone numbers. |
- | | + | |5|Date input.|Allows only numbers and will pre-format them using the date format (ie XX/XX/XX) that is currently selected by the user. NOTE: The date input will always return the date in the MM/DD/YY format, regardless of what format the user has selected. |
- | 4 : Phone input. | + | |6|Password input.|Allows all characters, but will convert any lower case letters into upper case. The character that is typed is NOT echoed to the screen. |
- | | + | |7|Lower case input.|Allows all characters, but will convert any lower case letters into upper case.| |
- | | + | |8|User Defined.|User name format from sys config| |
- | | + | |9|Standard Input w/o CRLF|Will not append CRLF to input| |
- | 5 : Date input. | + | |10|Numeric Input.|Will only accept number 0-9 and . , + -| |
- | | + | |
- | | + | |
- | | + | |
- | | + | |
- | | + | |
- | | + | |
- | | + | |
- | | + | |
- | 6 : Password input. | + | |
- | | + | |
- | | + | |
- | | + | |
- | | + | |
- | </code> | + | |
NOTE: If any of the above input values are increased by 10, Input will create an input field using the foreground/ | NOTE: If any of the above input values are increased by 10, Input will create an input field using the foreground/ | ||
- | The Default parameter can be used to force a default text into the input field. | + | The Default parameter can be used to force a default text into the input field. |
Example: | Example: | ||
< | < | ||
- | Var Str : String | + | Var Str : String |
- | Write (' | + | Write (' |
- | Str := Input (30, 30, 1, '' | + | Str := Input (30, 30, 1, '' |
</ | </ | ||
+ | The above example will print the text "Enter something: " to the screen and the allow input of up to 30 characters | ||
+ | < | ||
+ | Var Str : String | ||
+ | |||
+ | Write (' | ||
+ | Str := Input (30, 30, 11, ' | ||
+ | </ | ||
+ | The above example will function just like the first example, except it will create an input field background and stuff the text of " | ||
+ |
mpl_functions.1468847329.txt.gz · Last modified: 2016/07/18 08:08 by gryphon