تعلم برنامج الفيجوال بيزك بالتفصيل(دورة مجانية)

[سمسمة]

أصل لغة فجوال بيسيك هى لغة بيسيك التي ظهرت في كلية دارتماوث Dartmaouth علي يد جون كيمني John Kemeny و توماس كيرتز Thomas Kurtz عام 1963م و قد أصبحت بسرعة فائقة من أشهر و أسهل لغات البرمجة بل لم تقف عند هذا فحسب فأصبحت كلغة تعليمية تدرٌس في المعاهد و الكليات و الجامعات و بدأ انتشارها في السبعينات .


ثم أخذت هذه اللغة في التطور الدائم مع المحافظة على سهولة استخدامها و بساطتها .
و كان الإصدار الأول لهذه اللغة عام 1991 م ثم كان الإصدار الثاني منها عام 1992 م .

ثم كان الإصدار الثالث عام 1993 ومن ذلك الوقت تعاقبت اصدارات كثيرة منها ، و آخرها الإصدار السادس ( فجوال بيسيك 6.0 ) (Visual Basic 6.0) وهو مع مجموعة من اصدارات شركة مايكروسوفت التي اسمته الان ( فجوال ستديو 6.0 ) (Visual Studio 6.0) .

البروف سمسمة..:112:

[سمسمة]

اذهب لقائمة إبدأ على جهازك ثم إلى البرامج ثم إلى Microsoft Visual Studio 6.0 ثم اختر Visual Basic 6.0 و انقر فوقها عندما يفتح البرنامج ستظهر الشاشة التالية بالشكل التالي

http://saudint.com/vbimages/NEWPROJECT.gif

هذه الشاشة ستظهر كل مرة تقوم بفتح البرنامج
تحتوي هذه الشاشة على عدة إختيارات , اختر Standar.exe ثم انقر open
هذا التطبيق satandar.exe هو الإفتراضي أي لصنع برنامج إفتراضي و قياسي تنفيذي و هذا الإختيار هو الغالب عادة في تطبيقاتنا القادمة بإذن الله
بعدها ستظهر شاشة أو ( واجهة البرنامج ) و هي التي سنعمل عليها هيا بنا الآن لنتعرف على واجهة برنامج فجوال بيسيك

البروف سمسمة..:112:

[سمسمة]

واجهة الفيجوال بيسك

http://saudint.com/vbimages/INTERFACE.gif

واجهة برنامج الفجوال بيسيك الإصدار السادس 6.0
المكونات الأساسية لبرنامج ( الواجهة ) الفجوال بيسيك
شريط العنوان
شريط القوائم
شريط الأدوات
نافذة النموذج
نافذة ( أو مربع ) الخصائص
النموذج ( و هو الذي نستعمله للعمل عليه و الرسم فوقه )
صندوق ( مربع ) أدوات التحكم
و هناك بعض النوافذ الأخرى كهذه النوافذ

http://saudint.com/vbimages/gif1.gif

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

http://saudint.com/vbimages/project.gif

البروف سمسمة..:112:

[سمسمة]

النموذج


النموذج ( الفورم ) و هو عبارة عن نافذة أو هو عبارة عن نموذج فارغ و هو الذي نكوّن و نضع عليه الرسوم و الصور و الأزرار و عناصر الإدخال و الإخراج و غير ذلك و الذي سيكون واجهة برنامجك الرائع الذي ستصنعه وهو حقيقة يشبه لوحة رسم لأنك تستطيع الرسم عليه بسهولة كما يمكنك تغيير حجمه و لونه و أطرافه , كما تستطيع تغيير عنوانه و سنرى كل ذلك بإذن الله تعالى

http://saudint.com/vbimages/form.gif

شكل الفورم

ملاحظة : الفورم السابق هو نتيجة إختيارنا في البداية لـ standar.exe هذا يعني أن هذا الفورم هو الفورم الإفتراضي * كيف نغير عنوان الفورم من كلمة form1 إلى العنوان الذي نريده ؟ حسنا هذا ليس صعبا على الاطلاق ... انقر فوق الفورم نقرة واحدة ( لتحدده أو تختاره ) , ثم اذهب لمربع الخصائص أو نافذة الخصائص properties window ( موقعه على يمين الشاشة ) إذا كان غير ظاهر على واجهة البرنامج إذهب إلى عندها تظهر نافذة الخصائص اختر caption و اكتب : " التطبيق الأول "

http://saudint.com/vbimages/caption.gif

نافذة الخصائص

http://saudint.com/vbimages/first.gif

تغير عنوان الفورم انظر فوق
ملاحظة : نافذة الخصائص تخصص جميع العناصر الموجودة على الفورم كالأزرار و عناصر الادخال و الإخراج إلخ
الآن أعرف أنك تود أن تسأل عن كيفية وضع العنوان على اليمين ( نحن مسلمين ننطق بلغة القرآن أليس كذلك و نوّد أيضا أن نصنع برامج معرّبة و منسقة من اليمين إلى اليسار ) الأمر أسهل مما تتوقع في نافذة الخصائص السابقة ابحث عن rigth to left يظهر سهم منسدل للأسفل انقرعليه وستلاحظ أن لهذه الخاصية قيمتان fals و true حيث fals هي الإفتراضية غيرها أنت إلى true
http://saudint.com/vbimages/first1.gif

لقد تغير عنوان الفورم من اليسار إلى اليمين
ماذا تلاحظ الآن تغيرت و أصبحت من اليمين إلى اليسار أليس كذلك لقد نجحت مرة أخرى هنيئا لك كيف تغير حجم الفورم ؟ تستطيع تغيير حجم الفورم بطريقة سهلة ... أنت ترى في الاعلى على الفورم السابق مربعات صغيرة زرقاء اللون أو في أركان الفورم ضع مؤشر الفارة فوق أحد تلك المربعات سيتغير شكل المؤشر إلى مؤشر ذو رأسين تستطيع من خلال ذلك تغيير حجم الفورم بالسحب و الإفلات و هناك طريقة أخرى لتغيير حجم الفورم ...إذهب إلى نافذة الخصائص انقر فوق السهم المتجه نحو الأسفل في عمود الإنزلاق الموجود على يمين نافذة الخصائص و ابحث عن خاصية العرض Width و خاصية الطول Heigth و غير إلى المقاس الذي تريده بالتحديد .... االعملية سهلة للغاية

البروف سمسمة..:112:

[سمسمة]

نافذة الشفرات

الآن بعد أن عرفت كيف تستعمل الفورم و عرفت كيف ترسم علية و تضع العناصر فوقه إلا أن الفورم الذي سيطرت عليه و عرفت كيفية التعامل معه لا يزال بسيطا و لم يصبح برنامجا بعد لأنك لم تكتب فية الشفرات الخاصة بكل عنصر و كل شكل ، و لم تحدد أيضا طريقة عمله و ترتيب الأوامر ...... إلخ الآن تود أن تعرف شيئا عن الشفرات .. .. حسنا قبل ذلك دعنا نعرف أين نكتب الشفرات و المكان الذي نكتب فيه الشفرات تكتب الشفرة في نافذة تسمى ( نافذ الشفرة ) ( code window ) و هي عبارة عن نافذة مخصصة لكتابة الشفرات فوقها , عادة تكون مخفية ( غير ظاهرة في الواجهة ) و يتم ظهورها بالنقر المزدوج على العنصر الذي تريد أن تكتب له الشفرة الخاصة به

http://saudint.com/vbimages/codewindow.gif


ملاحظة : النافذة في الأعلى هي نافذة الشفرة الخاصة بجميع العناصر و ستظهر شفرة كل العناصر فيها لكن مفرقة بخط نلاحظ في الشكل الأعلى مربع قائمتين مربع قائمة لكائنات Object ( المربع الذي على اليسار ) فيه سهم منسدل للأسفل يحتوي على العناصر أو الكائنات الموجودة على الفورم مثل الأزرار ، مربع الصور ، و حتى النموذج نفسه ( تستطيع من خلاله تحديد الكائن الذي تريد أن تكتب له الشفرة الخاصة به من غير النقر على العنصر مرتين كما أسلفنا فهاتين طريقتين كلاهما سهلة ) مربع قائمة الأحداث Event و تجد فيه سهم منسدل للأسفل يحتوي على جميع الأحداث ثم في الشكل أعلى نلاحظ في نافذة النموذج سطرين مكتوبين هما كالتالي Private Sub Form_Load()
End Sub
هاتين الجملتين هما الإجراء البرمجي الخاص بالحدث ( الحدث في هذه الحالة هو load /اي التحميل ) من هنا نستطيع تحليل هذا الإجراء الحدثي
Privateكلمة الإجراء الفرعي Sub و هي بداية الإجراء
formكلمة هي اسم الحدث
End Subكلمة هي نهاية الإجراء الحدثي إن كان هذا غير مفهوم بالنسبة لك فلا تقلق ستعرف ذلك لاحقا إن شاء الله تعالى .. لا تعجل فقط ركز و تمهل الآن بعد أن عرفنا ما هو الحدث Event ، و عرفنا كذلك ما هو الكائن بقي أن نعرف ما هي الوسائل Metheds كلمة مخيفة اليس كذلك لا تقلق ....... سوف اوضح لك المقصود بها الوسائل Metheds هي كلمات خاصة بالكائنات تستخدم لتنفذ وظائف معينة مثلا كلمة Print تستخدم لطباعة رسالة معينة داخل نموذج ( طبعا الرسالة تحددها أنت )

البروف سمسمة..:112:

[سمسمة]

الفورم وكيفية التعامل معه

ذكرنا أن النموذج (الفورم ) يشبه لوحة رسم لماذا ؟ لأننا نستطيع الرسم فوقه ، و نستطيع أيضا تركيب العناصر عليه بأتم سهولة .... و نسيت أن أقول أنك تستطيع الكتابة عليه بحرية فأضف ذلك الى معلوماتك دعنا الآن نجرب أن نكتب عنوان لبرنامجنا مثلا ( ليس في الشريط ) لكن على النموذج في وسط النموذج بالضبط ، هل أنت مستعد ؟ قل بسم الله نبدأ،، هل أخذت فنجان من القهوة أو كوب من الشاي الصيني ؟أنصحك بذلك كي لا يسيطر عليك الملل فموقعنا ممل نوعا ما أليس كذلك اذا لم تجد شاي صيني فلا بأس بالشاي الياباني هيا بنا نبدأ توكلنا على الله
افتح برنامج فجوال بيسيك ( أظن أنه لا داعي أن أذكرك كل مرة بفتح الفورم الإفتراضي Standar.exe عليك أن تفتح هذا الفورم عند كل مرة نقول فيها افتح البرنامج ... مفهوم .... الحمدلله) غير عنوان النموذج أو الفورم إلى ( التعامل مع الفورم ) الطريقة هنا
ثم اذهب إلى صندوق ( مربع ) أدوات التحكم و اختر الأداة المعلّمة بمربع أحمر

http://saudint.com/vbimages/ztoolbox.gif

إن كان المربع غير ظاهر على الواجهة اذهب إلى شريط الأدوات و انقر على الزر

http://saudint.com/vbimages/toolbox.gif

مربع ( صندوق ) أدوات التحكم

ثم اذهب فوق الفورم تجد أن مؤشر الفأرة قد تحول إلى شكل شعرتين متعامدتين انقر مرة مع السحب و انظر الحجم الذي تريده ثم افلت زر الفأرة فينتج لك الشكل التالي

http://saudint.com/vbimages/form1.gif

النموذج ( الفورم ) بعد وضع عنصر ال Label عليها ملاحظة : كلما تضع Label أخرى على نفس الفورم سيبقى اسمها Label أيضا لكن الفرق بالترقيم مثال Label 1 و Label 2 و Label 3 و هكذا
الأن لتغيير حجم Label ضع مؤشر الفأرة على المربعات الصغيرة الزرقاء ( حول الشكل ) فيصبح مؤشر الفأرة ذو رأسين عندها تستطيع التحكم في حجمها كما تريد الآن لنغير كلمة Label1 إلى العنوان الذي نريده ... انقر نقرة واحدة فوق ال Label1 ثم اذهب إلى نافذة الخصائص و ابحث عن خاصية Caption و اكتب في جانبها العنوان الذي تريده و ليكن مثلا ( العنوان الأول ) كالتالي

http://saudint.com/vbimages/label1.gif

من المربع الأول المعلّم بالأحمر تستطيع تغيير العنوان من كلمة Label1 إلى الكلمة أو العنوان الذي تريده
في المربع الثاني الايمن المعلّم بالأحمر تستطيع من خلاله تغيير بنط الخط
في المربع الثاني الايسر المعلّم بالأحمر تستطيع من خلاله تغيير لون الخط إلى اللون الذي تريد
أما إذا أردت تغيير لون خلفية النموذج أو الفورم اذهب ( في نافذة الخصائص ) إلى خاصية Backcolor و من ثََّم غير إلى اللون الذي تريد
لتغيير خاصية محاذات النص اختر Aligment ثم من القائمة اختر محاذات اليمين أو اليسار أو الوسط

http://saudint.com/vbimages/form2.gif

الفورم الناتج عن تنسيق الحروف و الألوان في التطبيق السابق

إذا اردت أن تجعل لخاصية Label حدود اذهب إلى Borderstyle و اختر fixed singel و ستحصل على التالي

http://saudint.com/vbimages/form3.gif

البروف سمسمة..:112:

[سمسمة]

كيفية حفظ المشروع

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

البروف سمسمة..:112:

[سمسمة]

جعل الملف تنفيذي

بعد ان انتهيت منبرنامجك تريد ان توزعه علىاصدقائك او حتى تبيعه مثلا ! لكن لا تحرص على الاخيرة فيهذا الوقت وقبل ان تتأكد من مستوى برمجتك !؟ البرنامج لايمكن فصله عن بيئة الفجوال بيسيك بعد لهذا عليك ان تجعله ملف تنفيذي اي تجعلة بامتدادexe ليصبح برنامجا كاملا كالذي تشتريه او كالذي تحمله من الانترنت ( بالمناسبة لابد انك تحب البرامج المجانية اليس كذلك ) واذا كنت كذلك فلا تجلب اي برامج من المواقع الشخصية وكذلك مواقع الكراك فغالبا ماتكون ملوثة بالفايرس الآليواذا كنت محتاج الى البرنامج ولا تحب دفع ثمنه فأشتري علىالاقل آخر اصدار لبرنامج مكافحة الفايرس وحدثه بإستمرار واذا لم تفعل فنزل البرنامج واعمل له كشف عبرمواقع شركات مكافحة الفايرس قبل تشغيله على جهازك

هيا الان نجعل برنامجنا تنفيذيا
مثلا عندنا برنامج اسمه saudint و نريد ان نجعله برنامج تنفيذي فما علينا الا نتبع الخطوات التالية بعد ان حفظنا المشروع ( البرنامج ) باسم saudint اذهب قائمة File ثم اختر منها make saudint.exe طبعا عند حفظ البرنامج البرنامج فجوال بيسيك تلقائيا يضيف العبارة make sdudint .exe ليسهل عليك العمل و هذا اكيد يختلف فعندك مثلا لا يظهر make saudint.exe لكن يظهر اسم البرنامج الذي حفظته الان اذهب للمسار الذي كنت حفظت فيه البرنامج تراه قد عمل ايقونة لبرنامجك اوتوماتيكيا و عند النقر على الايقونة يفتح برنامجك

البروف سمسمة..:112:

[سمسمة]

فتح ملف محفوظ مسبقا


الان نريد ان نفتح مشروع محفوظ مسبقا ( لنجري عليه بعض التعديلات على سبيل المثال )
نذهب الى القائمة File و نختار Open Project عندها تظهر لك نافذة اسمها Open Project في تبويب Existing
تظهر لك البرامج المحفوظة بالتنسيق الذي تم الحفظ به مسبقا ،،اختر البريمج المطلوب ثم ماذا !!! ثم انقر فوق Open فيفتح برنامجك Existing حدد انت مسار البرنامج يدويا

البروف سمسمة..:112:

[سمسمة]

الاحداث :


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

http://www.khayma.com/learnvb/vb8_2.jpg



load اي عند وقوع الحدث

form1 للنافذة

نفذ الاوامر الموجودة داخل الحدث
===================================
الحدث شرحه

active load يقع بعد تحميل النافذة اي بعد وقوع حدث load

click عند النقر المفرد على الماوس

dbclick عند النقر المزدوج على الماوس

gotfocus عند اخذ التركيز لاداة معينة

lostfocus عند فقد التركيز لاداة معينة

keydown عند نزول الزر إلى الأسفل

keypress عند الضغط لأى زر من لوحة المفاتيح

keyup عند طلوع زر لوحة المفاتيح إلى الأعلى

load عند تحميل النافذة الرئيسية

mousedown عند نزول زر الماوس إلى الأسفل

mousemove عند تحرك الماوس إلى أداة معينة

mouseup عند طلوع الماوس إلى الأعلى

paint عند إعادة رسم النافذة

resize عند تغيير حجم النافذة

unload عند إلغاء تحميل النافذة

البروف سمسمة..:112:

[سمسمة]

البسيطة FOR .... NEXT جملة التكرار :

فكرة البرنامج :
كتابة برنامج يوضح عمل FRO....NEXT البسيطة
كتابة برنامج يقوم بطباعة جملة السلام عليكم و بجورها رقم الحلقة 5 مراااااات

تصميم البرنامج :

http://www.khayma.com/learnvb/vb6_1.jpg

كتابة التعليماااااات :-

http://www.khayma.com/learnvb/vb6_2.jpg

تنفيذ البرنامج :-

http://www.khayma.com/learnvb/vb6_3.jpg

============================

جملة التكرار FOR .........NEXT المركبة :-

فكرة البرنامج :-

كتابة برنامج يقوم بطباعة رقم الحلقة الخارجية ورقم الحلقة الداخلية.

تصميم البرنامج :-
http://www.khayma.com/learnvb/vb6_4.jpg

كتابة التعليمات :-

http://www.khayma.com/learnvb/vb6_5.jpg

تنفيذ البرنامج :-

http://www.khayma.com/learnvb/vb6_6.jpgملاحظة :

يتكرر تنفيذ الاوامر الموجودة في الحلقة الخارجية بعدد مرات تكرر الحلقة الخارجية مرتين

print "" مثل طباعة سطر فارغ

يتكرر تنفيذ الاوامر الموجودة في الحلقة الداخلية بعدد مرات تكرر الحلقة الداخلية مضروبة في عدد مرات تكرار الحالقة الخاريجة 6 مرات

print "s=" ; s , "y=" ; y مثل الامر

البروف سمسمة..:112:

[سمسمة]

طريقة اضافة زر اغلاق

واليكم الطريقة :
شغل البرنامج (الفيجوال بيسك)
اذهب الى Tool Box
واضغط على الزر رقم واحد في الصورة التالية وضع الزر في أي مكان تحب في الفورم

http://ahmoode.jeeran.com/vb1.jpg

لتغيير الكتابة الموجودة على الزر اضغط على الزر رقم 2 في الصورة واكتب Exit أو أي شيء يدل على الخروج واضغط Enter

الىن اضغط على الزر الذي انشأته ضغطتان بزر الماوس اليمين فتظهر لك الصورة التالية

http://ahmoode.jeeran.com/vb2.jpg

اكتب في المكان الموضح End

و افحص البرنامج بالضغط على F5 واضغط على الزر سيخرج من ابرنامج

البروف سمسمة..:112:

[بحر الإسكندرية]

انت بتراقبيني و لا ايه ؟؟ :4:
موضوع الـ Drivers و وقولنا ماشي ,
و بعد كده تكتبي موضوع عن الـVisual Basic .

الموضوع ده كويس ليّا دلوقتي علشان برضه بآخد دورة فيه ;)

تسلم ايدك يا سمسمتنا :)

[سمسمة]

طريقة اضافة صورة في الفيجوال بيسك

افتح البرنامج (الفيجوال بيسك)
وبعدين
اضغط على الزر 1 في الصورة التالية واختر مكان الصورة فيظهر لك قالب للصورة

http://ahmoode.jeeran.com/vb3.jpg

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

البروف سمسمة..:112:

[سمسمة]

اهم المواضيع في هذا الدرس :
1 - قراءة ملف نصي ووضع محتواياته في textbox .
2 - حفظ البيانات في ملف نصّي .
3 - حذف سطر من ملف نصّي .
--------------------------------------------
قم بفتح بيئة التطوير في فيجوال بيسيك وابدا مشروع جديد :

قم بإضافة textbox الى المشروع وليكن اسم الاداة text1 .
قم باضافة الكود التالي الى المشروع :


code:--------------------------------------------------------------------------------
==========
التصريحات
==========
Dim FileNum as Integer ' ليحل محل الملف المؤقت في الذاكرة .
Dim FileName as String ' اسم الملف المراد فتحه .
Dim LineofText as String ' ملف وسيط يقوم بتخزين سلاسل نصّية .
FileName = "Mytextfile.txt ' تحديد اسم الملف ونوعه .
--------------------------------------------------------------------------------


code:--------------------------------------------------------------------------------
================
الكود
================
FileNum = FreeFile

open FileName for input as #FileNum
' فتح الملف FileName كملف وسيط باسم FileNum


do until EOF(FileNum)

Line input #FileNum, LineOfText
Text1=Text1 & LineOfText & vbcrlf
' يتم اضافة محتويات الملف الى التكست بوكس

Loop

Close #FileNum ' اغلاق الملف
-----------------------------
--------------------------------------------------------------------------------

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

حفظ البيانات لملف نصّي
==========

لنفرض انه لديك 3 تكست بوكس اسم كل منها text1, text2,text3
نستخدم الكود التالي ( ضع ما يلي في قسم التصريح ) :

code:--------------------------------------------------------------------------------
Dim FileNum as Intager
Dim FileName as String
--------------------------------------------------------------------------------


code:--------------------------------------------------------------------------------
=======================
الكود :
FileName = "Mytextfile.txt"

Open FileName for Append as #FileNum
Print #FileNum, Text1
' هنا تتم عملية حفظ البيانات الى الملف المذكور والذي اسمه mytextfile.txt
Print #FileNum, Text2 ' ايضا نفس العملية
Print #FileNum, Text3 ' نفس العماية
Close #FileNum ' اغلاق الملف
--------------------------------------
--------------------------------------------------------------------------------

التعليقات : في هذا المثال تم تحديد بعض النصوص في كل من text1,text2,text3 حسب ادخالات المستخدم . وبواسطة الكود تم حفظ ما كان موجودأ في هذه العناصر في ملف نصّي موجود في المكان الذي يحدده المبرمج .
يمكن استخدام الامر Open FileName for output as #FileNum بدلاً من السطر الاول في الكود السابق
قد يتم استعمال CommonDialog بدلاً من تحديد اسم الملف لذلك يتغير الكود كالتالي

code:--------------------------------------------------------------------------------
CommonDialog1.ShowSave ' عرض مربع حوار حفظ الملف
FileName = CommonDialog1.FileName
' يتم حفظ الملف حسب الاسم الذي ادخله المستخدم في مربع حوار الحفظ .

=========================
--------------------------------------------------------------------------------

حذف سطر من ملف
========
لا يتطلب هذا الجزء وجود تكست بوكس وما شابه وانما تستطيع وضع هذا الكود في زر حدث Click لزر امر .
ضع هذا الامر في قسم التصريحات :

code:--------------------------------------------------------------------------------
Dim FileNum1 as Integer
Dim FileNum2 as Integer
Dim FileName as String
Dim TmpFileName as String
Dim LineofText as String
--------------------------------------------------------------------------------


code:--------------------------------------------------------------------------------
========================
الكود :
FileNum1 = FreeFile
FileNum2 = FreeFile

FileName = "Mytextfile.txt"
TmpFileName = "TmpMytextfile.txt"

Open FileName for input as #FileNum1
Open TmpFileName for Output as #FileNum2

do until EOF(FileNum)

Line input #FileNum, LineOfText
if instr("text to look for") = 0 then
' اذا لم يكن السطر موجودا في LineOfText تعود قيمة صفرية
Print #FileNum2, LineofText
End If

Loop ' تكرار العملية
Close ' اغلاق جميع الملفات

Kill FileName ' حذف الملف المؤقت
Name TmpFileName As FileName
' تغيير اسم الملف المؤقت الى اسم الملف الاصلي
--------------------------------------------

يمكن فتح الملف في مربع النص بطريقة أسهل كالتالي:


code:--------------------------------------------------------------------------------
filename = "C:\Folder\file.txt"
Open filename For Input As #1
text = Input$(LOF(1), 1)
Close #1
--------------------------------------------------------------------------------


أيضا بالنسبة لحفظ الملفات استخدمت التابع Append وهو يستخدم للاضافة إلى آخر الملف بحيث إذا كان يحتوي على نص مسبقا فإنه سيضيف النص الجديد بعد نهاية النص الموجود ولكن يمكن استخدام التابع Output للكتابة من جديد بحيث يتم كتابة النص الجديد على المحتويات الموجودة مسبقا

البروف سمسمة..:112:

[سمسمة]

كيفيه جعل البرنامج يعمل في جميع الأجهزة دون الحاجة

لبرنامج الفيجول بيسك في جهاز الغير ...

أولا : بعد أن تقوم بجعل البرنامج تنفيذي EXE بهذه الصيغة ... والدرس موجود للأخ ريختر ...

ثانيا : اذهب لإبدا ... ومنه للبرامج ومن ثم إذهب إلى Microsoft Visual Studio 6.0
ومنه اذهب إلى Microsoft Visual Studio 6.0 Tools
ومنه اختار هذا الأمر Package & Deployment Wizard
بعد الضغط عليه سوف يظهر لك برنامج قم بالضغط على بروسسير ( عرض )
لإختيار البرنامج الذي تود أن تجعله يعمل في جميع الاجهزة
وبالضط على استمرار راح تحصل في النهاية على البرنامج في ملف WinZip
بالاضافة الى مجلد Package

البروف سمسمة..:112:

[سمسمة]

هذ الكود لوضع ليبيل متحرك في برنامج يتحرك بشكل جميل



code:--------------------------------------------------------------------------------Private Sub Form_Load()
Me.Label1.Top = 0
End Sub


Private Sub Timer1_Timer()
a = Me.Height
b = 200
If Me.Label1.Top < a Then 'Me.Height Then
Me.Label1.Top = Me.Label1.Top + b
Exit Sub
End If
For m = 1 To (Int(a / b) + 1)
Me.Label1.Top = Me.Label1.Top - 200
For x = 1 To 1000000
Next
Next
End Sub

البروف سمسمة..:112:

[سمسمة]

واخيرا خلصوا

ومعاهم بقى المواقع دى

الموقع الاول (http://www.geocities.com/fayvb/)

الموقع الثانى (http://www.vb2themax.com/)

الموقع الثالث (http://www.vbcode.com/)

البروف سمسمة ..:112:

[سمسمة]

بحر اسكندرية

اصل انى مكشوف عنى الحجاب:200:

العفــــــــــــــــــ:)ــــــــــــــــو يابحر

البروف سمسمة..:112:

[بحر الإسكندرية]

بس بجد مجموعة ممتازة و جت في الجول
:124: جووووووووووووووووووووول
:88:

[مودو مشاكل]

بسم الله الرحمن الرحيم

علي فكرة دا الرد التاني في الموضوع

شكرا سمسة علي الدرس الجميل و الرائع منك
والي الامام دائما

تحياتي
مودو

[سمسمة]

شكرا يابحر اسكندرية

شكرا يامودو

دايما رافعين معنوياتى كدة:D

:45:

اشكركم على ردودكم:)

وكل عام وانتم بخير:)

:100:

البروف سمسمة..:112:

[سمسمة]

:147:


لتحميل البرنامج :

Microsoft Visual Basic 6 (http://www.dapha.net/soft/VisualBasic6.rar)

Password : dapha.net
Number of downloads: 1397



:147:

البروف سمسمة..:99:

[العتماني]

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

[سمسمة]

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

لا شكر على واجب ياهاشم لكن لو كنت بصيت على المشاركة اللى قبلها كنت هتلاقى وصلة التحميل

بس للأسف بردو مش شغالة حاليا*59*

وعملت بحث مالاقتيوش معلش بقى

كل سنة وانت طيب:f:

[ابوطالب]

شرح جميل اختى سمسمة بارك الله فيك

[سمسمة]

شرح جميل اختى سمسمة بارك الله فيك

شكرا لك ياابو طالب:)

[Nemo2small1]

ميرسي جدا انا كنت عاوز اعرف حاجات في الفيجوال بيسك ومتشكر جدا ليكي سمسمة (-_-)

[Nemo2small1]

http://msdn.microsoft.com/vstudio/downloads/updates/sp/vs6/sp6/default.aspx
اخت سمسمة دي وصلة التحميل ولاي حد عاوز يحمل البرنامج

والوصلة دي كمان لاي فيرجن http://msdn.microsoft.com/vbasic/downloads/default.aspx
وشكراااااااا

[سمسمة]

جميل جدا يانيمو

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

شكرا على ردك وعلى اضافتك للموضوع *105*