この記事では、VB を使用してカウントダウン プログラムを作成するために使用される Module クラス コードについて説明します。これはコンソール ベースのカウントダウン プログラムであり、VB 初心者や VB 愛好家にとっての参考として使用できます。もちろん、読者はコードを VB にコピーすることもできます。プロジェクトを直接使用するには、関連するコードを自分で作成する必要がありますが、初心者にとっても理解しやすいコードです。
具体的な機能コードは以下のとおりです。
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("このプログラムはカウントダウン プログラムです。必要な値を入力してください部分の情報 カウントダウン時間、分、秒") Console.WriteLine("時間数 (0 以上の整数) を入力してください:") h = Console.ReadLine() Console.WriteLine("タイミングの合計分数を入力してください (0 以上 60 未満の整数):") m = Console.ReadLine() Console.WriteLine("秒数を入力してくださいタイミング (0 以上 60 未満の整数): ") s = Console.ReadLine() Console.WriteLine("現在のシステム時刻は: {0}", h) a = Now() Console.WriteLine("現在のシステム時刻は: {0}", a) Console.WriteLine(" ") Console.WriteLine(" **************カウントダウンが始まります*** ** ************ ") Console.WriteLine(" **************カウントダウンが始まります************* ** ** ") Console.WriteLine(" **************カウントダウンが始まります*********************** * ") Console.WriteLine(" * *************カウントダウンが始まります****************** ") z = 0 x = 60 i = 0 の場合 h * 3600 + m * 60 + s n = 0 の場合 6000000 y = 0 〜 25 の場合 z = z + 1 Next Next If (h <= 0) And ( m <= 0) And (s <= 0) then Exit For If s > 0 then s = s - 1 Console.WriteLine("残り: {0} 時間 {1} 分 {2} 秒", h, m, s) If (h <= 0) And (m <= 0) And (s <= 0) then Console.WriteLine("Countdown完了したら、ランダムな文字を入力してプログラムを終了します: ") Exit For End If End If If s = 0 then If m > 0 then m = m - 1 s = 59 Console.WriteLine("残り: {0} 時間 {1} 分 {2} 秒", h, m, s) End If m = 0 And h > 0 And s = 0 then h = h - 1 m = 59 s = 59 コンソール。 WriteLine("残り: {0} 時間 {1} 分 {2} 秒", h, m, s) If (h <= 0) And (m <= 0) And (s <= 0) then Console.WriteLine("カウントダウンが完了しました。プログラムを終了するには任意の文字を入力してください:") Exit For End If End If End If Next Console.Read() End Sub End Module