تقييم الموضوع :
  • 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 ك ب / التحميلات : 39)
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تشغيل البرنامج عبر الريجستري Codack 1 56 , 02:37 AM
آخر رد: Mohamad Anan
  [VB.NET] تشغيل جزء معين من البرنامج عن طريق الريجستري Codack 1 59 , 02:11 AM
آخر رد: Codack
  [سؤال] في البرنامج منه 0 82 28-06-20, 03:40 AM
آخر رد: منه
  [VB.NET] مشكل في كود انتهاء تاريخ الصلاحية او الدفع rochdi191 6 160 23-06-20, 04:42 PM
آخر رد: rochdi191
  كود تنبيه بقرب حلول قسط شهري الحسين احمد 1 82 20-06-20, 01:51 AM
آخر رد: ابراهيم ايبو
  [VB.NET] مشكلة في البرنامج عند انهاء تثبيت في الحاسوب rochdi191 4 203 11-06-20, 08:08 PM
آخر رد: rochdi191
  [سؤال] في البرنامج منه 2 268 06-06-20, 06:32 AM
آخر رد: منه
  عاوز اعمل رساله لمستخدمي البرنامج بتاعي عبر الانترنت كيف اضيف حاجه شكل دي ف البرنامج Hosam Ashraf Elwakel 0 123 02-06-20, 11:41 PM
آخر رد: Hosam Ashraf Elwakel
  البرنامج لايبدا عند الضغط عليه makky 0 91 02-06-20, 01:05 AM
آخر رد: makky
  [سؤال] هل يوجد صوت تنبيه غير صوت beebالموجود في فيجول بيسك محمد ايمن 9 212 26-05-20, 06:57 AM
آخر رد: محمد ايمن

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


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