[دوره] دروس متوسطه واساسيه

عسول · رقم المشاركة : 1 08-07-2008, 06:50 AM

الدوره الثانيه في الفيجوال بيسك

دروس اساسيـه ونماذج ..

بسم الله نبدأ

المتغيرات والمصفوفات في الفيجوال بيسك

المصفوفات والمتغيرات (1)

المصفوفة هي قيم مخزنة في البرنامج يتم الإضافة إليها وعرضها.
التصريح عن المتغير يتم كمايلي:

1 - إما في الحدث

Dim a, b As Integer

a و b متحولات عددية
2- في قسم التصريحات General:

'تعريف متحول عددي
Dim no1 As Integer
'تعريف مصفوفة عددية سعتها 10 عناصر
Dim list(10) As Integer
'تعريف مصفوفة مؤلفة من 10 عناصر عرض و10 إرتفاع أي 100 عنصر
Dim matrix(10, 10) As Integer
'تعريف متغير نصي
Dim name1 As String
'تعريف متغير نصي بطول 50 حرف
Dim name1 As String * 50
'تعريف مصفوفة نصية تتكون من 10 عناصر
Dim list1(10) As String
'تعريف مصفوفة نصية تتألف من 10 عناصر بطول 50 حرف
Dim list1(10) As String * 50
'تعريف متغير للقيم نعم ولا
Dim a As Boolean

التصريح في وحدة نمطية Module:

'تعريف متغير عددي لكافة نوافذ البرنامج
Global no1 As Integer

'تعريف عدة متغيرات في مجموعة واحدة
Type user
user_no As String * 70
user_name As String * 30
user_mark As Integer
End Type

الأن نأتي إلى كيفية إستخدام المتغيرات
طريقة الإضافة إلى المتغير هي
مثلاً لو صرحنا عن متحول عددي a نكتب كما يلي:
a=90
أوعن طريق تعليمة الإسناد Let وتكتب كما يلي

Let a=90
أو يمكن إسناد قيمة عملية رياضية بين عددين مثل
Let a=5*6
لكي تظهر قيمة المتحول على الفورم أكتب التعليمة Print ثم إسم المتحول
Print a
ويمكنك عرض قيمة المتحول في صندوق نص Textbox
Text1=a

والأن سوف نعمل مثال بسيط للمتحولات ألة حاسبة:

أضف إلى الفورم أربع أزرار أمر جمع وطرح وضرب وقسمة
وأضف ثلاث اداة النص Text ولتكن أسمائها Text1 و Text2 وText3
ضع التصريح التالي في قسم General
Dim a, b As Integer
ثم في الأزرار ضع الأكواد

On Error Resume Next
a = Text1.Text
b = Text2.Text
Text3.Text = a + b

الكود السابق للجمع فقط أبدل الإشارة + بالإشارت الإخرى

عسول · رقم المشاركة : 2 08-07-2008, 06:51 AM

المصفوفات والمتغيرات(2)

يجب ان تشمل المصفوفة على:
أ‌- اسم المصفوفة: الاسم الذي ستستعمله للمصفوفة في البرنامج
ب‌- نوع البيانات : يحدد نوع البيانات التي ستخزنها المصفوفة
ج- عدد الأبعاد : لمعظم المصفوفات بعد واحد (قائمة قيم) أو بعدين (جدول قيم)
د- عدد العناصر : يحدد عدد عناصر المصفوفة وبشكل افتراضي تكون أول خانة في المصفوفة برقم فهرس 0 (صفر) كما هو الحال مع مصفوفات التحكم
تسمى المصفوفات التي تحتوي على عدد عناصر محدد بمصفوفات ثابتة الحجم Fixed Size أما المصفوفات التي تحتوي على عدد عناصر متغير فهي مصفوفات يمكن توسيعها خلال تشغيل البرنامج ويطلق عليها اسم Dynamic مصفوفات ديناميكية تصريح مصفوفة ثابتة
التركيب النحوي الأساسي لتصريح مصفوفة ثابتة الحجم عامة هو (Public Arry Name(Dim iliements,Dim2 Elemets,... تغيير رقم البداية في المصفوفة
تغير جملة Option Base رقم أول عنصر في المصفوفة بجعله أي رقم بدلا من الرقم صفر الافتراضي فإذا أردت زيادة الوضوح في البرنامج بجعل رقم أول عنصر في المصفوفة هو العنصر رقم 1 بدلا من رقم 0 يمكنك وضع جملة Option Base التالية في وحدة نمطية قياسية Option Base 1 تربط هذه الجملة العنصر الأول (الأساس Base ) لكل المصفوفات في البرنامج بالرقم 1 مثال استخدام المصفوفات

بعد تجهيزك للفورم أضف إليه زرين أمر Command Button
غير خاصية Caption لكل من الأزرار كما يلي:
Command1 = إدخال
Command2 = إظهار النتيجة
ولا تنسى تغيير خاصية الإتجاه للفورم Right To Left

وأضف وحدة نمطية Module

أكتب السطرين التاليين في الوحة النمطية

Option Base 1
Public Degs(9) As Variant

أضف الكود التالي إلى زر تخزين القيم

cls: prompt$ = "إدخال قيمة"
For i% = 1 To 3
Title$ = "القيمة" & i%
Degs(i%) = InputBox(prompt$, Title$)
Next i%

تمحو جملة Cls في أعلى الأجراء الحدثي إخراج الجمل Print السابقة على النموذج ليصبح بإمكانك إدخال اكثر من مجموعة قيم

ثم أضف الكود التالي إلى الزر الثاني

cls: Print "القيم": Print "-----------"
For i% = 1 To 3
Print "المادة" & i% & "قيمة" & Degs(i%): Print "-----------"

total! = total! + Degs(i%): Next i%
Print "مجموع القيم" & total!

عسول · رقم المشاركة : 3 08-07-2008, 06:51 AM

باستخدام Print Object

إن الطباعة من الأساسيات في برامجك فأي برنامج يحتاج إلى الطباعة
في هذا الدرس سوف نقدم مثالاً بسيطاً لطباعة نص دون إستخدام توابع API

أولاً يجب أن يكون لديك طابعة إفتراضية مثبتة ولو لم يكن لديك طابعة أضف طابعة وهمية للتجريب . عن طريق لوحة التحكم -> الطابعات -> إضافة طابعة

ثانياً عليك تجهيز الفورم بمايلي:
1 - أداة النصوص Text1
2 - الصندوق List1
3 - زر أمر Command1

هذه الأدوات التي عليك إضافتها

الأن نبداً بالعمل :
1- أنقر نقرتين فوق الفورم وأكتب الشيفرة التالية في الحدث Load للفورم

Dim a As Integer
For a = 0 To Printers.Count -1
List1.AddItem Printers(a).DeviceName
Next
End Sub

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

2- أنقر نقرتين فوق List1 وأكتب الكود التالي :

Set Printer = Printers(List1.ListIndex)

هذا الكود يقوم بتحديد الطابعة من المجموعة المثبتة لديك

3-الأن نبدأ بعملية الطباعة :
أكتب النص الذي تريد طباعته في Text1
أضف الكود التالي إلى زر Command1:

Printer.FontSize = 40
Printer.Print Text1.text
Printer.EndDoc

في السطر الأول تحديد حجم الخط
في السطر الثاني إرسال النص إلى الطابعة
في السطر الثالث بدء الطباعة الفعلية

هذه عملية الطباعة البسيطة بإستخدام Print Object ولاكن هناك عمليات طباعة ضخمة بتوابع API
سيكون لنا حديث خاص عنها

عسول · رقم المشاركة : 4 08-07-2008, 06:53 AM

التعامل مع الحافظة

درس اليوم ليس صعباً ولاكنه هام . سوف تعرف كيف تنسخ النص وتلصق ماهو منسوخ من أي برنامج أخر وكذلك الصور.
فلو إلتقطت صورة عن طريق مفتاح Print Screen SysRa فإنك تستطيع لصق الصورة في برنامجك وحفظها .
طريقة العمل ليست صعبة . بعد تجهيز الفورم أضف العناصر التالية:

أداة النصوص Text1
5 أزرار Command غير Caption كما في الصورة
أداتين عرض الصور Picture1 و Picture2

ناتي إلى كتابة الشيفرة الخاصة بالعمل:

في الزر مسح الحافظة أضف السطر التالي
Clipboard.Clear
في الزر نسخ النص أضف السطر التالي:
Clipboard.SetText Text1.Text
في الزر لصق النص أضف السطر التالي:
Text1.Text = Clipboard.GetText

هذه الأسطر السابقة تقوم بنسخ كافة النص ولصقه
أما إذا أردت نسخ جزء محدد فإستبدل Text1.text بالكود Text1.SelText

نأتي الأن إلى نسخ ولصق الصور :
نفس الطريقة السابقة ولكن إستبدل Text1.text بإسم أداة الصور Picture1 أو Picture1
في الزر نسخ الصورة أضف السطر التالي:

Clipboard.SetData Picture1.Picture

في الزر لصق الصورة أضف الكود التالي :

Picture2.Picture = Clipboard.GetData

عسول · رقم المشاركة : 5 08-07-2008, 06:56 AM

الرسائل Msgbox

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

MsgBox "نص الرسالة", vbDefaultButton1, "العنوان"

الأزرق نوعها

الشكل الكامل (مع ربط بالتعليمات):

MsgBox "نص الرسالة", vbMsgBoxHelpButton, "العنوان", "c:\windows\help\windows.chm", 0

مسار ملف التعليمات

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

Dim a As String
a = "السطر الأول" & vbCrLf
a = a & "السطر الثاني" & vbCrLf
a = a & "السطر الثالث"
MsgBox a, vbMsgBoxRight + vbInformation, "العنوان"
'ويمكنك أن تضيف عدد السطور التي تريد بنفس الطريقة
' "&vbCrlf" السطر الأخير بدون

لاحظ المكتوب بالأزرق وهو نوع الرسالة وهو يعني إتجاه الرسالة من اليمين لليسار + تلميحات وهذا هام في الرسالة المكتوبة باللغة العربية
أي إنه يمكنك أن إضافة إشارة + بعد النوع الأول لإختيار نوع آخر مثلاً سؤال ("نعم ولا"+ "خطأ") هذه طريقة كتابتها:
MsgBox "الرسالة", vbCritical + vbYesNo, "عنوان"

وهذه طريقة أخرى لكتابة الرسالة بعدة سطور

Dim a As String
a = "السطر الأول" & vbCrLf & "السطر الثاني" & vbCrLf & "السطر الثالث"
MsgBox a, vbMsgBoxRight + vbInformation, "العنوان"

عسول · رقم المشاركة : 6 08-07-2008, 06:58 AM

صنايق الحوار Common Dialog
فتح الدرس في اطار كبير
في هذا الدرس سوف نتحدث عن كيفية استخدام صناديق الحوار CommonDialog
ربما لم تسمع بهذه الأداة سابقاً. ولاكن سوف تعرفها:
عندما تفتح أي برنامج فإنك سوف تحفظ عملك في النهاية ! ماذا يظهر لك عندما تختار "حفظ" ؟
وإذ فتحت أي برنامج وتريد فتح ملف فسوف يظهر لك أيضا صندوق الحوار الخاص بالفتح وهو نفس صندوق الحفظ!
هذا الصندوق يسمى Common Dialog و هذه الأداة تستخدم في معظم البرامج المبرمجة بواسطة الفيجوال بيسك.

هناك طريقتان لإستخدام هذه الأداة :
الطريقة بإستخدام أداة جاهزة: Microsoft Common Dialog Control
الطريقة الثانية بإستخدام إجراءات API وهذه عملية صعبة سوف نتحدث عنها في الدروس المتقدمة.
لذلك سيكون درسنا بإستخدام الأداة : Microsoft Common Dialog Control . طبعاً تعرف كيف تضعها على الفورم
كليك يمين فوق صندوق الأدوات إختر Components ثم تجد الأداة Microsoft Common Dialog Control 6,0 حددها وأنقر Apply

سوف تظهر الأيقونة

على صندوق الأدوات . ضعها على الفورم . سوف يكون إسم الأداة CommonDialog1
ضع على الفورم الأداة Picture1 وزر Command1
ضع الكود التالي في الزر:

CommonDialog1.DialogTitle = "فتح ملف"
CommonDialog1.Filter = "Gif صور|*.gif|JPG صور|*.jpg|Bmp صور|*.bmp|كافة الملفات|*.*"
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then Exit Sub
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
شرح الكود:
السطر الأول : تحديد العنوان الذي سوف يظهر في أعلى الصندوق
السطر الثاني : تحديد الملفات التي سوف يعرضها الصندوق
السطر الثالث : إظهار الصندوق
السطر الرابع : إذا لم يتم تحديد ملف ألغي الحدث
السطر الخامس: عرض الصورة التي قمت بتحديدها في الأداة PIcture1

كان هذا مثال بسيط لتمسك رأس الخيط . مازل هناك العديد من العمليات بواسطة CommonDialog. منها: تحديد الخط والتلوين و خصائص الطباعة و الحفظ .
الأن لنأخذ مثال عن إستعمال ألوان CommonDialog:
نفس الأدوات السابقة أضف زر Command2 وأكتب الكود التالي:

CommonDialog1.ShowColor
If CommonDialog1.Color = 0 Then Exit Sub
Picture1.BackColor = CommonDialog1.Color
شرح الكود :
السطر الأول : إظهار ألوان الكمون دايلوك
السطر الثاني : إذا لم يتم تحديد لون ألغي الحدث
السطر الثالث : تلوين مربع الصورة باللون الذي تم تحديده بالكمون دايلوك

سوف نتحدث الأن عن عملية فتح وحفظ مستند نص:
جهز الفورم بالأدوات التالية:
زرين أمر : فتح و حفظ
أداة عرض النص Label1
أداة الكتابة Text1 ولاتنسى تبديل الخصائص MultiLine و ScrollBars
وأهم شيىء الأداة CommonDialog

لاحظ الشكل التالي:

كتابة الشيفرة:

أنقر دبل كليك على زر الفتح وأكتب الكود التالي:
Dim file As String
CommonDialog1.Filter = "ملفات النصوص|*.txt"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Input #1, file
Close
Text1.Text = file
السطر الأول : التصريح عن متحول نصي
السطر الثاني : تحديد الملفات التي سيعرضها الكمون دايلوك
السطر الثالث : إظهار اللكمون دايلوك
السطر الرابع والخامس والسادس فتح المستند كمتحول
السطر السابع : عرض مسار الملف في Label1
السطر الأخير عرض النص في أداة الكتابة Text
نأتي إلى الحفظ :
ضع الكود التالي في زر الحفظ:
Dim a As String
a = Text1
CommonDialog1.Filter = "Text File|*.txt"
CommonDialog1.FileName = a
CommonDialog1.ShowSave

السطر الأول : التصريح عن متحول نصي (a)
السطر الثاني إسناد النص المكتوب إلى المتحول a
السطر الثالث: تحديد قيمة الكمون دايلوك وهو المتحول a
السطر الرابع عرض مربع الحفظ.

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

عسول · رقم المشاركة : 7 08-07-2008, 07:01 AM

تشغيل الملفات

هناك عدة طرق لتشغيل الملفات في الويندوز من داخل الفيجوال بيسك.
وقد وضعنا في هذا الدرس أهم الطرق لتشغيل الملفات التنفيذية والملفات الأخرى. لعنا نقدم الفائدة لكل مبرمج في الفيجوال بيسك.

نبدأ بتشغيل الملفات التنفيذية ( البرامج EXE)
أولاً - بإستخدام الدالة Shell :
هذه الدالة تستخدمها الفيجوال بيسك لتشغيل الملفات التنفيذية.
صيغتها العمامة كما يلي.

Shell "File Name Path", WindowsStyle

File Name Path : مسار الملف التنفيذي المراد تشغيله.
WindowsStyle : طريقة عرض نافذة البرامج المراد تشغيله . وهذا الجدول يبين الثوابت لهذا الوسيط:

الثابتقيمته شرحهvbHide
0 تكون النافذة مخفية
vbNormalFocus
1 تكون النافذة في حجمها الطبيعي مع إعطاء التركيز لها
vbMinimizedFocus
2 تكون النافذة في وضع التصغير على شريط المهام وإعطائها التركيز
vbMaximizedFocuse
3 تكون النافذة في وضع التكبير مع إعطائها التركيز
vbNormalNoFocus
4 تكون النافذة في وضع التصغير دون إعطائها التركيز
vbMinimizedNoFocus
5 تكون النافذة في وضع التصغير دون إعطائها التركيز

مثال :

Shell "notepad.exe", vbNormalFocus
تشغيل المفكرة في الوضع العادي

لاحظ انه لم نكتب المسار الكامل للمفكرة لأنها داخل مجلد النظام .

ثانياً - بإستخدام إجراءات API .

الدالة WinExec . وهي تشبه الدالة السابقة :
يتم التصريح عن الدالة بالكود التالي في مديول:

Declare Function WinExec& Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long)

التشغيل:

WinExec("Notepad.exe", vbMaximizedFocus)

تشغيل الملفات الأخرى:

لايمكننا تشغيل الملفات المرتبطة ببرامج خاصة عن طريق الدوال السابقة فوراً .
ولاكن عليك كتابة مسار التطبيق أولاً . ثم مسار الملف المرتبط بالبرنامج. مثال:

Shell "Notepad.exe c:\windows\faq.txt", vbNormalFocus

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

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _
As String, ByVal lpFile As String, ByVal lpParameters _
As String, ByVal lpDirectory As String, ByVal nShowCmd _
As Long) As Long

وسيطات الدالة :
hwnd : مقبض النافذة.
lpOperation : احدى المعاملين "Print" للطباعة و "Open" للفتح.
lpFile : اسم الملف لمراد تطبيق العملية عليه.
lpParameters : الوسيطات المراد تمريرها إلى جوار اسم الملف (في حال وجودها).
lpDirectory : اسم المجلد الذي يقع عليه الملف.
nShowCmd : مطابقة للوسيطة windowstyle التابعة للدالة Shell .

مثال:

ShellExecute hwnd, "Open", "Calc.exe", vbNullString, vbNullString, 3

لتشغيل كافة الملفات :
ضع هذا التصريح في قسم General بعد التصريح الأساسي للدالة

Sub ShellDocument(FileName As String)
Dim Ret&
Ret = ShellExecute(hwnd, "Open", FileName, "", "", 1)
If Ret <= 32 Then
Select Case Ret
Case 2&
MsgBox "لم يتم العثور على الملف"
Case 3&
MsgBox "المسار غير موجود"
Case 5&
MsgBox "تعذر الوصول"
Case 8&
MsgBox " ذاكرة غير كافية"
Case 11&
MsgBox "هناك خلل في البرنامج"
Case 32&
MsgBox "مكتبة الربط الديناميكي غير موجودة"
Case 31&
MsgBox "لايوجد برنامج مقترن لفتح هذا الملف"
Case Else
MsgBox "خطأ غير معرف "
End Select
End If
End Sub

للتشغيل هذا الكود :
ShellDocument "c:\windows\faq.txt"

عسول · رقم المشاركة : 8 08-07-2008, 07:02 AM

ملفات التهيئة 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 فقط .

ج

عسول · رقم المشاركة : 9 08-07-2008, 07:03 AM

Ms Agent

مفهوم Ms Agent :
لما تفتح اي برنامج من برامج مايكروسوفت اوفيس وتطلب المساعدة التعليمات يعني ينشب بحلقك مساعد اوفيس مثل الدبوس او القطوة او غيرها ..
هذا هو Ms Agent . تبي يكون ببرنامج واحد من هذيله الطريقة بسيطه هنيا ان شاء الله ..

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

الإسمالحجمPeedy the Parrot
3,3 MB
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

BIG · رقم المشاركة : 10 11-26-2008, 04:43 PM

مشكور عسوول

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