تبلیغات در اینترنتclose
کدهای و ترفند های مفید برنامه نویسی - 2
::: در حال بارگیری لطفا صبر کنید :::

نام کاربری :   پسورد :



تابلو اعلانات

◘ نتایج مسابقات انتخاب مدیر برای انجمن ویدئو لرن ◘


«12
karim_orooji آفلاین



ارسال‌ها: 344
عضویت: 31 /4 /1393
شناسه یاهو:
تشکر ها: 200
تشکر شده: 439
کدهای و ترفند های مفید برنامه نویسی
RE : 26
سلام این کد پورت USB شما رو قفل میکنه

کد:

Microsoft.Win32.Registry.SetValue(@"HKEY_LOCAL_MAC HINE\SYSTEM\CurrentControlSet\Services\USBSTOR", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord);


و اینم پورت رو باز میکنه

کد:
Microsoft.Win32.Registry.SetValue(@"HKEY_LOCAL_MAC HINE\SYSTEM\CurrentControlSet\Services\USBSTOR", "Start", 3, Microsoft.Win32.RegistryValueKind.DWord);


جمعه 08 آبان 1394 - 21:13
وب کاربر ارسال پیام نقل قول تشکر / موافقم / آفرین گزارش
1 کاربر از karim_orooji به خاطر این مطلب مفید تشکر کرده اند : admin ,
karim_orooji آفلاین



ارسال‌ها: 344
عضویت: 31 /4 /1393
شناسه یاهو:
تشکر ها: 200
تشکر شده: 439
کدهای و ترفند های مفید برنامه نویسی
RE : 27
سلام ، این یک مثال هست که به ترتبب نشون می ده

1- چطوری اسامی باکس های فرم رو بدست بیاریم

2- چطور مقدارشونو بخونیم

3- چطور محتویات اون تکست باکس ها رو پاک کنیم
کد:
For Each ctrl As Control In Controls
If TypeOf ctrl Is TextBox Then
MessageBox.Show(ctrl.Name.ToString())
MessageBox.Show(ctrl.Text) CType(ctrl, TextBox).Text = String.Empty
End If
Next ctrl
End Sub

پنجشنبه 21 آبان 1394 - 17:25
وب کاربر ارسال پیام نقل قول تشکر / موافقم / آفرین گزارش
1 کاربر از karim_orooji به خاطر این مطلب مفید تشکر کرده اند : admin ,
karim_orooji آفلاین



ارسال‌ها: 344
عضویت: 31 /4 /1393
شناسه یاهو:
تشکر ها: 200
تشکر شده: 439
کدهای و ترفند های مفید برنامه نویسی
RE : 28
سلام به همه دوستان عزیز .

بزارید توی From_Load ببینید چی میشه !!!!!!!!




کد:

Dim g As New Drawing2D.GraphicsPath
'------------------------
Dim Rect As RectangleF
With Rect
.Height = 100
.Width = 150
.X = 100
.Y = 100
End With
'---------------------
g.AddRectangle(Rect)
Me.Region = New System.Drawing.Region(g)

پنجشنبه 05 آذر 1394 - 00:03
وب کاربر ارسال پیام نقل قول تشکر / موافقم / آفرین گزارش
karim_orooji آفلاین



ارسال‌ها: 344
عضویت: 31 /4 /1393
شناسه یاهو:
تشکر ها: 200
تشکر شده: 439
کدهای و ترفند های مفید برنامه نویسی
RE : 29
ســــــــــــــــلام .
اینم یه کد واسه خاموش کردن سیستم بعد از 1 دقیقه .



کد:
System.Diagnostics.Process.Start("shutdown.exe", " -s -t 60")
خب اگه خاستید عملیات خاموش شدن رو متوقف کنید Command Prompt رو باز کنید و کد زیر رو وارد کنید :
کد:
shutdown -a





شنبه 12 دی 1394 - 23:49
وب کاربر ارسال پیام نقل قول تشکر / موافقم / آفرین گزارش
mr_prestige آفلاین



ارسال‌ها: 128
عضویت: 13 /11 /1393
تشکر ها: 48
تشکر شده: 278
کدهای و ترفند های مفید برنامه نویسی
RE : 30
سلام خدمت دوستان عزیز و گلم عذر میخوام اگه تو این مدت فعالیتم بشدت افت کرده . سربازی و هزاران دردسر مخصوص بخودش . خب بگذریم امشب می خوام چند تا ریز کد های بدرد بخور براتون بزارم


1- بدست آوردن نام کاربر جاری ، نام کامپیوتر و ...


کد:
string pcName = Environment.MachineName; string currentUser = Environment.UserName;
string system32 = Environment.SystemDirectory;
string osVersion =Convert.ToString( Environment.OSVersion); string domain = Environment.UserDomainName; int cpuCount = Environment.ProcessorCount; textBox1.Text = pcName; textBox2.Text = currentUser; textBox3.Text = system32; textBox4.Text = osVersion; textBox5.Text = domain; textBox6.Text = cpuCount.ToString();

پنجشنبه 08 بهمن 1394 - 18:47
ارسال پیام نقل قول تشکر / موافقم / آفرین گزارش
2 کاربر از mr_prestige به خاطر این مطلب مفید تشکر کرده اند : admin , karim_orooji ,
mr_prestige آفلاین



ارسال‌ها: 128
عضویت: 13 /11 /1393
تشکر ها: 48
تشکر شده: 278
کدهای و ترفند های مفید برنامه نویسی
RE : 31
2- پاک کردن یک پردازش از حافظه :
در اینجا به عنوان مثال میخوام پروسس Internet Explorer قطع بشه



کد:
Process[] ps = Process.GetProcesses(); foreach (Process p in ps) { if (p.ProcessName.ToLower() == "iexplore") { p.Kill(); } }

پنجشنبه 08 بهمن 1394 - 19:02
ارسال پیام نقل قول تشکر / موافقم / آفرین گزارش
2 کاربر از mr_prestige به خاطر این مطلب مفید تشکر کرده اند : karim_orooji , admin ,
mr_prestige آفلاین



ارسال‌ها: 128
عضویت: 13 /11 /1393
تشکر ها: 48
تشکر شده: 278
کدهای و ترفند های مفید برنامه نویسی
RE : 32
تغییر زبان پیش فرض ویندوز بصورت داینامیک :


کد:

class Class1 { public static void SetLanguage2Farsi() { InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(new CultureInfo("fa-IR")); } public static void SetLanguage2English() { InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(new CultureInfo("en-US"));
} }

پنجشنبه 08 بهمن 1394 - 19:12
ارسال پیام نقل قول تشکر / موافقم / آفرین گزارش
2 کاربر از mr_prestige به خاطر این مطلب مفید تشکر کرده اند : karim_orooji , admin ,
mr_prestige آفلاین



ارسال‌ها: 128
عضویت: 13 /11 /1393
تشکر ها: 48
تشکر شده: 278
کدهای و ترفند های مفید برنامه نویسی
RE : 33
و آخین مطلبم هم بگم ، اونم اینه که چطوری یه کلاس رو مهر و موم کنیم ، سادس کافیه بعد از اعلان کلاس و بعد از Access Modifier از کلمه کلیدی Sealed استفاده کنید


کد:
public sealed class MyClass{}

پنجشنبه 08 بهمن 1394 - 19:17
ارسال پیام نقل قول تشکر / موافقم / آفرین گزارش
2 کاربر از mr_prestige به خاطر این مطلب مفید تشکر کرده اند : karim_orooji , admin ,
karim_orooji آفلاین



ارسال‌ها: 344
عضویت: 31 /4 /1393
شناسه یاهو:
تشکر ها: 200
تشکر شده: 439
کدهای و ترفند های مفید برنامه نویسی
RE : 34
چند تا کد به درد بخور برای دوستان گذاشتم خیلی کار راه اندازن امیدورام به درتون بخوره




فراخوانی پوشه ها از یک مسیر خاص
کد:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

Button1.Click

Dim p As Array = IO.Directory.GetFiles("F:\")

For Each item In p

ListBox1.Items.Add(Mid(item, 4))

Next

End Sub






تعریف تقویم فارسی برای برنامه

Public Function tarikh() As String
کد:



Dim d As Date = Date.Now

Dim t As New Globalization.PersianCalendar

tarikh = t.GetYear(d) & "/" & t.GetMonth(d) & "/" & t.GetDayOfMonth(d)



End Function



فیلتر کردن بانک اطلاعاتی از طریق تکست

کد:

Private Sub TextBox4_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

BankBindingSource.Filter = "sp like'" & TextBox4.Text & "%'"


End Sub







جمع یک رکورد در بانک اطلاعاتی


کد:
BankBindingSource.MoveFirst()


For i = 0 To BankBindingSource.Count - 1


b1 += BankBindingSource.Current("g1")


BankBindingSource.MoveNext()


Next







محدود کردن تکست به عدد
کد:


Private Sub TextBox5_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress

If e.KeyChar = Chr(8) Then

Exit Sub

End If

If IsNumeric(e.KeyChar) = False Then

e.KeyChar = ""

End If

End Sub







روش جستجو در بانک اطلاعاتی از طریق تکست


کد:
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

BankBindingSource.Position = BankBindingSource.Find("sp", TextBox1.Text)

End Sub











استفاده از دکمه اینتر بجای تب
کد:
If e.KeyChar = Chr(13) Then

e.Handled = True

SendKeys.Send("{TAB}")

End If





پیدا کردن درایو فلش جدید
کد:
Dim u As String

u = My.Computer.FileSystem.GetDriveInfo("p").DriveType

If u = "2" Then

MessageBox.Show("ok")

End If







خاموش کردن کامپیوتر


کد:
System.Diagnostics.Process.Start("Shutdown.exe", "-r -t 20 ")






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

کد:
Dim w As Integer

Dim t As Integer

Dim down As Boolean

Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown

down = True

w = e.Y

t = e.X

End Sub

Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove

If down = True Then

Me.Top += e.Y - w

Me.Left += e.X - t

End If

End Sub

Private Sub Button1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp

down = False

End Sub








فارسی کردن زبان نگارش برنامه
کد:


Dim z As New Globalization.CultureInfo("fa-ir")

InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(z)








چک کردن اتصال اینترنت
کد:


If My.Computer.Network.IsAvailable = True Then

MessageBox.Show("ok")

Else

MessageBox.Show("er")

End If







مقیاس موس

کد:
Me.Text = e.X & "---" & e.Y


'



قرار دادن اطلاعات در کمبو باکس


کد:


ComboBox1.Items.Clear()

Me.OleDbDataAdapter1.Fill(Data1)

Me.KharidBindingSource.MoveFirst()

For i = 0 To Me.KharidBindingSource.Count - 1

ComboBox1.Items.Add(Me.KharidBindingSource.Current ("nam"))

Me.KharidBindingSource.MoveNext()

Next i





جستجو در پایگاه داده
کد:


KharidBindingSource.Position = Me.KharidBindingSource.Find("id", TextBox2.Text)

TextBox4.Text = KharidBindingSource.Current("nam")







پرینت فرم
کد:


PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview

PrintForm1.Print()







محدود کردن تکست به عدد یا شماره
کد:


If Char.IsNumber(e.KeyChar) = False Then

e.KeyChar = System.Convert.ToChar(0)

End If







دریافت اطلاعات از بانک اطلاعاتی
کد:
Data1.Clear()

OleDbDataAdapter1.Fill(Data1)

End Sub





رفته به اولیه سطر

کد:
Me.KharidBindingSource.MoveFirst()




رفته به آخر یه سطر

کد:
Me.KharidBindingSource.MoveLast()




رفته به سطر قبلی

کد:
Me.KharidBindingSource.MovePrevious()




رفته به سطر بعدی

کد:
Me.KharidBindingSource.MoveNext()




ذخیره اطلاعات در بانک

کد:
Me.OleDbDataAdapter1.Update(Data1)




'پاک کردن اطلات موجود در دیتا گرید


کد:
Data1.Clear()
محاسبه تعداد سطرهای ذخیره شده
کد:


Me.OleDbDataAdapter1.Fill(Data1)

TextBox2.Text = Me.KharidBindingSource.Count





'قرار دادن اطلاعات در کمبو باکس
کد:
ComboBox1.Items.Clear()

Me.OleDbDataAdapter1.Fill(Data1)

Me.KharidBindingSource.MoveFirst()

For i = 0 To Me.KharidBindingSource.Count - 1

ComboBox1.Items.Add(Me.KharidBindingSource.Current ("nam"))

Me.KharidBindingSource.MoveNext()

Next i







'جمع ارقام یک ستون
کد:
Dim s As Integer

Me.KharidBindingSource.MoveFirst()

For i = 0 To Me.KharidBindingSource.Count - 1

TextBox5.Text = Me.KharidBindingSource.Current("nam")

s = TextBox5.Text + s

Me.KharidBindingSource.MoveNext()

Next

TextBox5.Text = s







روش جستجو در لیست باکس
کد:
ListBox1.SelectedIndex = (1)

For i = 2 To ListBox1.Items.Count - 1

ListBox2.SelectedIndex = (1)

For j = 2 To ListBox2.Items.Count - 1

ListBox3.SelectedIndex = ListBox3.FindString(TextBox1.Text)

If ListBox3.SelectedItem = True Then

Exit Sub

End If
ListBox2.SelectedIndex = j

Next

ListBox1.SelectedIndex = i

Next



MsgBox("no")







روش جمع یک ستون در دیتا گرید

کد:
Dim s As Integer = 0



For i = 0 To DataGridView1.RowCount - 1

s += DataGridView1.Item(1, i).Value

Next

TextBox1.Text = s







تغییر نام کلیه کنترلهای روی صفحه

کد:
For Each m In Controls

If m.tag = "1" Then میتوانیم از قابلیت تگ و نام گذاری آن جهت متمایز کردن کنترلها استفاده کنیم

m.text = ""

End If

Next







تولیدات اعداد رندوم یا تصادفی



کد:
me.TEXT = Rnd() * 2500000
چهارشنبه 10 آذر 1395 - 21:09
وب کاربر ارسال پیام نقل قول تشکر / موافقم / آفرین گزارش
«12


تازه سازي پاسخ ها



برای ارسال پاسخ ابتدا باید لوگین یا ثبت نام کنید.



تاپیک های مرتبط
موضوع تاریخ تعداد پاسخ آخرین ارسال بازدید
[Post_Title] [Post_Date] [Post_Answer] [Post_Last_User] [Post_Hit]
پرش :
صفحه اصلی | انجمن | ورود | عضویت | خوراک | نقشه | تماس با ما | طراح