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

[امينة خالد]

دوال متنوعة أخرى

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

الدالة FileCopy :وظيفة هذه الدالة هي أنها تقوم بنسخ ملف وتأخذ وسيطين الوسيط الأول هو مسار الملف المصدر الذي نريد نسخه أما الوسيط الثاني هو المسار الذي نريد أن ينزل فيه الملف بعد نسخه يعني الملف الهدف شاهد هذا المثال :

كود:
FileCopy("D:\MYEmail.txt", "E:\MYEmail.txt")

في هذا المثال الملف MYEmail.txt الموجود في القرص D: سيتم نسخه إلى القرص E:

الدالة FileDateTime :وظيفة هذه الدالة هي أنها تقوم بإعادة تاريخ أخر تعديل لملف معين وتأخذ وسيط واحد نمرر له مسار الملف الذي نريد أن نعرف تاريخ آخر تعديل له شاهد هذا المثال :

كود:
TextBox1.Text = FileDateTime("D:\MYEmail.txt")

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

كود:
TextBox1.Text = FileLen("D:\5.exe")

الدالة FileAttr :وظيفة هذه الدالة هي أنها تعيد لنا لماذا فتحنا الملف للقراءة أو الإضافة ......الخ فيظهر لنا رسالة مكتوب فيها الرقم 8 وذلك لأننا فتحنا الملف للإضافة بالنسبة للقيم التي يرجعها هي كالتالي:
Input=1
Output=2
Random=3
Append=8
Binary=32
وكمثال عليها شاهد التالي :

كود:
Dim FileNum, Mode FileNum = 1 Open "c:\mofak.txt" For Append As FileNum Mode = FileAttr(FileNum, 1) MsgBox(Mode) Close(FileNum)

الدالة FreeFile :وظيفة هذه الدالة هي أنها تعود برقم غير محجوز لفتح الملف وتأخذ الصورة التالية:

كود:
MyFree = FreeFile() Open "c:\TafTaf.txt" For Input As #MyFree MsgBox(MyFree) Close #MyFree

الدالة SetAttr :وظيفة هذه الدالة هي أنها تمكنك من تغيير خصائص الملفات بشرط أن يكون الملف غير مفتوح شاهد هذا المثال :

كود:
SetAttr("D:\5.exe", FileAttribute.Hidden)

في مثالنا السابق سنغير خصائص هذا الملف وسنجعله مخفي

الدالة GetAttr :وظيفة هذه الدالة هي أنها تعيد رقم يمثل خصائص الملف وأرقام الخصائص تكون على الشكل التالي :
vbNormal 0 عادي Normal.
vbReadOnly 1 للقراءة فقط Read-only.
vbHidden 2 مخفي Hidden.
vbSystem 4 ملف نظام System file.
vbDirectory 16 مجلد Directory or folder.
vbArchive 32 أرشيف File has changed since last backup

شاهد هذا المثال :

كود:
TextBox1.Text = GetAttr("D:\5.exe")

الدالة Kill :وظيفة هذه الدالة هي أنها تقوم بحذف الملفات وتأخذ وسيطا واحدا هو مسار الملف المطلوب حذفه شاهد هذا المثال :

كود:
Kill("D:\5.exe")

الدالة Seek :وظيفة هذه الدالة هي أنها تعمل على تغيير موقع مؤشر القراءة والكتابة في الملف وتأخذ الصورة التالية :

كود:
Dim ss Open "c:\TafTaf.txt" For Input As #1 Seek #1, 20 Line Input #1, ss MsgBox(ss) Close #1

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

كود:
If Dir("D:\5.exe") <> "" Then MsgBox("الملف موجود") Else MsgBox("الملف غير موجود") End If

الدالة MkDir :وظيفة هذه الدالة هي أنها تقوم بإنشاء مجلد جديد وتأخذ وسطا واحدا وهو اسم المجلد:
شاهد المثال التالي:

كود:
MkDir("D:\Mohmmed")

الدالة RmDir : وظيفة هذه الدالة هي أنها تقوم بحذف لمجلد وتأخذ وسيطا واحدا هو اسم المجلد المراد حذفه شاهد المثال :

كود:
RmDir("D:\Mohmmed")

الدالة Reset :وظيفة هذه الدالة هي أنها تغلق جميع الملفات المفتوحة للقراءة أو الكتابة وغيرها .....الخ بدلا من إغلاق كل ملف لوحده باستخدام Close شاهد هذا المثال:

كود:
Dim FileNumber For FileNumber = 1 To 5 Open "c:\TEST" & FileNumber For Output As #FileNumber Write #FileNumber, "Hello World" Next FileNumber Reset()

الدالة ****l :وظيفة هذه الدالة هي أنها تقوم بتشغيل الملفات التنفيذية وتأخذ وسيطا واحدا وهو مسار الملف الذي نريد تشغيله شاهد هذا المثال :

كود:
****l("D:\5.exe")

الدالة Choose :وظيفة هذه الدالة هي إنها تستخدم للاختيار بين عدة خيارات ضمن نطاق محدد شاهد المثال التالي:

كود:
TextBox1.Text = Choose(3, "Mohmmed", "Ahmed", "Najy")

في المثال السابق حددنا الخيارات الثلاثة في الوسيط الثاني ونقوم بالاختيار منهم بان نضع رقم الاختيار في الوسيط الأول .

الدالة MsgBox :وهذه هي الدالة الشهيرة والمعروفة لكل مبرمجين الفيجوال بيسك ووظيفة هذه الدالة هي أنها تقوم بعرض مربع رسالة وتأخذ ثلاثة وسطاء الوسيط الأول هو النص الذي سيظهر في مربع الرسالة والوسيط الثاني هو شكل الرسالة والوسيط الثالث هو عنوان الرسالة شاهد هذا المثال:

كود:
MsgBox("نص الرسالة ", MsgBoxStyle.Critical, "عنوان الرسالة")

الدالة InputBox :وظيفة هذه الدالة عكس وظيفة الدالة السابقة فهذا الدالة تقوم بعرض مربع حوار لإدخال البيانات له شاهد هذا المثال :

كود:
Dim A As String A = (InputBox("ادخل أي بيانات تريدها", " عنوان", "البيانات المدخلة", 5, 5)) MsgBox(A)

في المثال السابق عندما يظهر مربع الحوار ندخل له أي قيمة وستظهر هذه القيمة في مربع رسالة .

الدالة SaveSetting :وظيفة هذه الدالة هي أنها تقوم بحفظ البيانات الممررة لها في محرر التسجيل وتقوم بإنشاء مفتاح في محرر التسجيل وتحفظ القيمة فيه وتأخذ ثلاثة وسطاء الوسيط الأول هو اسم المفتاح والوسيط الثاني هو اسم المفتاح الفرعي والوسيط الثالث هو اسم القيمة التابعة للمفتاح والوسيط الرابع هو البيانات التي سيتم حفظها داخل المفتاح شاهد المثال :

كود:
SaveSetting("Mohmmed", "Aebo", "TexB", TextBox1.Text)

في المثال السابق أي بيانات تدخلها داخل مربع النص TextBox سيتم حفظها بمحرر التسجيل .

الدالة GetSetting :وظيفة هذه الدالة هي استعادة البيانات من محرر التسجيل بعد حفظها فيه بواسطة الدالة السابقة وتأخذ ثلاثة وسطاء هي الأول اسم المفتاح والثاني اسم المفتاح الفرعي والثالث هو اسم القيمة التي ستحفظ بها البيانات شاهد المثال :

كود:
TextBox1.Text = GetSetting("Mohmmed", "Aebo", "TexB")

في المثال السابق سيتم استعادة البيانات من محرر التسجيل وستظهر داخل مربع النص .

الدالة DeleteSetting :وظيفة هذه الدالة هي أنها تقوم بحذف المفاتيح من محرر التسجيل حذف المفاتيح التي كنا سابقا قد انشأناها بواسطة الدالة SaveSetting شاهد هذا المثال :

كود:
DeleteSetting("Mohmmed","Aebo","TexB")