Dieser Artikel beschreibt einen Modulklassencode, der zum Erstellen eines Countdown-Programms mit VB verwendet wird. Es handelt sich um ein konsolenbasiertes Countdown-Programm und kann als Referenz für VB-Anfänger oder VB-Enthusiasten verwendet werden. Natürlich können Leser den Code auch in ein VB kopieren Um es direkt verwenden zu können, müssen Sie den entsprechenden Code selbst erstellen. Für Anfänger ist es auch ein leicht verständlicher Code.
Die spezifischen Funktionscodes lauten wie folgt:
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("Dieses Programm ist ein Countdown-Programm, bitte geben Sie die erforderlichen ein Informationen in Teilen Countdown-Stunden, Minuten, Sekunden") Console.WriteLine("Bitte geben Sie die Anzahl der Stunden ein (eine Ganzzahl größer oder gleich 0):") h = Console.ReadLine() Console.WriteLine("Bitte geben Sie die Gesamtzahl der Minuten für die Zeitmessung ein (eine ganze Zahl größer oder gleich 0 und kleiner als 60):") m = Console.ReadLine() Console.WriteLine("Bitte geben Sie die Anzahl der Sekunden für ein Timing (größer oder gleich 0 und kleiner als eine ganze Zahl von 60): ") s = Console.ReadLine() Console.WriteLine("Die aktuelle Systemzeit ist: {0}", h) a = Now() Console.WriteLine("Die aktuelle Systemzeit ist: {0}", a) Console.WriteLine(" ") Console.WriteLine(" ****************Der Countdown beginnt*** ** ************ ") Console.WriteLine(" **************Countdown beginnt************* ** ** ") Console.WriteLine(" **************Countdown beginnt*********************** * ") Console.WriteLine(" * *************Countdown beginnt****************** ") z = 0 x = 60 Für i = 0 Bis h * 3600 + m * 60 + s Für n = 0 Bis 6000000 Für y = 0 Bis 25 z = z + 1 Weiter Weiter Wenn (h <= 0) Und ( m <= 0) And (s <= 0) Then Exit For If s > 0 Then s = s - 1 Console.WriteLine(" Verbleibend: {0} Stunden {1} Minuten {2} Sekunden", h, m, s) Wenn (h <= 0) und (m <= 0) und (s <= 0) dann Console.WriteLine("Countdown Abgeschlossen, geben Sie zufällige Zeichen ein, um das Programm zu beenden: ") Exit For End If End If If s = 0 Then If m > 0 Then m = m - 1 s = 59 Console.WriteLine(" Verbleibend: {0} Stunden {1} Minuten {2} Sekunden", h, m, s) Ende, wenn m = 0 und h > 0 und s = 0, dann h = h - 1 m = 59 s = 59 Konsole. WriteLine("Verbleibend: {0} Stunden {1} Minuten {2} Sekunden", h, m, s) Wenn (h <= 0) Und (m <= 0) Und (s <= 0) Dann Console.WriteLine("Der Countdown ist abgeschlossen. Geben Sie beliebige Zeichen ein, um das Programm zu beenden:") Exit For End If End If End If Next Console.Read() End Sub End Module