Redis Tutorial Part II: Using Redis as a Pub/Sub Medium

Module MainModule

    Private MyRedisStore As RedisStore

    Sub Main()
        MyRedisStore = New RedisStore(True)
        AddHandler MyRedisStore.OnSubscriptionMessage, AddressOf SubcribedMessageReceived
        Select Case ChooseOption()
            Case 1
                RunAsSubscriber()
            Case 2
                RunAsPublisher()
            Case Else
                EndMe()
        End Select
    End Sub

    Private Sub RunAsPublisher()
        Dim Stopped As Boolean = False
        Do While Not Stopped
            Console.Write("Write the message [Type Exit to stop]: ")
            Dim Message As String = Console.ReadLine()
            If Message.ToLower = "exit" Then
                Stopped = True
            Else
                MyRedisStore.Publish(AChannel, Message)
            End If
        Loop
    End Sub

    Private Sub SubcribedMessageReceived(ByVal sender As Object, ByVal e As SubscriptionMessageEventArgs)
        Console.WriteLine("Received Message on channel {0} -> {1}", e.Key, e.value)
    End Sub

    Private AChannel As String = "aKey:UserInput"
    Private Sub RunAsSubscriber()
        Console.WriteLine("Now Listening for messages....")
        MyRedisStore.Subscribe(AChannel)
    End Sub

    Private Function ChooseOption() As Integer
        Console.WriteLine("=============== MENU ===================")
        Console.WriteLine("   Any other number, exits the program..")
        Console.WriteLine("1. Start as subscriber")
        Console.WriteLine("2. Start as publisher")
        Console.WriteLine("--------------------------")
        Console.Write("Choose :")
        Dim Userinput As String = Console.ReadLine()
        Return If(IsNumeric(Userinput), Userinput, -1)
    End Function

    Private Sub EndMe()
        Console.Write("Press any key to exit...")
        Console.ReadKey()
        End
    End Sub

End Module