xpredo script

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

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

فيجوال بيسك

25-02-2006, 12:49 AM
hosam
 
محتويات الدرس السادس

محتويات الدرس السادس :
v أهم خصائص النافذة
v أهم أحداث النافذة
v إظهار النوافذ وإخفائها

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

اسم الخاصية : AutorRedraw
متوفرة أثناء : التصميم والتنفيذ
تحدد هذه الخاصية إذا كانت النافذة ستفقد محتوياتها عند إعادة رسمها أم لا . إذا وضعت أدوات مثل أدوات الخط أو الأشكال أو العنوان فإذا حدث مايستدعي إعادة رسم للنافذة ، كأن تغطيها نافذة أخرى ثم تنكشف . فإن "فيجول بيسيك" يقوم بإعادة رسمها دون تدخل منك .
أما إذا كتبت أي شئ على النافذة باستخدام الأمر print أو رسمت أي شكل هندسي بإستخدام الأمر circle أو line ثم قام المستخدم بتصغير النافذة ثم تكبيرها فإن النافذة ستفقد محتوياتها وتظهر بدون الأشكال أو العبارات التي طبعتها ذلك أن الناتج من هذه الأوامر ليس ثابتاً . جرب ذلك :
مثال
v افتح مشروع جديد
v انقر نقراً مزدوجاً فوق النافذة form1 لتفتح نافذة البرمجة الخاصة بها .
v غير الحدث المعروض في النافذة إلى حدث النقر click
v اكتب التعليمات التالية :
sub form_click ( )
circle (2500,2000),1500
"هذه تجربة على الكتابة فوق النافذة " print
end sub
v شغل البرنامج بالضغط على F5
v انقر فوق النافذة سوف يقوم "فيجول بيسيك" بتنفيذ الأوامر التي وضعتها في

حدث النقر فيرسم دائرة ويطبع جملة .
v صغر النافذة ثم كبرها ، ماذا تلاحظ ؟؟؟ ستجد أن النافذة فقدت محتوياتها .
والحل هو أن تضع الأوامر في الحدث paint بدلاً من click
مثال :
sub form_paint ( )
circle (2500,2000),1500
"هذه تجربة على الكتابة فوق النافذة " print
end sub
v شغل البرنامج F5
v صغر النافذة وكبرها ، ستجد أن النافذة محتفظة بمحتوياتها
حل أخر ( هو يمكن أن تغير خاصية النافذة form1 وتضع autodedraw قيمة true

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

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

استخدم امر hide لإخفاء النافذة
مثال :
form2.hide
وهذا الامر يقوم بإخفاء form2
اظهار النافذة

مثال :
form2.show

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

v معرفة القرص والدليل الحالي
إذا أردت معرفة القرص والدليل الحالي ، استخدم الأمر 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
فتح الملف للإضافة (يقوم بإضافة )


بعد فتح الملف يمكنك أن تقوم بالعمليات التالية :
v الكتابة إلى الملف
تتم الكتابة إلى الملف باستخدام الأمر print
وله الصيغة التالية :
"ماتريد كتابته" , رقم الملفprint #
مثال

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

مثال على ذلك

v افتح مشروع جديد
v ضع اداة الأوامر على نافذة البرنامج
v وبعد ذلك انقر على اداة الأوامر نقرا مزدوجاً
سيفتح لك نافذة البرمجة اكتب مايلي :
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

جرب القراءة من الملفات :
v افتح مشروع جديد
v ضع اداة الأوامر على نافذة البرنامج
v وبعد ذلك انقر على اداة الأوامر نقرا مزدوجاً
سيفتح لك نافذة البرمجة اكتب مايلي :
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
v شغل البرنامج F5

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






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

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

طلب معلومة من المستخدم استخدم الامر inputbox$
وله صيغة التالية
متغير
Inputbox$
,رسالة(
,عنوان النافذة
(قيمة افتراضية

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

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

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


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

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

الرسالة المطلوبه : هو الجملة التي تريد عرضها على المستخدم
عنوان مربع الحوار : هو عنوان شريط عنوان مربع الحوار
الأزرار والرموز : وهو يحدد نوعية الأزرار التي ترغب في عرضها والرموز
وهذه الرموز والأزرار :
معناه
الرقم
عرض زر ok (موافق)
0
عرض زري ok (موافق) و cancel (إلغاء الأمر)
1
عرض أزرار abort (توقف) وretry (إعادة المحاولة) ignore (تجاهل)
2
عرض أزرار yes (نعم) و no (لا) و cancel (إلغاء الأمر)
3
عرض أزرار yes (نعم) و no (لا)
4
عرض أزرار retry (إعادة المحاولة) وcancel ( إلغاء الأمر)
5
عرض رمز قف
16
عرض رمز علامة الاستفهام
32
عرض رمز علامة التعجب
48
عرض رمز علامة الاستعلام
64

فإذا رغبت في عرض رسالة تحتوي على الأزرار ok و cancel ومعها رمز علامة الاستعلام ،فإنك تجمع 1+64 = 65 وتستخدمها عندما تطلب الرسالة هكذا :
"بدون عنوان", 65, "هذه رسالة للتجربة"msgbox
وإذا كنت تريد أن تعرف رد فعل المستخدم ، فإن الأمر msgbox يعود بالاحتمالات التالية :
المستخدم نقر زر …
الرقم
Ok ( موافق)
1
Cancel (إلغاء امر)
2
Abort (توقف)
3
Retry (إعادة المحاولة)
4
Ignore (تجاهل)
5
Yes (نعم)
6
No (لا)
7

ومثال على ذلك :
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
من مواضيع : hosam الدرس الاول قواعد البيانات
محتويات الدرس الثاني :
برنامج Visual Studio 2010 Ultimate
مكتبة MSDN الكاملة لى برنامج Visual Studio 6
الدرس الثانى لقواعد البيانات
21-03-2006, 05:00 PM
mohamed1234
 
مشاركة: محتويات الدرس السادس

مشكور جيدا على الدورس مميز
من مواضيع : mohamed1234
08-04-2006, 01:40 PM
usama2000
 
مشاركة: محتويات الدرس السادس

مشكور
من مواضيع : usama2000
15-04-2006, 03:28 PM
حريف نت مش هاوى
 
مشاركة: محتويات الدرس السادس

مشكوووووووووور
من مواضيع : حريف نت مش هاوى
23-04-2006, 03:19 PM
mohamed1234
 
مشاركة: محتويات الدرس السادس

مشكور أخي كريم
من مواضيع : mohamed1234
23-04-2006, 05:11 PM
ropy222
 
مشاركة: محتويات الدرس السادس

مشكوووووووور
من مواضيع : ropy222
23-04-2006, 05:16 PM
hosam
 
مشاركة: محتويات الدرس السادس

مشكورين حميعا على المرو واى استفسار فى لغة الفيجوال انا معاكم باذن الله
مستنى اسئلة محجرة كتير منكم
من مواضيع : hosam EXE اجعل برنامجك تنفيذي بهيئة
محتويات الدرس الأول
الدرس الاول قواعد البيانات
Crystal Reports 4.6.1 + update
محتويات الدرس الثاني :
23-04-2006, 05:16 PM
hosam
 
مشاركة: محتويات الدرس السادس

مشكورين حميعا على المرو واى استفسار فى لغة الفيجوال انا معاكم باذن الله
مستنى اسئلة محجرة كتير منكم
من مواضيع : hosam محتويات الدرس الخامس
درس الالوان في فيجوال بيسك
الدرس الاول قواعد البيانات
محتويات الدرس الرابع
محتويات الدرس الثالث
20-09-2006, 01:27 PM
hossam_alfd
 
مشاركة: محتويات الدرس السادس

مشكوووووووووووووووووووووو وووووور
من مواضيع : hossam_alfd
20-09-2006, 01:27 PM
hossam_alfd
 
مشاركة: محتويات الدرس السادس

جزاك الله عنا خيرا
من مواضيع : hossam_alfd
20-09-2006, 01:34 PM
hossam_alfd
 
مشاركة: محتويات الدرس السادس

مشكووووووووووووووووووووور
من مواضيع : hossam_alfd
19-11-2006, 02:21 PM
nomir
 
مشاركة: محتويات الدرس السادس

المرجوا أن تضعوا برنامج فزيال بازيك لكي للتحميل
من مواضيع : nomir
19-11-2006, 02:27 PM
hosam
 
مشاركة: محتويات الدرس السادس

اقتباس:
المشاركة الأصلية كتبت بواسطة nomir
المرجوا أن تضعوا برنامج فزيال بازيك لكي للتحميل
اوعدك اخى من اليوم ابدا ارفع لك البرنامج المطلوب
فيجوال بيسك 6
من مواضيع : hosam الدرس الثانى لقواعد البيانات
تحميل برنامج Indigo Rose Setup Factory v9.0.1.0 كامل
محتويات الدرس الخامس
برنامج Visual Studio 2010 Ultimate
محتويات الدرس السادس
 

الكلمات الدلالية (Tags)
محتويات, الجرس, السادس

أدوات الموضوع

الانتقال السريع

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

الساعة الآن 02:36 PM.