+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كيف اضيف صوت تنبيه عند انتهاء وقت محدد في البرنامج (/showthread.php?tid=34944)
كيف اضيف صوت تنبيه عند انتهاء وقت محدد في البرنامج - mazentq - 25-05-20
السلام عليكم ورحمة الله وبركاتة
كل عام وانتم بخير عيد سعيد عليكم وعلي احلي اعضاء فيجوال بيسك
بعد اذنكم لدي طلب بسيط
لدي قسم في برنامج خاص بشركة عاز وهو قسم تحويل السيارت من بنزين لغاز
فهماك تاريخين في قاعدة البيانات
1- تاريخ تقديم السيارة للتحويل
2- تاريخ الانتهاء من تحويل السارة
فكنت اريد طريقة لاجعل البرنامج يصدر رنين او تنبية عند انتهاء التاريخ
مثلا ان قمت بالتقديم بتاريخ 25/5/2020
وتم تحديدتاريخ استلام السيارة بعد التحويل بتاريخ 30/5/2020
فكدة يبقي 5 ايام ان بقي عاوز بعد ما الخمس ايام دول يعده البرنامج يرن او يعمل اي منبة يقلي ان السيارة دي خلصت وجهازة للتسليم
وشكرا جزيلا
RE: كيف اضيف صوت تنبيه عند انتهاء وقت محدد في البرنامج - rochdi191 - 25-05-20
السلام عليكم
اخي نفس السؤال تم طرحته انا
تفضل ان شاء الله تستفيد من الموضوع
http://vb4arb.com/vb/showthread.php?tid=34928
RE: كيف اضيف صوت تنبيه عند انتهاء وقت محدد في البرنامج - mazentq - 25-05-20
(25-05-20, 09:13 PM)rochdi191 كتب : السلام عليكمشكرا اخي ولكن السوال متشابة فقط لكن ان اريد ان يتاعمل مع تاريخ في قاعدة البيانات نفسها بيحث ان يعطي التنبيه بناء علي التاريخ الانتهاء الموجود في قاعدة البيانات
اخي نفس السؤال تم طرحته انا
تفضل ان شاء الله تستفيد من الموضوع
http://vb4arb.com/vb/showthread.php?tid=34928
RE: كيف اضيف صوت تنبيه عند انتهاء وقت محدد في البرنامج - rochdi191 - 25-05-20
ادخل اخي وراجع كل من الموضوعين لعلك تستفيد
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) ' السنة الحالية
'=============================
وقم بضعط على تواريخ ولاحظ ما يجري
RE: كيف اضيف صوت تنبيه عند انتهاء وقت محدد في البرنامج - mazentq - 25-05-20
(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) ' السنة الحالية
'=============================
وقم بضعط على تواريخ ولاحظ ما يجري
RE: كيف اضيف صوت تنبيه عند انتهاء وقت محدد في البرنامج - ابراهيم ايبو - 25-05-20
السلام عليكم اخي الكريم
مسالة اظهار رسالة تفيد بتاريخ معين يراد به القيام بعمل ما متعددة الاستخدام
حيث يمكننا استخدامها في المواد التي تنتهي صلاحيتها مثلا
او موعد تغيير زيت السيارة او موعد الصيانة
او جدولة مواعيد وغيرها الكثبر الفكرة واحدة فقط تغيير المفردات الخاصة بالهدف المراد
اليك مثال لاظهار رسالة للمستخدم تعلمه بانتهاء صلاحية مادة بعد 3 ايام تظهر في الليس بوكس
وفي المثال يمكنك معرفة التواريخ القادمة لانتهاء صلاحيات المواد حسب عدد الايام التي ستحددها او التي انتهت ايضا حسب الايام
يمكنك تعديل المثال ومفردات قاعدة البيانات لتناسب مشروع السيارة عندك