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

[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