Este artigo descreve um código de classe de módulo usado para criar um programa de contagem regressiva usando VB. É um programa de contagem regressiva baseado em console e pode ser usado como referência para iniciantes ou entusiastas de VB. É claro que os leitores também podem copiar o código em um VB. projeto diretamente. Para usá-lo, você mesmo precisa criar o código relevante. Para iniciantes, também é um trecho de código fácil de entender.
Os códigos de função específicos são os seguintes:
Módulo Módulo1 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 é um programa de contagem regressiva, insira o necessário informações em partes Contagem regressiva de horas, minutos, segundos") Console.WriteLine("Insira o número de horas (um número inteiro maior ou igual a 0):") h = Console.ReadLine() Console.WriteLine("Insira o número total de minutos para cronometragem (um número inteiro maior ou igual a 0 e menor que 60):") m = Console.ReadLine() Console.WriteLine("Insira o número de segundos para timing (maior ou igual a 0 e menor que um número inteiro de 60): ") s = Console.ReadLine() Console.WriteLine("A hora atual do sistema é: {0}", h) a = Now() Console.WriteLine("A hora atual do sistema é: {0}", a) Console.WriteLine(" ") Console.WriteLine(" **************A contagem regressiva começa*** ** ************ ") Console.WriteLine(" **************A contagem regressiva começa************* ** ** ") Console.WriteLine(" **************A contagem regressiva começa************************* * ") Console.WriteLine(" * *************A contagem regressiva começa****************** ") 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 Próximo Próximo Se (h <= 0) E ( m <= 0) E (s <= 0) Então Sair Para Se s > 0 Então s = s - 1 Console.WriteLine(" Restantes: {0} horas {1} minutos {2} segundos", h, m, s) If (h <= 0) E (m <= 0) E (s <= 0) Então Console.WriteLine("Countdown Concluído, insira caracteres aleatórios para sair do programa: ") Exit For End If End If If s = 0 Then If m > 0 Then m = m - 1 s = 59 Console.WriteLine(" Restantes: {0} horas {1} minutos {2} segundos", h, m, s) Fim Se Se m = 0 E h > 0 E s = 0 Então h = h - 1 m = 59 s = 59 Console. WriteLine("Restando: {0} horas {1} minutos {2} segundos", h, m, s) Se (h <= 0) E (m <= 0) E (s <= 0) Então Console.WriteLine("A contagem regressiva foi concluída, insira quaisquer caracteres para sair do programa:") Exit For End If End If End If Next Console.Read() End Sub End Module