درس فيجوال بيسك السادس

محتويات الدرس السادس :

1. أهم خصائص النافذة

2. أهم أحداث النافذة

3. إظهار النوافذ وإخفائها


أهم الخصائص للنافذة

اسم الخاصية : AutorRedraw

متوفرة أثناء : التصميم والتنفيذ

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

أما إذا كتبت أي شئ على النافذة باستخدام الأمر print أو رسمت أي شكل هندسي بإستخدام الأمر circle أو line ثم قام المستخدم بتصغير النافذة ثم تكبيرها فإن النافذة ستفقد محتوياتها وتظهر بدون الأشكال أو العبارات التي طبعتها ذلك أن الناتج من هذه الأوامر ليس ثابتاً . جرب ذلك :

مثال

1. افتح مشروع جديد

2. انقر نقراً مزدوجاً فوق النافذة form1 لتفتح نافذة البرمجة الخاصة بها .

3. غير الحدث المعروض في النافذة إلى حدث النقر click

4. اكتب التعليمات التالية :

sub form_click ( )

circle (2500,2000),1500

"هذه تجربة على الكتابة فوق النافذة " print

end sub

1. شغل البرنامج بالضغط على F5

1. انقر فوق النافذة سوف يقوم "فيجول بيسيك" بتنفيذ الأوامر التي وضعتها في



حدث النقر فيرسم دائرة ويطبع جملة .

1. صغر النافذة ثم كبرها ، ماذا تلاحظ ؟؟؟ ستجد أن النافذة فقدت محتوياتها .

والحل هو أن تضع الأوامر في الحدث paint بدلاً من click

مثال :

sub form_paint ( )

circle (2500,2000),1500

"هذه تجربة على الكتابة فوق النافذة " print

end sub

1. شغل البرنامج F5

1. صغر النافذة وكبرها ، ستجد أن النافذة محتفظة بمحتوياتها

حل أخر ( هو يمكن أن تغير خاصية النافذة form1 وتضع autodedraw قيمة true



شرح دراسة الخصائص للنافذة form1 في المحاضرة


إخفاء النافذة

استخدم امر hide لإخفاء النافذة

مثال :

form2.hide

وهذا الامر يقوم بإخفاء form2


اظهار النافذة

مثال :

form2.show



وهذا الامر يقوم بإظهار form2
أوامر التعامل مع الملفات والأدلة

1. معرفة القرص والدليل الحالي

إذا أردت معرفة القرص والدليل الحالي ، استخدم الأمر curdir$

مثال :

label1.caption = curdir$



يعود هذا بالدليل الحالي بكاملة بما فيه القرص الحالي . لذلك يمكنك استخدام الأمر left$ لقراءة أول حرف فيه ومن ثم معرفة القرص الحالي ، مثل :

mydrive$ = left$(curdir$, 1)

فهنا المتغير mydrive يحتوي على القرص الحالي



معرفة الدليل الذي بدأ منه برنامجك

مثال :

a$ = app.path



نسخ ملف

عندما ترغب في نسخ ملف ، استخدم الأمر filecopy وله الصيغة التالية

"الهدف" ," المصدر" filecopy

مثال :

filecopy "c:\mypro\test.exe” , “c:\windows\test.exe”

ومن الممكن تغيير اسم الملف عند النسخ

مثال :

filecopy "c:\mypro\test.exe” , “c:\windows\absoft.exe”


حذف ملف

باستخدام امر kill

مثال :

kill "c:\mypro\test.exe”



يجب أن تتحلى بالحذر عند استخدام هذا الامر لإنه أيضا يستخدم خاصية * و ؟

كما تفعل في نظام دوس

مثال :

kill "*.tmp"


إعادة تسمية الملفات والأدلة

فمثلاً من الممكن تسمية الملفات أو الأدلة باستخدام الأمر name وله الصيغة التالية:

"الاسم الجديد"as "الاسم القديم"name

مثال

name "c:\mypro\test.exe” as "c:\mypro\test.old”

ومن الممكن أن تستخدم الأمر لنقل ملف من دليل إلى آخر فمثلاً :

name "c:\mypro\test.exe” as "c:\test.exe”

فهنا ننقل الملف test.exe من دليل mypro إلى الدليل الجذري c:\

مكان التطبيق الأول
البحث عن ملف

بإستخدام امر dir$

مثل الامر الموجود في نظام دوس

مثال :

exist$ = dir$ (“c:\vb\icons\computer\disk03.ico”)

يحمل المتغير exits$ نتيجة البحث عن الملف . ويمكنك بعد ذلك إختباره

مثال :

if exist$ <> “” then

)"تم العثور على الملف"msgbox (

else

"لم يتم العثور على الملف المطلوب"msgbox

end if

مكان التطبيق الثاني
فتح الملف

لكي نقرأ أو نكتب إلى ملف ، يجب أن تفتحه أولاً . ويمكنك فتح الملف باستخدام الأمر open وله الصيغة التالية :

رقم الملف as #طور الملفfor اسم الملف open

ويعني طور الملف مايلي
فتح الملف للقراءة


استخدم كلمة input
فتح الملف للكتابة (يمسح محتويات الملف)


استخدم كلمة output
فتح الملف للإضافة (يقوم بإضافة )


استخدم كملة append



بعد فتح الملف يمكنك أن تقوم بالعمليات التالية :

1. الكتابة إلى الملف

تتم الكتابة إلى الملف باستخدام الأمر print

وله الصيغة التالية :

"ماتريد كتابته" , رقم الملفprint #
مثال

"خلاص قربت تنتهي دورة فيجول بيسك" , 1print #


مثال على ذلك

1. افتح مشروع جديد

2. ضع اداة الأوامر على نافذة البرنامج

3. وبعد ذلك انقر على اداة الأوامر نقرا مزدوجاً

سيفتح لك نافذة البرمجة اكتب مايلي :

sub command1_click ()

open "c:\test.txt” for output as #1

"هذا اختبار لفتح الملفات والكتابة عليها print #1 , "

"بإستخدام فيجول بيسك print #1 , "

close #1

end sub

مكان التطبيق الثالث
القراءة من الملف

استخدم الأمر input وله الصيغة التالية :

متغير , رقم الملفinput #



وفي هذه الحالة سيقوم بقراءة سطر كامل من الملف ، ويضعه في المتغير . فإذا فرضنا أنك فتحت الملف تحت الرقم 1 ، يمكنك أن تكتب :

input #1 , myline$



فهنا سيقرأ الأمر input سطراً من الملف ويضعه في المتغير myline$



ولكن إحذر أن تقرأ إلى نهاية الملف لإن "فيجول بيسيك" سوف يقوم بتوقيف البرنامج

ولحل ذلك اختبر قيمة الأمر ) رقم الملف EOF(

if EOF(1) then

وصلنا إلى نهاية الملف

else

لم نصل إلى نهاية الملف

end if



جرب القراءة من الملفات :

4. افتح مشروع جديد

5. ضع اداة الأوامر على نافذة البرنامج

6. وبعد ذلك انقر على اداة الأوامر نقرا مزدوجاً

سيفتح لك نافذة البرمجة اكتب مايلي :

sub command1_click ()

open "c:\autoexec.bat” for input as #1

do while not eof (1)

input #1, a$

print a$

loop

close #1

end sub

1. شغل البرنامج F5

مكان التطبيق الرابع

كيف تغلف الملف ؟

بعد أن تنتهي من القراءة أو الكتابة ، يجب أن تغلف الملف وهو سهل جداً ماعليك إلى أن تكتب

رقم الملفClose #

وإذا كنت تريد أن تغلف ملفات كثيرة فتحتها اكتب

Close












كيف تطلب معلومة من المستخدم ؟

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



طلب معلومة من المستخدم استخدم الامر inputbox$

وله صيغة التالية

(قيمة افتراضية


,عنوان النافذة


,رسالة(


Inputbox$


متغير



رسالة تعني : الجملة التي تريد عرضها على المستخدم

عنوان النافذة : هو شريط العنوان في النافذة التي يعرضها على المستخدم

قيمة افتراضية : هو القيمة التي تضعها أنت للمستخدم مثل





مكان التطبيق الخامس


كيف تعرض رسالة على المستخدم ؟

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





كيف تعرض هذه الرسالة ؟



يتم عرض هذه الرسائل باستخدام الأمر msgbox وله شكلان . الأول إذا كنت تريد عرض رسالة بيسطة ولا تطلب من المستخدم أن تحدد رأيه في مسألة معينة ، في هذه الحالة استخدام الصيغة التالية :

عنوان مربع الحوار, الأزرار والرموز , الرسالة المطلوبه msgbox

أما إذا كنت تريد أن تعرف رأيه بشئ معين قم بوضع الامر بالطريقة التالية

عنوان مربع الحوار, الأزرار والرموز , الرسالة المطلوبه msgbox = المتغير

وفي هذه الحالة سيحمل المتغير رد فعل المستخدم



الرسالة المطلوبه : هو الجملة التي تريد عرضها على المستخدم

عنوان مربع الحوار : هو عنوان شريط عنوان مربع الحوار

الأزرار والرموز : وهو يحدد نوعية الأزرار التي ترغب في عرضها والرموز

وهذه الرموز والأزرار :

الرقم


معناه

0


عرض زر ok (موافق)

1


عرض زري ok (موافق) و cancel (إلغاء الأمر)

2


عرض أزرار abort (توقف) وretry (إعادة المحاولة) ignore (تجاهل)

3


عرض أزرار yes (نعم) و no (لا) و cancel (إلغاء الأمر)

4


عرض أزرار yes (نعم) و no (لا)

5


عرض أزرار retry (إعادة المحاولة) وcancel ( إلغاء الأمر)

16


عرض رمز قف

32


عرض رمز علامة الاستفهام

48


عرض رمز علامة التعجب

64


عرض رمز علامة الاستعلام



فإذا رغبت في عرض رسالة تحتوي على الأزرار ok و cancel ومعها رمز علامة الاستعلام ،فإنك تجمع 1+64 = 65 وتستخدمها عندما تطلب الرسالة هكذا :

"بدون عنوان", 65, "هذه رسالة للتجربة"msgbox

وإذا كنت تريد أن تعرف رد فعل المستخدم ، فإن الأمر msgbox يعود بالاحتمالات التالية :

الرقم


المستخدم نقر زر …

1


Ok ( موافق)

2


Cancel (إلغاء امر)

3


Abort (توقف)

4


Retry (إعادة المحاولة)

5


Ignore (تجاهل)

6


Yes (نعم)

7


No (لا)



ومثال على ذلك :

sun command1_click ()

" هل ترغب حقاً في إنهاء البرنامج "msg$ =

"الخروج من البرنامج"title =

response = msgbox (msg ,36 ,title )

if response = 6 then end

end sub

مكان التطبيق السادس

الشرح البرنامج :

في هذه الحالة سيعرض "فيجول بيسيك" الرسالة وإذا اختار المستخدم "نعم" yes

فإن "فيجول بيسيك" ينهي البرنامج .



الصوت في "فيجول بيسيك"

يجب كتابة هذا الربط الديناميكي في ملف برمجة في سطر واحد ولكنه هنا في سطرين ‍‍‍‍‍.

Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long



أما هذا الامر فوق النافذة نفسها وتضعه في general

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long



وبعد كتابة هذا السطر ماعليك الان إلا كتابة الاسم فقط وهو SNDPLAYSOUND



DIM Result as integer

Result = sndplaysound(“c:\windows\toda.wav”,3)

مكان التطبيق السابع

يقوم هذا الاجراء بمعرفة مسار برنامجك الذي شغل منه ثم يشغل ملف موجود في نفس المسار وهو أفضل من السابق .

b$ = app.Path

) sound1 = SNDPLAYSOUND(b$ + "\" + "ton.WAV", 3