이 문서에서는 VB를 사용하여 카운트다운 프로그램을 만드는 데 사용되는 모듈 클래스 코드를 설명합니다. 이는 콘솔 기반 카운트다운 프로그램이며 VB 초보자나 VB 매니아를 위한 참조로 사용할 수 있습니다. 물론 독자는 코드를 VB에 복사할 수도 있습니다. 프로젝트를 직접 사용하려면 관련 코드를 직접 작성해야 하므로 초보자도 이해하기 쉬운 코드입니다.
구체적인 기능 코드는 다음과 같습니다.
모듈 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("시간(초)을 입력하십시오. timing(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 다음 다음 If (h <= 0) And ( m <= 0) And (s <= 0) 그러면 종료 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이고 h > 0이고 s = 0이면 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 모듈