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

  • AI Explains Expressions in Update to Java on VS Code

    "The Spring Tools now show code lenses above these expressions that allow you to quickly let GitHub Copilot explain those statements for you."

  • Microsoft Eases Integration with Semantic Kernel AI SDK

    The basic idea is to provide unified API abstractions, especially for idiomatic C# code, to help platform developers and others work with any provider with standard implementations for caching, telemetry, tool calling and other common tasks.

  • Final .NET 9 Preview Ships with Go-Live License

    Visual Studio developers can now download the SDK for .NET 9 Release Candidate 2 with a go-live license, meaning devs get Microsoft support for production applications even before the framework reaches general availability next month.

  • Upcycle Your Old Laptops into a Kubernetes Cluster

    Learn about Windows-to-Linux conversions and how to break and fix cloud containers -- all while helping to save the world from e-waste with some "sheer geeky fun."

Subscribe on YouTube