The following code is used to create a matrix. The existence of the matrix is checked by MatExist before creating the matrix. The name of the matrix is entered by the user in an edit control (EDT_MatrixName).
// Declare the variables
ResExist is boolean
ResOverwrite is boolean
ResCreate is boolean
// Checks whether the matrix exists
ResExist = MatExist(EDT_MatrixName)
// The matrix exists
IF ResExist = True THEN
// Overwrite the matrix?
ResOverwrite = YesNo("This matrix already exists. Do you want to overwrite it?")
END
// The matrix does not exist or the existing matrix must be overwritten
IF ResExist = False OR ResOverwrite = True THEN
// Create the matrix
ResCreate = MatCreate(EDT_MatrixName)
END
// Error?
IF ResCreate = False THEN
// Display the error message
Error(ErrorInfo(errMessage))
ELSE
Info("The matrix was created")
END
This page is also available for…
|
|
|
|