mehrdad_ab (11-03-13), Moein (08-03-13), P A R H A M (15-12-11), Rezasam1 (14-02-12), smrbh (06-04-13)
اگر سورس زير را در رويداد Tick يك Timer قرار دهيد، به هنگام شروع به كار تايمر، فرم با جلوه اي زيبا به شكل يكنواخت از گوشه ها كوچك شده و در نهايت بسته مي شود:
کد:Size = New Size(Width - 2, Height - 2) Location = New Point(Location.X + 1, Location.Y + 1) If Size.Height < 120 Then End
'چو ایران نباشد، تن من مباد
Dim Armin As Iranian
If Iran.Enabled = False Then Armin.Enabled = False
mehrdad_ab (11-03-13), Moein (08-03-13), P A R H A M (15-12-11), Rezasam1 (14-02-12), smrbh (06-04-13)
كد زير در رشته ي mystr، تمامي عبارات قديمي مورد نظر شما (old) را با عبارات جديدي كه شما تعيين مي كنيد (new) جايگزين مي كند:
کد:Dim mystr As String = "Old Technology, Old Life" While mystr.Contains("Old") mystr = mystr.Replace("Old", "New") End While
'چو ایران نباشد، تن من مباد
Dim Armin As Iranian
If Iran.Enabled = False Then Armin.Enabled = False
mehrdad_ab (11-03-13), Moein (08-03-13), Rezasam1 (14-02-12), smrbh (06-04-13)
با اجرای کد زیر در هر تابع یا رویدادی می توانید شکل نشانگر موشواره روی فرم را به شکل ساعت شنی تبدیل کنید:
کد:Cursor = Cursors.WaitCursor
mehrdad_ab (11-03-13), Moein (08-03-13), Rezasam1 (10-03-13), smrbh (06-04-13)
با کد ساده ی زیر بدون استفاده از هیچ کتابخونه یا الگوریتمی می توانید تاریخ جاری میلادی را به تاریخ خورشیدی تبدیل کنید:
کد:Dim persian As New System.Globalization.PersianCalendar() MsgBox(persian.GetYear(Now.Date).ToString() + "/" + persian.GetMonth(Now.Date).ToString() + "/" + persian.GetDayOfMonth(Now.Date).ToString())
mehrdad_ab (11-03-13), Rezasam1 (10-03-13), smrbh (06-04-13)
کد زیر مربوط به الگوریتم تشخیص خطای CRC-16 است:
کد:Private Function CRC16(ByVal modbus() As Byte) As Int32 Dim crc As Int32 = 0 For i As Integer = 0 To modbus.Length - 1 crc = crc Xor modbus(i) For j As Byte = 1 To 8 If crc And &H1 Then crc = (crc >> 1) Xor &H8408 Else crc = crc >> 1 End If Next Next Return crc End Function
کد زیر رشته ای را تحت شبکه به یک IP خاص با شماره پورت TCP مشخص ارسال می کند:
کد:Dim clientSocket As New System.Net.Sockets.TcpClient() clientSocket.Connect("127.0.0.1", 1001) 'IP:Port Dim serverStream As System.Net.Sockets.NetworkStream = clientSocket.GetStream() Dim data() As Byte = System.Text.Encoding.ASCII.GetBytes("Hello World") 'Message serverStream.Write(data, 0, data.Length)
گاهی اوقات میشه مثال های ساده و در عین حال جالبی رو تو DotNetPerls پیدا کرد؛ مثل این ماژول زیر که زمان و تاریخ سیستم رو در فرمت های متنوعی نمایش میده:
کد:Module Module1 Sub Main() ' Acquire current time and then try format strings. Dim now As DateTime = DateTime.Now Console.WriteLine(now.ToString("d")) Console.WriteLine(now.ToString("D")) Console.WriteLine(now.ToString("f")) Console.WriteLine(now.ToString("F")) Console.WriteLine(now.ToString("g")) Console.WriteLine(now.ToString("G")) Console.WriteLine(now.ToString("m")) Console.WriteLine(now.ToString("M")) Console.WriteLine(now.ToString("o")) Console.WriteLine(now.ToString("O")) Console.WriteLine(now.ToString("s")) Console.WriteLine(now.ToString("t")) Console.WriteLine(now.ToString("T")) Console.WriteLine(now.ToString("u")) Console.WriteLine(now.ToString("U")) Console.WriteLine(now.ToString("y")) Console.WriteLine(now.ToString("Y")) End Sub End Moduleخروجی برنامه
5/18/2010
Tuesday, May 18, 2010
Tuesday, May 18, 2010 4:47 PM
Tuesday, May 18, 2010 4:47:55 PM
5/18/2010 4:47 PM
5/18/2010 4:47:55 PM
May 18
May 18
2010-05-18T16:47:55.9620000-06:00
2010-05-18T16:47:55.9620000-06:00
2010-05-18T16:47:55
4:47 PM
4:47:55 PM
2010-05-18 16:47:55Z
Tuesday, May 18, 2010 10:47:55 PM
May, 2010
May, 2010
آخرین ویرایش توسط ravegoat در تاریخ 12-08-13 انجام شده است علت: در هم ریختن خروجی
Rezasam1 (12-08-13)
تابع زیر عبارتی را درون یک رشته جست و جو می کند و آرایه ای از اندیس مکان های این عبارت را درون آن رشته بر می گرداند:
کد: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
Rezasam1 (16-08-13)
دستور String.Join برای چسباندن آرایه ای از رشته ها با یک جدا کننده (Separator) به کار می رود و به گونه ای عکس عمل Split است که یک رشته را با توجه به یک جدا کننده به آرایه ای از رشته ها تبدیل می کند.
مثال:
خروجی:کد:Dim alphabet() As String = {"A", "B", "C"} String.Join(",", alphabet)
کد:A,B,C
Rezasam1 (16-08-13)
حتما" با دستور CInt آشنا هستید که یک شی مانند String را تبدیل به یک Integer می کند. ولی اگر بخواهیم آرایه ای از رشته ها را تبدیل به Integer کنیم چطور؟ کافیست نگاهی به مثال زیر بیاندازیم:
کد:Dim numStr() As String = {"1", "10", "100"} Dim numInt = numStr.ToList.ConvertAll(AddressOf Int32.Parse)
Rezasam1 (16-08-13)
|
1 کاربر در حال مشاهده این موضوع. (0 عضو و 1 میهمان)
Bookmarks