تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] العد التنازلي عام - شهر - يوم - ساعة - دقيقة - ثانية
#11
بما ان الامر بهذا الشكل
فقد يكون المشكلة فى صيغة التاريخ بالجهاز أو كما اشرت انت اليه بسبب الاكواد

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

فيكفي ان تستخدم الكود فى 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 أو يتم عمل استعلام من جديد
ويتم عمل ما سبق حتى ياتى باقرب تاريخ مع التاريخ الحالى

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

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
#12
السّلام عليكم و رحمة الله و بركاته
الآن ضحكت فعلا على نفسي .. ضحكا عميقا متواصلاً
الله أكبر .. الله أكبر .. الله أكبر
باسم الله .. ما شاء الله .. تبارك الله
فعلا .. و بكل صدق من أعماق ذاتي و الله يعلم م بالصدور
أخي و أستاذي الحبيب الغالي " ELGOKR "
أنت إنسان عبقري
زادك الله من علمه و فضله
و رزقك من حيث تحتسب و من حيث لا تحتسب
و جعلك رمزًا من رموز أمّتنا العربية في ترسيخ العلم و الفائدة لدى المسلمين بكل مكان و ذخرًا و طيدًا لهذا المنتدى العريق
لماذا ضحكت ..!!؟؟
لأنّ الأمر كلّه تمامًا مثلما ذكرت لي ..
تاكست جلب البيانات من الجدول كانت فارغة واعتقدت أنّ ببداية الفورم لودْ سيتم قراءة التاريخ من الجدول .. و لكن عامل التايمر  فعل فعلته .. و توّهني طيلة يوم 24 ساعة
قمت بكتابة التاريخ بالتاكست بكس المعني بذلك
و الآن كلّه شغّال و الشّاشة نوّرت و الحمد لله فالفضل لله ثم لك يا طيّب يا أصيل
أجدّد شكري و تقديري واحترامي وامتناني لشخصك الكريم
بارك الله فيك و لك و بكل الأسرة الكريمة / تحياتي واحتراماتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: حريف برمجة , حريف برمجة , elgokr , elgokr , sendbad100
#13
لا اعلم ماذا اقول بعد كلامك 
اخى والعزيز عبد العزيز البسكري

يكفيني فقط اننى قدرت ان اجعلك تضحك
فهذا عندي افضل من كل شئ

بس ايه رايك رادي السابق خاص التخمين 
كان فى محله تماماً  Big Grin

كل التحية والتقدير لك اخى الفاضل
وللامانا الصورة تشير ان البرنامج رائع جداً
ويبدو انك لك مدة وانت تعمل عليه

فقط نقطة اخيرة فقط 
بما انك تقوم بعمل المدة عن الامتحان

فلا داعى من وجود هذا السطر فى Timer
كود :
          .Text += GetCountDown(0) & " عام و "

لانه سيكون دئماً 0 حتى بنهاية السنة الدراسية
لان عند بداية اول اختبار للعام الجديد سيكون خلال اشهر 
والتى قد تكون من بين 5 : 7 اشهر تقريباً والتى تخص النصف عام
ولو كان الاختبار مرة فى العام سيكون خلال 11 شهر وايام 

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , sendbad100
#14
السّلام عليكم و رحمة الله و بركاته
أخي العزيز الغالي ..
دومًا تنوّر معلوماتنا بالصغيرة قبل الكبيرة .. أدعو الله أن ينير دربك و حياتك و حياة من تحب إن شاء الله
تحياتي و احتراماتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: elgokr , sendbad100
#15
وعليكم السلام ورحمة الله وبركاته
لى ولك وللجميع بامر الله

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , sendbad100


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Wink [VB.NET] مجموعة من الثيمات تجمل مشروعك فى اقل من دقيقة بدون مشاكل محمود بكرى 3 6,108 24-04-22, 04:29 PM
آخر رد: abomo3ath

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم