Contraseña V2 Curso de Programación Visual Basic

Lección:

Control del Flujo


Ejercicio:

Contraseña V2 35


Objetivo:

Escriba un programa en Visual Basic para solicitar al usuario su nombre de usuario y su contraseña (ambos deben ser números enteros), hasta que el inicio de sesión ingresado sea "12" y la contraseña sea "1234". El usuario tendrá un máximo de 3 intentos.


Código:

Imports System
Public Class Exercise31
    Public Shared Sub Main()
        Dim user, pass As Integer
        Dim counter As Integer = 0

        Do
            Console.Write("Enter a user:  ")
            user = Convert.ToInt32(Console.ReadLine())
            Console.Write("Enter a password:  ")
            pass = Convert.ToInt32(Console.ReadLine())

            If (user <> 12) OrElse (pass <> 1234) Then
                Console.WriteLine("Login Error")
                counter += 1
            End If
        Loop While ((user <> 12) OrElse (pass <> 1234)) AndAlso (counter <> 3)

        If (user <> 12) OrElse (pass <> 1234) Then
            Console.WriteLine("Logged out!")
        Else
            Console.WriteLine("Login successful")
        End If
    End Sub
End Class