คำอธิบายโดยละเอียดของโค้ดคลาสนับถอยหลังที่ VB นำมาใช้

บทความนี้จะอธิบายโค้ดคลาสของโมดูลที่ใช้ในการสร้างโปรแกรมนับถอยหลังโดยใช้ 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 ถัดไป ถัดไป ถ้า (h <= 0) และ ( m <= 0) และ (s <= 0) จากนั้นออกสำหรับ If s > 0 จากนั้น s = s - 1 Console.WriteLine(" ที่เหลืออยู่: {0} ชั่วโมง {1} นาที {2} วินาที", h, m, s) ถ้า (h <= 0) และ (m <= 0) และ (s <= 0) จากนั้น Console.WriteLine("Countdown เสร็จแล้วให้ป้อนอักขระสุ่มเพื่อออกจากโปรแกรม: ") Exit For End If End ถ้า s = 0 ดังนั้น ถ้า m > 0 ดังนั้น m = m - 1 s = 59 Console.WriteLine(" ที่เหลืออยู่: {0} ชั่วโมง {1} นาที {2} วินาที", h, m, s) สิ้นสุด ถ้า ถ้า m = 0 และ h > 0 และ s = 0 จากนั้น h = h - 1 m = 59 s = 59 คอนโซล WriteLine("Remaining: {0} ชั่วโมง {1} นาที {2} วินาที", h, m, s) If (h <= 0) And (m <= 0) And (s <= 0) จากนั้น Console.WriteLine("การนับถอยหลังเสร็จสิ้น ให้ป้อนอักขระใดก็ได้เพื่อออกจากโปรแกรม:") ออกเพื่อสิ้นสุดหากสิ้นสุดหากสิ้นสุดหากคอนโซลถัดไปอ่าน() สิ้นสุดโมดูลย่อยสิ้นสุด