Artikel ini menjelaskan kode kelas Modul yang digunakan untuk membuat program hitung mundur menggunakan VB. Merupakan program hitung mundur berbasis konsol dan dapat digunakan sebagai referensi bagi pemula VB atau penggemar VB proyek secara langsung. Untuk menggunakannya, Anda perlu membuat sendiri kode yang relevan. Untuk pemula, ini juga merupakan bagian kode yang mudah dipahami.
Kode fungsi spesifiknya adalah sebagai berikut:
Modul Module1 Sub Main() Redupkan As Date Dim h, m,s As Integer Dim n, i As Long Dim x, z As Long Dim y As Long Console.WriteLine("Program ini adalah program hitung mundur, silakan masukkan jumlah yang diperlukan informasi di bagian Hitung mundur jam, menit, detik") Console.WriteLine("Masukkan jumlah jam (bilangan bulat lebih besar dari atau sama dengan 0):") h = Console.ReadLine() Console.WriteLine("Masukkan jumlah menit untuk penghitungan waktu (bilangan bulat lebih besar dari atau sama dengan 0 dan kurang dari 60):") m = Console.ReadLine() Console.WriteLine("Masukkan jumlah detik untuk timing (lebih besar atau sama dengan 0 dan kurang dari bilangan bulat 60): ") s = Console.ReadLine() Console.WriteLine("Waktu sistem saat ini adalah: {0}", h) a = Now() Console.WriteLine("Waktu sistem saat ini adalah: {0}", a) Console.WriteLine(" ") Console.WriteLine(" **************Hitungan mundur dimulai*** ** ************ ") Console.WriteLine(" **************Hitung mundur dimulai************* ** ** ") Console.WriteLine(" **************Hitung mundur dimulai*********************** * ") Console.WriteLine(" * *************Hitung mundur dimulai****************** ") z = 0 x = 60 Untuk i = 0 Ke h * 3600 + m * 60 + s Untuk n = 0 Sampai 6000000 Untuk y = 0 Sampai 25 z = z + 1 Berikutnya Berikutnya Jika (h <= 0) Dan ( m <= 0) Dan (s <= 0) Lalu Keluar Untuk Jika s > 0 Maka s = s - 1 Console.WriteLine(" Tersisa: {0} jam {1} menit {2} detik", h, m, s) Jika (h <= 0) Dan (m <= 0) Dan (s <= 0) Kemudian Console.WriteLine("Countdown Selesai, masukkan karakter acak untuk keluar dari program:") Exit For End If End If If s = 0 Then If m > 0 Then m = m - 1 s = 59 Console.WriteLine(" Tersisa: {0} jam {1} menit {2} detik", h, m, s) Berakhir Jika Jika m = 0 Dan h > 0 Dan s = 0 Maka h = h - 1 m = 59 s = 59 Konsol. WriteLine("Sisa: {0} jam {1} menit {2} detik", h, m, s) Jika (h <= 0) Dan (m <= 0) Dan (s <= 0) Lalu Console.WriteLine("Hitungan mundur selesai, masukkan karakter apa saja untuk keluar dari program:") Keluar Untuk Akhir Jika Akhir Jika Akhir Jika Berikutnya Console.Read() Akhir Modul Sub Akhir