سلام دوستان
این هم یه نمونه برنامه واسه ساختن فایل AutoRun
.
Printable View
سلام دوستان
این هم یه نمونه برنامه واسه ساختن فایل AutoRun
.
سلام
فکر میکنم که عنوان تایپیک گویا باشه و نیازی به توضیح نداشته باشه.........
با دقت ( یک میلیونم ثانیه )
.
سلام دوستان
این هم یه برنامه واسه کار با فایل های TXT,RTF,DOC .......یه برنامه پایه واسه نوشتن واژه پرداز هستش....
موفق باشین
.
سلام دوستان
این برنامه یه TEXT رو در System Tray قرار میده......فکر میکنم نیاز به توضیح نداشته باشه
.
سلام دوستان
این هم یه نمونه برنامه واسه دانلود فایل از اینترت ..........
.
سلام دوستان
این هم یه نمونه برنامه هستش که کارش خالی کردن RecycleBin هستش
.
سلام دوستان
این هم یه نمونه برنامه دیگر واسه دانلود فایل.....تاکید می کنم که از قبلی که گذاشتم پیشرفته تر است...........
.
سلام دوستان
این هم یه نمونه برنامه هستش که دارای یه بانکه که اطلاعات درون اون با یه تاریخ مشخص ذخیره شده......این برنامه امکان انتخاب دو تاریخ مختلف رو میده تا DataGridView مورد نظر رو طبق اون تاریخ ها فیلتر کنه.....البته امکان نوشتن نتیجه در یک فایل XML هم هست....
موفق باشین
.
سلام دوستان
این هم یه نمونه برنامه واسه ON و یا Off کردن Firewall ویندوز
.
سلام دوستان
توسط این نمونه برنامه یاد می گیرین که چطوری برای فرم های خودتون تم بسازین....
.
سلام دوستان
توسط این نمونه برنامه می تونین خصوصیات فایل رو مثل آدرس اون و ReadOnly بودن و ...... رو نمایش بدین و یا تنظیم کنید
.
سلام دوستان
این هم یه نمونه برنامه فوق العاده عالی و البته نیمه حرفه ای واسه نمایش کارکرد CPU و حافظه به صورت نموداری...کاری مشابه خود ویندوز
شک نکنید که باید Down کنید
.
سلام دوستان
این هم یه نمونه برنامه واسه رسم نمودار های حرفه به صورت Sinus و یا Bar
برو حالشو ببر........
.
چک کردن کد ملی با استاندارد ثبت احوال
https://barnamenevis.org/showthread.php?t=247714
http://www.barnamenevis.org/sh...17&postcount=4نقل قول:
نوشته شده توسط oliya24
سلام !
تمامی دستورات تابع Environ (تابع ای که آمار سیستم میزبان رو میگیره)!
https://barnamenevis.org/showthread.p...ردبخور)
به کمک این برنامه هم میتونید تشخیص بدید که یک عدد اول هست یا نه و هم این که اعداد اول بین یک بازه رو به همراه تعدادشون بدست بیارین
به امید اینکه دوباره این پست مثل قبل فعال بشه
سلام خدمت عزیزان با این سورس میتونید بعد از دادن زمان مشخص کامپیوتر رو به حالت خواب ببرید
http://s2.picofile.com/file/7125681505/SleepTimer.jpg
دانلود
این هم یک سورس شاخ و حرفه ای که بوسیله این برنامه میتونید هرچقد دکمه که دوست دارید بر روی تایتل بار فرمتون ایجاد کنید این برنامه به کمک توابع API نوشته شده
http://s2.picofile.com/file/71239664...0_17_1576_.jpg
دانلود
با این سورس میتونید یک پوشه رو به برنامه بدید و میزان زمان نمایش یک عکس رو تایین کنید و سپس تنطیم رو کلیک کنید تا صفحه دستکاپ بطور خودکار عکسش رو عوض کنه سپس برروی مخفی کلیک کنید تا برنامه مزاحم شما نشه
http://s2.picofile.com/file/71208829...perChanger.jpg
دانلود
سلام خدمت عزیزان ...
مدت پانزده سال با 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
تغییر مکان کنترل ها در زمان اجرا با درگ کردن با موس
با سلام خدمت دوستان عزیز ...
این برنامه ای رو که اینجا برای دوستان قرار میدم ، برای یکی از دانشجویان نوشتم ....
واسه همین هم این برنامه رو اینجا گذاشتم که دوستان زیادی به دنبال این برنامه هستن و میتونه نکات آموزشی خوبی رو در بر داشته باشه...سوالی بود در خدمتم..
لینک دانلود :
http://www.up.98ia.com/images/cjrnovdha46eic7p75y1.rar
دوستان اگه براتون مفید بود فقط دکمه تشکر رو فشار بدین...
موفق باشین
برنامه ریختن تاس که میشه تو بازیهایی که با تاس انجام میشه استفاده کرد
خودم نوشتم
سلام به همه گی
سرس خارج نشدن فرم از صفحه مانیتور
این کد رو توی رویداد "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
کنترل فرم با استفاده از خاصیت های "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
تابعي براي جمع كردن دو ماتريس
#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
تابعي براي تفريق كردن دو ماتريس
#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
و اينم برا ضرب اش
#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
سلام
با تیکه کد زیر میشه از انتقال اطلاعات به درایو 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
اینم یه برنامه جالب و آموزنده که کار ذره بین ویندوز رو شبیه سازی می کنه
منبع سرس برنامه هم سایت کدپروژه هست
خودم ساختمش توپه توپه میره اون گوشه ی دسکتاپ کاری هم با کسی نداره می تونید خیلی از کارای جالبی که فکرش رو هم نمی کردید انجام بدید
امکانات کلیدی نرم افزار:
١_ ارسال ایمیل ساده و هم ایمیل با کد html برای ارسال ایمیل های تبلیغاتی زیبا
٢_ مخفی کردن فایل در عکس یعنی وقتی عکس را باز می کنید تصویر دلخاهتان نمایش میدهد و وقتی با winrar باز کنید فایل هایتان را نمایش می دهد
٣_ قفل یا غیر فعال کردن موس و کیبورد برای زمان معین شده برای جلوگیری از خرابکاری هایی که بچه ها وقتی سراغ کامپیوتر می آیند
٤_ یک عکس یا متن موس را دنبال کند برای سرگرمی هر عکسی که دوست داشته باشید با اندازه ای که به آن می دهید موس را دنبال می کند متن هم همینطور
٥_ ساختن آموزش هر کلیکی که با موس می کنید عکسی از صفحه می گیرد و در یک پوشه ذخیره می کند
٦_ ذخیره ی اسکرین شات هایی که میگیرید و متن هایی که کپی میکنید
٧_ ضبط حرکات موس و کلید فشرده شده ی موس و اجرای مجدد آن
٨_ نشان دادن اطلاعات کامپیوتر در اسرع وقت
٩_ تغییر رمز ویندوز بدون دانستن رمز قبلی
١٠_ زندانی کردن موس در یک مربع (مدت حبس بر حسب ثانیه)
١١_ پر کردن حا فظه ی یک درایو بدون حتی باقی ماندن یک بایت خالی
١٢_ گذاشتن یک نرم افزار در محیط قفل ویندوز که در آن محیط با فشردن ٥ بار کلید شیفت می توانید آن را باز کنید
١٣_ متن صفحه ی خوش آمد گویی قبل از وارد کردن پسورد ویندوز (خیلی باحاله بیننده رو شوکه می کنه)
١٤_ ذخیره ی سریع یک متن در یک فایل با پسوند دلخواه برای امنیت بالا
اینم لینکش
http://uploadboy.com/unu9gcsquppu.html
با سلام و خسته نباشید خدمت دوستان.
امیدوارم که خوب باشید.
ممنون بخاطر این تاپیک خوب و مفید.
بنده برنامه ای ساختم که حالت Notepad رو داره اما با امکانات برنامه Word البته به صورت مختصر.
توش به جای TextBox از RichTextBox استفاده کردم که قابلیت های بیشتری نسبت به TextBox داشته باشه. به عنوان مثال عکس میشه گذاشت که به شخصه برام مفیده این خاصیت.
ایده در کل این بود که حالت Notepad داشته باشه با امکانات حدودی Word.
البته برنامه نسخه 1 داشت، که خیلی خیلی ضعیف بود. توی نسخه 2 یعنی این نسخه سعی کردم خیلی بهترش کنم و ارتقاش بدم. نسخه 3 برنامه رو هم خواهم داد.
این عکس برنامه:
http://s3.picofile.com/file/8230251900/Notepad_Pro.png
این فایل نصب:
http://s6.picofile.com/file/82302578...d_Pro.rar.html
و این هم سورس کد:
http://s3.picofile.com/file/82302579...ource.rar.html
__________________________________________________ __________
امیدوارم که به استفادتون بیاد و باگی هم نداشته باشه:لبخند:
اگر مشکلی داشت یا پیشنهادی واسه بهتر کردنش داشتید خوش حال میشم بهم بگید اینم ایملم: Sosha.m.1996@gmail.com
این هم یک سورس کد و برنامه که کارش معدل گیری نمرات دانشگاهه.
نمره هر درس رو ضربدر واحد درس می کنه و اعداد به دست اومده هر تکست باکس رو جمع می کنه و تقسیم بر واحد کل می کنه.
برنامه سبکیه اما همه جوره فیکسش کردم که اگه کسی خواست استفادش کنه، واقعا خیالش راحت باشه.
عکس برنامه: این فایل نصب:
http://s7.picofile.com/file/82342741...Setup.rar.html
و این هم سورس کد:
http://s6.picofile.com/file/82342740...oadel.rar.html
ساده ترین روش کد زیرنقل قول:
نوشته شده توسط sari-1369
TextBox2.Text = String.Format("{0:yyyy/MM/dd}", Convert.ToDateTime(TextBox1.Text))
بجای تکس باکس 1 منبع تاریخ خودتان را وارد کنید
نقل قول:
نوشته شده توسط Netsky
سلام دوست من ای کاش قولی که داده بودید عملی می کردید واقعا مفیده