نمونه کد های کوچک و کاربردی VB.Net

[ravegoat]

تابع زیر عبارتی را درون یک رشته جست و جو می کند و آرایه ای از اندیس مکان های این عبارت را درون آن رشته بر می گرداند:

    Function IndexOfArray(ByVal inputStr As String, ByVal searchStr As String) As Integer()
        Dim strCount As Integer = 0
        Dim currInx As Integer = inputStr.IndexOf(searchStr)
        Dim inxArr(0) As Integer

        While currInx > -1
            ReDim Preserve inxArr(strCount)
            inxArr(strCount) = currInx
            strCount += 1
            currInx = inputStr.IndexOf(searchStr, currInx + 1)
        End While

        If strCount = 0 Then inxArr(0) = -1
        Return inxArr
    End Function

[ravegoat]

دستور String.Join برای چسباندن آرایه ای از رشته ها با یک جدا کننده (Separator) به کار می رود و به گونه ای عکس عمل Split است که یک رشته را با توجه به یک جدا کننده به آرایه ای از رشته ها تبدیل می کند.

مثال:

Dim alphabet() As String = {"A", "B", "C"}
String.Join(",", alphabet)

خروجی:

A,B,C

[ravegoat]

حتما" با دستور CInt آشنا هستید که یک شی مانند String را تبدیل به یک Integer می کند. ولی اگر بخواهیم آرایه ای از رشته ها را تبدیل به Integer کنیم چطور؟ کافیست نگاهی به مثال زیر بیاندازیم:

Dim numStr() As String = {"1", "10", "100"}
Dim numInt = numStr.ToList.ConvertAll(AddressOf Int32.Parse)

[ravegoat]

تابع زیر با دریافت مسیر جست و جو و نام فایل، به دنبال آن فایل در مسیر تعیین شده می گردد و در صورتی که فایل مورد نظر را یافت، مسیر آن را بر می گرداند:

Function searcher(ByVal path As String, ByVal fileName As String) As String
    Try
        For Each folderName As String In My.Computer.FileSystem.GetDirectories(path)
            If My.Computer.FileSystem.FileExists(folderName + "\" + fileName) Then Return folderName
            searcher(folderName, fileName)
        Next
    Catch
    End Try
    Return "File Not Found."
End Function

[ravegoat]

کد زیر با دریافت تصویر راست و چپ تصویر سه بعدی را به صورت Anaglyph ایجاد می کند:

    Function CreateAnaglyph(ByVal left As Bitmap, ByVal right As Bitmap) As Bitmap
        If left.Width <> right.Width Or left.Height <> right.Height Then Return Nothing
        Dim final As New Bitmap(left.Width, left.Height)
        For i As Integer = 0 To left.Width - 1
            For j As Integer = 0 To left.Height - 1
                final.SetPixel(i, j, Drawing.Color.FromArgb(left.GetPixel(i, j).R, right.GetPixel(i, j).G, right.GetPixel(i, j).B))
            Next
        Next
        Return final
    End Function

[ravegoat]

اگر تمایل دارید که در یک جعبه ی متنی فقط کارکتر عددی وارد شود، کافیست کد زیر را در رویداد KeyPress آن جعبه ی متنی وارد کنید:

e.Handled = Not Char.IsDigit(e.KeyChar)

[ravegoat]

کد زیر با گرفتن تصاویر سمت راست و چپ تصویر پولاریزه شده ی سه بعدی رو تولید می کنه:

    Function Polarizor(ByVal left As Bitmap, ByVal right As Bitmap) As Bitmap
        If left.Width <> right.Width And left.Height <> right.Height Then Return Nothing
        Dim final As New Bitmap(left.Width, left.Height)
        For j As Integer = 1 To left.Height / 2 - 1
            For i As Integer = 0 To left.Width - 1
                final.SetPixel(i, 2 * j, left.GetPixel(i, 2 * j))
                final.SetPixel(i, 2 * j + 1, right.GetPixel(i, 2 * j + 1))
            Next
        Next
        Return final
    End Function

[ravegoat]

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

        Try
            Const pd As String = "1393/3/30"
            Dim spd As String() = Split(pd, "/")
            Dim yy As Integer = Val(spd(0))
            Dim mm As Integer = Val(spd(1))
            Dim dd As Integer = Val(spd(2))
            Dim fpd As String = String.Format("{0:0000}/{1:00}/{2:00}", yy, mm, dd)

            Dim pc As New PersianCalendar()
            pc.ToDateTime(yy, mm, dd, 12, 0, 0, 0)
            MsgBox(fpd, 64)
        Catch
            MsgBox("تاریخ اشتباه است", 48)
        End Try

[ravegoat]

کد زیر در صورت 64 بیتی بودن سیستم عامل مقدار True و در غیر این صورت مقدار False را بر می گرداند:

Environment.Is64BitOperatingSystem