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

فكنت اريد طريقة لاجعل البرنامج يصدر رنين او تنبية عند انتهاء التاريخ 
مثلا ان قمت بالتقديم بتاريخ 25/5/2020
وتم تحديدتاريخ استلام السيارة بعد التحويل بتاريخ 30/5/2020
فكدة يبقي 5 ايام ان بقي عاوز بعد ما الخمس ايام دول يعده البرنامج يرن او يعمل اي منبة يقلي ان السيارة دي خلصت وجهازة للتسليم 

وشكرا جزيلا
الرد }}}
تم الشكر بواسطة: asemshahen5
#2
السلام عليكم
اخي نفس السؤال تم طرحته انا
تفضل ان شاء الله تستفيد من الموضوع
http://vb4arb.com/vb/showthread.php?tid=34928
الرد }}}
تم الشكر بواسطة: mazentq , asemshahen5 , asemshahen5
#3
(25-05-20, 09:13 PM)rochdi191 كتب : السلام عليكم
اخي نفس السؤال تم طرحته انا
تفضل ان شاء الله تستفيد من الموضوع
http://vb4arb.com/vb/showthread.php?tid=34928
شكرا اخي ولكن السوال متشابة فقط لكن ان اريد ان يتاعمل مع تاريخ في قاعدة البيانات نفسها بيحث ان يعطي التنبيه بناء علي التاريخ الانتهاء الموجود في قاعدة البيانات
الرد }}}
تم الشكر بواسطة: asemshahen5
#4
ادخل اخي وراجع كل من الموضوعين لعلك تستفيد
http://vb4arb.com/vb/showthread.php?tid=22654
كود تنبيه لتاريخ لتجديد الرخصة
http://vb4arb.com/vb/showthread.php?tid=2934

ضع الكود في datagriview
Dim mnth As Integer = Now.Month ' يجلب رقم الشهر الحالي
Dim yer As Integer = Now.Year ' يجلب السنة الحالية
Dim LastDay As Integer = Date.DaysInMonth(yer, mnth) ' يجلب كم يوم في الشهر الحالي
' نجري مقارنة بين تاريخ اليوم وعدد ايام الشهر الحالي ان كانت تساويه تظهر رسالة
If Now.ToString("dd") = LastDay Then
MsgBox("hello")
End If
'============================
'هذه الاكواد ليس لها علاقة بالكود السابق فقط لاظهار القيم السابقة
MsgBox(Now.ToString("dd")) ' تاريخ اليو في الشهر
MsgBox(LastDay) ' تاريخ اليو في الشهر عدد ايام الشهر الحالي
MsgBox(yer) ' السنة الحالية
'=============================

وقم بضعط على تواريخ ولاحظ ما يجري
الرد }}}
تم الشكر بواسطة: mazentq , asemshahen5
#5
(25-05-20, 09:51 PM)rochdi191 كتب : ادخل اخي وراجع كل من الموضوعين لعلك تستفيد
http://vb4arb.com/vb/showthread.php?tid=22654
كود تنبيه لتاريخ لتجديد الرخصة
http://vb4arb.com/vb/showthread.php?tid=2934

ضع الكود في datagriview
Dim mnth As Integer = Now.Month ' يجلب رقم الشهر الحالي
       Dim yer As Integer = Now.Year ' يجلب السنة الحالية
       Dim LastDay As Integer = Date.DaysInMonth(yer, mnth) ' يجلب كم يوم في الشهر الحالي
       ' نجري مقارنة بين تاريخ اليوم وعدد ايام الشهر الحالي ان كانت تساويه تظهر رسالة
       If Now.ToString("dd") = LastDay Then
           MsgBox("hello")
       End If
       '============================
       'هذه الاكواد ليس لها علاقة بالكود السابق فقط لاظهار القيم السابقة
       MsgBox(Now.ToString("dd")) ' تاريخ اليو في الشهر
       MsgBox(LastDay) ' تاريخ اليو في الشهر عدد ايام الشهر الحالي
       MsgBox(yer) ' السنة الحالية
       '=============================

وقم بضعط على تواريخ ولاحظ ما يجري
شكرا اخي هدخل واشوف كل الموضيع
الرد }}}
تم الشكر بواسطة: asemshahen5 , asemshahen5
#6
السلام عليكم اخي الكريم
مسالة اظهار رسالة تفيد بتاريخ معين يراد به القيام بعمل ما متعددة الاستخدام
حيث يمكننا استخدامها في المواد التي تنتهي صلاحيتها مثلا 
او موعد تغيير زيت السيارة او موعد الصيانة
او جدولة مواعيد وغيرها الكثبر الفكرة واحدة فقط تغيير المفردات الخاصة بالهدف المراد
اليك مثال لاظهار رسالة للمستخدم تعلمه بانتهاء صلاحية مادة بعد 3 ايام تظهر في الليس بوكس
وفي المثال يمكنك معرفة التواريخ القادمة لانتهاء صلاحيات المواد حسب عدد الايام التي ستحددها او التي انتهت ايضا حسب الايام
يمكنك تعديل المثال ومفردات قاعدة البيانات لتناسب مشروع السيارة عندك


الملفات المرفقة
.zip   FinishDate.zip (الحجم : 122.36 ك ب / التحميلات : 116)
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 148 12-03-24, 10:37 AM
آخر رد: strongriseman
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  مطلوب كود الطباعة لهذا البرنامج melad2002 2 234 13-01-24, 06:42 PM
آخر رد: melad2002
  مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر صالح عبدالله 1 210 09-01-24, 10:51 PM
آخر رد: صالح عبدالله
  [VB.NET] استخلاص جزء محدد من نص وإضافته إلى بداية النص ؟ AmeenRashed 2 213 02-01-24, 10:06 AM
آخر رد: AmeenRashed
  حل مشكلة بعد تثبيت البرنامج في جهاز العميل Adel27213 3 467 02-12-23, 11:00 PM
آخر رد: justforit
  [VB.NET] حذف اكثر من سطر محدد في جرد فيو h2551996 3 439 25-11-23, 12:30 PM
آخر رد: h2551996
  تنبيه لمركز رفع صور (خطير) justforit 0 211 09-11-23, 03:34 AM
آخر رد: justforit
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
  [VB.NET] كيف اجعل البرنامج يحدد اخر يوم من كل شهر Adel27213 2 360 03-11-23, 06:50 AM
آخر رد: Adel27213

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


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