Este artículo describe un código de clase de módulo utilizado para crear un programa de cuenta regresiva usando VB. Es un programa de cuenta regresiva basado en consola y puede usarse como referencia para principiantes o entusiastas de VB. Por supuesto, los lectores también pueden copiar el código en un VB. proyecto directamente. Para usarlo, debe crear el código relevante usted mismo. Para los principiantes, también es un fragmento de código que es fácil de entender.
Los códigos de función específicos son los siguientes:
Module Module1 Sub Main() Dim a As Date Dim h, m, s As Integer Dim n, i As Long Dim x, z As Long Dim y As Long Console.WriteLine("Este programa es un programa de cuenta regresiva, ingrese el valor requerido información en partes Cuenta regresiva horas, minutos, segundos") Console.WriteLine("Ingrese el número de horas (un número entero mayor o igual a 0):") h = Console.ReadLine() Console.WriteLine("Ingrese el número total de minutos para el cronometraje (un número entero mayor o igual a 0 y menor que 60):") m = Console.ReadLine() Console.WriteLine("Ingrese el número de segundos para tiempo (mayor o igual a 0 y menor que un número entero de 60): ") s = Console.ReadLine() Console.WriteLine("La hora actual del sistema es: {0}", h) a = Now() Console.WriteLine("La hora actual del sistema es: {0}", a) Console.WriteLine(" ") Console.WriteLine(" ****************Comienza la cuenta regresiva*** ** *********** ") Console.WriteLine(" **************Comienza la cuenta regresiva************* ** ** ") Console.WriteLine(" **************Comienza la cuenta regresiva************************ * ") Console.WriteLine(" * *************Comienza la cuenta regresiva****************** ") z = 0 x = 60 Para i = 0 Para h * 3600 + m * 60 + s Para n = 0 Para 6000000 Para y = 0 Para 25 z = z + 1 Siguiente Siguiente Si (h <= 0) Y ( m <= 0) y (s <= 0) Luego salga si s > 0 entonces s = s - 1 Console.WriteLine(" Restante: {0} horas {1} minutos {2} segundos", h, m, s) Si (h <= 0) Y (m <= 0) Y (s <= 0) Entonces Console.WriteLine("Cuenta regresiva Completado, ingrese caracteres aleatorios para salir del programa: ") Salir para Fin Si Fin Si s = 0 Entonces Si m > 0 Entonces m = m - 1 s = 59 Console.WriteLine(" Restante: {0} horas {1} minutos {2} segundos", h, m, s) Fin Si m = 0 Y h > 0 Y s = 0 Entonces h = h - 1 m = 59 s = 59 Consola. WriteLine("Restante: {0} horas {1} minutos {2} segundos", h, m, s) Si (h <= 0) y (m <= 0) y (s <= 0) entonces Console.WriteLine("La cuenta regresiva está completa, ingrese cualquier carácter para salir del programa:") Salir para End If End If End If Next Console.Read() End Sub End Module