TimeoutException F# snippet (#7883)

Author: albert-du

snippets/fsharp/System/TimeoutException/Overview/fs.fsproj

@@ -0,0 +1,13 @@
+<Project Sdk="Microsoft.NET.Sdk">
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net6.0</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="to.fs" />
+  </ItemGroup>
+  <ItemGroup>
+    <PackageReference Include="System.IO.Ports" Version="6.0.0" />
+  </ItemGroup>
+</Project>

snippets/fsharp/System/TimeoutException/Overview/to.fs

@@ -0,0 +1,42 @@
+//<snippet1>
+// This example demonstrates the use of the TimeoutException
+// exception in conjunction with the SerialPort class.
+
+open System
+open System.IO.Ports
+
+try
+// Set the COM1 serial port to speed = 4800 baud, parity = odd,
+// data bits = 8, stop bits = 1.
+    let sp = new SerialPort("COM1", 4800, Parity.Odd, 8, StopBits.One)
+// Timeout after 2 seconds.
+    sp.ReadTimeout <- 2000
+    sp.Open()
+
+// Read until either the default newline termination string
+// is detected or the read operation times out.
+    let input = sp.ReadLine()
+
+    sp.Close()
+
+// Echo the input.
+    printfn $"{input}"
+
+// Only catch timeout exceptions.
+with :? TimeoutException as e ->
+    printfn $"{e}"
+(*
+This example produces the following results:
+
+(Data received at the serial port is echoed to the console if the
+read operation completes successfully before the specified timeout period
+expires. Otherwise, a timeout exception like the following is thrown.)
+
+System.TimeoutException: The operation has timed-out.
+   at System.IO.Ports.SerialStream.ReadByte(Int32 timeout)
+   at System.IO.Ports.SerialPort.ReadOneChar(Int32 timeout)
+   at System.IO.Ports.SerialPort.ReadTo(String value)
+   at System.IO.Ports.SerialPort.ReadLine()
+   at Sample.main()
+*)
+//</snippet1>

xml/System/TimeoutException.xml

@@ -75,6 +75,7 @@
   
  :::code language="cpp" source="~/snippets/cpp/VS_Snippets_CLR/TimeoutException.class/cpp/to.cpp" id="Snippet1":::
  :::code language="csharp" source="~/snippets/csharp/System/TimeoutException/Overview/to.cs" id="Snippet1":::
+ :::code language="fsharp" source="~/snippets/fsharp/System/TimeoutException/Overview/to.fs" id="Snippet1":::
  :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_CLR/TimeoutException.class/VB/to.vb" id="Snippet1":::  
   
  ]]></format>