Answer to Question #44208 in Visual Basic for jj

Question

how to write a Do...Loop while that will loop until the user presses stop?

Answer 1

Module Module1
    ''' <summary>
    ''' Main function
    ''' </summary>
    ''' <remarks></remarks>
    Sub Main()
        'flag for stop loop
        Dim _stop As Boolean = True
        'Do...Loop while that will loop until the user presses stop
        Do While _stop = True
            'read key s
            Console.Write("Press ""s"" to stop: ")
            If (Console.ReadLine().ToUpper() = "S") Then
                _stop = False
            End If
        Loop
        'end of loop
        Console.Write("End of loop")
        'Delay
        Console.ReadLine()
    End Sub
End Module