وعليكم السلام ورحمة الله وبركاته. يمكنك استخدام الكود التالي لإظهار MessageBox يوم السبت أو الأحد. هذا الكود يعتمد على تحديد يوم الأسبوع الحالي ويتحقق مما إذا كان اليوم السبت أو الأحد:
PHP كود :
Imports System.Windows.Forms
Module ShowMessageBoxOnWeekends
Sub Main()
Dim currentDayOfWeek As DayOfWeek = DateTime.Now.DayOfWeek
If currentDayOfWeek = DayOfWeek.Saturday Or currentDayOfWeek = DayOfWeek.Sunday Then
MessageBox.Show("اليوم هو يوم السبت أو الأحد!", "رسالة", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
End Module
في هذا الكود، يتم الحصول على يوم الأسبوع الحالي باستخدام DateTime.Now.DayOfWeek ويتم تخزينه في متغير currentDayOfWeek. بعد ذلك، يتم التحقق مما إذا كان currentDayOfWeek يوم السبت أو الأحد باستخدام جملة الشرط If. إذا كان اليوم يوم السبت أو الأحد، سيتم إظهار MessageBox.
يمكنك استخدام الكود التالي لإظهار MessageBox يوم السبت فقط:
PHP كود :
If Weekday(Now) = 7 Then
MsgBox(Date.Now.ToString("dddd"))
End If
في هذا الكود، يتم استخدام دالة Weekday للحصول على رقم يمثل يوم الأسبوع الحالي، حيث يبدأ العد من الأحد (1) إلى السبت (7). إذا كان الرقم المرجع 7، فهذا يعني أن اليوم هو يوم السبت وسيتم إظهار MessageBox.
إذا كنت ترغب في إظهار MessageBox يوم الثلاثاء فقط، يمكنك استخدام الكود التالي
PHP كود :
If Weekday(Now) = 3 Then
MsgBox(Date.Now.ToString("dddd"))
End If
في هذه الحالة، نستخدم الرقم 3 للتحقق مما إذا كان اليوم هو يوم الثلاثاء. تجد هنا قائمة بالأرقام المقابلة لأيام الأسبوع:
- الأحد
- الاثنين
- الثلاثاء
- الأربعاء
- الخميس
- الجمعة
- السبت