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

اگر سورس زير را در رويداد Tick يك Timer قرار دهيد، به هنگام شروع به كار تايمر، فرم با جلوه اي زيبا به شكل يكنواخت از گوشه ها كوچك شده و در نهايت بسته مي شود:

کد:

---

Size = New Size(Width - 2, Height - 2)
Location = New Point(Location.X + 1, Location.Y + 1)
If Size.Height < 120 Then End

---

كد زير در رشته ي mystr، تمامي عبارات قديمي مورد نظر شما (old) را با عبارات جديدي كه شما تعيين مي كنيد (new) جايگزين مي كند:

کد:

---

Dim mystr As String = "Old Technology, Old Life"
While mystr.Contains("Old")
  mystr = mystr.Replace("Old", "New")
End While

---

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

کد:

---

Cursor = Cursors.WaitCursor

---

با کد ساده ی زیر بدون استفاده از هیچ کتابخونه یا الگوریتمی می توانید تاریخ جاری میلادی را به تاریخ خورشیدی تبدیل کنید:

کد:

---

Dim persian As New System.Globalization.PersianCalendar()
MsgBox(persian.GetYear(Now.Date).ToString() + "/" + persian.GetMonth(Now.Date).ToString() + "/" + persian.GetDayOfMonth(Now.Date).ToString())

---

کد زیر مربوط به الگوریتم تشخیص خطای 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)

---

گاهی اوقات میشه مثال های ساده و در عین حال جالبی رو تو برای مشاهده این لینک/عکس می بایست عضو شوید !برای عضویت اینجا کلیک کنید ] پیدا کرد؛ مثل این ماژول زیر که زمان و تاریخ سیستم رو در فرمت های متنوعی نمایش میده:

کد:

---

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

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

کد:

---

    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

---

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

مثال:

کد:

---

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

---

خروجی:

کد:

---

A,B,C

---

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

کد:

---

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

---