Mega Code Archive

 

Categories / VB.Net Tutorial / Data Type

 

Calcuate Single

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 156.205 0.6826226