moddeclarations.vb

来自「visual basic课程设计案例精编」· VB 代码 · 共 73 行

Module modDeclarations
    '窗体模块际变量
    Public Char_Renamed As String
    Public CurrentEntryIndex As Short '语法分析中字符的定位指针
    Public DecIndex As Short
    Public ErrorMessage As String '错误信息

    Public InError As Boolean
    Public InputString_Renamed As String '用户输入的表达式
    Public OutputString As String  '语法分析中输出的字符
    Public OutputValue As Double  '语法分析中输出的数值
    Public PrevAnswer As Double '上一次计算的结果
    Public PrevEntry As String '上一次的计算表达式
    Public SetVariable As Boolean
    Public Value As Double  '表达式的数值
    Public ValueString As String '表达式数值的字符形式
    Public AngleMode As Boolean '标志用户采用的角度形式
    Public RadiusMode As Boolean '标志用户采用的角度形式
    Public logbase As String '对数底数
    Public Const Pi As Double = 3.14159265358979 '常数π

    'Variable Storing
    Public MainArray() As Double
    'Always on top window display

    ''''''''''''''''''''''''''''''''''''''
    '      Mathematical Grammar Key      '
    '          (Hierarchy Chart)         '
    ''''''''''''''''''''''''''''''''''''''
    '                                    '
    '  E ::=  T | T + T | T - T          '
    '  T ::=  F | F * F | F / F          '
    '  F ::=  Number | ( E )             '
    '                                    '
    ''''''''''''''''''''''''''''''''''''''
    '                                    '
    '  Final Result:            E        '
    '                           |        '
    '                           T        '
    '                          /|\       '
    '                         F \ T      '
    '                        /|\ \ \     '
    '                       / E \ \ \    '
    '                      / /|\ \ \ \   '
    '                     / T | E \ \ F  '
    '                     | | | | | | |  '
    '                     | | | T | | |  '
    '                     | | | | | | |  '
    '                     | F | F | | |  '
    '                     | | | | | | |  '
    '  Base Equation:     ( 1 + 2 ) * 3  '
    '                                    '
    ''''''''''''''''''''''''''''''''''''''
    '                                    '
    '  Example:                          '
    '                                    '
    '  Final Result:            9        '
    '                           |        '
    '                           9        '
    '                          /|\       '
    '                         3 * 3      '
    '                        /|\ \ \     '
    '                       ( 3 ) * 3    '
    '                      / /|\ \ \ \   '
    '                     ( 1 + 2 ) * 3  '
    '                     | | | | | | |  '
    '                     ( 1 + 2 ) * 3  '
    '                     | | | | | | |  '
    '  Base Equation:     ( 1 + 2 ) * 3  '
    '                                    '
    '''''''''''''''''''''''''''''''''''''' 
End Module