{"id":2913,"date":"2009-04-01T03:32:00","date_gmt":"2009-04-01T03:32:00","guid":{"rendered":"https:\/\/blogs.msdn.microsoft.com\/vbteam\/2009\/04\/01\/using-negative-sleeps-to-improve-responsiveness-in-vb-web-apps\/"},"modified":"2024-07-05T13:30:56","modified_gmt":"2024-07-05T20:30:56","slug":"using-negative-sleeps-to-improve-responsiveness-in-vb-web-apps","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/vbteam\/using-negative-sleeps-to-improve-responsiveness-in-vb-web-apps\/","title":{"rendered":"Using "negative sleeps" to improve responsiveness in VB web apps"},"content":{"rendered":"

[NOTE: please also read the followup<\/a> to this article] <\/p>\n

 <\/p>\n

.NET 4.0 will introduce many new threading and concurrency classes — SpinLock, Parallel Linq, and ConcurrentDictionary to name but a few.<\/p>\n

The new feature that excites me the most is the ability to pass a negative argument to Thread.Sleep<\/strong>. This article describes how you can use it to speed up a program by compensating for internet latency.<\/p>\n

Let’s start with a simple VB program which retrieves an RSS feed and produces from it a new feed with only those items from a particular date of the year:<\/p>\n

Option<\/span> Strict<\/span> On<\/p>\n

<\/span><\/span><\/p>\n

Imports<\/span> System.Net<\/p>\n

<\/span><\/p>\n

Imports<\/span> System.IO<\/p>\n

<\/span><\/p>\n

<\/p>\n

 <\/p>\n

<\/span><\/p>\n

Module<\/span> Module1<\/p>\n

<\/span><\/p>\n

    <\/span>Sub<\/span> Main()<\/p>\n

<\/span><\/p>\n

        <\/span>Dim<\/span> xml = Fetch(New<\/span> Uri(“http:\/\/blogs.msdn.com\/vbteam\/rss.xml”<\/span>))<\/p>\n

<\/span><\/p>\n

<\/p>\n

 <\/p>\n

<\/span><\/p>\n

        <\/span>Dim<\/span> items = From<\/span> item In<\/span> xml.<<\/span>channel><\/span>.<<\/span>item><\/span> <\/p>\n

<\/span><\/p>\n

                    <\/span>Select<\/span> title = item.<<\/span>title><\/span>.Value,<\/p>\n

<\/span><\/p>\n

                           <\/span>url = item.<<\/span>link><\/span>.Value,<\/p>\n

<\/span><\/p>\n

                           <\/span>time = DateTime.Parse(item.<<\/span>pubDate><\/span>.Value)<\/p>\n

<\/span><\/p>\n

                    <\/span>Where<\/span> time.Month = 4 AndAlso<\/span> time.Day = 1<\/span><\/p>\n

<\/p>\n

 <\/p>\n

<\/span><\/p>\n

        <\/span>Dim<\/span> rss = <<\/span>rss<\/span> version<\/span>=<\/span>“<\/span>2.0<\/span>“<\/span>><\/p>\n

<\/span><\/span><\/p>\n

                      <\/span><<\/span>channel<\/span>><\/p>\n

<\/span><\/span><\/p>\n

                          <\/span><<\/span>title<\/span>><\/span>Refeed<\/span><\/<\/span>title<\/span>><\/p>\n

<\/span><\/span><\/p>\n

                          <\/span><<\/span>description<\/span>><\/span>The last week of the feed<\/span><\/<\/span>description<\/span>><\/p>\n

<\/span><\/span><\/p>\n

                          <\/span><<\/span>language<\/span>><\/span>en<\/span><\/<\/span>language<\/span>><\/p>\n

<\/span><\/span><\/p>\n

                          <\/span><<\/span>ttl<\/span>><\/span>120<\/span><\/<\/span>ttl<\/span>><\/p>\n

<\/span><\/span><\/p>\n

                          <\/span><<\/span>pubDate<\/span>><\/span><%=<\/span> Now.ToString(“r”<\/span>) %><\/span><\/<\/span>pubDate<\/span>><\/p>\n

<\/span><\/span><\/p>\n

                          <\/span><%=<\/span> From<\/span> item In<\/span> items Select<\/span> <\/p>\n

<\/span><\/p>\n

                              <\/span><<\/span>item<\/span>><\/p>\n

<\/span><\/span><\/p>\n

                                  <\/span><<\/span>title<\/span>><\/span><%=<\/span> item.title %><\/span><\/<\/span>title<\/span>><\/p>\n

<\/span><\/span><\/p>\n

                                  <\/span><<\/span>pubDate<\/span>><\/span><%=<\/span> item.time.ToString(“r”<\/span>) %><\/span><\/<\/span>pubDate<\/span>><\/p>\n

<\/span><\/span><\/p>\n

          <\/span>                        <\/span><<\/span>link<\/span>><\/span><%=<\/span> item.url %><\/span><\/<\/span>link<\/span>><\/p>\n

<\/span><\/span><\/p>\n

                              <\/span><\/<\/span>item<\/span>><\/span> %><\/p>\n

<\/span><\/span><\/p>\n

                      <\/span><\/<\/span>channel<\/span>><\/p>\n

<\/span><\/span><\/p>\n

                  <\/span><\/<\/span>rss<\/span>><\/p>\n

<\/span><\/span><\/p>\n

<\/p>\n

 <\/p>\n

<\/span><\/p>\n

        <\/span>Console.WriteLine(rss)<\/p>\n

<\/span><\/p>\n

    <\/span>End<\/span> Sub<\/p>\n

<\/span><\/span><\/p>\n

<\/p>\n

 <\/p>\n

<\/span><\/p>\n

    <\/span>Function<\/span> Fetch(ByVal<\/span> url As<\/span> Uri) As<\/span> XElement<\/p>\n

<\/span><\/p>\n

        <\/span>Dim<\/span> x = WebRequest.Create(url)<\/p>\n

<\/span><\/p>\n

        <\/span>Using<\/span> r = x.GetResponse, rs As<\/span> New<\/span> StreamReader(r.GetResponseStream)<\/p>\n

<\/span><\/p>\n

            <\/span>Return<\/span> XElement.Parse(rs.ReadToEnd)<\/p>\n

<\/span><\/p>\n

        <\/span>End<\/span> Using<\/p>\n

<\/span><\/span><\/p>\n

    <\/span>End<\/span> Function<\/p>\n

<\/span><\/span><\/p>\n

<\/p>\n

 <\/p>\n

<\/span><\/p>\n

End<\/span> Module<\/p>\n

<\/span><\/span><\/p>\n

How to optimize this? The important rule of thumb is that “everything done over the internet is much slower than anything done locally”. In this case the bottleneck is the call to Fetch \/ WebRequest.GetResponse, so it’s this that we have to optimize.<\/p>\n

The key idea is to use the new “negative argument” feature of Threading.Thread.Sleep:<\/p>\n

Public<\/span> <\/span>Shared<\/span> <\/span>Sub<\/span> Sleep (millisecondsTimeout <\/span>As<\/span> <\/span>Integer<\/span>)<\/span><\/p>\n

The argument says how long must elapse before the next statement executes. Up to .NET3.5, the millisecondsTimeout had to be positive, or “-1” to indicate infinity, and if you passed any other number then it threw an ArgumentOutOfRange exception.<\/p>\n

 <\/p>\n

Negative sleeps<\/em><\/strong><\/p>\n

Starting with .NET4.0, you can pass any negative argument to Thread.Sleep. As you’d expect, a negative argument indicates that the next statement should be executed earlier. Exception: for backwards compatibility, Thread.Sleep(-1) still has the special meaning “Infinite Sleep”. If you really want to sleep for -1ms rather than infinity you should use Thread.SleepEx(-1), which doesn’t have the special interpretation for -1.<\/p>\n

And so we’ll rewrite the function “Fetch” to use negative sleeps. The logic is subtle, so I give a few lines of code and then explain what they’re doing:<\/p>\n

Function<\/span> FetchFaster(ByVal<\/span> url As<\/span> Uri) As<\/span> XElement<\/p>\n

<\/span><\/p>\n

    <\/span>Static<\/span> Delays As<\/span> New<\/span> LinkedList(Of<\/span> Integer<\/span>) ‘ Typical latencies (ms)<\/span><\/span><\/p>\n

 <\/p>\n

<\/span><\/p>\n

As shown above, we’re going to keep a record of typical past latencies for the web request in the “Delays” variable. That lets us calculate the average latency of web requests given our internet connection.<\/p>\n

    <\/span>‘ Do a negative sleep before sending the request, so that the<\/p>\n

<\/span><\/span><\/p>\n

    <\/span>‘ response will be ready at approximately the time it’s needed<\/p>\n

<\/span><\/span><\/p>\n

    <\/span>Dim<\/span> expectedLatency = If<\/span>(Delays.Count = 0, 0, CInt<\/span>(Delays.Average()))<\/p>\n

<\/span><\/p>\n

    <\/span>Thread.Sleep(-expectedLatency)<\/span><\/p>\n

In the code above, Thread.Sleep(-expectedLatency) passes a negative<\/em> argument to Thread.Sleep before executing the web request. Thus, if typical latency is 140ms, all we’re doing is issuing our web request 140ms earlier than would otherwise have been the case.<\/p>\n

    <\/span>Dim<\/span> startTime = Now<\/p>\n

<\/span><\/p>\n

    <\/span>Dim<\/span> x = WebRequest.Create(url)<\/p>\n

<\/span><\/p>\n

    <\/span>Using<\/span> r = x.GetResponse, rs As<\/span> New<\/span> StreamReader(r.GetResponseStream)<\/p>\n

<\/span><\/p>\n

<\/p>\n

 <\/p>\n

<\/span><\/p>\n

        <\/span>‘ Calculate the latency on this call, and add it into the “Delays” log<\/p>\n

<\/span><\/span><\/p>\n

        <\/span>Dim<\/span> actualLatency = CInt<\/span>((Now – startTime).TotalMilliseconds)<\/p>\n

<\/span><\/p>\n

        <\/span>If<\/span> (Delays.Count >= 10) Then<\/span> Delays.RemoveFirst()<\/p>\n

<\/span><\/p>\n

<\/span><\/p><\/p>\n","protected":false},"excerpt":{"rendered":"

[NOTE: please also read the followup to this article]    .NET 4.0 will introduce many new threading and concurrency classes — SpinLock, Parallel Linq, and ConcurrentDictionary to name but a few. The new feature that excites me the most is the ability to pass a negative argument to Thread.Sleep. This article describes how you can use it to […]<\/p>\n","protected":false},"author":260,"featured_media":8818,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[192,195],"tags":[99],"class_list":["post-2913","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-featured","category-visual-basic","tag-lucian-wischik"],"acf":[],"blog_post_summary":"

[NOTE: please also read the followup to this article]    .NET 4.0 will introduce many new threading and concurrency classes — SpinLock, Parallel Linq, and ConcurrentDictionary to name but a few. The new feature that excites me the most is the ability to pass a negative argument to Thread.Sleep. This article describes how you can use it to […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/posts\/2913","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/users\/260"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/comments?post=2913"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/posts\/2913\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/media\/8818"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/media?parent=2913"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/categories?post=2913"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/tags?post=2913"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}