سايتي براي دانلود رايگان نرم افزار ، بازي ، تم موبايل ، آهنگ ، فيلم ، موزيك ، مقاله و مطالب آموزشي تمامي نرم افزار هاي اين سايت به صورت رايگان عرضه مي شه و كليات دوستان مي تونن به راحتي اون رو دانلود كنن
در ضمن كسايي كه در اين سايت عضو مي شن مطالب به روز شده به ايملشان ارسال مي شه.
بعلت عدم وجود اشاره گر در ويژوال بيسيک عمليات کار با فايلها در آن نسبتاً ساده می باشد . بطور کلی فايلها بر دو نوع هستند :
1 - فايلهای متنی Text File : اين فايلها فقط شامل کاراکترهای اسکی وبرخی کاراکترهای خاص مانند انتهای خط و انتهای فايل هستند .
۲ - فايلهای باينریBinary File : شامل هر نوع کاراکتری می توانند باشند و کاربردهای گسترده ای دارندمانند بانک های اطلاعاتی ، فايلهای اجرائی ، فايلهای گرافيکی و غيره ويژوال بيسيک می تواند با هر دو نوع فايل کار کند .
چگونگی باز کردن فايلها
قبل از اينکه بتوان عمليات ورودی/خروجی را روی يک فايل انجام داد ابتدابايستی آنرا باز کرد . باز کردن فايلها در ويژوال بيسيک توسط دستور Open انجام میشود . فرمت کلی اين دستور بصورت زير است :
ادامه مطلب
شکل 1 - حالت عادی فرم
شکل 2 - حالت فرم با استفاده از WinXP Themes
برای این کار باید از API ها استفاده کنیم . API برگرفته شده از سر واژه های Application Programing Interface (رابط برنامه نویسی کاربردی) است . API ها توابعی از پیش ساخته شده در سیستم عامل ویندوز هستند که می توانیم از انها در برنامه نویسی در Visual Basic استفاده کنیم . این توابع در چندین فایل Dll موجودند که از جمله این فایلها متوان KERNEL32 , USER32 , GDI32 , WINMM و .... . ما برای استفاده از WinXP Themes باید از تابع InitCommonControls که در کتابخانه ی که در و یندوز XP موجود است استفاده می کنیم . برای فراخوانی (Declare ) یک تابع از متد زیر استفاده میکنیم :
Private Declare Function <نام تابع> Lib " Dll نام کتابخانه " () As Long
پس برای فراخوانی تابع InitCommonControls با توجه به متد بالا در قسمت General فرم در ویژوال بیسیک کد زیر را می نویسیم :
Private Declare Function InitCommonControls Lib "comctl32.dll" () As Long
اکنون برای form در رویداد Initialize کد زیر را بنویسید ( رویداد Initialize وقتی فراخوانی می شود که فرم ایجاد شود ) :
Private Sub Form_Initialize()
InitCommonControls
End Sub
تا اینجا کارمان با فرم تمام شد و اکنون می توانید چند CommandButton , CheckBox , OptionButton , . . . را به فرم اضافه کنید . و پس از اتمام کار بر روی فرم آنرا Compile کرده و بصورت Exe می سازیم .
یک New Text Document را در همان پوشه ای که فایل exe وجود دارد می سازیم و کدهای زیر را در آن کپی می کنیم و بعد آنراذخیره می کنیم . حالا باید نام و پسوند فایل را تغییر دهیم و مطابق الگوی مقابل عمل کنیم EXE.MANIFEST.نام فایل exe
برای اینکه نام و پسوند فایل را عوض کنیم نیاز به این داریم که نام و پسوند فایل را به طور کامل ببینیم برای این کار وارد Control Panel شده و Folder Option را اجرا می کنیم بعد به قسمت View شده و تیک Hide Extentions For Known File Type را بر می داریم حالا همه فایلها را با نام و پسوند کامل مشاهده می کنیم و میتوانیم با استفاده از Rename (کلید F2) نام فایل را با توجه به متد بالا تغییر دهیم . مثلا اگر نام فایل exe بصورت ُSample.exe باشد نام فایل که با پسوند txt است را به Sample.exe.MANIFEST تغییر می دهیم .
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
کد مربوط به فایل EXE.MANIFEST.نام فایل exe
name="Microsoft.Windows.Common-Controls" version="6.0.0.0"
language="*"
processorArchitecture="*"
publicKeyToken="6595b64144ccf1df"
/>
ساير عمليات کار با فايل :
۱ - حذف فايل : برای حذف يک يا چند فايل از دستور Kill استفاده می شود :
Kill "C:\Temp\MyFile.txt"x
Kill "C:\Temp\*.txt"x
۲ - انتقال فايل : برای انتقال يک فايل از يک دايرکتوری به دايرکتوری ديگر از دستور Name استفاده می شود . مبدا و مقصد بايستی روی يک درايو باشند . اگر دايرکتوری مبدا و مقصد يکی باشد فايل تغيير نام داده می شود :
Name "C:\Temp\File1.txt" as"C:\Temp2\File2.txt"x
۳ - کپی کردن فايل : برای کپی کردن يک فايل از يک دايرکتوری به دايرکتوری ديگر از دستور FileCopy استفاده می شود :
FileCopy "\File1.txt\ To "C:\Temp\File2.txt"x
۴ - بدست آوردن تاريخ و زمان آخرين تغيير فايل و يا زمان ايجاد فايل : برای اين کار از دستور FileDateTime استفاده می شود . ابتدا بايستی يک متغير از نوع Variant تعريف کرده و سپس توسط اين دستور تاريخ و زمان موردنظر را استخراج کنيم :
Dim FileInfo As Variant
FileInfo=FileDateTime("C:\Temp\MyFile.txt")x
۵ - استخراج طول فايل : برای بدست آوردن طول يک فايل بر حسب بايت از دستور FileLen استفاده می شود :
FileSize=FileLen("C:\MyFile.txt")x
۶ - تغيير صفت يک فايل : برای تغيير صفت يک فايل از دستور SetAttr استفاده می شود . پارامترهای اين دستور عبارتند از :
0 : فايل معمولی
2 : فايل مخفی
4 : فايل سيستمی
SetAttr FileNumber,FileAttrib
مقابله با خطاهای کار با فايل :
در زمان کار با فايلهای احتمال زيادی وجود دارد که خطا بوجود آيد . بنابراين بايستی در زمان کار با فايلها در صورت ممکن از روتينهای مقابله با خطا استفاده کنيم . شايع ترين خطاهای کار با فايل عبارتند از :
۵۲ : شماره يا نام فايل صحيح نيست
۵۳ : فايل پيدا نشد
۵۴ : حالت فايل صحيح نيست
۵۵ : فايل قبلاً باز شده
۵۸ : فايل از قبل وجود دارد
۵۹ : طول رکورد صحيح نيست
۶۱ : ديسک پر است
۶۲ : عبور از انتهای فايل
۶۳ : شماره رکورد صحيح نيست
۷۰ : دسترسی ممنوع است
۷۱ : ديسک آماده نيست
۷۶ : مسير پيدا نشد
در هنگام مقابله با خطا بهتراست از يک ساختار Select-Case استفاده کنيد :
Select Case Err
Case 71
MsgBox "Drive is Not Ready"x
.
.
.
End Select
|
توانایی تشخیص مفهوم مدیریت و اصول آن |
|
توانایی تشخیص مفهوم مدرییت آموزشی و کارکردهای آن |
|
توانایی اجرا ی مقررات و آئین نامه های موسسات کار آموزی |
|
توانایی برنامه ریزی و نظارت بر اجرای برنامه ها |
|
توانایی ارزشیابی از دوره ها آموزشی |
|
توانا یی تهیه گزارشهای مورد نیاز آموزشگاه |
|
توانایی برقراری روابط انسانی |
|
توانایی نظارت بر امور مالی آموزشگاه |
|
توانایی پیشگیری از حوادث و رعات نیات ایمنی و بهداشت کار |
