modconvertanderrors.vb

visual basic课程设计案例精编

Module modConvertandErrors
    Public Sub TrapErrors(ByRef ErrNumber As Integer)
        '这个函数设置错误信息提示
        If ErrNumber = -10 Then '关键字倒置
            ErrorMessage = "错误: 关键字倒置"
        ElseIf ErrNumber = 6 Then '溢出
            ErrorMessage = "错误:溢出 "
        ElseIf ErrNumber = 11 Then
            ErrorMessage = "错误:0作除数"
        Else '未知错误
            ErrorMessage = "计算错误"
        End If
        InError = True
        OutputString = "TError"
    End Sub

    Public Sub ConvertToDegrees()
        '转换为角度
        If AngleMode = True Then
            Value = Value * (180 / Pi)
        End If
    End Sub
    Public Sub ConvertToRadians()
        '转换为弧度
        If RadiusMode = True Then
            Value = Value * (Pi / 180)
        End If
    End Sub
End Module