Understanding Iterators, Part 2: Listing 2

The Visual Basic lambda iterator method.

Public Sub CategoryClickLambda(CategoryName As String)
    Dim iL As New IteratorsDemo.IteratorsLayer
    lstCoursesAndModules.Items.Clear()
    Dim courseCount = 0
    Dim moduleCount = 0

    Dim svcUri As Uri = New Uri("http://www.pluralsight-training.net/odata/")
    Dim provider = New PluralsightService.CourseProvider(svcUri)
    Dim CourseModulesLambda =
        Iterator Function() As IEnumerable(Of CourseWithModules)
            Dim courses = iL.GetCoursesForCategory(CategoryName)
            For Each course In courses
                Dim courseWithModules = New CourseWithModules _
                    With {.Course = course, .Modules = iL.GetModulesForCourse(course.Name)}
                Yield courseWithModules
            Next
        End Function

    For Each item In CourseModulesLambda()
        lstCoursesAndModules.Items.Add(String.Empty)
        Dim CourseLine = String.Format("    {0}  ({1})", item.Course.Title, item.Course.Name)
        lstCoursesAndModules.Items.Add(CourseLine)
        courseCount += 1

        For Each moduleItem In item.Modules
            Dim ModuleLine = String.Format("        {0}  ({1})", moduleItem.Title, moduleItem.VideoLength)
            lstCoursesAndModules.Items.Add(ModuleLine)
            moduleCount += 1
        Next
        Application.DoEvents()
    Next

    Dim header = String.Format("There are {0} Courses With {1} Modules For Category {2}", courseCount, moduleCount, CategoryName)
    lstCoursesAndModules.Items.Insert(0, header)
  End Sub

About the Author

Joe Kunk is a Microsoft MVP in Visual Basic, three-time president of the Greater Lansing User Group for .NET, and developer for Dart Container Corporation of Mason, Michigan. He's been developing software for over 30 years and has worked in the education, government, financial and manufacturing industries. Kunk's co-authored the book "Professional DevExpress ASP.NET Controls" (Wrox Programmer to Programmer, 2009). He can be reached via email at [email protected].

comments powered by Disqus

Featured

  • Black White Wave IMage

    Neural Regression Using PyTorch: Training

    The goal of a regression problem is to predict a single numeric value, for example, predicting the annual revenue of a new restaurant based on variables such as menu prices, number of tables, location and so on.

  • Microsoft Ships Visual Studio 2019 v16.9 Servicing Baseline Release

    Microsoft is urging enterprises and professional coders to standardize on the new Visual Studio 2019 v16.9, a servicing baseline release that's guaranteed to receive official support for an extended period.

  • Microsoft Extends Low-Code Push with Power Fx Programming Language

    "Using formulas that are already familiar to hundreds of millions of users, Power Fx allows a broad range of people to bring skills they already know to low code solutions."

  • Microsoft's Tools to Fight Solorigate Attack Are Now Open Source

    Microsoft open sourced homegrown tools it used to check its systems for code related to the recent massive breach of supply chains that the company has named Solorigate.

Upcoming Events