VB.Net Tutorial/Data Type/Single

Calcuate Single

<source lang="vbnet">Public Class Tester

   Public Shared Sub Main
       Dim magnitude As Single
       Dim radians As Single
       magnitude = CSng(Math.Sqrt(100 ^ 2 + 120 ^ 2))
       radians = CSng(Math.Atan2(100, 123))

       Console.WriteLine(magnitude)
       Console.WriteLine(radians)
       
   End Sub

End Class</source>

156.205
0.6826226

Calculation with Single

<source lang="vbnet">public class Test

  public Shared Sub Main
       Dim Amount As Single
       Dim Discount As Single
       Dim DiscAmount As Single
       Amount = 24500
       Discount = 0.35
       DiscAmount = Amount * (1 - Discount)
       Console.WriteLine("Your price is: $" & DiscAmount)
  End Sub

End class</source>

Your price is: $15925

Cast Integer to Short, Double to Single

<source lang="vbnet">Module Module1

   Sub Main()
       Dim BigInteger As Integer = 10000
       Dim LittleInteger As Short
       Dim BigFloat As Double = 0.123456789
       Dim LittleFloat As Single
       LittleInteger = BigInteger
       LittleFloat = BigFloat

       Console.WriteLine(LittleInteger)
       Console.WriteLine(LittleFloat)
   End Sub

End Module</source>

10000
0.1234568

Get Epsilon from Single

<source lang="vbnet">public class Test

  public Shared Sub Main
     Console.WriteLine(Single.Epsilon)
  End Sub

End class</source>

1.401298E-45

Pass Single by value and by reference to a Sub

<source lang="vbnet">public class Test

  public Shared Sub Main
       Dim value As Single
       value = 10
       DoubleItByVal(value)
       Console.WriteLine(value)
       value = 10
       DoubleItByRef(value)
       Console.WriteLine(value)
  End Sub
   Shared Sub DoubleItByVal(ByVal X As Single)
       X *= 2
   End Sub
   Shared Sub DoubleItByRef(ByRef X As Single)
       X *= 2
   End Sub

End class</source>

10
20

Precision Error

<source lang="vbnet">Module Module1

   Sub Main()
       Dim A As Single
       "Dim A As Double
       For A = 0.01 To 0.1 Step 0.01
           If (A = 0.05) Then
               Console.WriteLine("Reached 0.05")
           End If
       Next
       Console.WriteLine("Done with loop")
   End Sub

End Module</source>

Done with loop

Show difference precision of Single and Double

<source lang="vbnet">Module Module1

   Sub Main()
       Dim A As Single = 0.123456789012345
       Dim B As Double = 0.123456789012345
       Console.WriteLine("Single: " & A)
       Console.WriteLine("Double: " & B)
   End Sub

End Module</source>

Single: 0.1234568
Double: 0.123456789012345

Single Double MaxValue and Memory Size

<source lang="vbnet">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</source>

Memory size of a Single (bytes): 4
Maximum value of a Single: 3.402823E+38
Memory size of a Double (bytes): 8
Maximum value of a Double: 1.79769313486232E+308