توابع ، کلاس ها و کتابخانه های مفید برای VB.Net

[neverlieme]

سلام دوستان
گفتم یه تاپیک بزاریم برای این که هر کسی هر تابع کلاس یا کتابخونه ای ایجاد کرده که خود VB.Net نداره اینجا بذاره تا بقیه هم استفاده کنن

برای شروع خودم این تابع رو میذارم که نشون میده یه عدد اول هست یا نه :


Public Function IsPrime(ByVal n As ULong) As Boolean
If n = 1 Or n = 2 Then
IsPrime = True
ElseIf n <= 0 Or Fix(n) <> n Then
IsPrime = False
Else
For i = 2 To n \ 2
If n Mod i = 0 Then
Debug.WriteLine(i)
IsPrime = False
Exit For
Else
IsPrime = True
End If
Next i
End If
Return IsPrime
End Function

[neverlieme]

واقعا خیلی ممنون از همکاری بی نظیرتون

[misagh1370]

سلام میشه تابع کدملی رو بذارین؟:قلب:
واسه پروژم احتیاجش دارم.ممنونم

[neverlieme]

اینم تابعی که صحت کد ملی رو بررسی میکنه

Public Function MelliCodeChecker(ByVal MelliCode As String) As Boolean
'Checks the length of the code to see if is it in correct shaper (10 digits)
If Len(MelliCode) <> 10 Then
Debug.WriteLine("less than 10 digit")
Return False
Exit Function
End If
'Checks to see if are all digits same
Dim Counter As Integer
Dim FirstNumber As String = MelliCode.Substring(0, 1)
For i = 0 To 9
If Val(MelliCode.Substring(i, 1)) = FirstNumber Then
Counter += 1
End If
Next
If Counter = 10 Then
Debug.WriteLine("all numbers all same")
Return False
Exit Function
End If
'Check and do as Iranian national code algorithm
Dim A As String = MelliCode.Substring(9, 1)
Dim B As Integer = (Val(MelliCode.Substring(0, 1)) * 10) + (Val(MelliCode.Substring(1, 1)) * 9) + (Val(MelliCode.Substring(2, 1) * 8)) _
+ (Val(MelliCode.Substring(3, 1) * 7)) + (Val(MelliCode.Substring(4, 1)) * 6) + (Val(MelliCode.Substring(5, 1)) * 5) + (Val(MelliCode.Substring(6, 1) * 4) _
+ (Val(MelliCode.Substring(7, 1))) * 3) + (Val(MelliCode.Substring(8, 1) * 2))
Dim C As Integer = B Mod 11
If C <= 2 Then
If C = A Then
Return True
Else
Return False
End If
Else
If 11 - C = A Then
Return True
Else
Return False
End If
End If
End Function

[ali.rk]

تجزیه عدد :
http://barnamenevis.org/showthread.php?412080-تجزیه-عدد