大数运算（十）

Author：水如烟 

用户使用的大数运算类

这里只是简单提供。可以考虑让它自动分拆多线程。

BigInt.vb

<Serializable()> _
Public Class BigInt

    Private gMath As New MathsUnit

    Public Property StringValue() As StringValue
        Get
            '转换为原存储方式
            Return gMath.StringValue.CopyTo(gMath.OrignalAddressInfo.UnitNum)
        End Get
        Set(ByVal value As StringValue)
            gMath.StringValue = value
        End Set
    End Property

    Public Function Clone() As BigInt
        Return CommonFunction.Clone(Of BigInt)(Me)
    End Function

    Public Sub CopyFrom(ByVal bInt As BigInt)
        gMath.CopyFrom(bInt.gMath)
    End Sub

    Public Sub Add(ByVal bInt As BigInt)
        gMath.Add(bInt.gMath)
    End Sub

    Public Shared Operator +(ByVal a As BigInt, ByVal b As BigInt) As BigInt
        Dim c As BigInt = a.Clone
        c.Add(b)
        Return c
    End Operator

    Public Sub Multy(ByVal bInt As BigInt)
        gMath.Multy(bInt.gMath)
    End Sub

    Public Shared Operator *(ByVal a As BigInt, ByVal b As BigInt) As BigInt
        Dim c As BigInt = a.Clone
        c.Multy(b)
        Return c
    End Operator

End Class

代码下载：代码