انجمن کدستانMoisrex

از اون جا که پست های قبلی بازدید ، دیدگاه و علاقه مند و استقبال زیادی داشت باز هم آموزش میدم بچه ها خب شوخی کردم بریم سر آموزش :دی

ابتدا بعضی توابعی پرکاربرد که معمولا بهشون نیاز دارید رو نام می برم.

My.Computer.Audio

My.Computer.clipboard

My.Computer.FileSystem

My.Computer.Network

audioَ :

play : اجرا کردن فایل صوتی ( حتما باید با فرمت Wav باشد در صورتی که میخواین هر نوع فرمتی اجرا باشه بعد از توضیح دادن filesystem دربارش توضیح میدم *******

playsystemsound : که مقادیر زیر رو داره

Media.SystemSounds.Asterisk ( صدای info رو میده به عنوان مثال رو دکمه ای کلیک میکنید که توضیحاتی رو نشون میده )

Media.SystemSounds.Beep که معلومه همون صدای بوق ( beep ) هست .

Media.SystemSounds.Exclamation میشه برای خیلی جیزا استفاده کرد.

Media.SystemSounds.Hand برای نشان دادن ارور میشه استفاده کرد.

Media.SystemSounds.Question برای سوال کردن .

My.Computer.Audio.Stop() : صدایی که به وسیله playsound پخش کردیم میتونیم به وسیله این تابع متوقف کنیم .

FileSystem : برای کار با فایل استفاده می شود.

دارای توابع زیادی است که به کاربردی ترین ها اشاره میکنیم

My.Computer.FileSystem.CombinePath به هم پیوستن دو آدرس : برای مثال :

1 : "C:\Program Files (x86)"

2: "C:\Program Files (x86)\Adobe"

نتیجه : "C:\Program Files (x86)\Adobe"

My.Computer.FileSystem.copyfile تابع پرکاربردی که برای کپی کردن فایل به کار می رود .

*******

با استفاده از این تابع میتوانیم حتی فرمت فایل را تغییر دهیم

به عنوان مثال در بخش اول آدرس فایل را وارد میکنیم و در بخش دوم آدرس جدید را وارد میکنیم . در صورتی که میخواهیم فرمت فایل تغییر کند باید در آدرس جدید آن را ذکر کنیم

مثال :

My.Computer.FileSystem.CopyFile("C:\Program Files (x86)\folder\example.gif", "D:\newfolder\exam1.png")

///*

توضیحاتی که در این قسمت درباره اجرای هر نوع فرمت صوتی باید میدادم :

میتوانید قبل از استفاده از تابع playsound به روش زیر عمل کنید تا هر نوع فرمتی خوانده شود :

- یک کپی از فایل صوتی مورد نظر بگیرید و در آدرس جدید پسوند فایل را به wav تغییر دهید .

و در تابع playsound آدرس فایل تازه ایجاد شده را قرار دهید .

///*

My.Computer.FileSystem.CopyDirectory برای کپی کردن پوشه کاربرد دارد .

My.Computer.FileSystem.CreateDirectory ایجاد پوشه ی جدید

My.Computer.FileSystem.DeleteDirectory حذف پوشه

My.Computer.FileSystem.DeleteFile حذف فایل

My.Computer.FileSystem.FileExists

///*

این تابع آدرس فایل مورد نظر را میگیرد و مقدار True یا False را بر میگرداند

در صورتی که فایل وجود داشت = True و در صورتی که وجود نداشت = False

///*

My.Computer.FileSystem.GetDirectoryInfo گرفتن اطلاعاتی درباره ی دایرکتوری مورد نظر :

مانند تاریخ ایجاد پوشه

تاریخ آخرین دسترسی یا تغییرات در این پوشه

در پایین سورسی کاربردی قرار داده شده که از این تابع استفاده کرده است .

My.Computer.FileSystem.GetDirectories سورس پرکاربرد آن در پایین ذکر شد

My.Computer.FileSystem.GetFiles سورس پرکاربرد آن در پایین ذکر شد

My.Computer.FileSystem.OpenTextFileWriter

///*

از این تابع برای نوشتن در فایل متنی استفاده می شود.

شکل کلی آن به صورت زیر است .

Dim a = My.Computer.FileSystem.OpenTextFileWriter( آدرس مورد نظر, نوع دسترسی و نوشتار)

Dim a = My.Computer.FileSystem.OpenTextFileWriter("D:\ex.txt", False)

در صورتی که مقدار False باشد یعنی نمیتواند فایل را overwrite کند و اگر True باشد برعکس

///*

طرز استــــــــفاده از این تابع :

Dim a = My.Computer.FileSystem.OpenTextFileWriter("D:\ex.txt", False)

a.writeline یا a.write(example)

///*

My.Computer.FileSystem.OpenTextFilereader

///*

برای خواندن فایل متنی استفاده می شود.

نمونه سورس :

Public Class Form1

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

Dim a = My.Computer.FileSystem.OpenTextFileReader("D:\ex.txt", System.Text.Encoding.ASCII)

TextBox2.Text = a.ReadToEnd()

a.Close()

End Sub

End Class

در صورتی که میخواهیم خط به خصوصی را بخوانیم میتوان از روشی دیگر استفاده کرد

برای مثال میخواهیم خط 15 را بخوانیم:

///*

Public Class Form1

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

Dim a = My.Computer.FileSystem.OpenTextFileReader("D:\ex.txt", System.Text.Encoding.ASCII)

For i = 1 To 100

a.ReadLine()

If i = 15 Then

TextBox2.Text = a.ReadLine

Exit For

End If

Next

a.Close()

End Sub

End Class///*

///*

My.Computer.FileSystem.WriteAllBytes نوشتن تمام بایت ها در فایل مورد نظر

صورت کلی :

My.Computer.FileSystem.WriteAllBytes(filename as string , data as byte() , append as boolean )

append : در صورتی که false باشد فایل overwrite نمیشود و در صورتی که true باشد overwrite می شود.

My.Computer.FileSystem.WriteAllTextنوشتن تمام متون ها در فایل مورد نظر

صورت کلی :

My.Computer.FileSystem.WriteAlltext(filename as string , text as string , append as boolean )

کار با آن مانند تابع بالایی است اما این بار متن وارد میشود.

My.Computer.FileSystem.SpecialDirectories یافتن دایرکتوری های مخصوص مانند :

//*

Desktop

Temp

my document

my music

programs

program files و ...

//*

این تابع نیز پرکارد است .

///* نمونه از به کارگیری دو تا از توابع بالا My.Computer.FileSystem.GetDirectoryInfo && My.Computer.FileSystem.GetFiles

Public Class Form1

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

Dim a

a = My.Computer.FileSystem.GetDirectoryInfo("C:\Program Files (x86)\GameTop.com\Nitro Racers").GetFiles.Length

For i = 0 To (a - 1)

If ListBox1.Items.ToString "" Then

ListBox1.Items.Add(My.Computer.FileSystem.GetFiles("C:\Program Files (x86)\GameTop.com\Nitro Racers")(i).ToString)

End If

Next

End Sub

End Class

///*

///*

نمونه ای دیگر : پیدا کردن پوشه های موجود در یک پوشه !

Public Class Form1

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

Dim a

a = My.Computer.FileSystem.GetDirectoryInfo("C:\Program Files (x86)\GameTop.com\Nitro Racers").GetDirectories.Length

For i = 0 To (a - 1)

If ListBox1.Items.ToString "" Then

ListBox1.Items.Add(My.Computer.FileSystem.GetDirectories("C:\Program Files (x86)\GameTop.com\Nitro Racers")(i).ToString)

End If

Next

End Sub

End Class

///*

دو سورس بالا تمام فایل ها و پوشه های موجود در پوشه ی مورد نظر را به ما نشان میدهند. توجه داشت باشید که این دو سورس بسیار کاربردی هستند.

فعلا معرفی این دو تابع در این قسمت

آموزش های قبلی :

• http://moisrex.rozblog.com/Forum/Catgory//Post/16151/Page/1
• http://moisrex.rozblog.com/Forum/Catgory/27/Post/16149
• http://moisrex.rozblog.com/Forum/Catgory//Post/15734
• http://moisrex.rozblog.com/Forum/Catgory//Post/15836
• http://moisrex.rozblog.com/Forum/Catgory//Post/1244
• http://moisrex.rozblog.com/Forum/Catgory//Post/1240

برای این آموزش زحمت زیادی کشیده شده پس لطفا نظر بدید