logo

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



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





08-09-2017 06:24 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 107
رصيد العضو : 0
الجنس :
تاريخ الميلاد : 23-10-1984
قوة السمعة : 754
الاعجاب : 2
السلام عليم ورحمة الله وبركاته
سأحاول اليوم شرح الدرس الماضي - كيفية عمل مشروع بنسخة تجريبية-
أولا نقوم بفتح ملف أكسل جديد ثم من تبوب المطور نختار UserForm ثم نضيف عليه إثنين TextBox و سبعة Label و CheckBox واحدة و إثنين CommandButtonكما هو موضح في اليوزر فورم1
Mjk3MTUyMQ67672017-09-08_154833
نرجع على ورقة العمل رقم 1
أولا شرح توليد كود التفعيل
عند الخلية G1""نكتب مثلا رقم 6881 ثم نحد الخلية نكتب مثلا رقم 6881 ثم نحد الخلية "H1" ونقوم بتحويل الرقم الموجود في الخلية G1"" من رقم عشري إلى رقم سداسي عشري وذلك بكتابة المعادلة التالية في الخلية "H1" =DEC2HEX(G1)
يصبح الناتج 1AE1 ولزيادة الحماية أكثر نضع في الخلية "J1" المعادلة التالية
=G1*2-10000 وذلك لكي يصبح الكود أكثر أمانا وهذا هو كود التفعيل.
MzExNDA0MQ44442017-09-08_160303
نعود لليوزر فورم 1
بعد ما صممنا اليوزر فورم مثلما هو موضح في الصورة السابقة بالضبط
نجعل textbox2 مخفي لأننا نريد عند ظهر اليوزر فورم . التكس بوكس2 يأخذ القيمة الموجودة في الخلية "J1"
وذلك بالضغط مرتين على اليوزر فورم ونكتب الكود التالي في حدث Activate
CODE
Private Sub UserForm_Activate()<br />
Label6.Caption = Cells(1, 8).Value<br />
TextBox2.Value = Cells(1, 10).Value<br />
End Sub<br />

نقوم بتصميم يوزر فورم 2 كما هو موضح بالصورة
NDYwMzEzMQ77772017-09-08_183453
نعود لليوزر فورم واحد ونقوم بالضغط على زر موافق مرتين ونكتب الكود التالي
CODE
Private Sub CommandButton1_Click()
If TextBox1.Value = TextBox2.Value Then
Cells(1, 1).Value = 0
UserForm2.Caption = "نسخة مفعلة"
UserForm2.Label1.Visible = False
UserForm2.Label2.Visible = False
UserForm1.Hide
UserForm2.Show
Else
Call kamell
Label6.Caption = Cells(1, 8).Value
TextBox2.Value = Cells(1, 10).Value
Label3.Caption = Label3.Caption - 1
TextBox1.Enabled = True
TextBox1.Value = ""
TextBox1.SetFocus
If Label3.Caption = 0 Then
ThisWorkbook.Save
Application.Quit
End If
End If
End Sub

سؤال مطروح ماذا تعني Call kamell !?
للإجابة على هذا السؤال ندرج مديول نسميه مثلا kamell ثم نكتب فيه الكود التالي
CODE
Sub kamell()<br />
m = Cells(1, 7).Value<br />
b = m + 15<br />
Cells(1, 7).Value = b<br />
End Sub<br />

هذا الموديول هو لتغيير الكود كلما أخطأت في إدخال الكود الصحيح وهذا كما قلنا لزيادة المحافظة على خصوصية و امان البرنامج
ثم نعود لليوزفورم1
نضغط مرتين على شيكبوك ونكتب الكود التالي
CODE
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
TextBox1.PasswordChar = ""
Else
TextBox1.PasswordChar = "*"
End If
End Sub

اه انا نسيت حاجة في تكس بوكس نروح للخصائص وعند الخاصيةPassewordChar نكتب بجنبها * أو أي رمز أخر وهذ لإخفاء كلمة المرور
MTM4ODI1MQ28282017-09-08_191550
نضغط مرتين على زر الخروج من البرنامج ونكتب الكود التالي
CODE
Private Sub CommandButton2_Click()<br />
ThisWorkbook.Save<br />
Application.Quit<br />
End Sub<br />

وبهذا القدر نكتفي اليوم بقية حاجة بسيطة من البرامج نتركها لمرة اخرى بإذن الله
شكرا
السلام علكم
تكملتا للموضوع لم يتبق في هذا اليوزر فورم إلا إلغاء خاصية QueryClose وذلك بإدراج الكود التالي في اليوزر فورم
CODE
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)<br />
Cancel = True<br />
End Sub<br />

وهاكذا إنتهينا من اليوزر فورم 1
ننتقل لليوزر فورم2

في حدث userform activate نضع الكود التالي
CODE
Label2.Caption = Cells(1, 2).Value<br />

وهذا الكود يمثل جلب عدد المرات المتبقية للنسخة التجربية و إضهارها في الليبل كما هو موضح في الصورة السابقة
والزر -ملف الأكسل يمثل الدخول للبرنامج والزر الأخر للخروج كذلك يجب إلغاء QueryClose كما فعلن سابقا في اليوزر فورم 1
نأتي للمرحلة الأخيرة
ندرج يوزر فورم 3 ونع فيه2 أزرار و ليبل واحد كما في الصورة
MTc5MTczMQ61612017-09-08_184720
في حدث userform activate نض الكود التالي
CODE
Private Sub UserForm_Activate()<br />
If Cells(1, 2).Value = 0 Then<br />
CommandButton2.Visible = False<br />
End If<br />
End Sub<br />

والذي يمثل إذا كانت عدد المرات المتبقية هي 0 أخفي زر العمل على النسخة التجريبية
أما الزر الأخر فهو لفتح اليوزر فورم 1
كذلك نلغي خاصية QueryClose
وهذا اليوزر فورم نجعله يظهر عند فتح البرنامج و إذا كانت النسخة تجريبية فقط
أما إذا كانت مفعلة فلن يظهر
كيف نقوم بذلك ?
نقوم بفتح ThisWorkbook
MTYxNzMwMQ80802017-09-08_191835
ومن خلال حدث Open ندرج الكود التالي
CODE
Private Sub Workbook_Open()
Application.Visible = False
Cells(1, 7).Value = Cells(1, 7) + 7
If Cells(1, 1).Value = 1 Then
Cells(1, 2).Value = Cells(1, 2).Value - 1
UserForm3.Show
Else
UserForm2.Caption = "نسخة مفعلة"
UserForm2.Label1.Visible = False
UserForm2.Label2.Visible = False
UserForm2.Show
End If
End Sub

طبعا هذا مثال على البرنامج لأن البرنامج في الأخير لن يظهر ملف الأكسل وسوف يكون فيه عديد من أوراق العمل لذلك من المستحسن كتابة إسم الشيت قبل كل خلية المعلن عنها سابقا ثم إخفاء هذه الورقة
أرجوا أن أكون وفقت في شرح بعض النقاط الغامضة وشكر
 
 




توقيع :Kamel meraghni

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


142

look/images/icons/i1.gif شرح درس كيفية جعل البرنامج نسخة تجريبية
  08-09-2017 07:19 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10536
رصيد العضو : 5
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36819
الاعجاب : 210
وعليكم السلام أخي العزيز كامل
بارك الله فيك وجزاك الله خيراً ..موضوع مميز ورائع

مجرد نصيحة بسيطة حاول تدعم الموضوع ببعض الصور ..
تقبل تحياتي




look/images/icons/i1.gif شرح درس كيفية جعل البرنامج نسخة تجريبية
  08-09-2017 07:24 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10536
رصيد العضو : 5
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36819
الاعجاب : 210
يبدو أن الصور لم يتم إدراجها بشكل صحيح في الموضوع ..
قم بالنقر على إضافة مرفقات ثم قم بتحميل الصور وبعد التحميل قم بتحديد المكان المطلوب إدراج الصورة فيه ثم انقر "أضف للمشاركة" من نافذة "تحميل المرفقات"




look/images/icons/i1.gif شرح درس كيفية جعل البرنامج نسخة تجريبية
  08-09-2017 08:29 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 107
رصيد العضو : 0
الجنس :
تاريخ الميلاد : 23-10-1984
قوة السمعة : 754
الاعجاب : 2
خلاص أخي يايسر أصلح الخلل شكرا



توقيع :Kamel meraghni

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


142

look/images/icons/i1.gif شرح درس كيفية جعل البرنامج نسخة تجريبية
  10-12-2018 11:18 صباحاً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-11-2018
رقم العضوية : 9298
المشاركات : 119
رصيد العضو : 0
الجنس :
تاريخ الميلاد : 27-6-1985
قوة السمعة : 110
الاعجاب : 0
بارك الله فيك




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كيفية دمج عدة شيتات بهيدرز واحدة في شيت واحد باستخدام الكويري mmagedmemo
2 358 karwan
سلسلة اتعلم كيف تصطاد - شروحات الفورم - الدرس الثانى والعشرون- شروحات Frame-كيفية انشاء Frame -حسام الصقر
10 129 علي بطيخ سالم
سؤال عن كيفية تجميد خلايا اكسل من التعديل بعد اختيار كلمة SIEMENS amqadri
5 261 ali mohamed ali
كيفية استخراج بيانات من عمود بواسطة بوضع نجمة امامه وشوية تريكات mmagedmemo
2 1379 EM_ACC
كيفية إضافة التاريخ والوقت والتغلب على معادلة الوقت عند استخدام ماكينة الباركود mmagedmemo
4 397 EM_ACC

الكلمات الدلالية
كيفية ، البرنامج ، نسخة ، تجريبية ،









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

الساعة الآن 12:58 PM