System.UInt16 F# snippets

snippets/fsharp/System/UInt16/CompareTo/fs.fsproj

@@ -0,0 +1,10 @@
+<Project Sdk="Microsoft.NET.Sdk">
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net6.0</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="source.fs" />
+  </ItemGroup>
+</Project>

snippets/fsharp/System/UInt16/CompareTo/source.fs

@@ -0,0 +1,22 @@
+//<snippet3>
+open System
+
+type Temperature() =
+    // The value holder
+    let mutable m_value = 0us
+
+    interface IComparable with
+        /// IComparable.CompareTo implementation.
+        member _.CompareTo(obj) =
+            match obj with
+            | :? Temperature as temp ->             
+                m_value.CompareTo temp.Value
+            | _ ->
+                invalidArg "obj" "object is not a Temperature"
+
+    member _.Value
+        with get () =
+            m_value
+        and set (v) =
+            m_value <- v
+//</snippet3>

snippets/fsharp/System/UInt16/Equals/equalsoverl.fs

@@ -0,0 +1,51 @@
+module equalsoverl
+
+// <Snippet1>
+let value = 112us
+
+let testObjectForEquality (obj: obj) =
+    printfn $"{value} ({value.GetType().Name}) = {obj} ({obj.GetType().Name}): {value.Equals obj}\n"
+
+let byte1= 112uy
+printfn $"value = byte1: {value.Equals byte1,16}"
+testObjectForEquality byte1
+
+let short1 = 112s
+printfn $"value = short1: {value.Equals short1,17}"
+testObjectForEquality short1
+
+let int1 = 112
+printfn $"value = int1: {value.Equals int1,19}"
+testObjectForEquality int1
+
+let sbyte1 = 112y
+printfn $"value = sbyte1: {value.Equals sbyte1,17}"
+testObjectForEquality sbyte1
+
+let dec1 = 112m
+printfn $"value = dec1: {value.Equals dec1,21}"
+testObjectForEquality dec1
+
+let dbl1 = 112.
+printfn $"value = dbl1: {value.Equals dbl1,20}"
+testObjectForEquality dbl1
+
+// The example displays the following output:
+//       value = byte1:             True
+//       112 (UInt16) = 112 (Byte): False
+//
+//       value = short1:             False
+//       112 (UInt16) = 112 (Int16): False
+//
+//       value = int1:               False
+//       112 (UInt16) = 112 (Int32): False
+//
+//       value = sbyte1:             False
+//       112 (UInt16) = 112 (SByte): False
+//
+//       value = dec1:                 False
+//       112 (UInt16) = 112 (Decimal): False
+//
+//       value = dbl1:                False
+//       112 (UInt16) = 112 (Double): False
+// </Snippet1>

snippets/fsharp/System/UInt16/Equals/fs.fsproj

@@ -0,0 +1,11 @@
+<Project Sdk="Microsoft.NET.Sdk">
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net6.0</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="uint16_equals.fs" />
+    <Compile Include="equalsoverl.fs" />
+  </ItemGroup>
+</Project>

snippets/fsharp/System/UInt16/Equals/uint16_equals.fs

@@ -0,0 +1,16 @@
+module uint16_equals
+
+// <Snippet1>
+let myVariable1 = 10us
+let myVariable2 = 10us
+
+//Display the declaring type.
+printfn $"\nType of 'myVariable1' is '{myVariable1.GetType()}' and value is :{myVariable1}"
+printfn $"Type of 'myVariable2' is '{myVariable2.GetType()}' and value is :{myVariable2}"
+
+// Compare 'myVariable1' instance with 'myVariable2' Object.
+if myVariable1.Equals myVariable2 then
+    printfn $"\nStructures 'myVariable1' and 'myVariable2' are equal"
+else
+    printfn $"\nStructures 'myVariable1' and 'myVariable2' are not equal"
+// </Snippet1>

snippets/fsharp/System/UInt16/MaxValue/MaxValue.fs

@@ -0,0 +1,11 @@
+// <Snippet1>
+open System
+
+let integerValue = 1216
+
+if integerValue >= int UInt16.MinValue && integerValue <= int UInt16.MaxValue then
+    let uIntegerValue = uint16 integerValue
+    printfn $"{uIntegerValue}"
+else
+    printfn $"Unable to convert {integerValue} to a UInt16t."
+// </Snippet1>

snippets/fsharp/System/UInt16/MaxValue/fs.fsproj

@@ -0,0 +1,10 @@
+<Project Sdk="Microsoft.NET.Sdk">
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net6.0</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="MaxValue.fs" />
+  </ItemGroup>
+</Project>

snippets/fsharp/System/UInt16/Parse/fs.fsproj

@@ -0,0 +1,13 @@
+<Project Sdk="Microsoft.NET.Sdk">
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net6.0</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="parseex5.fs" />
+    <Compile Include="parseex2.fs" />
+    <Compile Include="parseex3.fs" />
+    <Compile Include="parseex4.fs" />
+  </ItemGroup>
+</Project>

snippets/fsharp/System/UInt16/Parse/parseex2.fs

@@ -0,0 +1,88 @@
+module parseex2
+
+// <Snippet6>
+open System
+open System.Globalization
+
+let values = [| " 214 "; "1,064"; "(0)"; "1241+"; " + 214 "; " +214 "; "2153.0"; "1e03"; "1300.0e-2" |]
+let whitespace =  NumberStyles.AllowLeadingWhite ||| NumberStyles.AllowTrailingWhite
+let styles = 
+    [| NumberStyles.None; whitespace 
+       NumberStyles.AllowLeadingSign ||| NumberStyles.AllowTrailingSign ||| whitespace 
+       NumberStyles.AllowThousands ||| NumberStyles.AllowCurrencySymbol
+       NumberStyles.AllowExponent ||| NumberStyles.AllowDecimalPoint |]
+
+// Attempt to convert each number using each style combination.
+for value in values do
+    printfn $"Attempting to convert '{value}':"
+    for style in styles do
+        try
+            let number = UInt16.Parse(value, style)
+            printfn $"   {style}: {number}"
+        with :? FormatException ->
+            printfn $"   {style}: Bad Format"
+    printfn ""
+// The example display the following output:
+//    Attempting to convert ' 214 ':
+//       None: Bad Format
+//       AllowLeadingWhite, AllowTrailingWhite: 214
+//       Integer, AllowTrailingSign: 214
+//       AllowThousands, AllowCurrencySymbol: Bad Format
+//       AllowDecimalPoint, AllowExponent: Bad Format
+//    
+//    Attempting to convert '1,064':
+//       None: Bad Format
+//       AllowLeadingWhite, AllowTrailingWhite: Bad Format
+//       Integer, AllowTrailingSign: Bad Format
+//       AllowThousands, AllowCurrencySymbol: 1064
+//       AllowDecimalPoint, AllowExponent: Bad Format
+//    
+//    Attempting to convert '(0)':
+//       None: Bad Format
+//       AllowLeadingWhite, AllowTrailingWhite: Bad Format
+//       Integer, AllowTrailingSign: Bad Format
+//       AllowThousands, AllowCurrencySymbol: Bad Format
+//       AllowDecimalPoint, AllowExponent: Bad Format
+//    
+//    Attempting to convert '1241+':
+//       None: Bad Format
+//       AllowLeadingWhite, AllowTrailingWhite: Bad Format
+//       Integer, AllowTrailingSign: 1241
+//       AllowThousands, AllowCurrencySymbol: Bad Format
+//       AllowDecimalPoint, AllowExponent: Bad Format
+//    
+//    Attempting to convert ' + 214 ':
+//       None: Bad Format
+//       AllowLeadingWhite, AllowTrailingWhite: Bad Format
+//       Integer, AllowTrailingSign: Bad Format
+//       AllowThousands, AllowCurrencySymbol: Bad Format
+//       AllowDecimalPoint, AllowExponent: Bad Format
+//    
+//    Attempting to convert ' +214 ':
+//       None: Bad Format
+//       AllowLeadingWhite, AllowTrailingWhite: Bad Format
+//       Integer, AllowTrailingSign: 214
+//       AllowThousands, AllowCurrencySymbol: Bad Format
+//       AllowDecimalPoint, AllowExponent: Bad Format
+//    
+//    Attempting to convert '2153.0':
+//       None: Bad Format
+//       AllowLeadingWhite, AllowTrailingWhite: Bad Format
+//       Integer, AllowTrailingSign: Bad Format
+//       AllowThousands, AllowCurrencySymbol: Bad Format
+//       AllowDecimalPoint, AllowExponent: 2153
+//    
+//    Attempting to convert '1e03':
+//       None: Bad Format
+//       AllowLeadingWhite, AllowTrailingWhite: Bad Format
+//       Integer, AllowTrailingSign: Bad Format
+//       AllowThousands, AllowCurrencySymbol: Bad Format
+//       AllowDecimalPoint, AllowExponent: 1000
+//    
+//    Attempting to convert '1300.0e-2':
+//       None: Bad Format
+//       AllowLeadingWhite, AllowTrailingWhite: Bad Format
+//       Integer, AllowTrailingSign: Bad Format
+//       AllowThousands, AllowCurrencySymbol: Bad Format
+//       AllowDecimalPoint, AllowExponent: 13
+// </Snippet6>

snippets/fsharp/System/UInt16/Parse/parseex3.fs

@@ -0,0 +1,45 @@
+module parseex3
+
+// <Snippet3>
+open System
+open System.Globalization
+
+// Define a custom culture that uses "++" as a positive sign. 
+let ci = CultureInfo ""
+ci.NumberFormat.PositiveSign <- "++"
+// Create an array of cultures.
+let cultures = [| ci; CultureInfo.InvariantCulture |]
+// Create an array of strings to parse.
+let values = 
+    [| "++1403"; "-0"; "+0"; "+16034" 
+       string Int16.MinValue; "14.0"; "18012" |]
+// Parse the strings using each culture.
+for culture in cultures do
+    printfn $"Parsing with the '{culture.Name}' culture."
+    for value in values do
+        try
+            let number = UInt16.Parse(value, culture)
+            printfn $"   Converted '{value}' to {number}."
+        with
+        | :? FormatException ->
+            printfn $"   The format of '{value}' is invalid."
+        | :? OverflowException ->
+            printfn $"   '{value}' is outside the range of a UInt16 value."
+// The example displays the following output:
+//       Parsing with the  culture.
+//          Converted '++1403' to 1403.
+//          Converted '-0' to 0.
+//          The format of '+0' is invalid.
+//          The format of '+16034' is invalid.
+//          '-32768' is outside the range of a UInt16 value.
+//          The format of '14.0' is invalid.
+//          Converted '18012' to 18012.
+//       Parsing with the '' culture.
+//          The format of '++1403' is invalid.
+//          Converted '-0' to 0.
+//          Converted '+0' to 0.
+//          Converted '+16034' to 16034.
+//          '-32768' is outside the range of a UInt16 value.
+//          The format of '14.0' is invalid.
+//          Converted '18012' to 18012.
+// </Snippet3>

snippets/fsharp/System/UInt16/Parse/parseex4.fs

@@ -0,0 +1,64 @@
+module parseex4
+
+// <Snippet4>
+open System
+open System.Globalization
+
+let cultureNames = [| "en-US"; "fr-FR" |]
+let styles = 
+    [| NumberStyles.Integer; NumberStyles.Integer ||| NumberStyles.AllowDecimalPoint |]
+let values =
+    [| "1702"; "+1702.0"; "+1702,0"; "-1032.00"; "-1032,00"; "1045.1"; "1045,1" |]
+
+// Parse strings using each culture
+for cultureName in cultureNames do
+    let ci = CultureInfo cultureName
+    printfn $"Parsing strings using the {ci.DisplayName} culture"
+    // Use each style.
+    for style in styles do
+        printfn $"   Style: {style}"
+        // Parse each numeric string.
+        for value in values do
+            try
+                printfn $"      Converted '{value}' to {UInt16.Parse(value, style, ci)}."
+            with
+            | :? FormatException ->
+                printfn $"      Unable to parse '{value}'."
+            | :? OverflowException ->
+                printfn $"      '{value}' is out of range of the UInt16 type."
+// The example displays the following output:
+//       Parsing strings using the English (United States) culture
+//          Style: Integer
+//             Converted '1702' to 1702.
+//             Unable to parse '+1702.0'.
+//             Unable to parse '+1702,0'.
+//             Unable to parse '-1032.00'.
+//             Unable to parse '-1032,00'.
+//             Unable to parse '1045.1'.
+//             Unable to parse '1045,1'.
+//          Style: Integer, AllowDecimalPoint
+//             Converted '1702' to 1702.
+//             Converted '+1702.0' to 1702.
+//             Unable to parse '+1702,0'.
+//             '-1032.00' is out of range of the UInt16 type.
+//             Unable to parse '-1032,00'.
+//             '1045.1' is out of range of the UInt16 type.
+//             Unable to parse '1045,1'.
+//       Parsing strings using the French (France) culture
+//          Style: Integer
+//             Converted '1702' to 1702.
+//             Unable to parse '+1702.0'.
+//             Unable to parse '+1702,0'.
+//             Unable to parse '-1032.00'.
+//             Unable to parse '-1032,00'.
+//             Unable to parse '1045.1'.
+//             Unable to parse '1045,1'.
+//          Style: Integer, AllowDecimalPoint
+//             Converted '1702' to 1702.
+//             Unable to parse '+1702.0'.
+//             Converted '+1702,0' to 1702.
+//             Unable to parse '-1032.00'.
+//             '-1032,00' is out of range of the UInt16 type.
+//             Unable to parse '1045.1'.
+//             '1045,1' is out of range of the UInt16 type.
+// </Snippet4>

snippets/fsharp/System/UInt16/Parse/parseex5.fs

@@ -0,0 +1,32 @@
+module parseex5
+
+// <Snippet5>
+open System
+
+let values = 
+    [| "-0"; "17"; "-12"; "185"; "66012"; "+0" 
+       ""; null; "16.1"; "28.0"; "1,034" |]
+for value in values do
+    try
+        let number = UInt16.Parse value
+        printfn $"'{value}' --> {number}"
+    with
+    | :? FormatException ->
+        printfn $"'{value}' --> Bad Format"
+    | :? OverflowException ->
+        printfn $"'{value}' --> OverflowException"
+    | :? ArgumentNullException ->
+        printfn $"'{value}' --> Null"
+// The example displays the following output:
+//       '-0' --> 0
+//       '17' --> 17
+//       '-12' --> OverflowException
+//       '185' --> 185
+//       '66012' --> OverflowException
+//       '+0' --> 0
+//       '' --> Bad Format
+//       '' --> Null
+//       '16.1' --> Bad Format
+//       '28.0' --> Bad Format
+//       '1,034' --> Bad Format
+// </Snippet5>