سورس کدهای مفید و کاربردی VB.Net

[nasim bahari]

سلام دوستان

این هم یه نمونه برنامه واسه ON و یا Off کردن Firewall ویندوز



.

[nasim bahari]

سلام دوستان

توسط این نمونه برنامه یاد می گیرین که چطوری برای فرم های خودتون تم بسازین....




.

[nasim bahari]

سلام دوستان

توسط این نمونه برنامه می تونین خصوصیات فایل رو مثل آدرس اون و ReadOnly بودن و ...... رو نمایش بدین و یا تنظیم کنید




.

[nasim bahari]

سلام دوستان

این هم یه نمونه برنامه فوق العاده عالی و البته نیمه حرفه ای واسه نمایش کارکرد CPU و حافظه به صورت نموداری...کاری مشابه خود ویندوز

شک نکنید که باید Down کنید


.

[nasim bahari]

سلام دوستان

این هم یه نمونه برنامه واسه رسم نمودار های حرفه به صورت Sinus و یا Bar

برو حالشو ببر........



.

[persian_bigboy]

چک کردن کد ملی با استاندارد ثبت احوال
https://barnamenevis.org/showthread.php?t=247714

[AlgorithmX]

سلام !
تمامی دستورات تابع Environ (تابع ای که آمار سیستم میزبان رو میگیره)!

https://barnamenevis.org/showthread.p...�ردبخور)

[armin8651]

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

به امید اینکه دوباره این پست مثل قبل فعال بشه

[Hybrid]

تغییر مکان کنترل ها در زمان اجرا با درگ کردن با موس

با سلام خدمت دوستان عزیز ...

این برنامه ای رو که اینجا برای دوستان قرار میدم ، برای یکی از دانشجویان نوشتم ....

واسه همین هم این برنامه رو اینجا گذاشتم که دوستان زیادی به دنبال این برنامه هستن و میتونه نکات آموزشی خوبی رو در بر داشته باشه...سوالی بود در خدمتم..

لینک دانلود :

http://www.up.98ia.com/images/cjrnovdha46eic7p75y1.rar

دوستان اگه براتون مفید بود فقط دکمه تشکر رو فشار بدین...

موفق باشین

[armin8651]

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

[Poria.Net]

سلام به همه گی

سرس خارج نشدن فرم از صفحه مانیتور
این کد رو توی رویداد "Mouse UP" فرمتون بنویسید

If Me.Right >= Screen.PrimaryScreen.Bounds.Width Then
Me.Left = Screen.PrimaryScreen.Bounds.Width - Me.Width
End If
If Me.Bottom >= Screen.PrimaryScreen.Bounds.Height - 35 Then
Me.Top = Screen.PrimaryScreen.Bounds.Height - Me.Height - 35
End If
If Me.Top <= 0 Then Me.Top = 0
If Me.Left <= 0 Then Me.Left = 0

[Poria.Net]

کنترل فرم با استفاده از خاصیت های "Me.Right" و "Me.bottom" بر عکس خاصیت های "Me.Left" و "Me.top"

Sub MeRight(ByVal Number As Integer)
Dim A = Screen.PrimaryScreen.Bounds.Width
Me.Left = A - Me.Width - Number
End Sub

Sub MeBottom(ByVal Number As Integer)
Dim A = Screen.PrimaryScreen.Bounds.Height
Me.Top = A - Me.Height - Number
End Sub

[en-keramat]

تابعي براي تفريق كردن دو ماتريس

#Region "Subtract Matrices"

    ''''''''''''''''''''''''''''''''''''''''''''''''''  ''''''

    ' Subtracts two matrices from each other, their

    ' dimensions should be compatible!

    ' Function returns the solution or errors due to

    ' dimensions incompatibility



    ''''''''''''''''''''''''''''''''''''''''''''''''''  ''''''

    Public Shared Function Subtract(ByVal Mat1(,) As Double, ByVal Mat2(,) As Double) As Double(,)

        Dim i, j As Integer

        Dim sol(,) As Double

        Dim Rows1, Cols1 As Integer

        Dim Rows2, Cols2 As Integer



        On Error GoTo Error_Handler



        Find_R_C(Mat1, Rows1, Cols1)

        Find_R_C(Mat2, Rows2, Cols2)



        If Rows1 <> Rows2 Or Cols1 <> Cols2 Then

            GoTo Error_Dimension

        End If



        ReDim sol(Rows1, Cols1)



        For i = 0 To Rows1

            For j = 0 To Cols1

                sol(i, j) = Mat1(i, j) - Mat2(i, j)

            Next j

        Next i



        Return sol



Error_Dimension:

        Err.Raise("5007", , "Dimensions of the two matrices do not match !")



Error_Handler:

        If Err.Number = 5007 Then

            Err.Raise("5007", , "Dimensions of the two matrices do not match !")

        Else

            Err.Raise("5022", , "One or both of the matrices are null, this operation cannot be done !!")

        End If



    End Function



#End Region

[en-keramat]

و اينم برا ضرب اش

#Region "Multiply Matrices"

    ''''''''''''''''''''''''''''''''''''''''''''''''''  '''''''''''''

    ' Multiply two matrices, their dimensions should be compatible!

    ' Function returns the solution or errors due to

    ' dimensions incompatibility



    ''''''''''''''''''''''''''''''''''''''''''''''''''  '''''''''''''

    Public Shared Function Multiply(ByVal Mat1(,) As Double, ByVal Mat2(,) As Double) As Double(,)

        Dim l, i, j As Integer

        Dim OptiString As String

        Dim sol(,) As Double, MulAdd As Double

        Dim Rows1, Cols1 As Integer

        Dim Rows2, Cols2 As Integer



        On Error GoTo Error_Handler



        MulAdd = 0



        Find_R_C(Mat1, Rows1, Cols1)

        Find_R_C(Mat2, Rows2, Cols2)



        If Cols1 <> Rows2 Then

            GoTo Error_Dimension

        End If



        ReDim sol(Rows1, Cols2)



        For i = 0 To Rows1

            For j = 0 To Cols2

                For l = 0 To Cols1

                    MulAdd = MulAdd + Mat1(i, l) * Mat2(l, j)

                Next l

                sol(i, j) = MulAdd

                MulAdd = 0

            Next j

        Next i



        Return sol



Error_Dimension:

        Err.Raise("5009", , "Dimensions of the two matrices not suitable for multiplication !")



Error_Handler:

        If Err.Number = 5009 Then

            Err.Raise("5009", , "Dimensions of the two matrices not suitable for multiplication !")

        Else

            Err.Raise("5022", , "One or both of the matrices are null, this operation cannot be done !!")

        End If



    End Function



#End Region

[en-keramat]

تابعي براي جمع كردن دو ماتريس

#Region "Add Matrices"

    ''''''''''''''''''''''''''''''''''''''''''''''''''  ''''''

    ' Add two matrices, their dimensions should be compatible!

    ' Function returns the summation or errors due to

    ' dimensions incompatibility

    

    ''''''''''''''''''''''''''''''''''''''''''''''''''  ''''''

    Public Shared Function Add(ByVal Mat1(,) As Double, ByVal Mat2(,) As Double) As Double(,)

        Dim sol(,) As Double

        Dim i, j As Integer

        Dim Rows1, Cols1 As Integer

        Dim Rows2, Cols2 As Integer



        On Error GoTo Error_Handler



        Find_R_C(Mat1, Rows1, Cols1)

        Find_R_C(Mat2, Rows2, Cols2)



        If Rows1 <> Rows2 Or Cols1 <> Cols2 Then

            GoTo Error_Dimension

        End If



        ReDim sol(Rows1, Cols1)

        For i = 0 To Rows1

            For j = 0 To Cols1

                sol(i, j) = Mat1(i, j) + Mat2(i, j)

            Next j

        Next i



        Return sol



Error_Dimension:

        Err.Raise("5005", , "Dimensions of the two matrices do not match !")



Error_Handler:

        If Err.Number = 5005 Then

            Err.Raise("5005", , "Dimensions of the two matrices do not match !")

        Else

            Err.Raise("5022", , "One or both of the matrices are null, this operation cannot be done !!")

        End If



    End Function

#End Region

[mohanad1993]

سلام
با تیکه کد زیر میشه از انتقال اطلاعات به درایو usb جلوگیری کرد
پس از قفل کردن usb یک بار سیستم عامل خود را ری استارت کنید.

    Public Function LockUSB()

        My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\  SYSTEM\CurrentControlSet\Control\StorageDevicePoli  cies\", "writeProtect", 1, Microsoft.Win32.RegistryValueKind.DWord)

    End Function

اینک کد غیر فعال کردنش

    Public Function UnlockUSB()

        My.Computer.Registry.LocalMachine.DeleteSubKey("SY  STEM\CurrentControlSet\Control\StorageDevicePolici  es")

    End Function

[mohanad1993]

اینم یه برنامه جالب و آموزنده که کار ذره بین ویندوز رو شبیه سازی می کنه
منبع سرس برنامه هم سایت کدپروژه هست

[Sosha1996]

با سلام و خسته نباشید خدمت دوستان.

امیدوارم که خوب باشید.

ممنون بخاطر این تاپیک خوب و مفید.

بنده برنامه ای ساختم که حالت Notepad رو داره اما با امکانات برنامه Word البته به صورت مختصر.

توش به جای TextBox از RichTextBox استفاده کردم که قابلیت های بیشتری نسبت به TextBox داشته باشه. به عنوان مثال عکس میشه گذاشت که به شخصه برام مفیده این خاصیت.

ایده در کل این بود که حالت Notepad داشته باشه با امکانات حدودی Word.

البته برنامه نسخه 1 داشت، که خیلی خیلی ضعیف بود. توی نسخه 2 یعنی این نسخه سعی کردم خیلی بهترش کنم و ارتقاش بدم. نسخه 3 برنامه رو هم خواهم داد.

این عکس برنامه:



این فایل نصب:

http://s6.picofile.com/file/82302578...d_Pro.rar.html

و این هم سورس کد:

http://s3.picofile.com/file/82302579...ource.rar.html
__________________________________________________ __________

امیدوارم که به استفادتون بیاد و باگی هم نداشته باشه

اگر مشکلی داشت یا پیشنهادی واسه بهتر کردنش داشتید خوش حال میشم بهم بگید اینم ایملم: Sosha.m.1996@gmail.com

[Sosha1996]

این هم یک سورس کد و برنامه که کارش معدل گیری نمرات دانشگاهه.

نمره هر درس رو ضربدر واحد درس می کنه و اعداد به دست اومده هر تکست باکس رو جمع می کنه و تقسیم بر واحد کل می کنه.

برنامه سبکیه اما همه جوره فیکسش کردم که اگه کسی خواست استفادش کنه، واقعا خیالش راحت باشه.


عکس برنامه:

Moahesebe Moadel.jpg

این فایل نصب:

http://s7.picofile.com/file/82342741...Setup.rar.html

و این هم سورس کد:

http://s6.picofile.com/file/82342740...oadel.rar.html

[barnamenevisjavan]

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

دانلود

[barnamenevisjavan]

این هم یک سورس شاخ و حرفه ای که بوسیله این برنامه میتونید هرچقد دکمه که دوست دارید بر روی تایتل بار فرمتون ایجاد کنید این برنامه به کمک توابع API نوشته شده

دانلود

[barnamenevisjavan]

با این سورس میتونید یک پوشه رو به برنامه بدید و میزان زمان نمایش یک عکس رو تایین کنید و سپس تنطیم رو کلیک کنید تا صفحه دستکاپ بطور خودکار عکسش رو عوض کنه سپس برروی مخفی کلیک کنید تا برنامه مزاحم شما نشه

دانلود