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

[nasim bahari]

سلام دوستان

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




.

[nasim bahari]

سلام دوستان

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

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


.

[nasim bahari]

سلام دوستان

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

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



.

[persian_bigboy]

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

[hero4000]

سلام دنبال یه سورس کد هستم که به کاربر این امکان رو بده که بتونه صدای ولوم کامپیوتر ولومی که در تسکبار هست رو کم و زیاد کنه اگه ممکنه یه پروژه برام بگذارید جدا ممنون میشم بسیار فوریه

http://www.barnamenevis.org/forum/showpost.php?p=1099217&postcount=4

[AlgorithmX]

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

http://barnamenevis.org/showthread.php?270013-تمامی-دستورات-تابع-Environ-(بسیار-بدردبخور)

[armin8651]

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

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

[barnamenevisjavan]

سلام خدمت عزیزان با این سورس میتونید بعد از دادن زمان مشخص کامپیوتر رو به حالت خواب ببرید
http://s2.picofile.com/file/7125681505/SleepTimer.jpg
دانلود (http://s2.picofile.com/file/7125681391/Sleep_Timer.rar.html)

[barnamenevisjavan]

این هم یک سورس شاخ و حرفه ای که بوسیله این برنامه میتونید هرچقد دکمه که دوست دارید بر روی تایتل بار فرمتون ایجاد کنید این برنامه به کمک توابع API نوشته شده
http://s2.picofile.com/file/7123966448/2011_08_24_05_10_17_1576_.jpg
دانلود (http://s2.picofile.com/file/7123966234/titlebar.rar.html)

[barnamenevisjavan]

با این سورس میتونید یک پوشه رو به برنامه بدید و میزان زمان نمایش یک عکس رو تایین کنید و سپس تنطیم رو کلیک کنید تا صفحه دستکاپ بطور خودکار عکسش رو عوض کنه سپس برروی مخفی کلیک کنید تا برنامه مزاحم شما نشه
http://s2.picofile.com/file/7120882903/AmitsWallpaperChanger.jpg
دانلود (http://s2.picofile.com/file/7120882896/AmitsWallpaperChanger.rar.html)

[gilsoft]

سلام خدمت عزیزان ...
مدت پانزده سال با FoxPro و Visual FoxPro برنامه نویسی کردم. اما بعلت عدم گسترش این زیان شیرین برنامه نویسی ، به ویژوال بیسک روی آوردم.
اولین قطعه کد زیر مربوط میشه به کار با اعداد در TextBox ...
برام خیلی جالب بود .. کلیدهای ویرایشی به راحتی داخل TextBox کار می کنند.
امتحانش کنید .. ضرر نداره ..... امیدوارم که خوشتون بیاد ...



Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
'ONLY ALLOW CONTROL CHARS (LIKE BACKSPACE) AND NUMBERS TO BE ENTERED
Select Case Char.GetUnicodeCategory(e.KeyChar)
Case Globalization.UnicodeCategory.Control, Globalization.UnicodeCategory.DecimalDigitNumber
Case Else
e.Handled = True
End Select
End Sub

[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 "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

[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

[mohanad1993]

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

Public Function LockUSB()
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contro l\StorageDevicePolicies\", "writeProtect", 1, Microsoft.Win32.RegistryValueKind.DWord)
End Function
اینک کد غیر فعال کردنش

Public Function UnlockUSB()
My.Computer.Registry.LocalMachine.DeleteSubKey("SYSTEM\CurrentControlSet\Control\StorageDevicePoli cies")
End Function

[mohanad1993]

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

[javaty20]

خودم ساختمش توپه توپه میره اون گوشه ی دسکتاپ کاری هم با کسی نداره می تونید خیلی از کارای جالبی که فکرش رو هم نمی کردید انجام بدید
امکانات کلیدی نرم افزار:
١_ ارسال ایمیل ساده و هم ایمیل با کد html برای ارسال ایمیل های تبلیغاتی زیبا
٢_ مخفی کردن فایل در عکس یعنی وقتی عکس را باز می کنید تصویر دلخاهتان نمایش میدهد و وقتی با winrar باز کنید فایل هایتان را نمایش می دهد
٣_ قفل یا غیر فعال کردن موس و کیبورد برای زمان معین شده برای جلوگیری از خرابکاری هایی که بچه ها وقتی سراغ کامپیوتر می آیند
٤_ یک عکس یا متن موس را دنبال کند برای سرگرمی هر عکسی که دوست داشته باشید با اندازه ای که به آن می دهید موس را دنبال می کند متن هم همینطور
٥_ ساختن آموزش هر کلیکی که با موس می کنید عکسی از صفحه می گیرد و در یک پوشه ذخیره می کند
٦_ ذخیره ی اسکرین شات هایی که میگیرید و متن هایی که کپی میکنید
٧_ ضبط حرکات موس و کلید فشرده شده ی موس و اجرای مجدد آن
٨_ نشان دادن اطلاعات کامپیوتر در اسرع وقت
٩_ تغییر رمز ویندوز بدون دانستن رمز قبلی
١٠_ زندانی کردن موس در یک مربع (مدت حبس بر حسب ثانیه)
١١_ پر کردن حا فظه ی یک درایو بدون حتی باقی ماندن یک بایت خالی
١٢_ گذاشتن یک نرم افزار در محیط قفل ویندوز که در آن محیط با فشردن ٥ بار کلید شیفت می توانید آن را باز کنید
١٣_ متن صفحه ی خوش آمد گویی قبل از وارد کردن پسورد ویندوز (خیلی باحاله بیننده رو شوکه می کنه)
١٤_ ذخیره ی سریع یک متن در یک فایل با پسوند دلخواه برای امنیت بالا
اینم لینکش
http://uploadboy.com/unu9gcsquppu.html

[Sosha1996]

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

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

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

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

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

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

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

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

http://s3.picofile.com/file/8230251900/Notepad_Pro.png

این فایل نصب:

http://s6.picofile.com/file/8230257850/Notepad_Pro.rar.html

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

http://s3.picofile.com/file/8230257918/Notepad_Pro_Source.rar.html
__________________________________________________ __________

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

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

[Sosha1996]

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

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

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


عکس برنامه:
138510


این فایل نصب:

http://s7.picofile.com/file/8234274134/Mohasebe_Moadel_Setup.rar.html

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

http://s6.picofile.com/file/8234274050/Mohasebe_Moadel.rar.html

[safari_m4]

تابعی برای اصلاح تاریخ های بدون صفر : مثلا تبدیل 1388/8/8 به 1388/08/08

Public Function EslahTarikh(ByVal Tarikh As String) As String
Dim TarikhArry = Split(Tarikh, "/")
If TarikhArry(1).Length < 2 Then
TarikhArry(1) = "0" & TarikhArry(1)
End If
If TarikhArry(2).Length < 2 Then
TarikhArry(2) = "0" & TarikhArry(2)
End If
Return TarikhArry(0) & "/" & TarikhArry(1) & "/" & TarikhArry(2)
End Function


ساده ترین روش کد زیر
TextBox2.Text = String.Format("{0:yyyy/MM/dd}", Convert.ToDateTime(TextBox1.Text))
بجای تکس باکس 1 منبع تاریخ خودتان را وارد کنید

[saeidmobashery]

سلام دوست عزیز .
نظر شما درسته . البته چون کد کوتاه بود نمیخواستم درگیر پیچیدگی های زیاد بشه .
انشالله گفته شما رو در یه سورس کد کامل عملی میکنم . :لبخندساده:
با تشکر از نظر شما ....................:لبخند::لبخند::لب� �ند:


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