| | | |
| |
| |||||||
 |
| | LinkBack | خيارات الموضوع | طريقة العرض |
|
#1
2006-12-17, 01:33 PM
| ||||
| | ||||
| طريقة عمل مفكرة (notbad) بإستخدام الفيجوال بيسك بسم الله الرحمن الرحيم شروط الإنظمام للدرس :- 1- ان تكون مسجل (منه هنا) 2- ان يكون لك اكثر من 5 مشاركات والرجاء تكون في اكثر من موضوع وان تكون مفيددة . مشجعه . (لاتحاول وضع المشاركات في موضوع واحد لانك سوف تعرض للطرد لامجال) هذا الشرح خاص مقدم لشبكة كتاب العرب www.arabsbook.com الان نأتي للدرس:- اولا:- افتح عمل جديد ثانيا:-سوف نقوم بعمل قوائم وهذا شرح لعمل قائمة ملف. اولا نضغط على Ctrl+E سوف تظهر لنا هذه القائمة 1- اسم القائمة 2- اسم القائمة بالانجليزي(او اي حرف يدل عليها) االان سوف نعمل قائمة ملف ينسدل اسفلها فتح . حفظ . جديد . خروج والطريقة سهله انظر للصورة واتبع الارقام 1-اسم القائمة المنسدلة (فتح حفظ جديد خروج) 2- اختصار لقائمة فتح (.open 3-لجعل قائمة فتح منسدلة اسفل ملف 4- لوضع اختصار لفتح وهكذا على باقي القوائم الان اعمل القوائم كالتالي ولا تنسى ان تضع نفس الاختصارات لانها الاختصارات المتعارفة دوليا  الان كلكم يتسائل كيف سوف نعمل مربع للكتابة فيه بحيث يمتد اذا كبر المستخدم البرنامج او يصغر اذا صغر المستخدم البرنامج . سهل جدا قم بوضع text باي حجم . اضغط مرتين على العمل لتفتح لك منطقة الاكواد واجعل عملك على Form ومكان Resize وضع الكود كما بالصورة. الان نعدل على خصائص text1 لنجعله يقبل الضغط على انتر (كمابالصورة) هكذا انتهينا من الشكل الاساسي لنأتي الى الأكواد الخاصة ـــــــــــــــــــــــــــــــــــ ـ الأن لنضع اداة commanDailong وذلك عن طريق الضغط على ctrl+t واختيار الاداة كما بالصورة. ضعها على عملك وحول اسمها الى cmd كما بالصورة. الان الاكواد نضغط على قائمة ملف ثم نختار فتح ونضع هذا الكود كما بالصورة. شرح الكود كود: On Error GoTo skip: 2- intfile = FreeFile واضح ملف فارغ 3- cmd.InitDir اول ماتفتح لك نافذه لاختيار الملف هنا تحدد المجلد الذي سوف يفتح تلقائيا انا اخترت القرص D -4 cmd.DefaultExt وهو نوع الملف الذي سوف نستوردة 5- cmd.Filter الكتابة التي تظهر عند الامتداد 6- cmd.ShowOpen وهذا لتحديد نوع النافذه التي سوف تظهر هل هي للفتح ام للحفظ. 7- Open cmd.FileName For Input As #intfile وهذا اصطلاح ويعني انه يفتح الملف المحدد . Text1.Text = Input$(LOF(intfile), intfile) وهذا تابع للسابق الا انه يرمز ان الملف الي بدوا ينفتح ينكتب محتواه داخل المستند النصي text1 8- Close #intfile skip: نهاية الاوامر. ________________________ الأن الامر حفظ نفس السابق لكن بعض التعديلات بالاوامر التالية :- 1- cmd.ShowOpen سوف تصبح cmd.Showsave 2-و Open cmd.FileName For Input As #intfile سوف تصبح Open cmd.FileName For output As #intfile 3-و كود: Text1.Text = Input$(LOF(intfile), intfile) Print #intfile, Text1.Text وهذه الصورة النهائية لها اما كود جديد فهو text1.text="" وهكذا انتهينا من قائمة ملف. ـــــــــــــــــــــــــــــــــــ ــــــــــــــــــــــــــ امر نسخ كودة Clipboard.Clear Clipboard.SetText Text1.SelText وهذا يعني ان نفرخ الحافظة من المعلومات المنسوخة ثم ننسخ المحدد في مربع الحوار text1 ـــــــــــــــــــــــــــــــــــ ــــــــــــــــــــــــــ امر لصق هو Text1.SelText = Clipboard.GetText وهذا امر انه يتم لصق البيانات بالمكان المحدد داخل text1 ـــــــــــــــــــــــــــــــــــ ــــــــــــــــــــــــــ امر قص هو Clipboard.Clear Clipboard.SetText Text1.SelText Text1.SelText = "" نفس امر نسخ لكنه يقوم بحذف المنسوخ هكذا نهي الدرس استغرق معي وقت طويل ارجوا انا ارى التفاعل جزاكم الله كل خير ادعوا لي . آخر تعديل بواسطة محمد الفرح ، 2006-12-17 الساعة 02:06 PM.  |
| عدد 2 من الطلاب تقدموا بالشكر لكاتب الموضوع محمد الفرح علي هذه المشاركة الطيبة : | ||
okiskar (2007-03-19), البرق الأبيض (2007-01-30) | ||
|
#2
2006-12-17, 06:28 PM
| |||
| | |||
| مشكور يامستشار وارجو من الله ان يعوضك خير علي الوقت الذي قضيته في هذا الدرس |
|
#3
2006-12-17, 06:29 PM
| ||||
| | ||||
| يعطيك الف عافية اخوي محمد على الشرح الاكثر من رائع تحياتي |
|
#4
2006-12-17, 06:54 PM
| |||||||||||||||||||||||
| | |||||||||||||||||||||||
العفو اخوي مشكور لمرورك |
|
#5
2006-12-17, 06:55 PM
| |||||||||||||||||||||||
| | |||||||||||||||||||||||
الله يعافيك اخوي مشكور لمرورك |
|
#7
2007-01-30, 10:44 PM
| ||||
| | ||||
| مشكور اخي بارك الله فيك |
|
#8
2007-01-31, 09:55 AM
| |||
| | |||
| شكراً جزيلا واثابكم اله خيرا |
|
#9
2007-01-31, 09:58 AM
| |||
| | |||
| نشكركم اخى الكريم وجزاك اله خيرا |
|
#10
2007-02-01, 07:31 AM
| ||||
| | ||||
| مشكور اخوي على الجهد الرائع |
|
| مواقع النشر (المفضلة) |
| يتصفح الموضوع حالياً : 1 (0 عضو و 1 ضيف) | |
| خيارات الموضوع | |
| طريقة العرض | |
|
|
مواضيع مشابهة للموضوع: طريقة عمل مفكرة (notbad) بإستخدام الفيجوال بيسك | ||||
| الموضوع | الكاتب | القسم | الردود | آخر مشاركة |
| الأن إصنع برنامج قارئ الكتب الإلكترونية بإستخدام فيجوال بيسك دوت نت | محمد الفرح | البرمجة | 39 | 2008-08-17 10:34 AM |
| لكل محبي لغة الفيجوال بيسك | gold_fire2010 | البرمجة | 19 | 2008-08-05 01:08 AM |
| ( لغة الفيجوال بيسك) قاعدة if .. and , if.....or | البرق الأبيض | البرمجة | 20 | 2008-01-13 10:54 PM |
| الفيجوال بيسك | m_tito | البرمجة | 1 | 2007-05-08 06:43 PM |
النمط المتتابع
