当前位置: 首页>>代码示例>>VB.NET>>正文


VB.NET Double.MaxValue字段代码示例

本文整理汇总了VB.NET中System.Double.MaxValue字段的典型用法代码示例。如果您正苦于以下问题:VB.NET Double.MaxValue字段的具体用法?VB.NET Double.MaxValue怎么用?VB.NET Double.MaxValue使用的例子?那么恭喜您, 这里精选的字段代码示例或许可以为您提供帮助。您也可以进一步了解该字段所在System.Double的用法示例。


在下文中一共展示了Double.MaxValue字段的3个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的VB.NET代码示例。

示例1: Temperature

Public Class Temperature

    Public Shared ReadOnly Property MinValue() As Double
        Get
            Return Double.MinValue
        End Get
    End Property

    Public Shared ReadOnly Property MaxValue() As Double
        Get
            Return Double.MaxValue
        End Get
    End Property

    ' The value holder
    Protected m_value As Double

    Public Property Value() As Double
        Get
            Return m_value
        End Get
        Set(ByVal Value As Double)
            m_value = Value
        End Set
    End Property

    Public Property Celsius() As Double
        Get
            Return (m_value - 32) / 1.8
        End Get
        Set(ByVal Value As Double)
            m_value = Value * 1.8 + 32
        End Set
    End Property
End Class
开发者ID:VB.NET开发者,项目名称:System,代码行数:35,代码来源:Double.MaxValue

示例2: Main

Module Example
   Public Sub Main()
      Dim result1 As Double = 7.997e307 + 9.985e307
      Console.WriteLine("{0} (Positive Infinity: {1})", 
                        result1, Double.IsPositiveInfinity(result1))
      
      Dim result2 As Double = 1.5935e250 * 7.948e110
      Console.WriteLine("{0} (Positive Infinity: {1})", 
                        result2, Double.IsPositiveInfinity(result2))
      
      Dim result3 As Double = Math.Pow(1.256e100, 1.34e20)
      Console.WriteLine("{0} (Positive Infinity: {1})", 
                        result3, Double.IsPositiveInfinity(result3))
   End Sub
End Module
开发者ID:VB.NET开发者,项目名称:System,代码行数:15,代码来源:Double.MaxValue

输出:

Infinity (Positive Infinity: True)
Infinity (Positive Infinity: True)
Infinity (Positive Infinity: True)

示例3: Tester

Public Class Tester
    Public Shared Sub Main
    

        Dim result As New System.Text.StringBuilder
        Dim maxSingle As Single = Single.MaxValue
        Dim maxDouble As Double = Double.MaxValue
        Dim sizeOfSingle As Integer = Runtime.InteropServices.Marshal.SizeOf(maxSingle.GetType)
        Dim sizeOfDouble As Integer = Runtime.InteropServices.Marshal.SizeOf(maxDouble.GetType)

        result.Append("Memory size of a Single (bytes): ")
        result.AppendLine(sizeOfSingle)
        result.Append("Maximum value of a Single: ")
        result.AppendLine(maxSingle)
        result.AppendLine()

        result.Append("Memory size of a Double (bytes): ")
        result.AppendLine(sizeOfDouble)
        result.Append("Maximum value of a Double: ")
        result.AppendLine(maxDouble)

        Console.WriteLine(result.ToString())
     End Sub

End Class
开发者ID:VB程序员,项目名称:System,代码行数:25,代码来源:Double.MaxValue


注:本文中的System.Double.MaxValue字段示例由纯净天空整理自Github/MSDocs等开源代码及文档管理平台,相关代码片段筛选自各路编程大神贡献的开源项目,源码版权归原作者所有,传播和使用请参考对应项目的License;未经允许,请勿转载。