Understanding Iterators, Part 2: Listing 1

The Visual Basic function iterator method.

  Dim svcUri As Uri = New Uri("http://www.pluralsight-training.net/odata/")

  Public Iterator Function GetCourseModuleForCategoryIterator(categoryName) As IEnumerable(Of CourseWithModules)
      Dim provider = New PluralsightService.CourseProvider(svcUri)
      Dim courses = GetCoursesForCategory(categoryName)
      For Each course In courses
          Dim courseWithModules = New CourseWithModules
          courseWithModules.Course = course
          courseWithModules.Modules = GetModulesForCourse(course.Name)
          Yield courseWithModules
  End Function

  Public Function GetCoursesForCategory(CategoryName As String) As List(Of PluralsightService.Course)
      Dim provider = New PluralsightService.CourseProvider(svcUri)
      Dim CategoryCourses = provider.Courses.Where(Function(item) item.Category = CategoryName).ToList
      Return CategoryCourses
  End Function

  Public Function GetModulesForCourse(CourseName As String) As List(Of PluralsightService.CourseModule)
      Dim provider = New PluralsightService.CourseProvider(svcUri)
      Dim courseWithModules = provider.Courses.Expand("Modules").Where(Function(item) item.Name = CourseName).Single
      Dim modules = courseWithModules.Modules.ToList
      Return modules
  End Function

  Public Class CourseWithModules
      Public Course As PluralsightService.Course
      Public Modules As List(Of PluralsightService.CourseModule)
  End Class

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


  • 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.

  • Microsoft's Lander on Blazor Desktop: 'I Don't See a Grand Unified App Model in the Future'

    For all of the talk of unifying the disparate ecosystem of Microsoft-centric developer tooling -- using one framework for apps of all types on all platforms -- Blazor Desktop is not the answer. There isn't one.

  • Firm Automates Legacy Web Forms-to-ASP.NET Core Conversions

    Migration technology uses the Angular web framework and Progress Kendo UI user interface elements to convert ASP.NET Web Forms client code to HTML and CSS, with application business logic converted automatically to ASP.NET Core.

  • New TypeScript 4.2 Tweaks Include Project Explainer

    Microsoft shipped TypeScript 4.2 -- the regular quarterly update to the open source programming language that improves JavaScript with static types -- with a host of tweaks including a way to explain why files are included in a project.

Upcoming Events