[كود] العد التنازلي عام - شهر - يوم - ساعة - دقيقة - ثانية

[كود] العد التنازلي عام - شهر - يوم - ساعة - دقيقة - ثانية - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [كود] العد التنازلي عام - شهر - يوم - ساعة - دقيقة - ثانية (/showthread.php?tid=29456)

الصفحات: 1 2

RE: العد التنازلي عام - شهر - يوم - ساعة - دقيقة - ثانية - elgokr - 24-04-19

بما ان الامر بهذا الشكل

فقد يكون المشكلة فى صيغة التاريخ بالجهاز أو كما اشرت انت اليه بسبب الاكواد

فبدلاً من المسح والاختبار بسبب مشكلة الكود

فيكفي ان تستخدم الكود فى Timer بهذا الشكل

كود :

       'Gregorian Date

        Dim enSU As System.Globalization.CultureInfo = New System.Globalization.CultureInfo("en-SU")

        enSU.DateTimeFormat.Calendar = New System.Globalization.GregorianCalendar

        Dim DateEn = Date.ParseExact(CDate(TextBox2.Text), "dd/MM/yyyy", enSU)

        Dim GetCountDown As String() = CountDown(Date.Now, DateEn)

        With TextBox1

            .Text = "متبقى "

            .Text += GetCountDown(0) & " عام و "

            .Text += GetCountDown(1) & " شهر و "

            .Text += GetCountDown(2) & " يوم و "

            .Text += GetCountDown(3) & " ساعة و "

            .Text += GetCountDown(4) & " دقيقة و "

            .Text += GetCountDown(5) & " ثانية"

        End With

فبهاذا الكود سيتم معالجت كل ما تحدث انت عليه

حيث اى كان التاريخ المدخل فى TextBox2 غير Gregorian

سيتم تحويله بانه تاريخ اجنبي ليكون Gregorian

ولتختبر نقطة مهمة

تعال عند Function الخاص بـ Get_Value_Date_From_My_Table

واضف التالى وليكن قبل الـ Return Myreturnvalue

كود :

MsgBox(TextBox2.Text)

نقطة اخيرة ومهمة جداً

انت هنا تقوم بعمل التالى

PHP كود :

SELECT * FROM TBL_GENERALE 

وكذلك

كود :

           Using Dreader = Comme.ExecuteReader()

                If Dreader.HasRows Then

                    Do While Dreader.Read

                        TextBox2.Text = Dreader.Item("GENERALE_Date").ToString()

                    Loop

                End If

            End Using

انت متخيل ماذا يحدث هنا بهذا الكود

انت بتقوم بجلب كل ما فى الجدول

ثم تقوم بتمرير سطر سطر الى TextBox2

ليعتمد بالنهاية ان TextBox2 يحصل على قيمة السطر الاخير

خلال تلك العملية لو استغرق اكثر من ثانية

بطبيعة الحال سيحدث مشكلة فى Timer

كونه غير قادر على فهم او حصوله على قيمة من TextBox2

ليتم اخذها كونها التاريخ ولهذا تحدث معك مشكلة الرسالة

من الصح ان يتم جلب قيمة واحدة فقط

او انك ترحل كل القيم التى تحتوى على تواريخ اكبر من الحالى

ثم تمرير الاستعلام الى ListBox

ومن خلال ListBox تقوم بجلب اقرب تاريخ للتاريخ الحالى

ويتم استخدامه كا قيمة TextBox2

بكده الـ Timer سيعمل على التنبيه للموعد الاقرب

وبعد الانتهاء او تجاوز التاريخ الحالى لهذا التاريخ

يتم حذف هذا التاريخ من ListBox أو يتم عمل استعلام من جديد

ويتم عمل ما سبق حتى ياتى باقرب تاريخ مع التاريخ الحالى

بكده انت بتقوم بترتيب المواعيد كما لو انه منبه

اتمنى ما اقصده وصل لك

وتكون عرفت المشكلة الحقيقية التى تسبب تلك المشكلة

وكيفية معالجتها بعد شرحى هذا

تحياتى لك

وتمنياتى لك التوفيق

RE: العد التنازلي عام - شهر - يوم - ساعة - دقيقة - ثانية - عبد العزيز البسكري - 24-04-19

السّلام عليكم و رحمة الله و بركاته

الآن ضحكت فعلا على نفسي .. ضحكا عميقا متواصلاً

الله أكبر .. الله أكبر .. الله أكبر

باسم الله .. ما شاء الله .. تبارك الله

فعلا .. و بكل صدق من أعماق ذاتي و الله يعلم م بالصدور

أخي و أستاذي الحبيب الغالي " ELGOKR "

أنت إنسان عبقري

زادك الله من علمه و فضله

و رزقك من حيث تحتسب و من حيث لا تحتسب

و جعلك رمزًا من رموز أمّتنا العربية في ترسيخ العلم و الفائدة لدى المسلمين بكل مكان و ذخرًا و طيدًا لهذا المنتدى العريق

لماذا ضحكت ..!!؟؟

لأنّ الأمر كلّه تمامًا مثلما ذكرت لي ..

تاكست جلب البيانات من الجدول كانت فارغة واعتقدت أنّ ببداية الفورم لودْ سيتم قراءة التاريخ من الجدول .. و لكن عامل التايمر فعل فعلته .. و توّهني طيلة يوم 24 ساعة

قمت بكتابة التاريخ بالتاكست بكس المعني بذلك

و الآن كلّه شغّال و الشّاشة نوّرت و الحمد لله فالفضل لله ثم لك يا طيّب يا أصيل

أجدّد شكري و تقديري واحترامي وامتناني لشخصك الكريم

بارك الله فيك و لك و بكل الأسرة الكريمة / تحياتي واحتراماتي

RE: العد التنازلي عام - شهر - يوم - ساعة - دقيقة - ثانية - elgokr - 25-04-19

لا اعلم ماذا اقول بعد كلامك

اخى والعزيز عبد العزيز البسكري

يكفيني فقط اننى قدرت ان اجعلك تضحك

فهذا عندي افضل من كل شئ

بس ايه رايك رادي السابق خاص التخمين

كان فى محله تماماً Big Grin

كل التحية والتقدير لك اخى الفاضل

وللامانا الصورة تشير ان البرنامج رائع جداً

ويبدو انك لك مدة وانت تعمل عليه

فقط نقطة اخيرة فقط

بما انك تقوم بعمل المدة عن الامتحان

فلا داعى من وجود هذا السطر فى Timer

كود :

          .Text += GetCountDown(0) & " عام و "

لانه سيكون دئماً 0 حتى بنهاية السنة الدراسية

لان عند بداية اول اختبار للعام الجديد سيكون خلال اشهر

والتى قد تكون من بين 5 : 7 اشهر تقريباً والتى تخص النصف عام

ولو كان الاختبار مرة فى العام سيكون خلال 11 شهر وايام

تحياتى لك

وتمنياتى لك التوفيق

RE: العد التنازلي عام - شهر - يوم - ساعة - دقيقة - ثانية - عبد العزيز البسكري - 25-04-19

السّلام عليكم و رحمة الله و بركاته

أخي العزيز الغالي ..

دومًا تنوّر معلوماتنا بالصغيرة قبل الكبيرة .. أدعو الله أن ينير دربك و حياتك و حياة من تحب إن شاء الله

تحياتي و احتراماتي

RE: العد التنازلي عام - شهر - يوم - ساعة - دقيقة - ثانية - elgokr - 25-04-19

وعليكم السلام ورحمة الله وبركاته

لى ولك وللجميع بامر الله

تحياتى لك

وتمنياتى لك التوفيق