+ Dim MyAngle As New Angle(90)
+
+
+ Angle MyAngle = new Angle(90);
+
+
+ Angle MyAngle = new Angle(90);
+
+
+ Dim MyAngle1 As New Angle(105, 30, 21.4)
+
+
+ Angle MyAngle = new Angle(105, 30, 21.4);
+
+
+ Angle MyAngle = new Angle(105, 30, 21.4);
+
+
+ Dim MyAngle As Angle = Angle.Minimum
+
+
+ Angle MyAngle = Angle.Minimum;
+
+
+ Angle MyAngle = Angle.Minimum;
+
+
+ Dim MyAngle As Angle = Angle.Maximum
+
+
+ Angle MyAngle = Angle.Maximum;
+
+
+ Dim MyAngle As New Angle(90)
+
+
+ Angle MyAngle = new Angle(90);
+
+
+ Dim MyAngle As New Angle(34, 12, 29.2)
+
+
+ Angle MyAngle = new Angle(34, 12, 29.2);
+
+
+ Dim MyAngle As New Angle(12, 42.345)
+
+
+ Angle MyAngle = new Angle(12, 42.345);
+
+
+ Dim MyAngle As New Angle("123°45'67.8""")
+
+
+ Angle MyAngle = new Angle("123°45'67.8\"");
+
+
+ Dim Angle1 As New Angle(45)
+ Dim Angle2 As Angle = Angle1.Mirror()
+ Debug.WriteLine(Angle2.ToString())
+ ' Output: 225
+
+
+ Angle Angle1 = new Angle(45);
+ Angle Angle2 = Angle1.Mirror();
+ Console.WriteLine(Angle2.ToString());
+ // Output: 225
+
+
+ Dim MyAngle As New Angle(720)
+ MyAngle = MyAngle.Normalize()
+
+
+ Angle MyAngle = new Angle(720);
+ MyAngle = MyAngle.Normalize();
+
+
+ Dim MyValue As New Angle(725)
+ MyValue = MyValue.Normalize()
+
+
+ Angle MyValue = new Angle(725);
+ MyValue = MyValue.Normalize();
+
+
+ Dim MyAngle As New Angle(90)
+ Dim MyRadians As Radian = MyAngle.ToRadians()
+
+
+ Angle MyAngle = new Angle(90);
+ Radian MyRadians = MyAngle.ToRadians();
+
+
+ Dim MyAngle As New Angle(45, 16.772)
+ Debug.WriteLine(MyAngle.ToString("h°m.mm"))
+ ' Output: 45°16.78
+
+
+ Dim MyAngle As New Angle(45, 16.772);
+ Debug.WriteLine(MyAngle.ToString("h°m.mm"));
+ // Output: 45°16.78
+
+
+ Dim MyAngle As New Angle(90)
+ Debug.WriteLine(MyAngle.ToString)
+ ' Output: "90°"
+
+
+ Angle MyAngle = new Angle(90);
+ Debug.WriteLine(MyAngle.ToString());
+ // Output: "90°"
+
+
+ Dim MyRadian As Radian = Angle.ToRadians(90)
+
+
+ Radian MyRadian = Angle.ToRadians(90);
+
+
+ ' Create a new angle equal to one radian
+ Dim MyRadians As New Radian(1)
+ Dim MyAngle As Angle = Angle.FromRadians(MyRadians)
+ Debug.WriteLine(MyAngle.ToString())
+ ' Output: 57°
+
+
+ // Create a new angle equal to one radian
+ Radian MyRadians = new Radian(1);
+ Angle MyAngle = Angle.FromRadians(MyRadians);
+ Console.WriteLine(MyAngle.ToString());
+ // Output: 57°
+
+
+ ' Correct use of Increment
+ Dim Angle1 As New Angle(89)
+ Angle1 = Angle1.Increment()
+ ' Incorrect use of Increment
+ Dim Angle1 = New Angle(89)
+ Angle1.Increment()
+ ' Notice: Angle1 will still be 89°!
+
+
+ // Correct use of Increment
+ Angle Angle1 = new Angle(89);
+ Angle1 = Angle1.Increment();
+ // Incorrect use of Increment
+ Angle Angle1 = new Angle(89);
+ Angle1.Increment();
+ // Notice: Angle1 will still be 89°!
+
+
+ Dim Angle1 As New Angle(45)
+ Angle1 = Angle1.Add(45)
+
+
+ Angle Angle1 = new Angle(45);
+ Angle1 = Angle1.Add(45);
+
+
+ ' Correct use of Decrement
+ Dim Angle1 As New Angle(91)
+ Angle1 = Angle1.Decrement()
+ ' Incorrect use of Decrement
+ Dim Angle1 = New Angle(91)
+ Angle1.Increment()
+ ' NOTE: Angle1 will still be 91°!
+
+
+ // Correct use of Decrement
+ Angle Angle1 = new Angle(91);
+ Angle1 = Angle1.Decrement();
+ // Incorrect use of Decrement
+ Angle Angle1 = new Angle(91);
+ Angle1.Decrement();
+ // NOTE: Angle1 will still be 91°!
+
+
+ Dim Angle1 As New Angle(90)
+ Angle1 = Angle1.Subtract(30)
+
+
+ Angle Angle1 = new Angle(90);
+ Angle1 = Angle1.Subtract(30);
+
+
+ Dim Angle1 As New Angle(30)
+ Angle1 = Angle1.Multiply(3)
+
+
+ Angle Angle1 = new Angle(30);
+ Angle1 = Angle1.Multiply(3);
+
+
+ Dim Angle1 As New Angle(90)
+ Angle1 = Angle1.Divide(3)
+
+
+ Angle Angle1 = new Angle(90);
+ Angle1 = Angle1.Divide(3);
+
+
+ Dim NewAngle As Angle = Angle.Parse("123.45°")
+
+
+ Angle NewAngle = Angle.Parse("123.45°");
+
+
+ Dim MyValue As Double = Latitude.ToDecimalDegrees(10, 30, 0)
+
+
+ double MyValue = Latitude.ToDecimalDegrees(10, 30, 0);
+
+
+ ' Equals will return False
+ Dim Angle1 As New Angle(90.15);
+ Dim Angle2 As New Angle(90.12);
+ If Angle1.Equals(Angle2, 2) Then
+ Debug.WriteLine("The values are the same to two digits of precision.");
+ ' Equals will return True
+ Dim Angle1 As New Angle(90.15);
+ Dim Angle2 As New Angle(90.12);
+ If Angle1.Equals(Angle2, 1) Then
+ Debug.WriteLine("The values are the same to one digit of precision.");
+
+
+ // Equals will return False
+ Angle Angle1 = new Angle(90.15);
+ Angle Angle2 = new Angle(90.12);
+ if (Angle1.Equals(Angle2, 2))
+ Console.WriteLine("The values are the same to two digits of precision.");
+ // Equals will return True
+ Angle Angle1 = new Angle(90.15);
+ Angle Angle2 = new Angle(90.12);
+ if (Angle1.Equals(Angle2, 1))
+ Console.WriteLine("The values are the same to one digits of precision.");
+
+
+ ' Equals will return False
+ Dim Angle1 As New Angle(90.15);
+ Dim Angle2 As New Angle(90.12);
+ If Angle1.Equals(Angle2, 2) Then
+ Debug.WriteLine("The values are the same to two digits of precision.");
+ ' Equals will return True
+ Dim Angle1 As New Angle(90.15);
+ Dim Angle2 As New Angle(90.12);
+ If Angle1.Equals(Angle2, 1) Then
+ Debug.WriteLine("The values are the same to one digit of precision.");
+
+
+ // Equals will return False
+ Angle Angle1 = new Angle(90.15);
+ Angle Angle2 = new Angle(90.12);
+ if (Angle1.Equals(Angle2, 2))
+ Console.WriteLine("The values are the same to two digits of precision.");
+ // Equals will return True
+ Angle Angle1 = new Angle(90.15);
+ Angle Angle2 = new Angle(90.12);
+ if (Angle1.Equals(Angle2, 1))
+ Console.WriteLine("The values are the same to one digits of precision.");
+
+
+ Dim MyAngle As New Angle(45, 16.772)
+ Debug.WriteLine(MyAngle.ToString("h°m.mm", CultureInfo.CurrentCulture))
+ ' Output: 45°16.78
+
+
+ Dim MyAngle As New Angle(45, 16.772);
+ Debug.WriteLine(MyAngle.ToString("h°m.mm", CultureInfo.CurrentCulture));
+ // Output: 45°16.78
+
+
+ ' Create an angle of 20°30'
+ Dim MyAngle As New Angle(20, 30)
+ ' Setting the DecimalMinutes recalculated other properties
+ Debug.WriteLine(MyAngle.DecimalDegrees)
+ ' Output: "20.5" the same as 20°30'
+
+
+ // Create an angle of 20°30'
+ Angle MyAngle = New Angle(20, 30);
+ // Setting the DecimalMinutes recalculated other properties
+ Console.WriteLine(MyAngle.DecimalDegrees)
+ // Output: "20.5" the same as 20°30'
+
+
+ ' Create an angle of 20°10'30"
+ Dim MyAngle As New Angle(20, 10, 30)
+ ' The DecimalMinutes property is automatically calculated
+ Debug.WriteLine(MyAngle.DecimalMinutes)
+ ' Output: "10.5"
+
+
+ // Create an angle of 20°10'30"
+ Angle MyAngle = new Angle(20, 10, 30);
+ // The DecimalMinutes property is automatically calculated
+ Console.WriteLine(MyAngle.DecimalMinutes)
+ // Output: "10.5"
+
+
+ Dim MyAngle As New Angle(60.5)
+ Debug.WriteLine(MyAngle.Hours)
+ ' Output: 60
+
+
+ Angle MyAngle = new Angle(60.5);
+ Console.WriteLine(MyAngle.Hours);
+ // Output: 60
+
+
+ Dim MyAngle As New Angle(45.5)
+ Debug.WriteLine(MyAngle.Minutes)
+ ' Output: 30
+
+
+ Angle MyAngle = new Angle(45.5);
+ Console.WriteLine(MyAngle.Minutes);
+ // Output: 30
+
+
+ Dim MyAngle As New Angle(45, 10.5)
+ Debug.WriteLine(MyAngle.Seconds)
+ ' Output: 30
+
+
+ Dim MyAngle As New Angle(45, 10.5);
+ Console.WriteLine(MyAngle.Seconds);
+ // Output: 30
+
+
+ ' Declare a Area of 50 meters
+ Dim Area1 As New Area(50, AreaUnit.SquareMeters)
+ ' Convert it into acres
+ Dim Area2 As Area = Area2.ToAcres()
+
+
+ // Declare a Area of 50 meters
+ Area Area1 = new Area(50, AreaUnit.SquareMeters);
+ // Convert it into acres
+ Area Area2 = Area2.ToAcres();
+
+
+ Dim MyArea As New Area(50, AreaUnit.SquareKilometers)
+
+
+ Area MyArea = new Area(50, AreaUnit.SquareKilometers);
+
+ + 2. The Area unit type was not recognized or not specified.
+ Dim MyArea As Area
+ ' Create a Area of 50 square kilometers
+ MyArea = New Area("50 sq. km")
+ ' Create a Area of 14, 387 miles, then convert it into square inches
+ MyArea = New Area("14, 387 sq. statute miles").ToSquareInches()
+ ' Create a Area of 50 square feet
+ MyArea = New Area(" 50 sq ' ")
+
+
+ Area MyArea;
+ ' Create a Area of 50 square kilometers
+ MyArea = new Area("50 sq. km");
+ ' Create a Area of 14, 387 miles, then convert it into square inches
+ MyArea = new Area("14, 387 sq. statute miles").ToSquareInches();
+ ' Create a Area of 50 square feet
+ MyArea = new Area(" 50 sq ' ");
+
+ + 2. The Area unit type was not recognized or not specified.
+ Dim MyArea As Area
+ ' Create a Area of 50 square kilometers
+ MyArea = New Area("50 sq. km", CultureInfo.CurrentCulture)
+ ' Create a Area of 14, 387 miles, then convert it into square inches
+ MyArea = New Area("14, 387 sq. statute miles", CultureInfo.CurrentCulture).ToSquareInches()
+ ' Create a Area of 50 square feet
+ MyArea = New Area(" 50 sq ' ", CultureInfo.CurrentCulture)
+
+
+ Area MyArea;
+ ' Create a Area of 50 square kilometers
+ MyArea = new Area("50 sq. km", CultureInfo.CurrentCulture);
+ ' Create a Area of 14, 387 miles, then convert it into square inches
+ MyArea = new Area("14, 387 sq. statute miles", CultureInfo.CurrentCulture).ToSquareInches();
+ ' Create a Area of 50 square feet
+ MyArea = new Area(" 50 sq ' ", CultureInfo.CurrentCulture);
+
+
+ ' Create Areas of different unit types
+ Dim Area1 As New Area(10, AreaUnit.SquareInches)
+ Dim Area2 As New Area(20, AreaUnit.SquareStatuteMiles)
+ Dim Area3 As New Area(50, AreaUnit.SquareKilometers)
+ ' Convert the Area measurements to square feet and output the result
+ Debug.WriteLine(Area1.ToSquareFeet().ToString())
+ Debug.WriteLine(Area2.ToSquareFeet().ToString())
+ Debug.WriteLine(Area3.ToSquareFeet().ToString())
+
+
+ // Create Areas of different unit types
+ Area Area1 = new Area(10, AreaUnit.SquareInches);
+ Area Area2 = new Area(20, AreaUnit.SquareStatuteMiles);
+ Area Area3 = new Area(50, AreaUnit.SquareKilometers);
+ // Convert the Area measurements to square feet and output the result
+ Console.WriteLine(Area1.ToSquareFeet().ToString());
+ Console.WriteLine(Area2.ToSquareFeet().ToString());
+ Console.WriteLine(Area3.ToSquareFeet().ToString());
+
+
+ ' Create Areas of different unit types
+ Dim Area1 As New Area(10, AreaUnit.SquareFeet)
+ Dim Area2 As New Area(20, AreaUnit.SquareStatuteMiles)
+ Dim Area3 As New Area(50, AreaUnit.SquareKilometers)
+ ' Convert the Area measurements to square inches and output the result
+ Debug.WriteLine(Area1.ToSquareInches().ToString())
+ Debug.WriteLine(Area2.ToSquareInches().ToString())
+ Debug.WriteLine(Area3.ToSquareInches().ToString())
+
+
+ // Create Areas of different unit types
+ Area Area1 = new Area(10, AreaUnit.SquareFeet);
+ Area Area2 = new Area(20, AreaUnit.SquareStatuteMiles);
+ Area Area3 = new Area(50, AreaUnit.SquareKilometers);
+ // Convert the Area measurements to square inches and output the result
+ Console.WriteLine(Area1.ToSquareInches().ToString());
+ Console.WriteLine(Area2.ToSquareInches().ToString());
+ Console.WriteLine(Area3.ToSquareInches().ToString());
+
+
+ ' Create Areas of different unit types
+ Dim Area1 As New Area(10, AreaUnit.SquareFeet)
+ Dim Area2 As New Area(20, AreaUnit.SquareStatuteMiles)
+ Dim Area3 As New Area(50, AreaUnit.SquareInches)
+ ' Convert the Area measurements to square kilometers and output the result
+ Debug.WriteLine(Area1.ToSquareKilometers().ToString())
+ Debug.WriteLine(Area2.ToSquareKilometers().ToString())
+ Debug.WriteLine(Area3.ToSquareKilometers().ToString())
+
+
+ // Create Areas of different unit types
+ Area Area1 = new Area(10, AreaUnit.SquareFeet);
+ Area Area2 = new Area(20, AreaUnit.SquareStatuteMiles);
+ Area Area3 = new Area(50, AreaUnit.SquareInches);
+ // Convert the Area measurements to square kilometers and output the result
+ Console.WriteLine(Area1.ToSquareKilometers().ToString());
+ Console.WriteLine(Area2.ToSquareKilometers().ToString());
+ Console.WriteLine(Area3.ToSquareKilometers().ToString());
+
+
+ ' Create Areas of different unit types
+ Dim Area1 As New Area(10, AreaUnit.SquareFeet)
+ Dim Area2 As New Area(20, AreaUnit.SquareStatuteMiles)
+ Dim Area3 As New Area(50, AreaUnit.SquareInches)
+ ' Convert the Area measurements to square meters and output the result
+ Debug.WriteLine(Area1.ToSquareMeters().ToString())
+ Debug.WriteLine(Area2.ToSquareMeters().ToString())
+ Debug.WriteLine(Area3.ToSquareMeters().ToString())
+
+
+ // Create Areas of different unit types
+ Area Area1 = new Area(10, AreaUnit.SquareFeet);
+ Area Area2 = new Area(20, AreaUnit.SquareStatuteMiles);
+ Area Area3 = new Area(50, AreaUnit.SquareInches);
+ // Convert the Area measurements to square meters and output the result
+ Console.WriteLine(Area1.ToSquareMeters().ToString());
+ Console.WriteLine(Area2.ToSquareMeters().ToString());
+ Console.WriteLine(Area3.ToSquareMeters().ToString());
+
+
+ ' Create Areas of different unit types
+ Dim Area1 As New Area(10, AreaUnit.SquareFeet)
+ Dim Area2 As New Area(20, AreaUnit.SquareStatuteMiles)
+ Dim Area3 As New Area(50, AreaUnit.SquareInches)
+ ' Convert the Area measurements to square nautical miles and output the result
+ Debug.WriteLine(Area1.ToSquareNauticalMiles().ToString())
+ Debug.WriteLine(Area2.ToSquareNauticalMiles().ToString())
+ Debug.WriteLine(Area3.ToSquareNauticalMiles().ToString())
+
+
+ // Create Areas of different unit types
+ Area Area1 = new Area(10, AreaUnit.SquareFeet);
+ Area Area2 = new Area(20, AreaUnit.SquareStatuteMiles);
+ Area Area3 = new Area(50, AreaUnit.SquareInches);
+ // Convert the Area measurements to square nautical miles and output the result
+ Console.WriteLine(Area1.ToSquareNauticalMiles().ToString());
+ Console.WriteLine(Area2.ToSquareNauticalMiles().ToString());
+ Console.WriteLine(Area3.ToSquareNauticalMiles().ToString());
+
+
+ ' Create Areas of different unit types
+ Dim Area1 As New Area(10, AreaUnit.SquareFeet)
+ Dim Area2 As New Area(20, AreaUnit.SquareStatuteMiles)
+ Dim Area3 As New Area(50, AreaUnit.SquareInches)
+ ' Convert the Area measurements to square statute miles and output the result
+ Debug.WriteLine(Area1.ToSquareStatuteMiles().ToString())
+ Debug.WriteLine(Area2.ToSquareStatuteMiles().ToString())
+ Debug.WriteLine(Area3.ToSquareStatuteMiles().ToString())
+
+
+ // Create Areas of different unit types
+ Area Area1 = new Area(10, AreaUnit.SquareFeet);
+ Area Area2 = new Area(20, AreaUnit.SquareStatuteMiles);
+ Area Area3 = new Area(50, AreaUnit.SquareInches);
+ // Convert the Area measurements to square statute miles and output the result
+ Console.WriteLine(Area1.ToSquareStatuteMiles().ToString());
+ Console.WriteLine(Area2.ToSquareStatuteMiles().ToString());
+ Console.WriteLine(Area3.ToSquareStatuteMiles().ToString());
+
+
+ ' Create Areas of different unit types
+ Dim Area1 As New Area(10, AreaUnit.SquareFeet)
+ Dim Area2 As New Area(20, AreaUnit.SquareStatuteMiles)
+ Dim Area3 As New Area(50, AreaUnit.SquareInches)
+ ' Convert the Area measurements to acres and output the result
+ Debug.WriteLine(Area1.ToAcres().ToString())
+ Debug.WriteLine(Area2.ToAcres().ToString())
+ Debug.WriteLine(Area3.ToAcres().ToString())
+
+
+ // Create Areas of different unit types
+ Area Area1 = new Area(10, AreaUnit.SquareFeet);
+ Area Area2 = new Area(20, AreaUnit.SquareStatuteMiles);
+ Area Area3 = new Area(50, AreaUnit.SquareInches);
+ // Convert the Area measurements to acres and output the result
+ Console.WriteLine(Area1.ToAcres().ToString());
+ Console.WriteLine(Area2.ToAcres().ToString());
+ Console.WriteLine(Area3.ToAcres().ToString());
+
+
+ ' Create Areas of different unit types
+ Dim Area1 As New Area(10, AreaUnit.SquareFeet)
+ Dim Area2 As New Area(20, AreaUnit.SquareStatuteMiles)
+ Dim Area3 As New Area(50, AreaUnit.SquareInches)
+ ' Convert the Area measurements to square centimeters and output the result
+ Debug.WriteLine(Area1.ToSquareCentimeters().ToString())
+ Debug.WriteLine(Area2.ToSquareCentimeters().ToString())
+ Debug.WriteLine(Area3.ToSquareCentimeters().ToString())
+
+
+ // Create Areas of different unit types
+ Area Area1 = new Area(10, AreaUnit.SquareFeet);
+ Area Area2 = new Area(20, AreaUnit.SquareStatuteMiles);
+ Area Area3 = new Area(50, AreaUnit.SquareInches);
+ // Convert the Area measurements to square centimeters and output the result
+ Console.WriteLine(Area1.ToSquareCentimeters().ToString());
+ Console.WriteLine(Area2.ToSquareCentimeters().ToString());
+ Console.WriteLine(Area3.ToSquareCentimeters().ToString());
+
+
+ Dim Area1 As New Area(27878400, AreaUnit.SquareFeet)
+ Dim Area2 As Area = Area1.ToImperialUnitType()
+ Debug.WriteLine(Area2.ToString())
+ ' Output: 1 square statute mile
+
+
+ Area Area1 = new Area(27878400, AreaUnit.SquareFeet);
+ Area Area2 = Area1.ToImperialUnitType();
+ Console.WriteLine(Area2.ToString());
+ // Output: 1 square statute mile
+
+
+ Dim Area1 As New Area(0.0001, AreaUnit.SquareKilometers)
+ Dim Area2 As Area = Area1.ToMetricUnitType()
+ Debug.WriteLine(Area2.ToString())
+ ' Output: 1 square meter
+
+
+ Area Area1 = new Area(0.0001, AreaUnit.SquareKilometers);
+ Area Area2 = Area1.ToMetricUnitType();
+ Console.WriteLine(Area2.ToString());
+ // Output: 1 square meter
+
+
+ Dim Area1 As New Area(27878400, AreaUnit.SquareFeet)
+ Dim Area2 As Area = Area1.ToUnitType(AreaUnit.SquareStatuteMiles)
+ Debug.WriteLine(Area2.ToString())
+ ' Output: 1 square statute mile
+
+
+ Area Area1 As New Area(27878400, AreaUnit.SquareFeet);
+ Area Area2 As Area = Area1.ToUnitType(AreaUnit.SquareStatuteMiles);
+ Console.WriteLine(Area2.ToString());
+ // Output: 1 square statute mile
+
+
+ ' Declare a area of 75 square statute miles
+ Dim MyArea As New Area(75, AreaUnit.SquareStatuteMiles)
+ ' Output the result using the default format
+ Debug.WriteLine(MyArea.ToString("v.v uuu"))
+ ' Output: 75.0 square statute miles
+
+
+ // Declare a area of 75 square statute miles
+ Area MyArea As New Area(75, AreaUnit.SquareStatuteMiles);
+ // Output the result using the default format
+ Console.WriteLine(MyArea.ToString("v.v uuu"));
+ // Output: 75.0 square statute miles
+
+
+ Dim Area1 As New Area(1, AreaUnit.SquareFeet)
+ Dim Area2 As New Area(144, AreaUnit.SquareInches)
+ Dim Area3 As Area = Area1.Add(Area2)
+ Debug.WriteLine(Area3.ToString())
+ ' Output: 2 square feet
+
+
+ Area Area1 = new Area(1, AreaUnit.SquareFeet);
+ Area Area2 = new Area(144, AreaUnit.SquareInches);
+ Area Area3 = Area1.Add(Area2);
+ Console.WriteLine(Area3.ToString());
+ // Output: 2 square feet
+
+
+ Dim Area1 As New Area(1, AreaUnit.SquareFeet)
+ Dim Area2 As New Area(144, AreaUnit.SquareInches)
+ Dim Area3 As Area = Area1.Subtract(Area2)
+ Debug.WriteLine(Area3.ToString())
+ ' Output: 0 square feet
+
+
+ Area Area1 = new Area(1, AreaUnit.SquareFeet);
+ Area Area2 = new Area(144, AreaUnit.SquareInches);
+ Area Area3 = Area1.Subtract(Area2);
+ Console.WriteLine(Area3.ToString());
+ // Output: 0 square feet
+
+
+ Dim Area1 As New Area(50, AreaUnit.SquareInches)
+ Dim Area2 As New Area(2, AreaUnit.SquareInches)
+ Dim Area3 As Area = Area1.Multiply(Area2)
+ Debug.WriteLine(Area3.ToString())
+ ' Output: 100 square inches
+
+
+ Area Area1 = new Area(50, AreaUnit.SquareInches);
+ Area Area2 = new Area(2, AreaUnit.SquareInches);
+ Area Area3 = Area1.Multiply(Area2);
+ Console.WriteLine(Area3.ToString());
+ // Output: 100 square inches
+
+
+ Dim Area1 As New Area(100, AreaUnit.SquareInches)
+ Dim Area2 As New Area(2, AreaUnit.SquareInches)
+ Dim Area3 As Area = Area1.Divide(Area2)
+ Debug.WriteLine(Area3.ToString())
+ ' Output: 50 square inches
+
+
+ Area Area1 = new Area(100, AreaUnit.SquareInches);
+ Area Area2 = new Area(2, AreaUnit.SquareInches);
+ Area Area3 = Area1.Divide(Area2);
+ Debug.WriteLine(Area3.ToString());
+ // Output: 50 square inches
+
+
+ ' Correct use of Increment
+ Dim Area1 As New Area(1, AreaUnit.SquareMeters)
+ Area1 = Area1.Increment()
+ ' Incorrect use of Increment
+ Dim Area1 As New Area(1, AreaUnit.SquareMeters)
+ Area1.Increment()
+ ' NOTE: Area1 will still be 1 square meter, not 2!
+
+
+ // Correct use of Increment
+ Area Area1 = new Area(1, AreaUnit.SquareMeters);
+ Area1 = Area1.Increment();
+ // Incorrect use of Increment
+ Area Area1 = new Area(1, AreaUnit.SquareMeters);
+ Area1.Increment();
+ // NOTE: Area1 will still be 1 square meter, not 2!
+
+
+ ' Correct use of Increment
+ Dim Area1 As New Area(1, AreaUnit.SquareMeters)
+ Area1 = Area1.Increment()
+ ' Incorrect use of Increment
+ Dim Area1 As New Area(1, AreaUnit.SquareMeters)
+ Area1.Increment()
+ ' NOTE: Area1 will still be 1 square meter, not 0!
+
+
+ // Correct use of Increment
+ Area Area1 = new Area(1, AreaUnit.SquareMeters);
+ Area1 = Area1.Decrement();
+ // Incorrect use of Increment
+ Area Area1 = new Area(1, AreaUnit.SquareMeters);
+ Area1.Decrement();
+ // NOTE: Area1 will still be 1 square meter, not 0!
+
+ + 2. The Area unit type was not recognized or not specified.
+ Dim NewArea As Area
+ ' Create a Area of 50 kilometers
+ NewArea = Area.Parse("50 km")
+ ' Create a Area of 14, 387 miles, then convert it into square inches
+ NewArea = Area.Parse("14, 387 statute miles").ToSquareInches()
+ ' Parse an untrimmed measurement into 50 feet
+ NewArea = Area.Parse(" 50 ' ")
+
+
+ Area NewArea;
+ // Create a Area of 50 kilometers
+ NewArea = Area.Parse("50 km");
+ // Create a Area of 14, 387 miles, then convert it into square inches
+ NewArea = Area.Parse("14, 387 statute miles").ToInches();
+ // Parse an untrimmed measurement into 50 feet
+ NewArea = Area.Parse(" 50 ' ");
+
+
+ Dim NewArea As Area
+ ' Create a Area of 50 kilometers
+ NewArea = Area.Parse("50 km", CultureInfo.CurrentCulture)
+ ' Create a Area of 14, 387 miles, then convert it into inches
+ NewArea = Area.Parse("14, 387 statute miles", CultureInfo.CurrentCulture).ToSquareInches()
+ ' Parse an untrimmed measurement into 50 feet
+ NewArea = Area.Parse(" 50 ' ", CultureInfo.CurrentCulture)
+
+
+ Area NewArea;
+ // Create a Area of 50 kilometers
+ NewArea = Area.Parse("50 km", CultureInfo.CurrentCulture);
+ // Create a Area of 14, 387 miles, then convert it into square inches
+ NewArea = Area.Parse("14, 387 statute miles", CultureInfo.CurrentCulture).ToInches();
+ // Parse an untrimmed measurement into 50 feet
+ NewArea = Area.Parse(" 50 ' ", CultureInfo.CurrentCulture);
+
+
+ ' Declare a area of 75 square statute miles
+ Dim MyArea As New Area(75, AreaUnit.SquareStatuteMiles)
+ ' Output the result using the default format
+ Debug.WriteLine(MyArea.ToString())
+ ' Output: 75 sq. statute miles
+
+
+ // Declare a area of 75 square statute miles
+ Area MyArea = nre Area(75, AreaUnit.SquareStatuteMiles);
+ // Output the result using the default format
+ Console.WriteLine(MyArea.ToString());
+ // Output: 75 sq. statute miles
+
+
+ ' Declare a area of 75 square statute miles
+ Dim MyArea As New Area(75, AreaUnit.SquareStatuteMiles)
+ ' Output the result using the default format
+ Debug.WriteLine(MyArea.ToString("v.v uuu", CultureInfo.CurrentCulture))
+ ' Output: 75.0 square statute miles
+
+
+ // Declare a area of 75 square statute miles
+ Area MyArea As New Area(75, AreaUnit.SquareStatuteMiles);
+ // Output the result using the default format
+ Console.WriteLine(MyArea.ToString("v.v uuu", CultureInfo.CurrentCulture));
+ // Output: 75.0 square statute miles
+
+
+ Dim Area1 As New Area(1, AreaUnit.SquareKilometers)
+
+
+ Area Area1 = new Area(1, AreaUnit.SquareKilometers);
+
+
+ Dim MyAzimuth As New Azimuth(45)
+
+
+ Azimuth MyAzimuth = new Azimuth(45);
+
+
+ Dim MyAzimuth As New Azimuth(45, 30, 15)
+
+
+ Azimuth MyAzimuth = new Azimuth(45, 30, 15);
+
+
+ Dim MyAzimuth As Azimuth = Azimuth.NorthNorthwest
+
+
+ Azimuth MyAzimuth = Azimuth.NorthNorthwest;
+
+
+ Dim MyAzimuth As New Azimuth(90)
+
+
+ Azimuth MyAzimuth = new Azimuth(90);
+
+
+ Dim MyAzimuth As New Azimuth(34, 12, 29.2)
+
+
+ Azimuth MyAzimuth = new Azimuth(34, 12, 29.2);
+
+
+ Dim MyAzimuth As New Azimuth(12, 42.345)
+
+
+ Azimuth MyAzimuth = new Azimuth(12, 42.345);
+
+
+ Dim MyAzimuth As New Azimuth("123°45'67.8""")
+
+
+ Azimuth MyAzimuth = new Azimuth("123°45'67.8\"");
+
+
+ Dim NewAzimuth As New Azimuth("NW")
+
+
+ Azimuth NewAzimuth = new Azimuth("NW");
+
+
+ Dim NewAzimuth As New Azimuth("NW", CultureInfo.CurrentCulture)
+
+
+ Azimuth NewAzimuth = new Azimuth("NW", CultureInfo.CurrentCulture);
+
+
+ Dim MyAzimuth As Azimuth = Azimuth.Minimum
+
+
+ Azimuth MyAzimuth = Azimuth.Minimum;
+
+
+ Azimuth MyAzimuth = Azimuth.Minimum;
+
+
+ Dim MyAzimuth As Azimuth = Azimuth.Maximum
+
+
+ Azimuth MyAzimuth = Azimuth.Maximum;
+
+
+ Dim MyAzimuth As Azimuth = Azimuth.North
+
+
+ Azimuth MyAzimuth = Azimuth.North;
+
+
+ Dim MyAzimuth As Azimuth = Azimuth.NorthNortheast
+
+
+ Azimuth MyAzimuth = Azimuth.NorthNortheast;
+
+
+ Dim MyAzimuth As Azimuth = Azimuth.Northeast
+
+
+ Azimuth MyAzimuth = Azimuth.Northeast;
+
+
+ Dim MyAzimuth As Azimuth = Azimuth.EastNortheast
+
+
+ Azimuth MyAzimuth = Azimuth.EastNortheast;
+
+
+ Dim MyAzimuth As Azimuth = Azimuth.East
+
+
+ Azimuth MyAzimuth = Azimuth.East;
+
+
+ Dim MyAzimuth As Azimuth = Azimuth.EastSoutheast
+
+
+ Azimuth MyAzimuth = Azimuth.EastSoutheast;
+
+
+ Dim MyAzimuth As Azimuth = Azimuth.Southeast
+
+
+ Azimuth MyAzimuth = Azimuth.Southeast;
+
+
+ Dim MyAzimuth As Azimuth = Azimuth.SouthSoutheast
+
+
+ Azimuth MyAzimuth = Azimuth.SouthSoutheast;
+
+
+ Dim MyAzimuth As Azimuth = Azimuth.South
+
+
+ Azimuth MyAzimuth = Azimuth.South;
+
+
+ Dim MyAzimuth As Azimuth = Azimuth.SouthSouthwest
+
+
+ Azimuth MyAzimuth = Azimuth.SouthSouthwest;
+
+
+ Dim MyAzimuth As Azimuth = Azimuth.Southwest
+
+
+ Azimuth MyAzimuth = Azimuth.Southwest;
+
+
+ Dim MyAzimuth As Azimuth = Azimuth.WestSouthwest
+
+
+ Azimuth MyAzimuth = Azimuth.WestSouthwest;
+
+
+ Dim MyAzimuth As Azimuth = Azimuth.West
+
+
+ Azimuth MyAzimuth = Azimuth.West;
+
+
+ Dim MyAzimuth As Azimuth = Azimuth.WestNorthwest
+
+
+ Azimuth MyAzimuth = Azimuth.WestNorthwest;
+
+
+ Dim MyAzimuth As Azimuth = Azimuth.Northwest
+
+
+ Azimuth MyAzimuth = Azimuth.Northwest;
+
+
+ Dim MyAzimuth As Azimuth = Azimuth.NorthNorthwest
+
+
+ Azimuth MyAzimuth = Azimuth.NorthNorthwest;
+
+
+ Dim MyAzimuth As New Azimuth(720)
+ MyAzimuth = MyAzimuth.Normalize()
+
+
+ Azimuth MyAzimuth = new Azimuth(720);
+ MyAzimuth = MyAzimuth.Normalize();
+
+
+ Dim MyValue As New Azimuth(725)
+ MyValue = MyValue.Normalize()
+
+
+ Azimuth MyValue = new Azimuth(725);
+ MyValue = MyValue.Normalize();
+
+ -
+
-
+
c +The object is output as an abbreviated direction. + N, NE, + NNW +
+ -
+
cc +The object is output as a full direction. + North, Northeast, + North-Northwest +
+ -
+
d +Represents one digit from the + DecimalDegrees property. +
+ -
+
h +Represents one digit from the + Hours property. +
+ -
+
m +Represents one digit from the Minutes + property. +
+ -
+
s +Represents one digit from the Seconds + property. +
+
+ Dim MyAzimuth As New Azimuth(90.946)
+ Debug.WriteLine(MyAzimuth.ToString("d.dd (cc)"))
+ ' Output: 90.95 (East)
+
+
+ Azimuth MyAzimuth = new Azimuth(90.946);
+ Console.WriteLine(MyAzimuth.ToString("d.dd (cc)"));
+ // Output: 90.95 (East)
+
+
+ Dim Azimuth1 As New Azimuth(45)
+ Dim Azimuth2 As Azimuth = Azimuth1.Mirror()
+ Debug.WriteLine(Azimuth2.ToString())
+ ' Output: 225
+
+
+ Azimuth Azimuth1 = new Azimuth(45);
+ Azimuth Azimuth2 = Azimuth1.Mirror();
+ Console.WriteLine(Azimuth2.ToString());
+ // Output: 225
+
+
+ Dim MyAzimuth As New Azimuth(90)
+ Dim MyRadians As Radian = MyAzimuth.ToRadians()
+
+
+ Azimuth MyAzimuth = new Azimuth(90);
+ Radian MyRadians = MyAzimuth.ToRadians();
+
+
+ Dim MyAzimuth As New Azimuth(90)
+ Debug.WriteLine(MyAzimuth.ToString)
+ ' Output: "90°"
+
+
+ Azimuth MyAzimuth = new Azimuth(90);
+ Debug.WriteLine(MyAzimuth.ToString());
+ // Output: "90°"
+
+
+ Dim MyValue As Double = Latitude.ToDecimalDegrees(10, 30, 0)
+
+
+ double MyValue = Latitude.ToDecimalDegrees(10, 30, 0);
+
+
+ Dim NewAzimuth As Azimuth = Azimuth.Parse("123.45°")
+
+
+ Azimuth NewAzimuth = Azimuth.Parse("123.45°");
+
+
+ Dim NewAzimuth As Azimuth = Azimuth.Parse("NW", CultureInfo.CurrentCulture)
+
+
+ Azimuth NewAzimuth = Azimuth.Parse("NW", CultureInfo.CurrentCulture);
+
+
+ Dim MyRadian As Radian = Azimuth.ToRadians(90)
+
+
+ Radian MyRadian = Azimuth.ToRadians(90);
+
+
+ ' Create a new angle equal to one radian
+ Dim MyRadians As New Radian(1)
+ Dim MyAzimuth As Azimuth = Azimuth.FromRadians(MyRadians)
+ Debug.WriteLine(MyAzimuth.ToString())
+ ' Output: 57°
+
+
+ // Create a new angle equal to one radian
+ Radian MyRadians = new Radian(1);
+ Azimuth MyAzimuth = Azimuth.FromRadians(MyRadians);
+ Console.WriteLine(MyAzimuth.ToString());
+ // Output: 57°
+
+
+ ' Correct use of Increment
+ Dim Azimuth1 As New Azimuth(89)
+ Azimuth1 = Azimuth1.Increment()
+ ' Incorrect use of Increment
+ Dim Azimuth1 = New Azimuth(89)
+ Azimuth1.Increment()
+ ' NOTE: Azimuth1 will still be 89°!
+
+
+ // Correct use of Increment
+ Azimuth Azimuth1 = new Azimuth(89);
+ Azimuth1 = Azimuth1.Increment();
+ // Incorrect use of Increment
+ Azimuth Azimuth1 = new Azimuth(89);
+ Azimuth1.Increment();
+ // NOTE: Azimuth1 will still be 89°!
+
+
+ Dim Azimuth1 As New Azimuth(45)
+ Azimuth1 = Azimuth1.Add(45)
+
+
+ Azimuth Azimuth1 = new Azimuth(45);
+ Azimuth1 = Azimuth1.Add(45);
+
+
+ ' Correct use of Decrement
+ Dim Azimuth1 As New Azimuth(91)
+ Azimuth1 = Azimuth1.Decrement()
+ ' Incorrect use of Decrement
+ Dim Azimuth1 = New Azimuth(91)
+ Azimuth1.Increment()
+ ' NOTE: Azimuth1 will still be 91°!
+
+
+ // Correct use of Decrement
+ Azimuth Azimuth1 = new Azimuth(91);
+ Azimuth1 = Azimuth1.Decrement();
+ // Incorrect use of Decrement
+ Azimuth Azimuth1 = new Azimuth(91);
+ Azimuth1.Decrement();
+ // NOTE: Azimuth1 will still be 91°!
+
+
+ Dim Azimuth1 As New Azimuth(90)
+ Azimuth1 = Azimuth1.Subtract(30)
+
+
+ Azimuth Azimuth1 = new Azimuth(90);
+ Azimuth1 = Azimuth1.Subtract(30);
+
+
+ Dim Azimuth1 As New Azimuth(30)
+ Azimuth1 = Azimuth1.Multiply(3)
+
+
+ Azimuth Azimuth1 = new Azimuth(30);
+ Azimuth1 = Azimuth1.Multiply(3);
+
+
+ Dim Azimuth1 As New Azimuth(90)
+ Azimuth1 = Azimuth1.Divide(3)
+
+
+ Azimuth Azimuth1 = new Azimuth(90);
+ Azimuth1 = Azimuth1.Divide(3);
+
+
+ ' Equals will return False
+ Dim Azimuth1 As New Azimuth(90.15);
+ Dim Azimuth2 As New Azimuth(90.12);
+ If Azimuth1.Equals(Azimuth2, 2) Then
+ Debug.WriteLine("The values are the same to two digits of precision.");
+ ' Equals will return True
+ Dim Azimuth1 As New Azimuth(90.15);
+ Dim Azimuth2 As New Azimuth(90.12);
+ If Azimuth1.Equals(Azimuth2, 1) Then
+ Debug.WriteLine("The values are the same to one digit of precision.");
+
+
+ // Equals will return False
+ Azimuth Azimuth1 = new Azimuth(90.15);
+ Azimuth Azimuth2 = new Azimuth(90.12);
+ if (Azimuth1.Equals(Azimuth2, 2))
+ Console.WriteLine("The values are the same to two digits of precision.");
+ // Equals will return True
+ Azimuth Azimuth1 = new Azimuth(90.15);
+ Azimuth Azimuth2 = new Azimuth(90.12);
+ if (Azimuth1.Equals(Azimuth2, 1))
+ Console.WriteLine("The values are the same to one digits of precision.");
+
+ -
+
-
+
c +The object is output as an abbreviated direction. + N, NE, + NNW +
+ -
+
cc +The object is output as a full direction. + North, Northeast, + North-Northwest +
+ -
+
d +Represents one digit from the + DecimalDegrees property. +
+ -
+
h +Represents one digit from the + Hours property. +
+ -
+
m +Represents one digit from the Minutes + property. +
+ -
+
s +Represents one digit from the Seconds + property. +
+
+ Dim MyAzimuth As New Azimuth(90.946)
+ Debug.WriteLine(MyAzimuth.ToString("d.dd (cc)", CultureInfo.CurrentCulture))
+ ' Output: 90.95 (East)
+
+
+ Azimuth MyAzimuth = new Azimuth(90.946);
+ Console.WriteLine(MyAzimuth.ToString("d.dd (cc)", CultureInfo.CurrentCulture));
+ // Output: 90.95 (East)
+
+
+ ' Create an angle of 20°30'
+ Dim MyAzimuth As New Azimuth(20, 30)
+ ' Setting the DecimalMinutes recalculated other properties
+ Debug.WriteLine(MyAzimuth.DecimalDegrees)
+ ' Output: "20.5" the same as 20°30'
+
+
+ // Create an angle of 20°30'
+ Azimuth MyAzimuth = New Azimuth(20, 30);
+ // Setting the DecimalMinutes recalculated other properties
+ Console.WriteLine(MyAzimuth.DecimalDegrees)
+ // Output: "20.5" the same as 20°30'
+
+
+ ' Create an angle of 20°10'30"
+ Dim MyAzimuth As New Azimuth(20, 10, 30)
+ ' The DecimalMinutes property is automatically calculated
+ Debug.WriteLine(MyAzimuth.DecimalMinutes)
+ ' Output: "10.5"
+
+
+ // Create an angle of 20°10'30"
+ Azimuth MyAzimuth = new Azimuth(20, 10, 30);
+ // The DecimalMinutes property is automatically calculated
+ Console.WriteLine(MyAzimuth.DecimalMinutes)
+ // Output: "10.5"
+
+
+ Dim MyAzimuth As New Azimuth(60.5)
+ Debug.WriteLine(MyAzimuth.Hours)
+ ' Output: 60
+
+
+ Azimuth MyAzimuth = new Azimuth(60.5);
+ Console.WriteLine(MyAzimuth.Hours);
+ // Output: 60
+
+
+ Dim MyAzimuth As New Azimuth(45.5)
+ Debug.WriteLine(MyAzimuth.Minutes)
+ ' Output: 30
+
+
+ Azimuth MyAzimuth = new Azimuth(45.5);
+ Console.WriteLine(MyAzimuth.Minutes);
+ // Output: 30
+
+
+ Dim MyAzimuth As New Azimuth(45, 10.5)
+ Debug.WriteLine(MyAzimuth.Seconds)
+ ' Output: 30
+
+
+ Dim MyAzimuth As New Azimuth(45, 10.5);
+ Console.WriteLine(MyAzimuth.Seconds);
+ // Output: 30
+
+
+ Dim MyAzimuth As New Azimuth(272)
+ Debug.WriteLine(MyAzimuth.Direction.ToString())
+ ' Output: West
+
+
+ Azimuth MyAzimuth = new Azimuth(272);
+ Console.WriteLine(MyAzimuth.Direction.ToString());
+ // Output: West
+
+
+ Dim MyAzimuth As New Azimuth(272)
+ Debug.WriteLine(MyAzimuth.Direction.ToString())
+ ' Output: West
+
+
+ Azimuth MyAzimuth = new Azimuth(272);
+ Console.WriteLine(MyAzimuth.Direction.ToString());
+ // Output: West
+
+
+ ' Declare a new event
+ Dim MyDilutionOfPrecisionEvent As EventHandler
+ ' Create a DilutionOfPrecision of 30 horizontal
+ Dim MyDilutionOfPrecision As New DilutionOfPrecision(DilutionOfPrecisionType.Horizontal, 30.0)
+ Sub Main()
+ ' Raise our custom event
+ RaiseEvent MyDilutionOfPrecisionEvent(Me, New DilutionOfPrecisionEventArgs(MyDilutionOfPrecision))
+ End Sub
+
+
+ // Declare a new event
+ EventHandler MyDilutionOfPrecisionEvent;
+ // Create a DilutionOfPrecision of 30 horizontal
+ DilutionOfPrecision MyDilutionOfPrecision = new DilutionOfPrecision(DilutionOfPrecisionType.Horizontal, 30.0);
+ void Main()
+ {
+ // Raise our custom event
+ MyDilutionOfPrecisionEvent(this, New DilutionOfPrecisionEventArgs(MyDilutionOfPrecision));
+ }
+
+
+ ' Declare a new receiver
+ Private WithEvents MyReceiver As New Receiver()
+ ' Raised when the fix quality has changed
+ Private Sub OnFixQualityChanged(ByVal sender As Object, ByVal e As FixQualityEventArgs)
+ ' What is the new fix quality°
+ Select Case e.FixQuality
+ Case FixQuality.NoFix
+ ' No fix is obtained
+ Debug.WriteLine("No fix is currently obtained.")
+ Case FixQuality.GpsFix
+ ' A fix is present
+ Debug.WriteLine("A fix has been obtained using only GPS satellites.")
+ Case FixQuality.DifferentialGpsFix
+ ' A differential fix is present
+ Debug.WriteLine("A fix has been obtained using GPS satellites and correction information from DGPS/WAAS ground stations.")
+ Case FixQuality.Estimated
+ ' A fix is being estimated (not an actual fix)
+ Debug.WriteLine("A fix is currently being estimated. ")
+ End Select
+ End Sub
+
+
+ // Declare a new receiver
+ Receiver MyReceiver = new Receiver();
+ // Raised when the fix quality has changed
+ void OnFixQualityChanged(Object sender, FixQualityEventArgs e)
+ {
+ // What is the new fix quality°
+ switch (e.FixQuality)
+ {
+ case FixQuality.NoFix:
+ // No fix is obtained
+ Debug.WriteLine("No fix is currently obtained.");
+ case FixQuality.GpsFix:
+ // A fix is present
+ Debug.WriteLine("A fix has been obtained using only GPS satellites.");
+ case FixQuality.DifferentialGpsFix:
+ // A differential fix is present
+ Debug.WriteLine("A fix has been obtained using GPS satellites and correction information from DGPS/WAAS ground stations.");
+ case FixQuality.Estimated:
+ // A fix is being estimated (not an actual fix)
+ Debug.WriteLine("A fix is currently being estimated. ");
+ }
+ }
+
+
+ Private WithEvents MyReceiver As New Receiver()
+ ' Raised whenever the fix method has changed
+ Private Sub OnFixMethodChanged(ByVal sender As Object, ByVal e As FixMethodEventArgs)
+ ' What is the new fix method°
+ Select Case e.FixMethod
+ Case FixMethod.NoFix
+ ' We have neither position or altitude
+ Debug.WriteLine("Your position is: Not Yet Available")
+ Debug.WriteLine("Your altitude is: Not Yet Available")
+ Case FixMethod.Fix2D
+ ' We have a position but no altitude
+ Debug.WriteLine("Your position is: " & MyReceiver.Position.ToString)
+ Debug.WriteLine("Your altitude is: Not Yet Available")
+ Case FixMethod.Fix3D
+ ' We have both position and altitude
+ Debug.WriteLine("Your position is: " & MyReceiver.Position.ToString)
+ Debug.WriteLine("Your altitude is: " & MyReceiver.Altitude.ToString)
+ End Select
+ End Sub
+
+
+ // Declare a new receiver
+ Private WithEvents MyReceiver As New Receiver()
+ // Raised whenever the fix method has changed
+ void OnFixMethodChanged(Object sender, FixMethodEventArgs e)
+ {
+ // What is the new fix method°
+ switch (e.FixMethod)
+ {
+ case FixMethod.NoFix:
+ // We have neither position or altitude
+ Debug.WriteLine("Your position is: Not Yet Available");
+ Debug.WriteLine("Your altitude is: Not Yet Available");
+ case FixMethod.Fix2D:
+ // We have a position but no altitude
+ Debug.WriteLine("Your position is: " & MyReceiver.Position.ToString());
+ Debug.WriteLine("Your altitude is: Not Yet Available");
+ case FixMethod.Fix3D:
+ // We have both position and altitude
+ Debug.WriteLine("Your position is: " & MyReceiver.Position.ToString());
+ Debug.WriteLine("Your altitude is: " & MyReceiver.Altitude.ToString());
+ }
+ }
+
+
+ ' Declare a new receiver
+ Private WithEvents MyReceiver As New Receiver()
+ Sub Main()
+ ' Start listening for messages
+ MyReceiver.Start
+ End Sub
+ Sub OnFixLikelihoodChanged(ByVal sender As Object, ByVal e As FixLikelihoodEventArgs) Handles MyReceiver.FixLikelihoodChanged
+ ' Do we have a fix currently°
+ If MyReceiver.IsFixObtained Then
+ ' Yes. What's the likelihood that the fix will be sustained°
+ Select Case MyReceiver.FixLikelihood
+ Case FixLikelihood.Unlikely
+ Debug.WriteLine("The current fix is about to be lost!")
+ Case FixLikelihood.Possible
+ Debug.WriteLine("The current fix is unstable. Find a more open view of the sky soon.")
+ Case FixLikelihood.Likely
+ Debug.WriteLine("The current fix is nearly stable.")
+ Case FixLikelihood.Certain
+ Debug.WriteLine("The current fix is stable.")
+ End Select
+ Else
+ ' No. What's the likelihood that a fix will be obtained°
+ Select Case MyReceiver.FixLikelihood
+ Case FixLikelihood.Unlikely
+ Debug.WriteLine("A fix is not possible. Find a more open view of the sky.")
+ Case FixLikelihood.Possible
+ Debug.WriteLine("A fix is possible, but satellite signals are still mostly obscured.")
+ Case FixLikelihood.Likely
+ Debug.WriteLine("A fix should occur within the next several seconds.")
+ Case FixLikelihood.Certain
+ Debug.WriteLine("A fix will occur in a few seconds.")
+ End Select
+ End If
+ End Sub
+
+
+ ' Declare a new receiver
+ Private Receiver MyReceiver = new Receiver();
+ void Main()
+ {
+ // Start listening for messages
+ MyReceiver.Start();
+ }
+ void OnFixLikelihoodChanged(Object sender, FixLikelihoodEventArgs e)
+ {
+ // Do we have a fix currently°
+ if (MyReceiver.IsFixObtained)
+ {
+ // Yes. What's the likelihood that the fix will be sustained°
+ switch (MyReceiver.FixLikelihood)
+ {
+ case FixLikelihood.Unlikely:
+ Debug.WriteLine("The current fix is about to be lost!");
+ break;
+ case FixLikelihood.Possible:
+ Debug.WriteLine("The current fix is unstable. Find a more open view of the sky soon.");
+ break;
+ case FixLikelihood.Likely:
+ Debug.WriteLine("The current fix is nearly stable.");
+ break;
+ case FixLikelihood.Certain:
+ Debug.WriteLine("The current fix is stable.");
+ break;
+ }
+ }
+ else
+ {
+ // No. What's the likelihood that a fix will be obtained°
+ switch (MyReceiver.FixLikelihood)
+ {
+ case FixLikelihood.Unlikely:
+ Debug.WriteLine("A fix is not possible. Find a more open view of the sky.");
+ break;
+ case FixLikelihood.Possible:
+ Debug.WriteLine("A fix is possible, but satellite signals are still mostly obscured.");
+ break;
+ case FixLikelihood.Likely:
+ Debug.WriteLine("A fix should occur within the next several seconds.");
+ break;
+ case FixLikelihood.Certain:
+ Debug.WriteLine("A fix will occur in a few seconds.");
+ break;
+ }
+ }
+ }
+
+
+ ' Declare a new event
+ Dim MyFixMethodEvent As EventHandler
+ ' Create a FixMethod signifying a 3-D fix (both position and altitude)
+ Dim MyFixMethod As FixMethod = FixMethod.Fix3D
+ Sub Main()
+ ' Raise our custom event
+ RaiseEvent MyFixMethodEvent(Me, New FixMethodEventArgs(MyFixMethod))
+ End Sub
+
+
+ // Declare a new event
+ EventHandler MyFixMethodEvent;
+ // Create a FixMethod signifying a 3-D fix (both position and altitude)
+ FixMethod MyFixMethod = FixMethod.Fix3D;
+ void Main()
+ {
+ // Raise our custom event
+ MyFixMethodEvent(this, New FixMethodEventArgs(MyFixMethod));
+ }
+
+
+ ' Declare a new event
+ Dim MyFixLikelihoodEvent As FixLikelihoodEventHandler
+ ' Create a FixLikelihood signifying a 3-D fix (both position and altitude)
+ Dim MyFixLikelihood As FixLikelihood = FixLikelihood.Fix3D
+ Sub Main()
+ ' Raise our custom event
+ RaiseEvent MyFixLikelihoodEvent(Me, New FixLikelihoodEventArgs(MyFixLikelihood))
+ End Sub
+
+
+ // Declare a new event
+ FixLikelihoodEventHandler MyFixLikelihoodEvent;
+ // Create a FixLikelihood signifying a 3-D fix (both position and altitude)
+ FixLikelihood MyFixLikelihood = FixLikelihood.Fix3D;
+ void Main()
+ {
+ // Raise our custom event
+ MyFixLikelihoodEvent(this, New FixLikelihoodEventArgs(MyFixLikelihood));
+ }
+
+
+ ' Declare a new event
+ Dim MyFixModeEvent As EventHandler
+ ' Create a FixMode signifying that the fix method is being chosen automatically
+ Dim MyFixMode As FixMode = FixMode.Automatic
+ Sub Main()
+ ' Raise our custom event
+ RaiseEvent MyFixModeEvent(Me, New FixModeEventArgs(MyFixMode))
+ End Sub
+
+
+ // Declare a new event
+ EventHandler MyFixModeEvent;
+ // Create a FixMode signifying that the fix method is being chosen automatically
+ FixMode MyFixMode = FixMode.Automatic;
+ void Main()
+ {
+ // Raise our custom event
+ MyFixModeEvent(this, New FixModeEventArgs(MyFixMode));
+ }
+
+
+ ' Declare a new event
+ Dim MyFixQualityEvent As EventHandler
+ ' Create a FixQuality signifying that a differential GPS fix is obtained
+ Dim MyFixQuality As FixQuality = FixQuality.DifferentialGpsFix
+ Sub Main()
+ ' Raise our custom event
+ RaiseEvent MyFixQualityEvent(Me, New FixQualityEventArgs(MyFixQuality))
+ End Sub
+
+
+ // Declare a new event
+ EventHandler MyFixQualityEvent;
+ // Create a FixQuality signifying that a differential GPS fix is obtained
+ FixQuality MyFixQuality = FixQuality.DifferentialGpsFix;
+ void Main()
+ {
+ // Raise our custom event
+ MyFixQualityEvent(this, New FixQualityEventArgs(MyFixQuality));
+ }
+
+
+ ' Declare a new event
+ Dim MySentenceEvent As SentenceEventHandler
+ ' Create an NMEA $GPGLL sentence
+ Dim MySentence As String = "$GPGLL, 4122, N, 14628, W, 104243.00, A, D*7E"
+
+ Sub Main()
+ ' Raise our custom event, also indicating that the sentence was completely recognized
+ RaiseEvent MySentenceEvent(Me, New SentenceEventArgs(MySentence, SentenceType.Recognized))
+ End Sub
+
+
+ // Declare a new event
+ SentenceEventHandler MySentenceEvent;
+ // Create an NMEA $GPGLL sentence
+ string MySentence = "$GPGLL, 4122, N, 14628, W, 104243.00, A, D*7E"
+
+ void Main()
+ {
+ // Raise our custom event, also indicating that the sentence was completely recognized
+ MySentenceEvent(this, New SentenceEventArgs(MySentence, SentenceType.Recognized));
+ }
+
+ 
+ ' Start a new receiver
+ Dim MyReceiver As New Receiver()
+ ' Declare a new event
+ Dim MySatelliteEvent As EventHandler
+ ' Get a handle on the first satellite in the receiver's collection
+ Dim MySatellite As Satellite = MyReceiver.Satellites(0)
+ Sub Main()
+ ' Raise our custom event
+ RaiseEvent MySatelliteEvent(Me, New SatelliteEventArgs(MySatellite))
+ End Sub
+
+
+ // Start a new receiver
+ Receiver MyReceiver = new Receiver();
+ // Declare a new event
+ EventHandler MySatelliteEvent;
+ // Create an Satellite of 90°
+ Satellite MySatellite = new Satellite(90);
+ void Main()
+ {
+ // Raise our custom event
+ MySatelliteEvent(this, New SatelliteEventArgs(MySatellite));
+ }
+
+
+ Dim NorthwestCorner As New Position("39N 105W")
+ Dim RectangleSize As New GeographicSize(2, 5)
+ Dim Rectangle As New GeographicRectangle(NorthwestCorner, RectangleSize)
+
+
+ Position NorthwestCorner = new Position("39N, 105W");
+ GeographicSize RectangleSize = new GeographicSize(2, 5);
+ GeographicRectangle Rectangle = new GeographicRectangle(NorthwestCorner, RectangleSize);
+
+
+ Dim NorthwestCorner As New Position("39N 105W")
+ Dim RectangleWidth As Distance = Distance.FromKilometers(1)
+ Dim RectangleHeight As Distance = Distance.FromKilometers(1)
+ Dim Rectangle As New GeographicRectangle(NorthwestCorner, RectangleWidth, RectangleHeight)
+
+
+ Position NorthwestCorner = new Position("39N 105W");
+ Distance RectangleWidth = Distance.FromKilometers(1);
+ Distance RectangleHeight = Distance.FromKilometers(1);
+ GeographicRectangle Rectangle = new GeographicRectangle(NorthwestCorner, RectangleWidth, RectangleHeight);
+
+
+ Dim NorthwestCorner As New Position("39N 105W")
+ Dim SoutheastCorner As New Position("37N 100W")
+ Dim Rectangle As New GeographicRectangle(NorthwestCorner, SoutheastCorner)
+
+
+ Position NorthwestCorner = new Position("39N 105W");
+ Position SoutheastCorner = new Position("37N 100W");
+ GeographicRectangle Rectangle = new GeographicRectangle(NorthwestCorner, SoutheastCorner);
+
+
+ Dim Rectangle As New GeographicRectangle("39N, 105W, 37N, 100W")
+
+
+ GeographicRectangle Rectangle = new GeographicRectangle("39N, 105W, 37N, 100W");
+
+
+ Dim Rectangle As New GeographicRectangle("39N, 105W, 37N, 100W", CultureInfo.CurrentCulture)
+
+
+ GeographicRectangle Rectangle = new GeographicRectangle("39N, 105W, 37N, 100W", CultureInfo.CurrentCulture);
+
+
+ Dim Left As New Longitude(-105)
+ Dim Top As New Latitude(39)
+ Dim Right As New Longitude(-100)
+ Dim Top As New Latitude(37)
+ Dim Rectangle As New GeographicRectangle(Left, Top, Right, Bottom)
+
+
+ Longitude Left = new Longitude(-105);
+ Latitude Top = new Latitude(39);
+ Longitude Right = new Longitude(-100);
+ Latitude Top = new Latitude(37);
+ GeographicRectangle Rectangle = new GeographicRectangle(Left, Top, Right, Bottom);
+
+
+ Dim Left As New Longitude(-105)
+ Dim Top As New Latitude(39)
+ Dim Right As New Longitude(-100)
+ Dim Top As New Latitude(37)
+ Dim Rectangle As New GeographicRectangle(Left, Top, Right, Bottom)
+
+
+ Latitude Top = new Latitude(39);
+ Longitude Left = new Longitude(-105);
+ Latitude Bottom = new Latitude(37);
+ Longitude Right = new Longitude(-100);
+ GeographicRectangle Rectangle = new GeographicRectangle(Top, Left, Bottom, Right);
+
+
+ Dim Rectangle As New GeographicRectangle("30N, 105W, 1°, 5°")
+ Rectangle = Rectangle.Translate(Azimuth.Northeast, New Distance(50, DistanceUnit.Kilometers))
+
+
+ GeographicRectangle Rectangle = new GeographicRectangle("30N, 105W, 1°, 5°");
+ Rectangle = Rectangle.Translate(Azimuth.Northeast, New Distance(50, DistanceUnit.Kilometers));
+
+
+ Dim Rectangle As New GeographicRectangle("30N, 105W, 1°, 5°")
+ Rectangle = Rectangle.Translate(new Angle(45), New Distance(50, DistanceUnit.Kilometers))
+
+
+ GeographicRectangle Rectangle = new GeographicRectangle("30N, 105W, 1°, 5°");
+ Rectangle = Rectangle.Translate(new Angle(45), New Distance(50, DistanceUnit.Kilometers));
+
+
+ Dim Rectangle As New GeographicRectangle("30N, 105W, 1°, 5°")
+ Rectangle = Rectangle.Translate(45, New Distance(50, DistanceUnit.Kilometers))
+
+
+ GeographicRectangle Rectangle = new GeographicRectangle("30N, 105W, 1°, 5°");
+ Rectangle = Rectangle.Translate(45, New Distance(50, DistanceUnit.Kilometers));
+
+
+ // Create a percentage of 25%
+ Percent twentyFivePercent = new Percent(0.25f);
+
+
+ ' Create a percentage of 25%
+ Dim TwentyFivePercent As New Percent(0.25)
+
+
+ // Create a percentage of 25%
+ Percent twentyFivePercent = New Percent("25.4%", CultureInfo.InvariantCulture);
+
+
+ ' Create a percentage of 25%
+ Dim TwentyFivePercent As New Percent("25.5%", CultureInfo.InvariantCulture)
+
+
+ ' Get information about the NAD1983 datum
+ Dim MyDatum As Datum = Geodesy.GetDatum(DatumType.NorthAmerican1983)
+ ' Get the ellipsoid associated with this datum
+ Dim MyEllipsoid As Ellipsoid = MyDatum.Ellipsoid
+ ' Write the semi-major axis of the ellipsoid
+ Debug.WriteLine(MyEllipsoid.SemiMajorAxis.ToString())
+
+
+ // Get information about the NAD1983 datum
+ Datum MyDatum = Geodesy.GetDatum(DatumType.NorthAmerican1983);
+ // Get the ellipsoid associated with this datum
+ Ellipsoid MyEllipsoid = MyDatum.Ellipsoid;
+ // Write the semi-major axis of the ellipsoid
+ Debug.WriteLine(MyEllipsoid.SemiMajorAxis.ToString());
+
+
+ Dim MyDistance As New Distance(50, DistanceUnit.Kilometers)
+
+
+ Distance MyDistance = new Distance(50, DistanceUnit.Kilometers);
+
+ + 2. The distance unit type was not recognized or not specified.
+ Dim MyDistance As Distance
+ ' Create a distance of 50 kilometers
+ MyDistance = New Distance("50 km")
+ ' Create a distance of 14, 387 miles, then convert it into inches
+ MyDistance = New Distance("14, 387 statute miles").ToInches
+ ' Parse an untrimmed measurement into 50 feet
+ MyDistance = New Distance(" 50 ' ")
+
+
+ Distance MyDistance;
+ // Create a distance of 50 kilometers
+ MyDistance = new Distance("50 km");
+ // Create a distance of 14, 387 miles, then convert it into inches
+ MyDistance = new Distance("14, 387 statute miles").ToInches;
+ // Parse an untrimmed measurement into 50 feet
+ MyDistance = new Distance(" 50 ' ");
+
+
+ ' Create distances of different unit types
+ Dim Distance1 As New Distance(10, DistanceUnit.Inches)
+ Dim Distance2 As New Distance(20, DistanceUnit.StatuteMiles)
+ Dim Distance3 As New Distance(50, DistanceUnit.Kilometers)
+ ' Convert the distance measurements to feet and output the result
+ Debug.WriteLine(Distance1.ToFeet.ToString)
+ Debug.WriteLine(Distance2.ToFeet.ToString)
+ Debug.WriteLine(Distance3.ToFeet.ToString)
+
+
+ // Create distances of different unit types
+ Distance Distance1 = new Distance(10, DistanceUnit.Inches);
+ Distance Distance2 = new Distance(20, DistanceUnit.StatuteMiles);
+ Distance Distance3 = new Distance(50, DistanceUnit.Kilometers);
+ // Convert the distance measurements to feet and output the result
+ Debug.WriteLine(Distance1.ToFeet().ToString());
+ Debug.WriteLine(Distance2.ToFeet().ToString());
+ Debug.WriteLine(Distance3.ToFeet().ToString());
+
+
+ ' Create distances of different unit types
+ Dim Distance1 As New Distance(10, DistanceUnit.Feet)
+ Dim Distance2 As New Distance(20, DistanceUnit.StatuteMiles)
+ Dim Distance3 As New Distance(50, DistanceUnit.Kilometers)
+ ' Convert the distance measurements to feet and output the result
+ Debug.WriteLine(Distance1.ToInches.ToString)
+ Debug.WriteLine(Distance2.ToInches.ToString)
+ Debug.WriteLine(Distance3.ToInches.ToString)
+
+
+ // Create distances of different unit types
+ Distance Distance1 = new Distance(10, DistanceUnit.Feet);
+ Distance Distance2 = new Distance(20, DistanceUnit.StatuteMiles);
+ Distance Distance3 = new Distance(50, DistanceUnit.Kilometers);
+ // Convert the distance measurements to feet and output the result
+ Debug.WriteLine(Distance1.ToInches().ToString());
+ Debug.WriteLine(Distance2.ToInches().ToString());
+ Debug.WriteLine(Distance3.ToInches().ToString());
+
+
+ ' Create distances of different unit types
+ Dim Distance1 As New Distance(10, DistanceUnit.Feet)
+ Dim Distance2 As New Distance(20, DistanceUnit.StatuteMiles)
+ Dim Distance3 As New Distance(50, DistanceUnit.Inches)
+ ' Convert the distance measurements to feet and output the result
+ Debug.WriteLine(Distance1.ToKilometers.ToString)
+ Debug.WriteLine(Distance2.ToKilometers.ToString)
+ Debug.WriteLine(Distance3.ToKilometers.ToString)
+
+
+ // Create distances of different unit types
+ Distance Distance1 = new Distance(10, DistanceUnit.Feet);
+ Distance Distance2 = new Distance(20, DistanceUnit.StatuteMiles);
+ Distance Distance3 = new Distance(50, DistanceUnit.Inches);
+ // Convert the distance measurements to feet and output the result
+ Debug.WriteLine(Distance1.ToKilometers().ToString());
+ Debug.WriteLine(Distance2.ToKilometers().ToString());
+ Debug.WriteLine(Distance3.ToKilometers().ToString());
+
+
+ ' Create distances of different unit types
+ Dim Distance1 As New Distance(10, DistanceUnit.Feet)
+ Dim Distance2 As New Distance(20, DistanceUnit.StatuteMiles)
+ Dim Distance3 As New Distance(50, DistanceUnit.Inches)
+ ' Convert the distance measurements to feet and output the result
+ Debug.WriteLine(Distance1.ToMeters().ToString)
+ Debug.WriteLine(Distance2.ToMeters().ToString)
+ Debug.WriteLine(Distance3.ToMeters().ToString)
+
+
+ // Create distances of different unit types
+ Distance Distance1 = new Distance(10, DistanceUnit.Feet);
+ Distance Distance2 = new Distance(20, DistanceUnit.StatuteMiles);
+ Distance Distance3 = new Distance(50, DistanceUnit.Inches);
+ // Convert the distance measurements to feet and output the result
+ Debug.WriteLine(Distance1.ToMeters().ToString());
+ Debug.WriteLine(Distance2.ToMeters().ToString());
+ Debug.WriteLine(Distance3.ToMeters().ToString());
+
+
+ ' Create distances of different unit types
+ Dim Distance1 As New Distance(10, DistanceUnit.Feet)
+ Dim Distance2 As New Distance(20, DistanceUnit.StatuteMiles)
+ Dim Distance3 As New Distance(50, DistanceUnit.Inches)
+ ' Convert the distance measurements to feet and output the result
+ Debug.WriteLine(Distance1.ToMeters().ToString)
+ Debug.WriteLine(Distance2.ToMeters().ToString)
+ Debug.WriteLine(Distance3.ToMeters().ToString)
+
+
+ // Create distances of different unit types
+ Distance Distance1 = new Distance(10, DistanceUnit.Feet);
+ Distance Distance2 = new Distance(20, DistanceUnit.StatuteMiles);
+ Distance Distance3 = new Distance(50, DistanceUnit.Inches);
+ // Convert the distance measurements to feet and output the result
+ Debug.WriteLine(Distance1.ToMeters().ToString());
+ Debug.WriteLine(Distance2.ToMeters().ToString());
+ Debug.WriteLine(Distance3.ToMeters().ToString());
+
+
+ ' Create distances of different unit types
+ Dim Distance1 As New Distance(10, DistanceUnit.Feet)
+ Dim Distance2 As New Distance(20, DistanceUnit.StatuteMiles)
+ Dim Distance3 As New Distance(50, DistanceUnit.Inches)
+ ' Convert the distance measurements to feet and output the result
+ Debug.WriteLine(Distance1.ToNauticalMiles.ToString)
+ Debug.WriteLine(Distance2.ToNauticalMiles.ToString)
+ Debug.WriteLine(Distance3.ToNauticalMiles.ToString)
+
+
+ // Create distances of different unit types
+ Distance Distance1 = new Distance(10, DistanceUnit.Feet);
+ Distance Distance2 = new Distance(20, DistanceUnit.StatuteMiles);
+ Distance Distance3 = new Distance(50, DistanceUnit.Inches);
+ // Convert the distance measurements to feet and output the result
+ Debug.WriteLine(Distance1.ToNauticalMiles().ToString());
+ Debug.WriteLine(Distance2.ToNauticalMiles().ToString());
+ Debug.WriteLine(Distance3.ToNauticalMiles().ToString());
+
+
+ ' Create distances of different unit types
+ Dim Distance1 As New Distance(10, DistanceUnit.Feet)
+ Dim Distance2 As New Distance(20, DistanceUnit.StatuteMiles)
+ Dim Distance3 As New Distance(50, DistanceUnit.Inches)
+ ' Convert the distance measurements to feet and output the result
+ Debug.WriteLine(Distance1.ToStatuteMiles.ToString)
+ Debug.WriteLine(Distance2.ToStatuteMiles.ToString)
+ Debug.WriteLine(Distance3.ToStatuteMiles.ToString)
+
+
+ // Create distances of different unit types
+ Distance Distance1 = new Distance(10, DistanceUnit.Feet);
+ Distance Distance2 = new Distance(20, DistanceUnit.StatuteMiles);
+ Distance Distance3 = new Distance(50, DistanceUnit.Inches);
+ // Convert the distance measurements to feet and output the result
+ Debug.WriteLine(Distance1.ToStatuteMiles().ToString());
+ Debug.WriteLine(Distance2.ToStatuteMiles().ToString());
+ Debug.WriteLine(Distance3.ToStatuteMiles().ToString());
+
+ | ##0.## uu | +## uuuu | +# u | +### | +
+ ' Declare a distance of 75 miles
+ Dim MyDistance As New Distance(75, DistanceUnit.StatuteMiles)
+ ' Set the text box to the distance, formatted as a string
+ MyTextBox.Text = MyDistance.ToString("## uuu")
+
+
+ // Declare a distance of 75 miles
+ Distance MyDistance = new Distance(75, DistanceUnit.StatuteMiles);
+ // Set the text box to the distance, formatted as a string
+ MyTextBox.Text = MyDistance.ToString("## uuu");
+
+
+ ' Declare a distance of 75 miles
+ Dim MyDistance As New Distance(75, DistanceUnit.StatuteMiles)
+ ' Set the text box to the distance, formatted as a string
+ MyTextBox.Text = MyDistance.ToString
+
+
+ // Declare a distance of 75 miles
+ Distance MyDistance = new Distance(75, DistanceUnit.StatuteMiles);
+ // Set the text box to the distance, formatted as a string
+ MyTextBox.Text = MyDistance.ToString();
+
+ -
+
- N m +
- N meters +
- N meter +
- N metre +
- N metres +
- N km +
- N kilometers +
- N kilometer +
- N kilometre +
- N kilometres +
- N ft +
- N' +
- N foot +
- N feet +
- N in +
- N" +
- N inch +
- N inches +
- N mi +
- N mile +
- N miles +
- N nm +
- N nautical mile +
- N nautical miles +
+ 2. The distance unit type was not recognized or not specified.
+ Dim NewDistance As Distance
+ ' Create a distance of 50 kilometers
+ NewDistance = Distance.Parse("50 km")
+ ' Create a distance of 14, 387 miles, then convert it into inches
+ NewDistance = Distance.Parse("14, 387 statute miles").ToInches
+ ' Parse an untrimmed measurement into 50 feet
+ NewDistance = Distance.Parse(" 50 ' ")
+
+
+ Distance NewDistance;
+ // Create a distance of 50 kilometers
+ NewDistance = Distance.Parse("50 km");
+ // Create a distance of 14, 387 miles, then convert it into inches
+ NewDistance = Distance.Parse("14, 387 statute miles").ToInches;
+ // Parse an untrimmed measurement into 50 feet
+ NewDistance = Distance.Parse(" 50 ' ");
+
+ | ##0.## uu | +## uuuu | +# u | +### | +
+ ' Declare a distance of 75 miles
+ Dim MyDistance As New Distance(75, DistanceUnit.StatuteMiles)
+ ' Set the text box to the distance, formatted as a string
+ MyTextBox.Text = MyDistance.ToString("## uuu", CultureInfo.CurrentUICulture)
+
+
+ // Declare a distance of 75 miles
+ Distance MyDistance = new Distance(75, DistanceUnit.StatuteMiles);
+ // Set the text box to the distance, formatted as a string
+ MyTextBox.Text = MyDistance.ToString("## uuu", CultureInfo.CurrentUICulture);
+
+
+ ' Declare a distance of 0 mi.
+ Dim MyDistance As New Distance(0, DistanceUnit.StatuteMiles)
+ ' Change the distance to 100 mi.
+ MyDistance.Value = 100
+ ' Change the distance to 12.3456 mi.
+ MyDistance.Value = 12.3456
+ ' Convert the measurement into kilometers
+ MyDistance = MyDistance.ToKilometers
+
+
+ // Declare a distance of 0 mi.
+ Distance MyDistance = new Distance(0, DistanceUnit.StatuteMiles);
+ // Change the distance to 100 mi.
+ MyDistance.Value = 100;
+ // Change the distance to 12.3456 mi.
+ MyDistance.Value = 12.3456;
+ // Convert the measurement into kilometers
+ MyDistance = MyDistance.ToKilometers;
+
+ 
+ ' Declare two distances
+ Dim Distance1 As New Distance(50, DistanceUnit.Meters)
+ Dim Distance2 As New Distance(100, DistanceUnit.Feet)
+ ' Store their sum in another variable
+ Dim Distance3 As New Distance(0, DistanceUnit.Meters)
+ ' INCORRECT: Changing Units property does not convert Distance2!
+ Distance2.Units = DistanceUnit.Meters
+ Distance3.Value = Distance1.Value + Distance2.Value
+
+
+ // Declare two distances
+ Distance Distance1 = new Distance(50, DistanceUnit.Meters);
+ Distance Distance2 = new Distance(100, DistanceUnit.Feet);
+ // Store their sum in another variable
+ Distance Distance3 = new Distance(0, DistanceUnit.Meters);
+ // INCORRECT: Changing Units property does not convert Distance2!
+ Distance2.Units = DistanceUnit.Meters;
+ Distance3.Value = Distance1.Value + Distance2.Value;
+
+ The correct technique is to use a conversion method to change the unit type instead
+ of modifying the Units property.
+
+ ' Declare two distances
+ Dim Distance1 As New Distance(50, DistanceUnit.Meters)
+ Dim Distance2 As New Distance(100, DistanceUnit.Feet)
+ ' Store their sum in another variable
+ Dim Distance3 As New Distance(0, DistanceUnit.Meters)
+ ' CORRECT: The ToMeters method is used to standardize unit types
+ Distance3.Value = Distance1.ToMeters().Value + Distance2.ToMeters().Value
+
+
+ // Declare two distances
+ Distance Distance1 = new Distance(50, DistanceUnit.Meters);
+ Distance Distance2 = new Distance(100, DistanceUnit.Feet);
+ // Store their sum in another variable
+ Distance Distance3 = new Distance(0, DistanceUnit.Meters);
+ // CORRECT: The ToMeters method is used to standardize unit types
+ Distance3.Value = Distance1.ToMeters().Value + Distance2.ToMeters().Value;
+
+
+ Dim MyElevation As New Elevation(90)
+
+
+ Elevation MyElevation = new Elevation(90);
+
+
+ Elevation MyElevation = new Elevation(90);
+
+
+ Dim MyElevation1 As New Elevation(105, 30, 21.4)
+
+
+ Elevation MyElevation = new Elevation(105, 30, 21.4);
+
+
+ Elevation MyElevation = new Elevation(105, 30, 21.4);
+
+
+ Dim MyElevation As Elevation = Elevation.Minimum
+
+
+ Elevation MyElevation = Elevation.Minimum;
+
+
+ Elevation MyElevation = Elevation.Minimum;
+
+
+ Dim MyElevation As Elevation = Elevation.Maximum
+
+
+ Elevation MyElevation = Elevation.Maximum;
+
+
+ Dim MyElevation As New Elevation(90)
+
+
+ Elevation MyElevation = new Elevation(90);
+
+
+ Dim MyElevation As New Elevation(12, 42.345)
+
+
+ Elevation MyElevation = new Elevation(12, 42.345);
+
+
+ Dim MyElevation As New Elevation(34, 12, 29.2)
+
+
+ Elevation MyElevation = new Elevation(34, 12, 29.2);
+
+
+ Dim MyElevation As New Elevation("123°45'67.8""")
+
+
+ Elevation MyElevation = new Elevation("123°45'67.8\"");
+
+
+ Dim Elevation1 As New Elevation(45)
+ Dim Elevation2 As Elevation = Elevation1.Mirror()
+ Debug.WriteLine(Elevation2.ToString())
+ ' Output: 225
+
+
+ Elevation Elevation1 = new Elevation(45);
+ Elevation Elevation2 = Elevation1.Mirror();
+ Console.WriteLine(Elevation2.ToString());
+ // Output: 225
+
+
+ Dim MyElevation As New Elevation(90)
+ Dim MyRadians As Radian = MyElevation.ToRadians()
+
+
+ Elevation MyElevation = new Elevation(90);
+ Radian MyRadians = MyElevation.ToRadians();
+
+
+ Dim MyElevation As New Elevation(45, 16.772)
+ Debug.WriteLine(MyElevation.ToString("h°m.mm"))
+ ' Output: 45°16.78
+
+
+ Dim MyElevation As New Elevation(45, 16.772);
+ Debug.WriteLine(MyElevation.ToString("h°m.mm"));
+ // Output: 45°16.78
+
+
+ Dim MyElevation As New Elevation(90)
+ Debug.WriteLine(MyElevation.ToString)
+ ' Output: "90°"
+
+
+ Elevation MyElevation = new Elevation(90);
+ Debug.WriteLine(MyElevation.ToString());
+ // Output: "90°"
+
+
+ Dim MyValue As Double = Latitude.ToDecimalDegrees(10, 30, 0)
+
+
+ double MyValue = Latitude.ToDecimalDegrees(10, 30, 0);
+
+
+ Dim MyRadian As Radian = Elevation.ToRadians(90)
+
+
+ Radian MyRadian = Elevation.ToRadians(90);
+
+
+ ' Create a new angle equal to one radian
+ Dim MyRadians As New Radian(1)
+ Dim MyElevation As Elevation = Elevation.FromRadians(MyRadians)
+ Debug.WriteLine(MyElevation.ToString())
+ ' Output: 57°
+
+
+ // Create a new angle equal to one radian
+ Radian MyRadians = new Radian(1);
+ Elevation MyElevation = Elevation.FromRadians(MyRadians);
+ Console.WriteLine(MyElevation.ToString());
+ // Output: 57°
+
+
+ Dim NewElevation As Elevation = Elevation.Parse("123.45°")
+
+
+ Elevation NewElevation = Elevation.Parse("123.45°");
+
+
+ ' Correct use of Increment
+ Dim Elevation1 As New Elevation(89)
+ Elevation1 = Elevation1.Increment()
+ ' Incorrect use of Increment
+ Dim Elevation1 = New Elevation(89)
+ Elevation1.Increment()
+ 'notice Elevation1 will still be 89°!
+
+
+ // Correct use of Increment
+ Elevation Elevation1 = new Elevation(89);
+ Elevation1 = Elevation1.Increment();
+ // Incorrect use of Increment
+ Elevation Elevation1 = new Elevation(89);
+ Elevation1.Increment();
+ //notice Elevation1 will still be 89°!
+
+
+ Dim Elevation1 As New Elevation(45)
+ Elevation1 = Elevation1.Add(45)
+
+
+ Elevation Elevation1 = new Elevation(45);
+ Elevation1 = Elevation1.Add(45);
+
+
+ ' Correct use of Decrement
+ Dim Elevation1 As New Elevation(91)
+ Elevation1 = Elevation1.Decrement()
+ ' Incorrect use of Decrement
+ Dim Elevation1 = New Elevation(91)
+ Elevation1.Increment()
+ ' notice Elevation1 will still be 91°!
+
+
+ // Correct use of Decrement
+ Elevation Elevation1 = new Elevation(91);
+ Elevation1 = Elevation1.Decrement();
+ // Incorrect use of Decrement
+ Elevation Elevation1 = new Elevation(91);
+ Elevation1.Decrement();
+ // notice Elevation1 will still be 91°!
+
+
+ Dim Elevation1 As New Elevation(90)
+ Elevation1 = Elevation1.Subtract(30)
+
+
+ Elevation Elevation1 = new Elevation(90);
+ Elevation1 = Elevation1.Subtract(30);
+
+
+ Dim Elevation1 As New Elevation(30)
+ Elevation1 = Elevation1.Multiply(3)
+
+
+ Elevation Elevation1 = new Elevation(30);
+ Elevation1 = Elevation1.Multiply(3);
+
+
+ Dim Elevation1 As New Elevation(90)
+ Elevation1 = Elevation1.Divide(3)
+
+
+ Elevation Elevation1 = new Elevation(90);
+ Elevation1 = Elevation1.Divide(3);
+
+
+ Dim MyElevation As New Elevation(45, 16.772)
+ Debug.WriteLine(MyElevation.ToString("h°m.mm", CultureInfo.CurrentCulture))
+ ' Output: 45°16.78
+
+
+ Dim MyElevation As New Elevation(45, 16.772);
+ Debug.WriteLine(MyElevation.ToString("h°m.mm", CultureInfo.CurrentCulture));
+ // Output: 45°16.78
+
+
+ ' Equals will return False
+ Dim Elevation1 As New Elevation(90.15);
+ Dim Elevation2 As New Elevation(90.12);
+ If Elevation1.Equals(Elevation2, 2) Then
+ Debug.WriteLine("The values are the same to two digits of precision.");
+ ' Equals will return True
+ Dim Elevation1 As New Elevation(90.15);
+ Dim Elevation2 As New Elevation(90.12);
+ If Elevation1.Equals(Elevation2, 1) Then
+ Debug.WriteLine("The values are the same to one digit of precision.");
+
+
+ // Equals will return False
+ Elevation Elevation1 = new Elevation(90.15);
+ Elevation Elevation2 = new Elevation(90.12);
+ if (Elevation1.Equals(Elevation2, 2))
+ Console.WriteLine("The values are the same to two digits of precision.");
+ // Equals will return True
+ Elevation Elevation1 = new Elevation(90.15);
+ Elevation Elevation2 = new Elevation(90.12);
+ if (Elevation1.Equals(Elevation2, 1))
+ Console.WriteLine("The values are the same to one digits of precision.");
+
+
+ ' Create an angle of 20°30'
+ Dim MyElevation As New Elevation(20, 30)
+ ' Setting the DecimalMinutes recalculated other properties
+ Debug.WriteLine(MyElevation.DecimalDegrees)
+ ' Output: "20.5" the same as 20°30'
+
+
+ // Create an angle of 20°30'
+ Elevation MyElevation = New Elevation(20, 30);
+ // Setting the DecimalMinutes recalculated other properties
+ Console.WriteLine(MyElevation.DecimalDegrees)
+ // Output: "20.5" the same as 20°30'
+
+
+ ' Create an angle of 20°10'30"
+ Dim MyElevation As New Elevation(20, 10, 30)
+ ' The DecimalMinutes property is automatically calculated
+ Debug.WriteLine(MyElevation.DecimalMinutes)
+ ' Output: "10.5"
+
+
+ // Create an angle of 20°10'30"
+ Elevation MyElevation = new Elevation(20, 10, 30);
+ // The DecimalMinutes property is automatically calculated
+ Console.WriteLine(MyElevation.DecimalMinutes)
+ // Output: "10.5"
+
+
+ Dim MyElevation As New Elevation(60.5)
+ Debug.WriteLine(MyElevation.Hours)
+ ' Output: 60
+
+
+ Elevation MyElevation = new Elevation(60.5);
+ Console.WriteLine(MyElevation.Hours);
+ // Output: 60
+
+
+ Dim MyElevation As New Elevation(45.5)
+ Debug.WriteLine(MyElevation.Minutes)
+ ' Output: 30
+
+
+ Elevation MyElevation = new Elevation(45.5);
+ Console.WriteLine(MyElevation.Minutes);
+ // Output: 30
+
+
+ Dim MyElevation As New Elevation(45, 10.5)
+ Debug.WriteLine(MyElevation.Seconds)
+ ' Output: 30
+
+
+ Dim MyElevation As New Elevation(45, 10.5);
+ Console.WriteLine(MyElevation.Seconds);
+ // Output: 30
+
+
+ ' Declare a new event
+ Dim MyAngleEvent As AngleEventHandler
+ Sub Main()
+ ' Create an angle of 90°
+ Dim MyAngle As New Angle(90);
+ ' Raise our custom Event
+ RaiseEvent MyAngleEvent(Me, New AngleEventArgs(MyAngle));
+ End Sub
+
+
+ // Declare a new event
+ AngleEventHandler MyAngleEvent;
+ void Main()
+ {
+ // Create an angle of 90°
+ Angle MyAngle = new Angle(90);
+ // Raise our custom event
+ if (MyAngleEvent != null)
+ MyAngleEvent(this, new AngleEventArgs(MyAngle));
+ }
+
+
+ ' Declare a new event
+ Dim MyAreaEvent As AreaEventHandler
+ Sub Main()
+ ' Create a Area of 125 kilometers
+ Dim MyArea As New Area(125, AreaUnit.SquareKilometers)
+ ' Raise our custom event
+ RaiseEvent MyAreaEvent(Me, New AreaEventArgs(MyArea))
+ End Sub
+
+
+ // Declare a new event
+ AreaEventHandler MyAreaEvent;
+ void Main()
+ {
+ // Create a Area of 125 kilometers
+ Area MyArea = new Area(125, AreaUnit.SquareKilometers);
+ // Raise our custom event
+ if (MyAreaEvent != null)
+ MyAreaEvent(this, New AreaEventArgs(MyArea));
+ }
+
+
+ ' Declare a new event
+ Dim MyAzimuthEvent As AzimuthEventHandler
+ Sub Main()
+ ' Create an angle of 90°
+ Dim MyAzimuth As New Azimuth(90);
+ ' Raise our custom Event
+ RaiseEvent MyAzimuthEvent(Me, New AzimuthEventArgs(MyAzimuth));
+ End Sub
+
+
+ // Declare a new event
+ AzimuthEventHandler MyAzimuthEvent;
+ void Main()
+ {
+ // Create an angle of 90°
+ Azimuth MyAzimuth = new Azimuth(90);
+ // Raise our custom event
+ if (MyAzimuthEvent != null)
+ MyAzimuthEvent(this, new AzimuthEventArgs(MyAzimuth));
+ }
+
+
+ ' Declare a new event
+ Dim MyDistanceEvent As DistanceEventHandler
+ ' Create a distance of 125 kilometers
+ Dim MyDistance As New Distance(125, DistanceUnit.Kilometers)
+ Sub Main()
+ ' Raise our custom event
+ RaiseEvent MyDistanceEvent(Me, New DistanceEventArgs(MyDistance))
+ End Sub
+
+
+ // Declare a new event
+ DistanceEventHandler MyDistanceEvent;
+ // Create a distance of 125 kilometers
+ Distance MyDistance = new Distance(125, DistanceUnit.Kilometers);
+ void Main()
+ {
+ // Raise our custom event
+ MyDistanceEvent(this, New DistanceEventArgs(MyDistance));
+ }
+
+
+ ' Declare a new event
+ Dim MyElevationEvent As ElevationEventHandler
+ Sub Main()
+ ' Create an angle of 90°
+ Dim MyElevation As New Elevation(90);
+ ' Raise our custom Event
+ RaiseEvent MyElevationEvent(Me, New ElevationEventArgs(MyElevation));
+ End Sub
+
+
+ // Declare a new event
+ ElevationEventHandler MyElevationEvent;
+ void Main()
+ {
+ // Create an angle of 90°
+ Elevation MyElevation = new Elevation(90);
+ // Raise our custom event
+ if (MyElevationEvent != null)
+ MyElevationEvent(this, new ElevationEventArgs(MyElevation));
+ }
+
+
+ ' Declare a new event
+ Dim MyLatitudeEvent As LatitudeEventHandler
+ Sub Main()
+ ' Create an angle of 90°
+ Dim MyLatitude As New Latitude(90);
+ ' Raise our custom Event
+ RaiseEvent MyLatitudeEvent(Me, New LatitudeEventArgs(MyLatitude));
+ End Sub
+
+
+ // Declare a new event
+ LatitudeEventHandler MyLatitudeEvent;
+ void Main()
+ {
+ // Create an angle of 90°
+ Latitude MyLatitude = new Latitude(90);
+ // Raise our custom event
+ if (MyLatitudeEvent != null)
+ MyLatitudeEvent(this, new LatitudeEventArgs(MyLatitude));
+ }
+
+
+ ' Declare a new event
+ Dim MyLongitudeEvent As LongitudeEventHandler
+ Sub Main()
+ ' Create an angle of 90°
+ Dim MyLongitude As New Longitude(90);
+ ' Raise our custom Event
+ RaiseEvent MyLongitudeEvent(Me, New LongitudeEventArgs(MyLongitude));
+ End Sub
+
+
+ // Declare a new event
+ LongitudeEventHandler MyLongitudeEvent;
+ void Main()
+ {
+ // Create an angle of 90°
+ Longitude MyLongitude = new Longitude(90);
+ // Raise our custom event
+ if (MyLongitudeEvent != null)
+ MyLongitudeEvent(this, new LongitudeEventArgs(MyLongitude));
+ }
+
+
+ ' Create a new exception
+ Dim MyException As New ApplicationException("The error was successfully created.")
+ ' Declare a new event
+ Dim MyErrorEvent As ExceptionEventHandler
+ Sub Main()
+ ' Raise our custom event
+ RaiseEvent MyErrorEvent(Me, New ExceptionEventArgs(MyException))
+ End Sub
+
+
+ // Create a new exception
+ ApplicationException MyException = new ApplicationException("The error was successfully created.")
+ // Declare a new event
+ ExceptionEventHandler MyErrorEvent;
+ void Main()
+ {
+ // Raise our custom event
+ MySatelliteEvent(this, New ExceptionEventArgs(MyException));
+ }
+
+ -
+
- An exception is thrown which cannot be trapped via a Try..Catch block (such as from a separate thread) +
- An exception is thrown which can be recovered from and should not halt the current operation. +
+ Dim MyLatitude As New Latitude(90)
+
+
+ Latitude MyLatitude = new Latitude(90);
+
+
+ Latitude MyLatitude = new Latitude(90);
+
+
+ Dim MyLatitude1 As New Latitude(105, 30, 21.4)
+
+
+ Latitude MyLatitude = new Latitude(105, 30, 21.4);
+
+
+ Latitude MyLatitude = new Latitude(105, 30, 21.4);
+
+
+ Dim MyLatitude As New Latitude(90)
+
+
+ Latitude MyLatitude = new Latitude(90);
+
+
+ Dim MyLatitude As New Latitude(39.5, LatitudeHemisphere.North)
+
+
+ Latitude MyLatitude = new Latitude(39.5, LatitudeHemisphere.North);
+
+ This example creates a new latitude of 39°30 south.
+
+ Dim MyLatitude As New Latitude(39.5, LatitudeHemisphere.South)
+
+
+ Latitude MyLatitude = new Latitude(39.5, LatitudeHemisphere.South);
+
+
+ Dim MyLatitude As New Latitude(34, 12, 29.2)
+
+
+ Latitude MyLatitude = new Latitude(34, 12, 29.2);
+
+
+ Dim MyLatitude As New Latitude(39, 12, 10, LatitudeHemisphere.North)
+
+
+ Latitude MyLatitude = new Latitude(39, 12, 10, LatitudeHemisphere.North);
+
+ This example creates a new latitude of 39°12'10" south.
+
+ Dim MyLatitude As New Latitude(39, 12, 10, LatitudeHemisphere.South)
+
+
+ Latitude MyLatitude = new Latitude(39, 12, 10, LatitudeHemisphere.South);
+
+
+ Dim MyLatitude As New Latitude(12, 42.345)
+
+
+ Latitude MyLatitude = new Latitude(12, 42.345);
+
+
+ Dim MyLatitude As New Latitude(39, 12.34, LatitudeHemisphere.North)
+
+
+ Latitude MyLatitude = new Latitude(39, 12.34, LatitudeHemisphere.North);
+
+ This example creates a new latitude of 39°12.34 south.
+
+ Dim MyLatitude As New Latitude(39, 12.34, LatitudeHemisphere.South)
+
+
+ Latitude MyLatitude = new Latitude(39, 12.34, LatitudeHemisphere.South);
+
+
+ Dim MyLatitude As New Latitude("23°45'67.8""N")
+
+
+ Latitude MyLatitude = new Latitude("23°45'67.8\"N");
+
+
+ Dim MyLatitude As New Latitude("23°45'67.8""N")
+
+
+ Latitude MyLatitude = new Latitude("23°45'67.8\"N");
+
+
+ Dim Latitude1 As New Latitude(45)
+ Dim Latitude2 As Latitude = Latitude1.Mirror()
+ Debug.WriteLine(Latitude2.ToString())
+ ' Output: 225
+
+
+ Latitude Latitude1 = new Latitude(45);
+ Latitude Latitude2 = Latitude1.Mirror();
+ Console.WriteLine(Latitude2.ToString());
+ // Output: 225
+
+
+ Dim MyLatitude As New Latitude(90)
+ Dim MyRadians As Radian = MyLatitude.ToRadians()
+
+
+ Latitude MyLatitude = new Latitude(90);
+ Radian MyRadians = MyLatitude.ToRadians();
+
+
+ Dim MyLatitude As New Latitude(45, 16.772)
+ Debug.WriteLine(MyLatitude.ToString("h°m.mm"))
+ ' Output: 45°16.78
+
+
+ Dim MyLatitude As New Latitude(45, 16.772);
+ Debug.WriteLine(MyLatitude.ToString("h°m.mm"));
+ // Output: 45°16.78
+
+
+ Dim MyLatitude As New Latitude(90)
+ Debug.WriteLine(MyLatitude.ToString)
+ ' Output: "90°"
+
+
+ Latitude MyLatitude = new Latitude(90);
+ Debug.WriteLine(MyLatitude.ToString());
+ // Output: "90°"
+
+
+ Dim MyValue As Double = Latitude.ToDecimalDegrees(10, 30, 0)
+
+
+ double MyValue = Latitude.ToDecimalDegrees(10, 30, 0);
+
+
+ Dim MyRadian As Radian = Latitude.ToRadians(90)
+
+
+ Radian MyRadian = Latitude.ToRadians(90);
+
+
+ ' Create a new angle equal to one radian
+ Dim MyRadians As New Radian(1)
+ Dim MyLatitude As Latitude = Latitude.FromRadians(MyRadians)
+ Debug.WriteLine(MyLatitude.ToString())
+ ' Output: 57°
+
+
+ // Create a new angle equal to one radian
+ Radian MyRadians = new Radian(1);
+ Latitude MyLatitude = Latitude.FromRadians(MyRadians);
+ Console.WriteLine(MyLatitude.ToString());
+ // Output: 57°
+
+
+ Dim NewLatitude As Latitude = Latitude.Parse("123.45°")
+
+
+ Latitude NewLatitude = Latitude.Parse("123.45°");
+
+
+ ' Correct use of Increment
+ Dim Latitude1 As New Latitude(89)
+ Latitude1 = Latitude1.Increment()
+ ' Incorrect use of Increment
+ Dim Latitude1 = New Latitude(89)
+ Latitude1.Increment()
+ ' notice: Latitude1 will still be 89°!
+
+
+ // Correct use of Increment
+ Latitude Latitude1 = new Latitude(89);
+ Latitude1 = Latitude1.Increment();
+ // Incorrect use of Increment
+ Latitude Latitude1 = new Latitude(89);
+ Latitude1.Increment();
+ // notice: Latitude1 will still be 89°!
+
+
+ Dim Latitude1 As New Latitude(45)
+ Latitude1 = Latitude1.Add(45)
+
+
+ Latitude Latitude1 = new Latitude(45);
+ Latitude1 = Latitude1.Add(45);
+
+
+ ' Correct use of Decrement
+ Dim Latitude1 As New Latitude(91)
+ Latitude1 = Latitude1.Decrement()
+ ' Incorrect use of Decrement
+ Dim Latitude1 = New Latitude(91)
+ Latitude1.Increment()
+ ' notice Latitude1 will still be 91°!
+
+
+ // Correct use of Decrement
+ Latitude Latitude1 = new Latitude(91);
+ Latitude1 = Latitude1.Decrement();
+ // Incorrect use of Decrement
+ Latitude Latitude1 = new Latitude(91);
+ Latitude1.Decrement();
+ // notice Latitude1 will still be 91°!
+
+
+ Dim Latitude1 As New Latitude(90)
+ Latitude1 = Latitude1.Subtract(30)
+
+
+ Latitude Latitude1 = new Latitude(90);
+ Latitude1 = Latitude1.Subtract(30);
+
+
+ Dim Latitude1 As New Latitude(30)
+ Latitude1 = Latitude1.Multiply(3)
+
+
+ Latitude Latitude1 = new Latitude(30);
+ Latitude1 = Latitude1.Multiply(3);
+
+
+ Dim Latitude1 As New Latitude(90)
+ Latitude1 = Latitude1.Divide(3)
+
+
+ Latitude Latitude1 = new Latitude(90);
+ Latitude1 = Latitude1.Divide(3);
+
+
+ ' Equals will return False
+ Dim Latitude1 As New Latitude(90.15);
+ Dim Latitude2 As New Latitude(90.12);
+ If Latitude1.Equals(Latitude2, 2) Then
+ Debug.WriteLine("The values are the same to two digits of precision.");
+ ' Equals will return True
+ Dim Latitude1 As New Latitude(90.15);
+ Dim Latitude2 As New Latitude(90.12);
+ If Latitude1.Equals(Latitude2, 1) Then
+ Debug.WriteLine("The values are the same to one digit of precision.");
+
+
+ // Equals will return False
+ Latitude Latitude1 = new Latitude(90.15);
+ Latitude Latitude2 = new Latitude(90.12);
+ if (Latitude1.Equals(Latitude2, 2))
+ Console.WriteLine("The values are the same to two digits of precision.");
+ // Equals will return True
+ Latitude Latitude1 = new Latitude(90.15);
+ Latitude Latitude2 = new Latitude(90.12);
+ if (Latitude1.Equals(Latitude2, 1))
+ Console.WriteLine("The values are the same to one digits of precision.");
+
+
+ Dim MyLatitude As New Latitude(45, 16.772)
+ Debug.WriteLine(MyLatitude.ToString("h°m.mm", CultureInfo.CurrentCulture))
+ ' Output: 45°16.78
+
+
+ Dim MyLatitude As New Latitude(45, 16.772);
+ Debug.WriteLine(MyLatitude.ToString("h°m.mm", CultureInfo.CurrentCulture));
+ // Output: 45°16.78
+
+
+ ' Create an angle of 20°30'
+ Dim MyLatitude As New Latitude(20, 30)
+ ' Setting the DecimalMinutes recalculated other properties
+ Debug.WriteLine(MyLatitude.DecimalDegrees)
+ ' Output: "20.5" the same as 20°30'
+
+
+ // Create an angle of 20°30'
+ Latitude MyLatitude = New Latitude(20, 30);
+ // Setting the DecimalMinutes recalculated other properties
+ Console.WriteLine(MyLatitude.DecimalDegrees)
+ // Output: "20.5" the same as 20°30'
+
+
+ ' Create an angle of 20°10'30"
+ Dim MyLatitude As New Latitude(20, 10, 30)
+ ' The DecimalMinutes property is automatically calculated
+ Debug.WriteLine(MyLatitude.DecimalMinutes)
+ ' Output: "10.5"
+
+
+ // Create an angle of 20°10'30"
+ Latitude MyLatitude = new Latitude(20, 10, 30);
+ // The DecimalMinutes property is automatically calculated
+ Console.WriteLine(MyLatitude.DecimalMinutes)
+ // Output: "10.5"
+
+
+ Dim MyLatitude As New Latitude(60.5)
+ Debug.WriteLine(MyLatitude.Hours)
+ ' Output: 60
+
+
+ Latitude MyLatitude = new Latitude(60.5);
+ Console.WriteLine(MyLatitude.Hours);
+ // Output: 60
+
+
+ Dim MyLatitude As New Latitude(45.5)
+ Debug.WriteLine(MyLatitude.Minutes)
+ ' Output: 30
+
+
+ Latitude MyLatitude = new Latitude(45.5);
+ Console.WriteLine(MyLatitude.Minutes);
+ // Output: 30
+
+
+ Dim MyLatitude As New Latitude(45, 10.5)
+ Debug.WriteLine(MyLatitude.Seconds)
+ ' Output: 30
+
+
+ Dim MyLatitude As New Latitude(45, 10.5);
+ Console.WriteLine(MyLatitude.Seconds);
+ // Output: 30
+
+ -
+
- 39°S +
- -39° +
+ Dim MyLongitude As New Longitude(90)
+
+
+ Longitude MyLongitude = new Longitude(90);
+
+
+ Longitude MyLongitude = new Longitude(90);
+
+
+ Dim MyLongitude1 As New Longitude(105, 30, 21.4)
+
+
+ Longitude MyLongitude = new Longitude(105, 30, 21.4);
+
+
+ Longitude MyLongitude = new Longitude(105, 30, 21.4);
+
+
+ Dim MyLongitude As New Longitude(90)
+
+
+ Longitude MyLongitude = new Longitude(90);
+
+
+ Dim MyLongitude As New Longitude(39.5, LongitudeHemisphere.North)
+
+
+ Longitude MyLongitude = new Longitude(39.5, LongitudeHemisphere.North);
+
+ This example creates a new Longitude of 39°30 south.
+
+ Dim MyLongitude As New Longitude(39.5, LongitudeHemisphere.South)
+
+
+ Longitude MyLongitude = new Longitude(39.5, LongitudeHemisphere.South);
+
+
+ Dim MyLongitude As New Longitude(34, 12, 29.2)
+
+
+ Longitude MyLongitude = new Longitude(34, 12, 29.2);
+
+
+ Dim MyLongitude As New Longitude(12, 42.345)
+
+
+ Longitude MyLongitude = new Longitude(12, 42.345);
+
+
+ Dim MyLongitude As New Longitude(39, 12.34, LongitudeHemisphere.North)
+
+
+ Longitude MyLongitude = new Longitude(39, 12.34, LongitudeHemisphere.North);
+
+ This example creates a new Longitude of 39°12.34 south.
+
+ Dim MyLongitude As New Longitude(39, 12.34, LongitudeHemisphere.South)
+
+
+ Longitude MyLongitude = new Longitude(39, 12.34, LongitudeHemisphere.South);
+
+
+ Dim MyLongitude As New Longitude("123°45'67.8""")
+
+
+ Longitude MyLongitude = new Longitude("123°45'67.8\"");
+
+ | hh | +hh.h | +hh mm | +hh mm.mm | +
| hh mm ss | +hh mm ss.sss | +hhi | +hh.hi | +
| hh mmi | +hh mm i | +hh mm.mi | +hh mm.m i | +
| hh mm ssi | +hh mm ss i | +hh mm ss.si | +hh mm ss.s i | +
| hhhmmssi | ++ | + | + |
| hh | +hh.h | +hh mm | +hh mm.mm | +
| hh mm ss | +hh mm ss.sss | +hhi | +hh.hi | +
| hh mmi | +hh mm i | +hh mm.mi | +hh mm.m i | +
| hh mm ssi | +hh mm ss i | +hh mm ss.si | +hh mm ss.s i | +
| hhhmmssi | ++ | + | + |
+ Dim Longitude1 As New Longitude(45)
+ Dim Longitude2 As Longitude = Longitude1.Mirror()
+ Debug.WriteLine(Longitude2.ToString())
+ ' Output: 225
+
+
+ Longitude Longitude1 = new Longitude(45);
+ Longitude Longitude2 = Longitude1.Mirror();
+ Console.WriteLine(Longitude2.ToString());
+ // Output: 225
+
+
+ Dim MyLongitude As New Longitude(90)
+ Dim MyRadians As Radian = MyLongitude.ToRadians()
+
+
+ Longitude MyLongitude = new Longitude(90);
+ Radian MyRadians = MyLongitude.ToRadians();
+
+ | HH°MM'SS.SS" | +HHH.H° | +HH MM.MM | +HHHMMSS | +
| HH°MM'SS.SS"I | +HHH.H°I | +HH MM.MMI | +HHHMMSSI | +
+ Dim MyLongitude As New Longitude(45, 16.772)
+ Debug.WriteLine(MyLongitude.ToString("h°m.mm"))
+ ' Output: 45°16.78
+
+
+ Dim MyLongitude As New Longitude(45, 16.772);
+ Debug.WriteLine(MyLongitude.ToString("h°m.mm"));
+ // Output: 45°16.78
+
+
+ Dim MyLongitude As New Longitude(90)
+ Debug.WriteLine(MyLongitude.ToString)
+ ' Output: "90°"
+
+
+ Longitude MyLongitude = new Longitude(90);
+ Debug.WriteLine(MyLongitude.ToString());
+ // Output: "90°"
+
+
+ Dim MyRadian As Radian = Longitude.ToRadians(90)
+
+
+ Radian MyRadian = Longitude.ToRadians(90);
+
+
+ ' Create a new angle equal to one radian
+ Dim MyRadians As New Radian(1)
+ Dim MyLongitude As Longitude = Longitude.FromRadians(MyRadians)
+ Debug.WriteLine(MyLongitude.ToString())
+ ' Output: 57°
+
+
+ // Create a new angle equal to one radian
+ Radian MyRadians = new Radian(1);
+ Longitude MyLongitude = Longitude.FromRadians(MyRadians);
+ Console.WriteLine(MyLongitude.ToString());
+ // Output: 57°
+
+
+ Dim MyValue As Double = Latitude.ToDecimalDegrees(10, 30, 0)
+
+
+ double MyValue = Latitude.ToDecimalDegrees(10, 30, 0);
+
+
+ Dim NewLongitude As Longitude = Longitude.Parse("123.45°")
+
+
+ Longitude NewLongitude = Longitude.Parse("123.45°");
+
+
+ ' Correct use of Increment
+ Dim Longitude1 As New Longitude(89)
+ Longitude1 = Longitude1.Increment()
+ ' Incorrect use of Increment
+ Dim Longitude1 = New Longitude(89)
+ Longitude1.Increment()
+ ' notice: Longitude1 will still be 89°!
+
+
+ // Correct use of Increment
+ Longitude Longitude1 = new Longitude(89);
+ Longitude1 = Longitude1.Increment();
+ // Incorrect use of Increment
+ Longitude Longitude1 = new Longitude(89);
+ Longitude1.Increment();
+ // notice: Longitude1 will still be 89°!
+
+
+ Dim Longitude1 As New Longitude(45)
+ Longitude1 = Longitude1.Add(45)
+
+
+ Longitude Longitude1 = new Longitude(45);
+ Longitude1 = Longitude1.Add(45);
+
+
+ ' Correct use of Decrement
+ Dim Longitude1 As New Longitude(91)
+ Longitude1 = Longitude1.Decrement()
+ ' Incorrect use of Decrement
+ Dim Longitude1 = New Longitude(91)
+ Longitude1.Increment()
+ ' notice Longitude1 will still be 91°!
+
+
+ // Correct use of Decrement
+ Longitude Longitude1 = new Longitude(91);
+ Longitude1 = Longitude1.Decrement();
+ // Incorrect use of Decrement
+ Longitude Longitude1 = new Longitude(91);
+ Longitude1.Decrement();
+ // notice: Longitude1 will still be 91°!
+
+
+ Dim Longitude1 As New Longitude(90)
+ Longitude1 = Longitude1.Subtract(30)
+
+
+ Longitude Longitude1 = new Longitude(90);
+ Longitude1 = Longitude1.Subtract(30);
+
+
+ Dim Longitude1 As New Longitude(30)
+ Longitude1 = Longitude1.Multiply(3)
+
+
+ Longitude Longitude1 = new Longitude(30);
+ Longitude1 = Longitude1.Multiply(3);
+
+
+ Dim Longitude1 As New Longitude(90)
+ Longitude1 = Longitude1.Divide(3)
+
+
+ Longitude Longitude1 = new Longitude(90);
+ Longitude1 = Longitude1.Divide(3);
+
+
+ ' Equals will return False
+ Dim Longitude1 As New Longitude(90.15);
+ Dim Longitude2 As New Longitude(90.12);
+ If Longitude1.Equals(Longitude2, 2) Then
+ Debug.WriteLine("The values are the same to two digits of precision.");
+ ' Equals will return True
+ Dim Longitude1 As New Longitude(90.15);
+ Dim Longitude2 As New Longitude(90.12);
+ If Longitude1.Equals(Longitude2, 1) Then
+ Debug.WriteLine("The values are the same to one digit of precision.");
+
+
+ // Equals will return False
+ Longitude Longitude1 = new Longitude(90.15);
+ Longitude Longitude2 = new Longitude(90.12);
+ if (Longitude1.Equals(Longitude2, 2))
+ Console.WriteLine("The values are the same to two digits of precision.");
+ // Equals will return True
+ Longitude Longitude1 = new Longitude(90.15);
+ Longitude Longitude2 = new Longitude(90.12);
+ if (Longitude1.Equals(Longitude2, 1))
+ Console.WriteLine("The values are the same to one digits of precision.");
+
+ | HH°MM'SS.SS" | +HHH.H° | +HH MM.MM | +HHHMMSS | +
| HH°MM'SS.SS"I | +HHH.H°I | +HH MM.MMI | +HHHMMSSI | +
+ Dim MyLongitude As New Longitude(45, 16.772)
+ Debug.WriteLine(MyLongitude.ToString("h°m.mm", CultureInfo.CurrentCulture))
+ ' Output: 45°16.78
+
+
+ Dim MyLongitude As New Longitude(45, 16.772);
+ Debug.WriteLine(MyLongitude.ToString("h°m.mm", CultureInfo.CurrentCulture));
+ // Output: 45°16.78
+
+
+ ' Create an angle of 20°30'
+ Dim MyLongitude As New Longitude(20, 30)
+ ' Setting the DecimalMinutes recalculated other properties
+ Debug.WriteLine(MyLongitude.DecimalDegrees)
+ ' Output: "20.5" the same as 20°30'
+
+
+ // Create an angle of 20°30'
+ Longitude MyLongitude = New Longitude(20, 30);
+ // Setting the DecimalMinutes recalculated other properties
+ Console.WriteLine(MyLongitude.DecimalDegrees)
+ // Output: "20.5" the same as 20°30'
+
+
+ ' Create an angle of 20°10'30"
+ Dim MyLongitude As New Longitude(20, 10, 30)
+ ' The DecimalMinutes property is automatically calculated
+ Debug.WriteLine(MyLongitude.DecimalMinutes)
+ ' Output: "10.5"
+
+
+ // Create an angle of 20°10'30"
+ Longitude MyLongitude = new Longitude(20, 10, 30);
+ // The DecimalMinutes property is automatically calculated
+ Console.WriteLine(MyLongitude.DecimalMinutes)
+ // Output: "10.5"
+
+
+ Dim MyLongitude As New Longitude(60.5)
+ Debug.WriteLine(MyLongitude.Hours)
+ ' Output: 60
+
+
+ Longitude MyLongitude = new Longitude(60.5);
+ Console.WriteLine(MyLongitude.Hours);
+ // Output: 60
+
+
+ Dim MyLongitude As New Longitude(45.5)
+ Debug.WriteLine(MyLongitude.Minutes)
+ ' Output: 30
+
+
+ Longitude MyLongitude = new Longitude(45.5);
+ Console.WriteLine(MyLongitude.Minutes);
+ // Output: 30
+
+
+ Dim MyLongitude As New Longitude(45, 10.5)
+ Debug.WriteLine(MyLongitude.Seconds)
+ ' Output: 30
+
+
+ Dim MyLongitude As New Longitude(45, 10.5);
+ Console.WriteLine(MyLongitude.Seconds);
+ // Output: 30
+
+ -
+
- 105°W +
- -105° +
+ ' Create a distance of ten miles
+ Dim TravelDistance As New Distance(10, DistanceUnit.StatuteMiles)
+ ' Calculate the point
+ Dim DestinationPoint As Position
+ DestinationPoint = Position.CurrentPosition.TranslateTo(Azimuth.Northwest,
+ TravelDistance)
+
+ 
| vu | +vv.vu | +v u | +
| FEET | +FOOT | +METER | +
| METERS | +METRE | +METRES | +
| KILOMETER | +KILOMETRE | +KILOMETERS | +
| KILOMETRES | +KNOT | +KNOTS | +
| MILE | +MILES | +STATUTE MILE | +
| STATUTE MILES | +F | +FT | +
| M | +KM | +K | +
| PER | +-PER- | +/ | +
| SECOND | +SEC | +S | +
| HOUR | +HR | +H | +