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

  • Compare New GitHub Copilot Free Plan for Visual Studio/VS Code to Paid Plans

    The free plan restricts the number of completions, chat requests and access to AI models, being suitable for occasional users and small projects.

  • Diving Deep into .NET MAUI

    Ever since someone figured out that fiddling bits results in source code, developers have sought one codebase for all types of apps on all platforms, with Microsoft's latest attempt to further that effort being .NET MAUI.

  • Copilot AI Boosts Abound in New VS Code v1.96

    Microsoft improved on its new "Copilot Edit" functionality in the latest release of Visual Studio Code, v1.96, its open-source based code editor that has become the most popular in the world according to many surveys.

  • AdaBoost Regression Using C#

    Dr. James McCaffrey from Microsoft Research presents a complete end-to-end demonstration of the AdaBoost.R2 algorithm for regression problems (where the goal is to predict a single numeric value). The implementation follows the original source research paper closely, so you can use it as a guide for customization for specific scenarios.

  • Versioning and Documenting ASP.NET Core Services

    Building an API with ASP.NET Core is only half the job. If your API is going to live more than one release cycle, you're going to need to version it. If you have other people building clients for it, you're going to need to document it.

Subscribe on YouTube