*MoJtAbA* (29-10-13), designme (06-01-15), mehrdad_ab (06-01-15), nima_hl (29-10-13), Rezasam1 (29-10-13)
تابع زیر با دریافت مسیر جست و جو و نام فایل، به دنبال آن فایل در مسیر تعیین شده می گردد و در صورتی که فایل مورد نظر را یافت، مسیر آن را بر می گرداند:
کد: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
*MoJtAbA* (29-10-13), designme (06-01-15), mehrdad_ab (06-01-15), nima_hl (29-10-13), Rezasam1 (29-10-13)
کد زیر با دریافت تصویر راست و چپ تصویر سه بعدی را به صورت 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
*MoJtAbA* (02-03-14), designme (06-01-15), mehrdad_ab (06-01-15), nima_hl (02-03-14)
اگر تمایل دارید که در یک جعبه ی متنی فقط کارکتر عددی وارد شود، کافیست کد زیر را در رویداد KeyPress آن جعبه ی متنی وارد کنید:
کد:e.Handled = Not Char.IsDigit(e.KeyChar)
*MoJtAbA* (05-03-14), designme (06-01-15), mehrdad_ab (06-01-15), nima_hl (04-03-14)
کد زیر با گرفتن تصاویر سمت راست و چپ تصویر پولاریزه شده ی سه بعدی رو تولید می کنه:
کد: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
برای تشخیص معتبر بودن یا نبودن تاریخ شمسی می توانید از کد زیر استفاده کنید:
کد: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
کد زیر در صورت 64 بیتی بودن سیستم عامل مقدار True و در غیر این صورت مقدار False را بر می گرداند:
کد:Environment.Is64BitOperatingSystem
AMD>INTEL (05-01-15), designme (06-01-15), mehrdad_ab (06-01-15)
1 کاربر در حال مشاهده این موضوع. (0 عضو و 1 میهمان)
Bookmarks