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；未經允許，請勿轉載。