أكاديمية الصقر للتدريب

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


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





شرح درس كيفية جعل البرنامج نسخة تجريبية

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



08-09-2017 06:24 مساء
Kamel meraghni
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 106
الجنس : ذكر
تاريخ الميلاد : 23-10-1984
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 650
 offline 

السلام عليم ورحمة الله وبركاته
سأحاول اليوم شرح الدرس الماضي     - كيفية عمل مشروع بنسخة تجريبية-
أولا نقوم بفتح ملف أكسل جديد ثم من تبوب المطور نختار 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
Private Sub UserForm_Activate()
Label6.Caption = Cells(1, 8).Value
TextBox2.Value = Cells(1, 10).Value
End Sub

نقوم بتصميم يوزر فورم 2 كما هو موضح بالصورة
NDYwMzEzMQ77772017-09-08_183453
نعود لليوزر فورم واحد ونقوم بالضغط على زر موافق مرتين ونكتب الكود التالي
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 ثم نكتب فيه الكود التالي
Sub kamell()
m = Cells(1, 7).Value
b = m + 15
Cells(1, 7).Value = b
End Sub

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

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

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

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

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

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

والذي يمثل إذا كانت عدد المرات المتبقية هي 0 أخفي زر العمل على النسخة التجريبية
أما الزر الأخر فهو لفتح اليوزر فورم 1
كذلك نلغي خاصية QueryClose
وهذا اليوزر فورم نجعله يظهر عند فتح البرنامج و إذا كانت النسخة تجريبية فقط
أما إذا كانت مفعلة فلن يظهر
كيف نقوم بذلك ?
نقوم بفتح ThisWorkbook
MTYxNzMwMQ80802017-09-08_191835
ومن خلال حدث Open ندرج الكود التالي
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

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



142



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

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

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

08-09-2017 08:29 مساء
مشاهدة مشاركة منفردة [3]
Kamel meraghni
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 106
الجنس : ذكر
تاريخ الميلاد : 23-10-1984
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 650
 offline 
look/images/icons/i1.gif شرح درس كيفية جعل البرنامج نسخة تجريبية
خلاص أخي يايسر أصلح الخلل شكرا
توقيع :Kamel meraghni

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



142



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




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


 










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

الساعة الآن 04:31 مساء