Mnemonics "O"
From CometWiki
(Difference between revisions)
(New page: There are no Mnemonics starting with "O".) |
|||
| Line 1: | Line 1: | ||
| - | + | == (Open Clipboard) == | |
| + | <pre> | ||
| + | |||
| + | Mnemonic: (OpenClipboard) | ||
| + | Discussion: This mnemonic was added (along with CloseClipboard) to solve the | ||
| + | problem where the clipboard may be unavailable because it is in | ||
| + | use by another program (the clipboard can be opened by only one | ||
| + | program at a time). If the clipboard was already in use the other | ||
| + | clipboard functions would fail. Using this mnemonic you can ensure | ||
| + | that the clipboard is available and remains open while you complete | ||
| + | your desired operation. | ||
| + | |||
| + | Example 1: LENGTH 254 & LOCAL RESULT$ ! Define a variable | ||
| + | Length 10.0 & Local ClipErr | ||
| + | . | ||
| + | . | ||
| + | . | ||
| + | Open (1) "X00" ! Open system driver | ||
| + | |||
| + | TryClipboardOpen: | ||
| + | Print (1) (OpenClipboard) ! Copy data from clipboard | ||
| + | Input (1) Result$ ! to this variable | ||
| + | |||
| + | ClipErr = IHexDec(Result$) | ||
| + | If (ClipErr EQ 5) Goto TryClipboardOpen ! This error indicates that the clipboard is in use | ||
| + | If (ClipErr NE 0) Goto ErrExit | ||
| + | . | ||
| + | . Do other clipboard operations | ||
| + | . | ||
| + | Print (1) (CloseClipboard) ! We're done - close the clipboard | ||
| + | Close (1) ! Close system driver | ||
| + | Goto Exit | ||
| + | |||
| + | ErrExit: | ||
| + | Print "Error opening clipboard: ";ClipErr | ||
| + | |||
| + | Exit: | ||
| + | Stop | ||
| + | </pre> | ||
Revision as of 20:00, 14 November 2010
(Open Clipboard)
Mnemonic: (OpenClipboard)
Discussion: This mnemonic was added (along with CloseClipboard) to solve the
problem where the clipboard may be unavailable because it is in
use by another program (the clipboard can be opened by only one
program at a time). If the clipboard was already in use the other
clipboard functions would fail. Using this mnemonic you can ensure
that the clipboard is available and remains open while you complete
your desired operation.
Example 1: LENGTH 254 & LOCAL RESULT$ ! Define a variable
Length 10.0 & Local ClipErr
.
.
.
Open (1) "X00" ! Open system driver
TryClipboardOpen:
Print (1) (OpenClipboard) ! Copy data from clipboard
Input (1) Result$ ! to this variable
ClipErr = IHexDec(Result$)
If (ClipErr EQ 5) Goto TryClipboardOpen ! This error indicates that the clipboard is in use
If (ClipErr NE 0) Goto ErrExit
.
. Do other clipboard operations
.
Print (1) (CloseClipboard) ! We're done - close the clipboard
Close (1) ! Close system driver
Goto Exit
ErrExit:
Print "Error opening clipboard: ";ClipErr
Exit:
Stop
