Cet article décrit un code de classe Module utilisé pour créer un programme de compte à rebours à l'aide de VB. Il s'agit d'un programme de compte à rebours basé sur une console et peut être utilisé comme référence pour les débutants ou les passionnés de VB. Bien sûr, les lecteurs peuvent également copier le code dans un VB. projet directement. Pour l'utiliser, vous devez créer vous-même le code correspondant. Pour les débutants, c'est aussi un morceau de code facile à comprendre.
Les codes de fonction spécifiques sont les suivants :
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 ("Ce programme est un programme de compte à rebours, veuillez saisir le informations en parties Compte à rebours heures, minutes, secondes") Console.WriteLine("Veuillez saisir le nombre d'heures (un entier supérieur ou égal à 0) :") h = Console.ReadLine() Console.WriteLine("Veuillez saisir le nombre total de minutes pour le timing (un entier supérieur ou égal à 0 et inférieur à 60) :") m = Console.ReadLine() Console.WriteLine("Veuillez saisir le nombre de secondes pour timing (supérieur ou égal à 0 et inférieur à un nombre entier de 60) : ") s = Console.ReadLine() Console.WriteLine("L'heure actuelle du système est : {0}", h) a = Now() Console.WriteLine("L'heure actuelle du système est : {0}", a) Console.WriteLine(" ") Console.WriteLine(" **************Le compte à rebours commence*** ** ************ ") Console.WriteLine(" *************Le compte à rebours commence*************** ** ** ") Console.WriteLine(" **************Le compte à rebours commence*********************** * ") Console.WriteLine(" * *************Le compte à rebours commence****************** ") z = 0 x = 60 Pour i = 0 À h * 3600 + m * 60 + s Pour n = 0 À 6000000 Pour y = 0 À 25 z = z + 1 Suivant Suivant Si (h <= 0) Et ( m <= 0) Et (s <= 0) Puis quittez pour Si s > 0 Alors s = s - 1 Console.WriteLine(" Restant : {0} heures {1} minutes {2} secondes", h, m, s) Si (h <= 0) Et (m <= 0) Et (s <= 0) Then Console.WriteLine("Countdown Terminé, entrez des caractères aléatoires pour quitter le programme : ") Exit For End If End If If s = 0 Then If m > 0 Then m = m - 1 s = 59 Console.WriteLine(" Restant : {0} heures {1} minutes {2} secondes", h, m, s) Fin Si m = 0 Et h > 0 Et s = 0 Alors h = h - 1 m = 59 s = 59 Console. WriteLine("Remaining : {0} heures {1} minutes {2} secondes", h, m, s) Si (h <= 0) Et (m <= 0) Et (s <= 0) Alors Console.WriteLine ("Le compte à rebours est terminé, entrez n'importe quel caractère pour quitter le programme :") Exit For End If End If End If Next Console.Read() End Sub End Module