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

[بومبه]

Agent

مفهوم Ms Agent :

عندما تفتح أي برنامج من برامج أوفيس أكسس مثلاُ وتطلب المساعدة فإن أول ماينجدك هو مساعد اوفيس . مثل الكلب والقطة أو الكرة :

هذا هو Ms Agent . هل فكرت بأن يكون لبرنامجك مثل هذا المساعد ! في درسنا اليوم ستتعلم كيفة ربط المساعد ببرنامجك إنشاء الله



اولاً : كيف تحصل على العميل ؟

بسيطة : إذا كنت تملك برامج أوفيس فسوف تجد العديد وهي بملحقات acs . أو تحمله من على الإنترنت عن طريق الروابط التالية :

الإسم الحجم
MB3:3 Peedy the Parrot

Genie
1,5 MB

Merlin the Wizard
1,8 MB

Robby the Robot
2,1 MB

James
3,2 MB

Claude the Bear
1,8 MB

Oscar the Cat
1 MB

Plany
3,1 MB

Wartnose
2,9 MB

Milton the Bear
2 MB

Marge
3,1 MB

Cami
602 KB

VRGirl
4,9 KB

Charlie
1,8 MB




بعد تجهيز المساعد عليك وضعه في مجلد البرنامج . ليكن إسمه Genie مثلاً

الأن إفتح الفيجوال بيسك ثم بالزراليمين فوق صندوق الأدوات سوف تجد العنصر Microsoft Agent Control قم بإختياره وأنقر موافق

بعد ذلك ضع الأداة على الفورم . والأن طريقة الربط:



في قسم التصريحات General ضع الكودالتالي :

Dim X As IAgentCtlCharacter

ثم في حدث Load للفورم ضع الكود التالي:

On Error Resume Next
Dim path
Dim file
path = App.path
If Right(path, 1) <> "\" Then path = path + "\"
file = path + "Genie.acs"
Agent1.Characters.Load "x", file
Set X = Agent1.Characters("x")
X.Show

بهذا تكون قد أتممت الربط و ظهر المساعد عند التشغيل .



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

إظهار نص للمساعد:

X.Speak "مرحبا"

إظهار حركة :

X.Play "save"

ويمكنك تغيير save لأي حركة من حركات المساعد وهي تأتي في ملف ملحق معه .



إخفاء المساعد

X.Hide

إظهار المساعد

X.Show




هذه هي الأساسيات للتعامل مع العميل Ms Agent أرجو أن تكون مفهومة.

[بومبه]

ملفات التهيئة ini

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


الشكل العام لملفات التهيئة :

[Desktop]
Wallpaper = (بلا)
TileWallpaper = 1
.
.
[windows]
run= C:\Scan.exe
load=
BaseCodePage = 1256

لاحظ أن ملف التهيئة يتكون من عدد من الآقسام وأسفل كل قسم عدد من المفاتيح وأمام كل مفتاح قيمتة ، مثلا القسم Desktop يحتوي على مفتاحين ، المفتاح TilrWallpaper قيمتة 1 ، وهذا حال كل ملفات التهيئة .

1 ) الإجراء WritePrivateProfileString و يعلن عنة كالتالي :

Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

وظيفتة :
يستخدم للكتابة لملف التهيئة .
المتغيرات :
lpApplicationName وهو من النوع String وهو يمثل اسم القسم المراد الكتابة بة .
lpKeyName وهو من النوع Any وهو يمثل اسم المفتاح .
lpString وهو من النوع Any وهو يمثل القيمة التي تريد كتابتها.
lpFileName وهو من النوع String وهم يمثل اسم ومسار ملف التهيئة .
القيمة المعادة :
الإجراء يعود بقيمة من النوع Long لاتساوي الصفر في حالة نجاحة ، أما إن فشل الإجراء في اداء المطلوب فسيعود بقيمة تساوي الصفر .
ملاحظات :
عندما تستخدم هذا الإجراء للكتابة إلى ملف تهيئة ، فهناك عدة أحتمالات كأن يكون الملف الذي حددتة غير موجود. في هذة الحالة سيقوم الإجراء بعمل ملف جديد يضع فية ما حددتة لة من قسم ومفتاح وقيمة .
وأما إن كان الملف موجود ، فإنة يفتحة ويبحث عن القسم الذي حددتة ، فإذا لم يجدة فأنة ينشئة ويضع تحتة المفتاح والقيمة التي حددتهما لة . أما إذا وجد القسم فإنة يبحث عن المفتاح الذي حددتة ، فإذا لم يجدة فإنة ينشئة ويضع أمامة القيمة المحددة . أما إذا وجد المفتاح ، فإنة يستبدل القيمة الموجودة أمامة بالقيمة التي حددتها له .

2 ) الإجراء GetPrivateProfileString و يعلن عنه كالتالي :

Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

وظيفتة :
يستخدم للقراءة من ملف التهيئة .
المتغيرات :
lpApplicationName وهو من النوع String وهو يمثل اسم القسم المراد الكتابة بة .
lpKeyName وهو من النوع Any وهو يمثل اسم المفتاح .
lpDefault وهو من النوع String وهو يمثل القيمة الافتراضية التي يعود بها الإجراء إن لم يجد المفتاح المحدد .
lpReturnedString وهم من النوع String وهو عبارة عن متغير حرفي يتم تخزين قيمة المفتاح المحدد بها أن وجدة الإجراء .
nSize وهو من النوع Long وهو يمثل حجم المتغير الحرفي .
lpFileName وهو من النوع String وهم يمثل اسم ومسار ملف التهيئة .
القيمة المعادة :
الإجراء يعود بقيمة من النوع Long لاتساوي الصفر في حالة نجاحة تمثل عدد حروف المتغير الذي قراءة ، أما إن فشل الإجراء في اداء المطلوب فسيعود بقيمة تساوي الصفر .


ملاحظة : هذاين الإجراء ين هما الأكثر استخداما مع ملفات التهيئة ، حيث ان الإجراءين WriteProfileString و GetProfileString فهما حاله خاصة من الإجراءين السابقين . فهما يؤديان نفس مهام الإجراءين السابقين ويتطلبان نفس المتغيرات ، ما عدا المتغير الأخير ( اسم ومسار ملف التهيئة ) حين أن هذين الإجراءين سيفترض أنة win.ini ، لذلك فهذا الإجراء يستخدم لتعامل مع الملف wini.ini فقط .


بهذا نكون قد أنهينا الدرس

[بومبه]

العبارة الشرطية IF



أولاً - العبارة: IF - Then

تستخدم عبارة الشرط If في شروط أي أنه إذا تحقق الشرط عند ذلك إعمل الحدث وإلا أي إذا لم يتحقق ألغي الحدث أو إعمل حدث أخر.

التعليمة البسيطة لعبارة If هي كالتالي:

Statement Then Condition IF
إذا الشرط عندئذ تعليمة


في هذه التعليمة إذا تحقق الشرط تنفذ كل اتعليمات التي بعد كلمة Thenوإذا لم ينفذ الشرط تنفذ التعليمات الواردة على السطر التالي لعبارة الشرط.



هذه الجملة البسيطة . ولاكن هناك جملة IF - Then - Else

وهو عندما يتحقق الشرط نفذ تعليمة ما وإذا لم يتحقق فهناك تعليمة أخرى سوف تنفذ في حال عدم تحقق الشرط.

الشكل العام للتعليمة:

Statement 2 Else Statement 1 Then Condition IF
إذا الشرط عندئذ تعليمة وإلا تعليمة عدم تحقق الشرط
مثال:

ضع أداة النص Text1 و زر أمر Command1 أكتب السطر التالي في حدث الزر:



If Text1 = "kaled" Then Unload Me Else MsgBox "Password Error Try Again"

إذا كان النص المكتوب هو "kaled" عند ذلك أغلق البرنامج وإلا إعرض رسالة الخطأ



ويمكنك أن تضع التعليمة في عدة أسطر:

If الشرط Then

تعليمة

Else

تعليمة عدم تحقق الشرط

End If




إذا كانت التعليمة في عدة أسطر فيجب دائماً أن توجد تعليمة End If في نهاية عبارة IF

مثال

If Text1.text="kaled" Then

Msgbox"تم تسجيل دخولك"

Unload me

Else

Msgbox"الكلمة التي قمت بكتابتهاغير صحيحة "

End If






نهاية الدرس

[بومبه]

العبارةSelect Case



جملة Select تشبه تقريباً جملة If إلا أنها تستعمل حالات متعددة وفي كل حالة تكتب تعليمة مختلفة.

الشكل العام للعبارة:



Select Case (العنصر)

Case (الحالة)

التعليمة

End select




يمكنك إضافة الكثير من الحالات ولاكن قبل End Select



سوف نعمل مثال بسيط لهذه الجملة.

أضف فورم وأضف الأدوات التالية:

Text1

Label1

Command1




أنقر فوق الزر نقرتين وأكتب الشيفرة التالية:

On Error GoTo b

Dim a As Integer
a = Text1

Select Case a
Case 0 To 10
Label1 = "سيىء"
Case 10 To 40
Label1 = "ضعيف"
Case 40 To 60
Label1 = "وسط"
Case 60 To 80
Label1 = "جيد"
Case 80 To 100
Label1 = "ممتاز"
End Select

Exit Sub
b:
MsgBox "الرجاء إدخال قيمة عددية ", vbCritical, "خطأ في الكتابة"


شرج الشيفرة السابقة:

السطر الأول : التصريح عن خطأ أسميناه b

السطر الثاني: التصريح عن متحول عددي صحيح a

السطر الثالث: إسناد النص في Text1 إلى المتحول a

السطر الرابع إلى End Select بداية التعليمة Select . أي حدد حالات المتحول a في كل حالة عرض تعليمة مختلفة

السطور التي بعد End Select هي عمل الخطأ أي عرض رسالة عند الخطأ . حاول كتابة نص عادي فسوف تظهر لك الرسالة.

لا حظ أنه أنهينا العبارة ب End Select مثل End If

ويمكنك إستعمال العبارة الشرطية IF ولاكن عليك كتابة الجملة كاملة في كل حالة من الحالات السابقة.



هذا الذي مااستطعت أن أشرحه أرجو أن يحقق الفائدة

[بومبه]

حلقة التكرار Do



تستعمل جملة التكرار Do لعمل حدث ما بعدد معين .

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



Dim a As Integer
Do

a=a+1

التعليمة

Loob Until (a Value)




ربما شرح الجملة غير مفهوم قليلاً . في السطر الأول صرحنا عن متحول عددي

السطر الثاني بداية جملة التكرار

السطر الثالث زيادة قيمة المتحول a في كل حلقة تكرار

السطر الرابع تكتب التعليمة التي تريدها

السطر الخامس هو عدد مرات التكرار وهو سوف يكون قيمة المتحول a مثلاً :a<6 أو a=5

لذلك سوف يتم عمل التعليمة التي كتبتها 5 مرات ولهذا السبب قلنا عليك التصريح عن متحول لأنه دون ذلك سوف تكرر التعليمة إلى مالانهاية.



سوف نعمل مثال للتعرف أكثر على الجملة:



أضف فورم وزر أمر Command أكتب الشيفرة التالية:



Dim a As Integer
Do
a = a + 1
MsgBox a
Print a
Loop Until (a = 9)


تكررا الحدث 9 مرات كما في السطر الأخير a=9




هناك جملة ثانية لحلقات التكرار هي جملة For أبسط وأسهل سوف نشرحها في الدرس القادم

[بومبه]

حلقة التكرار For



حلقة التكرار For مشابهة تقريباً للحلقة السابقة Do

تستعمل لتكرار عمل معين بعدد محدد.

الشكل العام للتعليمة:



For a= القيمة الأولى To القيمة الثانية

الحدث (التعليمة)

Next

ملاحظة a) مجرد وسيط يمكنك تغيره






مثال سريع للجملة البسيطة :

For a = 0 To 5
MsgBox "مثال", vbMsgBoxRight, a
Next




في المثال السابق حددنا القيمة الأولى وهي 0 أي قيمة a

ثم حددنا القيمة الثانية وهي 5 .

لذلك سوف يتم عرض الرسالة بقيمة a أي خمس مرات. ودائما تنتهي جملة التكرار ب: Next



ملاحظة: لجملة التكرار For نوعان النوع السابق هو الجملة البسيطة. والآن نأتي إلى الجملة المركبة:

الجملة المركبة تحوي الحلقة الداخلية والحلقة الخارجية . أي حلقة For داخل حلقة For



مثال سريع للجملة المركبة:

For s = 0 To 1

'بداية الحلقة الداخلية
For a = 0 To 2
Print "s="; s, "a="; a
Next
'نهاية الحلقة الداخلية

Print ""
Next






مثال آخر للجملة For

ضع الكود التالي في أداة التوقيت Timerولاتنسى خاصية Interval=100

Dim h
Dim w
h = Me.Height / 2
w = Me.Width / 2
For i = 1 To w
Me.Circle (h, w), i, RGB(Rnd * 100, Rnd * 200, Rnd * 90)
Next






ومن هذا نجد أن حلقة التكرار For هي أبسط وأسهل من جملة التكرار السابقة Do وأي برنامج بسيط يحتاج لأي جملة إما شرطية أو حلقة تكرار.

وبهذا نكون قد إنتهينا من الجمل وحلقات التكرار . أرجو أن أكون قد حققت الفائدة.