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



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





اظهار رسالة ترحيب عند فتح البرنامج حسب الوقت

السلام عليكم اليوم نقدم لكم موضوع اظهار رسالة ترحيب عند فتح البرنامج حسب الوقت وهو موضوع بسيط جدا وكود بسيط ونستطيع تطب ..



06-11-2017 01:37 مساء
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 755
الجنس : ذكر
الدعوات : 9
يتابعهم : 2
يتابعونه : 405
قوة السمعة : 5170
الاعجاب : 1342
موقعي : زيارة موقعي
 offline 
السلام عليكم 
اليوم نقدم لكم موضوع اظهار رسالة ترحيب عند فتح البرنامج حسب الوقت وهو موضوع بسيط جدا وكود بسيط ونستطيع تطبيقه على نطاق اكبر من المستخدم في هذا الموضوع
كرسائل تذكير للمهام او حتى في الاذكار او تنبيه وعدم فتح البرنامج بعد وقت معين وليكن وقت انتهاء العمل لا يمكن فتحه في هذا الوقت 
وغيرها 


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

MzM3NDEwMQ929230
نضغط دبل كليك على الفورم للدخول لمحرر الاكواد
وفي حدث تحميل الفورم
نضع الكود التالي كما بالصورة

MTgxMTA3MQ6620
يتم كتابة الكود هكذا
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim NM As String
        NM = "YasserElaraby"
        If TimeOfDay >= "12:00 AM" And TimeOfDay < "11:30 AM" Then
            MsgBox("Good Morning MR " & NM)
        ElseIf TimeOfDay > "11:30 AM" And TimeOfDay < "5:00 PM" Then
            MsgBox("Good Afternoon MR " & NM)
        ElseIf TimeOfDay > "5:00 PM" And TimeOfDay < "12:00 AM" Then





            MsgBox("Good Evening MR " & NM)
        End If
    End Sub


أو هكذا
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim NM As String
        NM = "YasserElaraby"
        If TimeOfDay >= "12:00 AM" And TimeOfDay < "11:30 AM" Then
            MsgBox("Good Morning MR " & NM)
        End If
        If TimeOfDay > "11:30 AM" And TimeOfDay < "5:00 PM" Then
            MsgBox("Good Afternoon MR " & NM)
        End If
        If TimeOfDay > "5:00 PM" And TimeOfDay < "12:00 AM" Then
            MsgBox("Good Evening MR " & NM)
        End If
    End Sub

الموضوع بسيط 
TimeOfDay
الوقت الحالي ويتم مقارنته مع الوقت المضاف عن طريق المستخدم باستخدام IF
اذا تحقق الشرط يتم عرض الرسالة الخاصة بالشرط عند فتح الفورم
كما موضح بالصورة


ODAxOTUx40
وتم الاعلان عن متغير من نوع نصي String باسم المستخدم والاشارة له ب NM لاختصار كتابته داخل كل الرسائل
كما قلنا الموضوع بسيط ولكن تنفيذه على نطاق اوسع او مهام اخرى قد يكون مهم عند اغلب المستخدمين


ومثال اخر بالاكسيل

    Dim NM As String, TM
    NM = "YasserElaraby"
    TM = Format(Now(), "hh")
    If TM >= "1" And TM < "12" Then
        MsgBox ("Good Morning MR " & NM)
    ElseIf TM > "12" And TM < "17" Then
        MsgBox ("Good Afternoon MR " & NM)
    ElseIf TM > "17" Then
        MsgBox ("Good Evening MR " & NM)
    End If




تحياتي

81
 
 


أثارت هذه المشاركة إعجاب: بودى مورا، ahmed moh، الصقر، Kamel meraghni، YasserKhalil، محمد أبو عبدو، عبد العزيز البسكري، karwan، malik،


توقيع :Yasser Elaraby
663013020




06-11-2017 02:01 مساء
مشاهدة مشاركة منفردة [1]
بودى مورا
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-10-2017
رقم العضوية : 1111
المشاركات : 38
الجنس : ذكر
تاريخ الميلاد : 20-12-1977
يتابعهم : 11
يتابعونه : 2
قوة السمعة : 42
الاعجاب : 13
 offline 
look/images/icons/i1.gif اظهار رسالة ترحيب عند فتح البرنامج حسب الوقت
ممكن لينك  بيشرح فيه كيفية فتح مشروع جديد كما تعودنا وتعملنا سابقنا
حتى تظهر لنا هذه النافذة

أثارت هذه المشاركة إعجاب: karwan،




06-11-2017 02:04 مساء
مشاهدة مشاركة منفردة [2]
الصقر
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1216
الجنس : ذكر
الدعوات : 11
يتابعهم : 0
يتابعونه : 306
قوة السمعة : 8845
الاعجاب : 2163
 offline 
look/images/icons/i1.gif اظهار رسالة ترحيب عند فتح البرنامج حسب الوقت

جزاكم الله خيرا يا عربى 142



أثارت هذه المشاركة إعجاب: Yasser Elaraby،




06-11-2017 02:05 مساء
مشاهدة مشاركة منفردة [3]
ahmed moh
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 330
المشاركات : 208
الجنس : ذكر
يتابعهم : 3
يتابعونه : 3
قوة السمعة : 251
الاعجاب : 111
 offline 
look/images/icons/i1.gif اظهار رسالة ترحيب عند فتح البرنامج حسب الوقت
السلام عليكم
جزاك الله خيرا اخى ياسر
فعلاا يكمن تطويع الكود حسب الاساخدام 
وارجو  ارفاق الملفلين الفائده

أثارت هذه المشاركة إعجاب: Yasser Elaraby،




06-11-2017 02:14 مساء
مشاهدة مشاركة منفردة [4]
رمضان بكري
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 236
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 3
يتابعهم : 5
يتابعونه : 13
قوة السمعة : 467
الاعجاب : 140
 offline 
look/images/icons/i1.gif اظهار رسالة ترحيب عند فتح البرنامج حسب الوقت
جزاك الله خيرا استاذ ياسر 
 

أثارت هذه المشاركة إعجاب: Yasser Elaraby،




06-11-2017 02:17 مساء
مشاهدة مشاركة منفردة [5]
رمضان بكري
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 236
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 3
يتابعهم : 5
يتابعونه : 13
قوة السمعة : 467
الاعجاب : 140
 offline 
look/images/icons/i1.gif اظهار رسالة ترحيب عند فتح البرنامج حسب الوقت
استاذ ياسر كان في موضوع لي حضرتك  كيفية عمل التحكم  في صلاحية المستخدم 
اريد عمل صلاحيات للمستخدم  واحدد صلاحيتهم ععلي البرنامج
 

أثارت هذه المشاركة إعجاب: عاصم الفى،




06-11-2017 02:18 مساء
مشاهدة مشاركة منفردة [6]
بودى مورا
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-10-2017
رقم العضوية : 1111
المشاركات : 38
الجنس : ذكر
تاريخ الميلاد : 20-12-1977
يتابعهم : 11
يتابعونه : 2
قوة السمعة : 42
الاعجاب : 13
 offline 
look/images/icons/i1.gif اظهار رسالة ترحيب عند فتح البرنامج حسب الوقت
 
 
  Book1.rar   تحميل rar مرات التحميل :(14)
الحجم :(11.955) KB


أثارت هذه المشاركة إعجاب: karwan،




06-11-2017 02:40 مساء
مشاهدة مشاركة منفردة [7]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 755
الجنس : ذكر
الدعوات : 9
يتابعهم : 2
يتابعونه : 405
قوة السمعة : 5170
الاعجاب : 1342
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif اظهار رسالة ترحيب عند فتح البرنامج حسب الوقت
المشاركة الأصلية كتبت بواسطة: بودى مورا »
ممكن لينك  بيشرح فيه كيفية فتح مشروع جديد كما تعودنا وتعملنا سابقنا
حتى تظهر لنا هذه النافذة

اخي الكريم هذا الدرس يخص الفيجوال بيسك دوت نت وليس الاكسيل
وتجد شرح فتح المشروع الجديد في اول درس داخل هذا الموضوع
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

 

أثارت هذه المشاركة إعجاب: karwan،


توقيع :Yasser Elaraby
663013020



06-11-2017 02:45 مساء
مشاهدة مشاركة منفردة [8]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 755
الجنس : ذكر
الدعوات : 9
يتابعهم : 2
يتابعونه : 405
قوة السمعة : 5170
الاعجاب : 1342
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif اظهار رسالة ترحيب عند فتح البرنامج حسب الوقت
المشروع مرفق بلغة الفيجوال بيسك دوت نت
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

وان شاء الله نعمله ع الاكسيل عشان الاخوة اللي محتاجينه ع الاكسيل
تحياتي
 
 
 
  msgby time.rar   تحميل rar مرات التحميل :(8)
الحجم :(112.62) KB


أثارت هذه المشاركة إعجاب: karwan،


توقيع :Yasser Elaraby
663013020



06-11-2017 02:47 مساء
مشاهدة مشاركة منفردة [9]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 755
الجنس : ذكر
الدعوات : 9
يتابعهم : 2
يتابعونه : 405
قوة السمعة : 5170
الاعجاب : 1342
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif اظهار رسالة ترحيب عند فتح البرنامج حسب الوقت
جزيتم خيرا اخواني الكرام
اخي الكريم حسام 
اخي الكريم ابو حنين
اخي الكريم بودي مورا
اخي الكريم رمضان 
تقبلوا فائق احترامي
81



توقيع :Yasser Elaraby
663013020



06-11-2017 03:12 مساء
مشاهدة مشاركة منفردة [10]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 755
الجنس : ذكر
الدعوات : 9
يتابعهم : 2
يتابعونه : 405
قوة السمعة : 5170
الاعجاب : 1342
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif اظهار رسالة ترحيب عند فتح البرنامج حسب الوقت
 
 
  msg by time.zip   تحميل zip مرات التحميل :(14)
الحجم :(11.617) KB


أثارت هذه المشاركة إعجاب: عبدالله الصاري،


توقيع :Yasser Elaraby
663013020



06-11-2017 06:15 مساء
مشاهدة مشاركة منفردة [11]
Kamel meraghni
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 98
الجنس : ذكر
تاريخ الميلاد : 23-10-1984
يتابعهم : 7
يتابعونه : 5
قوة السمعة : 534
الاعجاب : 117
 offline 
look/images/icons/i1.gif اظهار رسالة ترحيب عند فتح البرنامج حسب الوقت
جزاك الله كل خير

أثارت هذه المشاركة إعجاب: Yasser Elaraby،


توقيع :Kamel meraghni

الحمد لله وكفى والصلاة والسلام على الحبيب المصطفى



142



06-11-2017 10:56 مساء
مشاهدة مشاركة منفردة [12]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3403
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 272
قوة السمعة : 9427
الاعجاب : 3199
 offline 
look/images/icons/i1.gif اظهار رسالة ترحيب عند فتح البرنامج حسب الوقت
بارك الله فيك أخي الحبيب ياسر العربي وجزيت خيراً على هذه الروائع والدروس القيمة

أثارت هذه المشاركة إعجاب: Yasser Elaraby،






الكلمات الدلالية
اظهار ، رسالة ، ترحيب ، البرنامج ، الوقت ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 06:53 مساء

أعلن هنا
أعلن هنا
أعلن هنا