26 lines
428 B
QBasic
26 lines
428 B
QBasic
Attribute VB_Name = "Declarations"
|
|
Option Explicit
|
|
Option Private Module
|
|
|
|
Public Enum ItemStructure
|
|
IS_ID = 1
|
|
IS_PROBLEM = 2
|
|
IS_CONSEQUENCE = 3
|
|
IS_NOVELTY = 4
|
|
IS_EFFECT = 5
|
|
End Enum
|
|
|
|
Public Enum InputStruct
|
|
INPS_ID = 1
|
|
INPS_START = 2
|
|
INPS_FINISH = 3
|
|
INPS_TYPE = 4
|
|
INPS_TEXT = 5
|
|
INPS_COMMENT = 6
|
|
End Enum
|
|
|
|
Public Const DATA_DEFAULT_ID = "N/A"
|
|
Public Const TYPE_NO_TYPE = 0
|
|
|
|
Public Const SHT_DATA = "Äàííûå"
|