استفاده از لیست آرایه ArrayList

توسعه دهندگان (همون برنامه نویسان خودمون) اغلب نیاز دارند تا گروهی از شیء های مرتبط با هم را ذخیره کنند.

مثل ساختن یک دفتر تلفن و یا دفتر پست الکترونیکی که در آن نیاز دارید که هم عکس و هم متن و شاید هم صدای ذخیره شده طرف را ذخیره کنید.

در دات نت فضایی (NAMESPACE) ای به نام System.Collections وجود دارد که انواع مختلف داده را پشتیبانی میکند

دسته اول از این نوع داده ها عبارتند از:

•  ArrayList
• Queue
• Stack
• StringCollection
• BitArray

Imports System.Collections

Imports System.IO ' For use FileStream

Dim al As New ArrayList()

al.Add("Hello")
al.Add("World")
al.Add(5)
al.Add(New FileStream("delemete", FileMode.Create))
MsgBox("The array has " & al.Count.ToString & " items:")
For Each s As Object In al
     ListBox1.Items.Add(s.ToString())
Next

نمونه دیگر برای ArrayList  و استفاده از دستورات Insert و Remove و Sort در آن

Dim al As New ArrayList()
al.Add("Hello")
al.Add("World")
al.Add("this")
al.Add("is")
al.Add("a")
al.Add("test")
al.Remove("test")
al.Insert(4, "not")
al.Sort()
For Each s As Object In al
     ListBox1.Items.Add(s.ToString())
Next

خروجی:

A
Hello
is
not
this
World

برنامه درخواستی استاد

استاد این کافیه؟

نوشتن کمرنگشم دارم کار میکنم

فعلا حتما باید روی هارد ذخیره کنه

بعد بخونه اگر در MemoryStream بریزه بهتره. حالا ببینیم دوستان دارن چه راهی میرن

من برای چرخاندن تصویر از

PictureBox2.Image.RotateFlip(RotateFlipType.Rotate180FlipX)

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

 Private Function Lighter(ByVal imgLight As Image, ByVal level As Integer, ByVal nRed As Integer, ByVal nGreen As Integer, ByVal nBlue As Integer) As Image
        Dim graphics_1 As Graphics = Graphics.FromImage(imgLight)

        Dim pLight As New Pen(Color.FromArgb(210, nRed, nGreen, nBlue), imgLight.Width * 2)

        graphics_1.DrawLine(pLight, -1, -1, imgLight.Width, imgLight.Height)

        graphics_1.Save()

        graphics_1.Dispose()

        Return imgLight

    End Function

موقع صدا زدن برنامه هم از دستور زیر

  PictureBox2.Image = Lighter(PictureBox2.Image, System.Math.Max(System.Threading.Interlocked.Increment(80), 80 - 1), colToFadeTo.R, colToFadeTo.G, colToFadeTo.B)

انشاءااله در همین پست سورسش را میگزاریم

برنامه به این صورت هست که هم اسلاید شو داره و هم از شاخه کنار فایل exe به نام pictures با Getfiles همه عکس ها را در ListBox میریزد و با زدن ردیف های ListBox عکس و سایه آن عوض میشود و در موقع پخش اسلاید شو هم اگر ردیفی انتخاب شود از بقیه آن حرکت میکند و هر موقع دلمان خواست رنگ پشت زمینه را عوض میکنیم

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

عبارات باقاعده Regular Expressions

عبارات باقاعده برای تست کردن رشته هایی بکار میروند که میخواهیم نظم خاصی در کاراکترهای آن رشته وجود داشته باشد.

سه کتاب هم در این ضمینه دانلود کرده ام که در این وبلاگ میگذارم

مثال:
میخواهیم فقط رشته ای از اعداد  را از ورودی دریافت داریم که در آن 5 رقم متوالی وجود داشته باشد
مانند شکل زیر میتوانیم کاراکتر ها را مشخص کنیم

Imports System.Text.RegularExpressions

Dim regularExpression As String = "^\d{5}$"
Dim inputtext As String = InputBox("Enter regular expression: ")
If Regex.IsMatch(inputtext, regularExpression) Then
     MsgBox("is match")
Else
     MsgBox("is not match")
End If

استفاده از فضای امن IsolatedStorage برای ذخیره اطلاعات

IsolatedStorage یک فایل خصوصی سیستمی است که توسط دات نت مدیریت می شود.

Imports System.IO
Imports System.IO.IsolatedStorage

برای ساختن یک فایل IsolatedStorage

Dim IsoStore As IsolatedStorageFile = IsolatedStorageFile.GetUserStoreForAssembly
Dim IsoFile As IsolatedStorageFileStream = New IsolatedStorageFileStream("mytextfile.txt", FileMode.Create, IsoStore)
Dim sw As New StreamWriter(IsoFile)
sw.WriteLine("my computer name is: " & My.Computer.Name)
sw.Close()

برای خواندن از یک فایل IsolatedStorage

Dim IsoStorage As IsolatedStorageFile = IsolatedStorageFile.GetUserStoreForAssembly
Dim IsoFile As IsolatedStorageFileStream = New IsolatedStorageFileStream("mytextfile.txt", FileMode.Open, IsoStorage)
Dim sr As New StreamReader(IsoFile)
MsgBox(sr.ReadToEnd.ToString)
sr.Close()

فشرده کردن فایل ها و بازکردن آنها با استفاده از GZipStream

Imports System.IO
Imports System.IO.Compression

ساخت یک فایل فشرده:

Dim gzOut As New GZipStream(File.Create("data.zip"), CompressionMode.Compress)
Dim sw As New StreamWriter(gzOut)
For i As Integer = 1 To 999
     sw.Write("Hello, World! ")
Next
sw.Close()
gzOut.Close()

برای خواندن و باز کردن فایل های فشرده نیز مانند کد های پایین عمل میکنیم:

Dim gzIn As New GZipStream(File.OpenRead("data.zip"), CompressionMode.Decompress)
Dim sr As New StreamReader(gzIn)
MsgBox(sr.ReadToEnd())
sr.Close()
gzIn.Close()