شرح تفصيلي لكود فئة العد التنازلي الذي تم تنفيذه بواسطة VB

توضح هذه المقالة رمز فئة الوحدة النمطية المستخدم لإنشاء برنامج عد تنازلي باستخدام VB. وهو برنامج عد تنازلي يعتمد على وحدة التحكم ويمكن استخدامه كمرجع للمبتدئين في VB أو عشاق VB. بالطبع، يمكن للقراء أيضًا نسخ الكود إلى VB لاستخدامه مباشرة، تحتاج إلى إنشاء الكود ذي الصلة بنفسك، وهو أيضًا جزء من الكود يسهل فهمه.

رموز الوظائف المحددة هي كما يلي:

 الوحدة النمطية Module1 Sub Main() Dim a As Date Dim h, m, s كعدد صحيح Dim n، i كـ Long Dim x، z كـ Long Dim y كـ 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}"، أ) 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 If If s = 0 ثم إذا m > 0 ثم m = m - 1 s = 59 Console.WriteLine(" المتبقي: {0} ساعات {1} دقائق {2} ثانية"، h، m، s) End If If m = 0 و h > 0 و s = 0 ثم h = h - 1 m = 59 s = 59 Console. WriteLine("المتبقي: {0} ساعة {1} دقيقة {2} ثانية"، h، m، s) إذا (h <= 0) و (m <= 0) و (s <= 0) ثم Console.WriteLine("اكتمل العد التنازلي، أدخل أي أحرف للخروج من البرنامج:") الخروج من أجل النهاية إذا النهاية إذا النهاية إذا التالي Console.Read() End Sub End Module