الشيماء نت
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا
ادارة المنتدي


مرحبا بك يا زائر في منتدى الشيماء نت
 
الرئيسيةس .و .جبحـثالأعضاءالمجموعاتالتسجيلدخول

شاطر | 
 

 تعلم كيفية عمل برنامج مفكرة بسيط

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
الدلوعة
مديرة ادارة المنتدى
مديرة ادارة المنتدى
avatar

عدد الرسائل : 462
العمر : 25
علم الدولة :
تاريخ التسجيل : 10/06/2008

مُساهمةموضوع: تعلم كيفية عمل برنامج مفكرة بسيط   السبت يوليو 03, 2010 8:40 pm

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته

في درسنا اليوم سوف نتعلم كيفية انشاء برنامج مفكرة بسيط يشبه برنامج
المفكره الموجود في جهازنا ( Notepad ) نقوم بالبدء فورا في العمل ونقوم
اولا يفتح برنامج الفيجوال بيسك 6 واختيار مشروع قياسي Stander.exe للعمل
عليه فور فتح برنامج الفيجوال بيسك واضافة المشروع سوف نقوم بالبدء بصناعه
واجهة النموذج والقوائم التي سوف نحتاجها بعد ذلك ندخل لكتابة الكودات مع
العلم اني قد بذلت قصاري جهدي لاجعل الكودات بسيطه جدا سوف نحتاج مربع نص
واحد فقط وباقي الاوامر سوف تكون جميعها بشكل قوائم تتم عمليه صناعه
القوائم بمربع حوار خاص يمكننا اظاهره من خلال الضغط على زر Ctrl + E
لمراجعة كيفية اضافة القوائم يرجى منك التوجه لهذا الموضوع لاني شرحت هذا
الموضوع سابقا اذا اصبحت الان ذو خبره لاضافة القوائم قم بانشاء القوائم
الاتيه

File وعنصارها New , Save , Print , Exit
Editوعنصارها Cut , Copy , Past
Alignment وعنصارها Left , Right , Center
Format وعنصارها Fonts
والقائمة الاخيره هي قائمة الـ Help ذات الامر About

اذا قمت بالانتهاء من اضافة القوائم قم باضافة مربع النص وايضا اداة
CommonDialog التي سوف نستخدمها لتعرض لنا مربع حوار لاختيار الملف المراد
فتحه او حفظه وكذلك من اجل تنسيق الخطوط وغيرها تتم اضافة الاداة بكل
سهوله من خلال الضغط على زر Ctrl + C وتعليم الاداة Micrsoft Common
Dialog 6
والضغط على زر Ok فور اضافتنا لجميع الاشياء السابقة سوف تظهر نافذه اطار المشروع كالاتي







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


الرمز PHP:




Private Sub Form_Resize()
Text1.Height = Me.Height - 800
Text1
.Width = Me.Width - 80
End Sub










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


الرمز PHP:




Private Sub Mnu1_Click()
Text1.Text = ""
End Sub










كل ما قمنا به اعلاه هو افرغ محتويات مربع النص , الان سوف ننتقل للكتابة
كود فتح ملف معين سوف نقوم اولا بعرض نافذه ليختار المستخدم منها الملف
بعد ذلك نبدء بتحميله بطريقه معينه وهي


الرمز PHP:




Private Sub Mnu2_Click()
On Error Resume Next
Com1
.ShowOpen
Open Com1
.FileName For Input As #1
Text1.Text = ""
Do While Not EOF(1)
Dim A As String
Line Input
#1, A
Text1.Text = Text1.Text & vbNewLine & A
Loop
Close
#1
End Sub










اولا كود تفادي الاخطأ لكي يستمر تنفيذ الكود في حال حصول خطأ وتجاهله
بعدها قمنا بفتح مربع حوار للمستخدم باستخدام الخاصيه ShowOpen للاداة CommonDialog
ثم بعد ذلك فتحنا الملف المراد قرائته للقرائة في السطر الذي يليه قمنا
بافراغ محتويات مربع النص لاننا سوف نقوم بفتح ملف جديد ولا نود بقاي
الملف المفتوح مسبقا او اي شي مكتوب في المربع بعدها دخلنا في حلقه استمر
لحد ما تصل للسطر الاخير في الملف المعين ثم عرفنا عن متغير يحمل قيمه
نصيه واستخدمنا خاصيه معينه لجلب السطر المتوقفين عليه واعطينا السطر
لمربع النص ثم Loop وهي نهاية الحلقه ثم اغلاق الملف حتى لا يحصل خطأ في
حاله محاوله فتحه من جديد وهو مفتوح اصلا يمكننا تجربة الكود السابق
بالصغط على زر F5 واضغط على العنصر Open وجرب ان تفتح ملف وسوف تلاحظ فتحه
مباشرة انتهينا من كود فتح ملف ننتقل لكود حفظ ملف جديد سوف تكون الفكره
ايضا عرض مربع حوار لاختيار المكان واسم الملف وبعدها نقوم بخزن الملف
مباشرة بعد انشائه يقام بالعمليه من خلال الكود الاتي


الرمز PHP:




Private Sub Mnu3_Click()
Com1.ShowSave
Open Com1
.FileName For Output As #1
Print #1, Text1.Text
Close #1
End Sub










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


الرمز PHP:




Private Sub Mnu5_Click()
Printer.Print Text1.Text
End Sub

Private Sub Mnu7_Click()
End
End Sub










بالنسبه لكود الطباعه وبكل بساطه باستخدام الكائن Printer وخاصيه Print
قمنا باعطاء امر لطباعه ما مكتوب في مربع النص انتيهنا من القائمة File
وجميع كودات عناصرها سوف ننقل الان لقائمة Edit سوف تكون كوداته بسيطه جدا
حيث لنسخ او قص نص كل ما سوف نقوم به هو ارسال امر لتنفيذ ضغط على ازرار
النسخ والصق في الكيبورد وسوف تكون الاكواد الثلاثه كالاتي


الرمز PHP:




Private Sub Mnu9_Click()
SendKeys "^" + "X"
End Sub

Private Sub mn10_Click()
SendKeys "^" + "C"
End Sub

Private Sub Mnu11_Click()
SendKeys "^" + "V"
End Sub










حيث شرح الاكواد السابقه هي فقط اننا قمنا بارسال ايعازات لضغط ازرار
معينه في الكيبورد والتي سوف تقوم باتمام العملية على احسن وجه وها نحن
سوف ننتهي لم يبقى الكثير بل لم يبقى شيء بقى لنا القائمة Alignment والتي
تحدد موقع النص يمين يسار وسط بكل بساطه سوف نقوم باستخدام خاصيه معينه
بالشكل الاتي


الرمز PHP:




Private Sub Mnu13_Click()
Text1.Alignment = 0
End Sub

Private Sub Mnu14_Click()
Text1.Alignment = 1
End Sub

Private Sub Mnu15_Click()
Text1.Alignment = 2
End Sub










الشرح بسيط الخاصيه Alignment هي خاصيه تحدد موقع النص والارقام 0 , 1 , 2 تمثل الاتي

0 يمثل Left
1 يمثل Right
2 يمثل الوسط

انتهينا ولم يبقى اي شي غير الـ About اضف الكود الاتي


الرمز PHP:




Private Sub Mnu19_Click()
MsgBox "Ahmed Feras Nabeel Makai" & vbCrLf & "**********.***********"
End Sub










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



منقول

_________________
منتدى الشيماء نت
منتدى متجدد باستمرار


الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://shiemaa.montadamoslim.com
منى
عضو فعال
عضو فعال


عدد الرسائل : 24
العمر : 26
تاريخ التسجيل : 07/09/2008

مُساهمةموضوع: رد: تعلم كيفية عمل برنامج مفكرة بسيط   الخميس يوليو 08, 2010 3:32 pm

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

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
الشيماء نت :: منتدى الكمبيوتر والانترنت :: منتدى البرمجة-
انتقل الى: