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

[Netsky]

با سلام به همه کاربران گرامی سایت برنامه نویس .
با توجه به این که بنده تاپیکی جامع در مورد سورس کدهای VB.NET ندیدم ، تصمیم گرفتم تا یک تاپیک در این رابطه راه اندازی کنم و از این به بعد نمونه کدهای کاربردی رو در اینجا قرار بدیم .
با کمک و یاری دوستان انشاالله تاپیک پر محتوایی خواهد شد .
دوستان عزیز ، برای جلوگیری از هرج و مرج و بهم ریختگی تاپیک از شما عزیزان درخواست میکنم که به نکات زیر توجه کنید :
1- از سوال کردن در این تاپیک خودداری کنید . سوالات خود را در تاپیک جداگانه مطرح کنید . در صورتی هم که در مورد یک سورس کد سوالی دارید از فرد ارسال کننده سوال خود به صورت پیام خصوصی بپرسید .
2- از پرداختن به بحث های حاشیه ای و مشاجره لفظی با دیگر کاربران اکیدا خودداری کنید .
3- از قرار دادن فایل اجرایی ( Exe ) بدون سورس کد امتنا کنید .
4- برای تشکر کردن از سورس کدهای دیگران نیز از دکمه تشکر استفاده کنید و پست بیهوده ارسال نکنید .

5- سورس کدهای خود را در فضایی که سایت به شما ارائه میدهد آپلود کنید و در صورتی که فایل شما حجیم تر از فضای ارائه شده است ، فایل خود را در مکانی دیگر آپلود و سپس لینک را در سایت قرار دهید . از درخواست ایمیل کاربران برای فرستادن سورس کد که باعث بوجود آمدن پست های بیهوده (حاوی آدرس ایمیل ها) میشود خودداری کنید .

6- در هر پست یک سورس ارسال کنید و از قرار دادن دسته جمعی سورس کدها در یک پست که باعث سردرگم شدن کاربر میشود خودداری کنید .


در پایان از همه دست اندرکاران سایت برنامه نویس و کاربران فهیم و گرامی کمال تشکر را دارم.
امید ما ، سورس کدهای خوب و مفید شما .........
با تشکر ...........

[Netsky]

سلام .
اولین برنامه رو هم خودم میزارم . با این برنامه میتونید آیکون درایوهاتون رو عوض کنید .

[Netsky]

سلام به همگی .
اینم برنامه بعدی که واستون میزام . آموزش کامل انجام کارهای گرافیکی در vb.net
20 تابع در مورد کارهای گرافیکی در این برنامه بررسی شدن .

[Netsky]

سلام .
بابا دمتون گرم . اینقدر همکاری میکنید یهو خسته شنید . بابا یه کدی ، یه چیزی بزارین .
خب ، در هر صورت برنامه بعدی که واستون نوشتم رو معرفی میکنم .
با این برنامه میتونید اطلاعات مفید هر درایو رو بگیرید . مثل :
1- فضای کلی
2- فضای خالی
3- فضای استفاده شده
4- نوع درایو
5- فرمت درایو
امیدوارم خوشتون بیاد .
بای بای ...................

[armin8651]

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


http://img3.tinypic.info/files/you5qnoxa03u1zcmv4ir.png

[Netsky]

سلام .
یه برنامه دیگه واستون نوشتم . با این برنامه میتونید اطلاعات دمربوط به یک فایل رو استخراج کنید :
1- آدرس کامل فایل
2- ساعت ساخته شدن فایل
3- تاریخ ساخته شدن فایل
4- پسوند فایل
5- زمان آخرین دسترسی به فایل
6- زمان آخرین ویرایش فایل
7- اندازه فایل
امیدوارم خوشتون بیاد .
بای بای ..............

[Netsky]

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

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



Dim g As New Drawing2D.GraphicsPath
g.AddEllipse(10, 10, 200, 200)
Me.Region = New System.Drawing.Region(g)

[Netsky]

سلام به همه دوستان .
بابا خیلی با مرامین . این همه استاد و دریغ از یک سورس کد . البته باید از armin8651 تشکر کنم که حداقل یه سورس گذاشت .
خب حالا بگذریم . کد بعدی که میزارم میتونه واستون یه متن رو به صورت Vertical ( عمودی ) روی فرم چاپ کنه . امیدوارم خوشتون بیاد :



Dim formgraphic As System.Drawing.Graphics = Me.CreateGraphics
Dim drawstring As String = "N e t s k y"
Dim drawfont As New Font("Tahoma", 25)
Dim drawbrush As New SolidBrush(Color.Blue)
Dim x As Single = 150.0
Dim y As Single = 50.0
Dim drawformat As New StringFormat
drawformat.FormatFlags = StringFormatFlags.DirectionVertical
formgraphic.DrawString(drawstring, drawfont, drawbrush, x, y, drawformat)
drawfont.Dispose()
drawbrush.Dispose()
formgraphic.Dispose()

[armin8651]

خواهش میکنم Netsky
اینم یک برنامه که عکس اسکن شده از اسکنر رو مستقیم میاره تو یک پیکچر باکس.


http://img3.tinypic.info/files/0valflxt3yaf9nrmjbxo.png

[Netsky]

سلام .
اینم یه برنامه باحال دیگه واسه دوستای خودم .
با این برنامه میتونید درایوهای USB کامپیوترتون رو پیدا کنید .
امیدوارم خوشتون بیاد .

[Netsky]

سلام .

اساتید گرامی ، لطفا در پربار شدن این تاپیک کمک کنید .

بابا از بس که گفتم زبونم مو در آورد .

خب از این بحث ها بگذریم و بریم سراغ کد بعدی . کار این کد اینه که عکس مورد نظرتون رو Rotate ( چرخش ) میکنه .

اگه خواستید زاویه رو هم تغییر بدید توی اعدادی که داخل کد هست ، دست ببرید .



Dim Graphic As Graphics
Graphic = Me.CreateGraphics
'---------------------------
Dim DestPoint As Point() = {New Point(100, 0), New Point(260, 50), New Point(100, 200)}
'DestPoint = Destination Point
'----------------------------
'Adrese Aks Mored Nazare Khodetoon Ro Be Jaye ("c:\Your_Image.jpg") Bezarid .
Dim NewImage As Image = Image.FromFile("C:\Your_Image.jpg")
'-------------------------------------------------
Graphic.DrawImage(NewImage, DestPoint)

[Netsky]

سلام .
یه سورس کد دیگه واستون دارم . اینو از سایت Code Project (http://www.codeproject.com) دانلود کردم . خیلی باحاله . میتونید به عکس هاتون افکت های بسیار زیبای انیمیشنی بدید . اگه دانلود نکنید ضرر کردید .

[ricky22]

سلام منم می خوام تو این تاپیک فعالیت کنم


با این کد میشه سری اطلاعات رو یه جای خاص از رجیستری ذخیره کنید که مثلا برای ثبت تنظیمات کاربر میتونید مورد استفاده قرار بدید

ذخیره اطلاعات


SaveSetting(My.Application.Info.AssemblyName, "Appearance", "Font", FontName)
SaveSetting(My.Application.Info.AssemblyName, "Appearance", "Color", ColorName)

بازیابی اطلاعات


FontName=GetSetting(My.Application.Info.AssemblyNa me, "Appearance", "Font","")
ColorName=GetSetting(My.Application.Info.AssemblyN ame, "Appearance", "Color","")

HKEY_CURRENT_USER\Software\VB and VBA Program Settings محل ذخیره سازی اطلاعات

[ricky22]

سلام دوباره




با این کد می تونید یک فایل رو در شبکه با استفاده از وینسوک ارسال کنید.


Public Sub SendData(ByVal sFile As String, ByVal sSaveAs As String, ByVal tcpSend As Winsock)
On Error GoTo ErrHandler
Dim sSend As String, sBuf As String
Dim ifreefile As Integer
Dim lRead As Long, lLen As Long, lThisRead As Long, lLastRead As Long
Dim strData As String
tcpSend.GetData(strData)
ifreefile = FreeFile

' Open file for binary access:
Open sFile For Binary Access Read As #ifreefile
lLen = LOF(ifreefile)

' Loop through the file, loading it up in chunks of 64k:
Do While lRead < lLen
lThisRead = 65536
If lThisRead + lRead > lLen Then
lThisRead = lLen - lRead
End If
If Not lThisRead = lLastRead Then
sBuf = Space$(lThisRead)
End If
Get #ifreefile, , sBuf
lRead = lRead + lThisRead
sSend = sSend & sBuf
sBuf = Space$(0)
Loop
lTotal = lLen
Close(ifreefile)
bSendingFile = True
'// Send the file notification
tcpSend.SendData("FILE" & sSaveAs)
DoEvents()
'// Send the file
tcpServer.SendData(sSend)
DoEvents()
'// Finished
tcpSend.SendData("FILEEND")
bSendingFile = False
MMControl1.FileName = "FileDone.wav"
MMControl1.Command = "Open"
MMControl1.Command = "Play"
Exit Sub
ErrHandler:
MsgBox "Err " & Err & " : " & Error
End Sub

Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Dim ifreefile

' DoEvents
tcpServer.GetData(strData)
If Right$(strData, 7) = "FILEEND" Then
bFileArriving = False
lblProgress = "Saving File to " & App.Path & "\" & sFile
sArriving = sArriving & Left$(strData, Len(strData) - 7)
ifreefile = FreeFile
MMControl1.FileName = "File.wav"
MMControl1.Command = "Open"
MMControl1.Command = "Play"
Open sFile For Binary Access Write As #ifreefile
Put #ifreefile, 1, sArriving
Close #ifreefile
ShellExecute 0, vbNullString, App.Path & "\" & sFile,
vbNullString, vbNullString, vbNormalFocus
lblProgress = "Complete"
ElseIf Left$(strData, 4) = "FILE" Then
bFileArriving = True
sFile = Right$(strData, Len(strData) - 4)
ElseIf bFileArriving Then
lblProgress = "Receiving " & bytesTotal & " bytes for " & sFile & ""
>from " & tcpServer.RemoteHostIP
sArriving = sArriving & strData
MMControl1.FileName = "FileDone.wav"
MMControl1.Command = "Open"
MMControl1.Command = "Play"
End If
End Sub

[ricky22]

انجام اعمال متداول در رجیستری






Imports Microsoft.Win32


Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
' // Create SubKey
Registry.LocalMachine.CreateSubKey("Software\Sinpin", RegistryKeyPermissionCheck.ReadWriteSubTree)

'//Create Key and Set Value
Dim reg As RegistryKey = Registry.LocalMachine.OpenSubKey("Software\Sinpin", True)
reg.SetValue("DWord", "1", RegistryValueKind.DWord)
reg.SetValue("ExpandString", "1", RegistryValueKind.ExpandString)
reg.SetValue("QWord", "1", RegistryValueKind.QWord)
reg.SetValue("String", "1", RegistryValueKind.String)
reg.SetValue("Unknown", "1", RegistryValueKind.Unknown)

'// Delete Key
reg.DeleteValue("DWOrd")

'// Delete SubKey
Registry.LocalMachine.DeleteSubKey("Software\Sinpin")

'// Read Key Value
Dim val As String = reg.GetValue("QWord").ToString()

'// Retrieve All Keys
For Each s As String In reg.GetValueNames()
MessageBox.Show(s)
Next

End Sub

[ricky22]

اجرا کردن یک فایل اجرایی با کدنویسی



System.Diagnostics.Process.Start("mspaint.exe")



چنانچه فایل اجرایی نیاز به آرگومان خط فرمان داشته باشد:



System.Diagnostics.Process.Start("mspaint.exe", "c:\Test.bmp")






تغییر خواص یک فایل




Imports System.IO


Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim file As FileInfo = New FileInfo("C:\test.txt")
file.Attributes = file.Attributes Or FileAttributes.ReadOnly Or FileAttributes.Hidden
End Sub
End Class

[ricky22]

سلام چاپ متنی بر روی عکس


Dim bim AsNew Bitmap(PictureBox1.Image)
Dim g As Graphics = Graphics.FromImage(bim)
PictureBox1.CreateGraphics.DrawString(TextBox1.Tex t, Me.Font, Brushes.Black, 10, 10)
g.DrawString(TextBox1.Text, Me.Font, Brushes.Black, 10, 10)
bim.Save("e:\test.jpg")

[Netsky]

سلام به همگی .
یک کد فوق العاده دیگه واستون آماده کردم . :کف:
با این کد میتونید انتقال هرگونه اطلاعات به USB درایوها غیر ممکن کنید . :کف::متفکر:
البته نگران نباشید . کد واسه غیرفعال کردنش رو هم گذاشتم .

خب ، اول کد واسه فعال سازی :



Public Function Lock_USB()
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contro l\StorageDevicePolicies\", "writeProtect", 1, Microsoft.Win32.RegistryValueKind.DWord)
End Function




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



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


امیدوارم حالشو ببرید ...............

[bashiry]

سلام به همگی .
یک کد فوق العاده دیگه واستون آماده کردم . :کف:
با این کد میتونید انتقال هرگونه اطلاعات به USB درایوها غیر ممکن کنید . :کف::متفکر:
البته نگران نباشید . کد واسه غیرفعال کردنش رو هم گذاشتم .

خب ، اول کد واسه فعال سازی :



Public Function Lock_USB()
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contro l\StorageDevicePolicies\", "writeProtect", 1, Microsoft.Win32.RegistryValueKind.DWord)
End Function




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



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


امیدوارم حالشو ببرید ...............





مبحث داره میره توی ترفند های رجیستری

این تغییر تو رجیستری خوبه.
ولی وقتی فلش برای بار اول به سیستم وصل میشه جواب نمیده.

[Netsky]

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

[Netsky]

سلام به همه برنامه نویسای عزیز .

بازم اومدم با چندتا کد دیگه تا بتونم کمکی هرچند ناچیز کرده باشم .

خب بریم سراغ کدها :
1- اولی واسه بدست آوردن درایو ویندوز هستش :



Public Function Windows_Drive()
MsgBox(My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Volatile Environment", "HOMEDRIVE", 0), MsgBoxStyle.Information, "Windows Drive")
End Function



2- کد دوم واسه بدست آوردن مسیر فولدر Application Data :




Public Function AppData_Path()
MsgBox(My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Volatile Environment", "APPDATA", 0), MsgBoxStyle.Information, "Application Data Folder")
End Function


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




Public Function UserFolder_Path()
Dim win_drv As String
win_drv = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Volatile Environment", "HOMEDRIVE", 0)
MsgBox(win_drv + My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Volatile Environment", "HOMEPATH", 0), MsgBoxStyle.Information, "User Folder")
End Function

امیدوارم استفاده کنید ...........

[Netsky]

سلام به همه .
تاسوعای حسینی رو خدمت همه شما دوستان تسلیت عرض می کنم .
یه کد دیگه واستون آماده کردم . خیلی از برنامه نویسا واسه اینکه تاریخ شمسی رو در برنامشون ایجاد کنند از کامپوننت های مختلف و زیادی استفاده میکنن ، در صورتی که در خود VB.Net میتونید خیلی راحت تاریخ میلادی رو به شمسی تبدیل کنید . بوسیله کد زیر میتونید این کار رو انجام بدید .



Public Function Shamsi_Date() As String
Dim DT As Date = Date.Now
Dim Year, Month, Day As String
Dim Glob As New Globalization.PersianCalendar
Year = Glob.GetYear(DT)
Month = Glob.GetMonth(DT)
Day = Glob.GetDayOfMonth(DT)
Shamsi_Date = Year & "\" & Month & "\" & Day
MsgBox(Shamsi_Date)
End Function


امیدوارم استفاده کنید .......................

[Netsky]

سلام به همه دوستان برنامه نویس .
یه کد دیگه واستون نوشتم . با این کد میتونید برنامه رو با 5 بار اجرا از کار بندازید .
نکته : این کد رو باید در رویداد Form_Load کپی کنید .



Dim verify
verify = GetSetting(Application.CompanyName, "ST", "ST")
If verify = "" Then
SaveSetting(Application.CompanyName, "ST", "ST", 5)
Else
If verify <= 0 Then
MsgBox("The Beta Period is Over!!!", MsgBoxStyle.Critical, "Beta Period")
End
End If
verify = Val(verify) - 1
SaveSetting(Application.CompanyName, "ST", "ST", verify)
End If


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

[maminb]

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



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

نظرتون چیه؟

[Netsky]

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

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

[maminb]

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

موافقم. خیلی خوب میشه. پس منتظریم!!!

[Netsky]

سلام به همه دوستان عزیز .
عاشورای حسینی رو به تمامی هموطنان عزیز تسلیت عرض میکنم .
یه کد دیگه واستون آماده کردم .
با استفاده از این کد میتونید خیلی راحت صفحه Welcome Screen ویندوز رو تغییر بدید . فقط کافیه آدرس عکس رو بدید .



Public Function Change_WelcomeScreen()
'Change Welcome Screen.
'Note : You Must Select Bitmap (BMP Format) File.
My.Computer.Registry.SetValue("HKEY_USERS\.DEFAULT\Control Panel\Desktop\", "Wallpaper", "C:\Your_Image.bmp")
End Function



امیدوارم از این کد استفاده لازم رو ببرید .

[Netsky]

Hi To All .
انگلیسی نوشتم که تنوع باشه .
خب با یه کد دیگه در خدمت شما هستیم . این کد میتونه سرویس پک ویندوز رو واستون پیدا کنه .



Public Function ServicePack()
MsgBox(My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS NT\CURRENTVERSION", "CSDVersion", 0))
End Function

[Netsky]

سلام سلام سلام . امیدوارم حالتون خوب باشه .
یه کد باحال دیگه نوشتم که تقدیم میکنم . با این کد میتونید اطلاعات مربوط به CPU رو استخراج کنید .
اطلاعاتی از قبیل :
1- نام شرکت سازنده
2- مدل و قدرت CPU
3- نام CPU



Public Function GetInfo_CPU()
Dim VendorIdentifier, Identifier, ProcessorName As String
VendorIdentifier = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\Cen tralProcessor\0", "VendorIdentifier", 0)
Identifier = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\Cen tralProcessor\0", "Identifier", 0)
ProcessorName = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\Cen tralProcessor\0", "ProcessorNameString", 0)
MsgBox("Vendor : " & VendorIdentifier & vbCrLf & _
"Model : " & Identifier & vbCrLf & _
"Processor Name : " & Trim(ProcessorName))
End Function

[Netsky]

HI To You
یک کد دیگه نوشتم تا بتونید باهاش مدل Hard Disk رو در بیارید .



Public Function HardDisk_Model()
MsgBox(My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\Scsi\Scsi Port 0\Scsi Bus 0\Target Id 0\Logical Unit Id 0", "Identifier", 0), MsgBoxStyle.Information, "Hard Disk Model")
End Function

[Netsky]

خب . یک کد دیگه نوشتم که باهاش میتونید Task Manager رو غیر فعال کنید .
کد واسه غیر فعال کردن :



Public Function Disable_TakManager()
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\System", "DisableTaskMgr", 1, Microsoft.Win32.RegistryValueKind.DWord)
End Function


این کد هم واسه فعال کردنه :



Public Function Enable_TaskManager()
My.Computer.Registry.CurrentUser.DeleteSubKey("Software\Microsoft\Windows\CurrentVersion\Policies \System")
End Function

[shask00l]

یه کرونو متر ساده با استفاده از کلاس datetime , timespan ... برای مبتدی ها چیز خوبیه :چشمک:

[Netsky]

ciao
یکم از این تایپک برنامه VB توی بخش ویژوال بیسیک یاد بگیرید . چقدر کاربرای فعالی داره !!!!
بخش VB.Net هم که چی بگم ..............
خب گذشته از این حرفا بریم سراغ کد بعدی .
با این کد یه سری اطلاعات کلی رو در مورد بایوس بگیرید .
اطلاعاتی از قبیل :
1- ورژن بایوس
2- شماره ساخت
3- Caption
4- کد شناسه
5- کارخانه سازنده
6- نام بایوس
7- شماره سریال
نکته : ابتدا باید رفرنس System.Managment رو اضافه کنید .



Public Function GetInfo_BIOS()
Dim Bios_ID As String
Dim BiosClass As New Management.ManagementClass("Win32_BIOS")
Dim Bioss As Management.ManagementObjectCollection = BiosClass.GetInstances()
Dim BiossEnumerator As _
Management.ManagementObjectCollection.ManagementOb jectEnumerator = _
Bioss.GetEnumerator()
Bios_ID = "1"
While BiossEnumerator.MoveNext()
Dim Bios As Management.ManagementObject = _
CType(BiossEnumerator.Current, Management.ManagementObject)
' Bios_ID = Bios("BiosCharacteristics")

Bios_ID = Join(Bios("BIOSVersion"))
Bios_ID &= Bios("BuildNumber")
Bios_ID &= Bios("Caption")
Bios_ID &= Bios("IdentificationCode")
Bios_ID &= Bios("Manufacturer")
Bios_ID &= Bios("Name")
Bios_ID &= Bios("SerialNumber")

End While
MessageBox.Show(Bios_ID, "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End Function

[Netsky]

سلامی گرم در این فصل سرد .

امیدوارم حال خودتون و CPU تون خوب باشه .

راستی گفتم CPU ، خب امروز هم یک سری کد باحال در مورد CPU دارم .

خب کد اول :

این کد معماری پردازنده رو برمیگردونه .

مثلا x86 - MIPS - Alpha - Intel Itanuim Processor - PowePC - x64 :

نکته : باید رفرنس System.Management رو اضافه کنید .

البته همه شما که استادید ولی یه توضیح در مورد اضافه کردن رفرنس ها میدم ( شاید یکی تازه کار باشه ).

خب شما اگه بخاید یه رفرنس رو اضافه کنید باید در محیط ویژوال استدیو اینطوری عمل کنید :

به منوی Project برید و گزینه Add Reference رو بزنید . حالا در کادری که واستون باز میشه میتونید رفرنس دلخواه خودتون رو اضافه کنید. از داخل لیست گزینه System.Management رو اضافه کنید .

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


خب کد زیر هم منتظر شماست .



Dim Architecture As String
Dim mgmt As Management.ManagementClass = New Management.ManagementClass("Win32_Processor")
Dim objcol As Management.ManagementObjectCollection = mgmt.GetInstances()
For Each obj As Management.ManagementObject In objcol
If Architecture = String.Empty Then
Architecture = obj.Properties("Architecture").Value.ToString
End If
Next
Select Case Architecture
Case "0"
MsgBox("x86")
Case "1"
MsgBox("MIPS")
Case "2"
MsgBox("Alpha")
Case "3"
MsgBox("PowerPC")
Case "6"
MsgBox("Intel Itanuim Processor Family")
Case "9"
MsgBox("x64")
End Select

[Netsky]

کد دوم :
بوسیله کد زیر میتونید بفهمید سیستمی که برنامه داره روش اجرا میشه چند بیتی هستش . 32 یا 64 .



Dim AdrsWidth As String
Dim mgmt As Management.ManagementClass = New Management.ManagementClass("Win32_Processor")
Dim objcol As Management.ManagementObjectCollection = mgmt.GetInstances()
For Each obj As Management.ManagementObject In objcol
If AdrsWidth = String.Empty Then
AdrsWidth = obj.Properties("AddressWidth").Value.ToString
End If
Next
Select Case AdrsWidth
Case "32"
MsgBox("32-Bit")
Case "64"
MsgBox("64-Bit")
End Select

[Netsky]

سومین کد :

خب با این کد هم میتونید وضعیت CPU رو بدست بیارید .

وضعیت های CPU عبارتند از :

1- Unknow : شناخته نشده .

2- CPU Enabled : سی پی یو فعال است .

3- CPU Disabled By User Via BIOS Setup : سی پی یو بوسیله کاربر از طریق بایوس غیر فعال شده است .

4- CPU Disabled By BIOS (POST Error) : سی پی یو بوسیله بایوس غیر فعال شده است ( خطای روال POST ) .

5- CPU Is Idle : سی پی یو در حالت بیکاری است .

6- Reserved : رزرو شده .

7- Other : دیگر حالات



Dim CPUStatus As String
Dim mgmt As Management.ManagementClass = New Management.ManagementClass("Win32_Processor")
Dim objcol As Management.ManagementObjectCollection = mgmt.GetInstances()
For Each obj As Management.ManagementObject In objcol
If CPUStatus = String.Empty Then
CPUStatus = obj.Properties("CPUStatus").Value.ToString
End If
Next
Select Case CPUStatus
Case "0"
MsgBox("Unknow")
Case "1"
MsgBox("CPU Enabled")
Case "2"
MsgBox("CPU Disabled by User via BIOS Setup")
Case "3"
MsgBox("CPU Disabled by BIOS (POST Error)")
Case "4"
MsgBox("CPU Is Idle")
Case "5"
MsgBox("Reserved")
Case "6"
MsgBox("Reserved")
Case "7"
MsgBox("Other")
End Select

[Netsky]

سلامی به گرمی وجودتان .

خب دوستان عزیز چندتا کد دیگه دارم در رابطه با سخت افزار و این بار HARD DISK !!!

حدودا یه 10 تایی کد هست که در 10 پست تقدیمتون میشه .

خب ، بوسیله کد اول میتونید بفهمید که نحوه اتصال هارددیسک از چه نوعیه .



Dim HDD_Connection As String
Dim mgmt As Management.ManagementClass = New Management.ManagementClass("Win32_DiskDrive")
Dim objcol As Management.ManagementObjectCollection = mgmt.GetInstances()
For Each obj As Management.ManagementObject In objcol
If HDD_Connection = String.Empty Then
HDD_Connection = obj.Properties("InterfaceType").Value.ToString
End If
Next
MsgBox(HDD_Connection, MsgBoxStyle.Information, "Hard Disk Connection")

[Netsky]

کد دوم :

این کد هم بهتون کمک میکنه تا متوجه بشید که هارد سیستمتون از چه نوعیه .
ثابت یا قابل حمل .


Dim HDD_Type As String
Dim mgmt As Management.ManagementClass = New Management.ManagementClass("Win32_DiskDrive")
Dim objcol As Management.ManagementObjectCollection = mgmt.GetInstances()
For Each obj As Management.ManagementObject In objcol
If HDD_Type = String.Empty Then
HDD_Type = obj.Properties("MediaType").Value.ToString
End If
Next
MsgBox(HDD_Type, MsgBoxStyle.Information, "Hard Disk Type")

[Netsky]

کد سوم :

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



Dim HDD_Partitions As String
Dim mgmt As Management.ManagementClass = New Management.ManagementClass("Win32_DiskDrive")
Dim objcol As Management.ManagementObjectCollection = mgmt.GetInstances()
For Each obj As Management.ManagementObject In objcol
If HDD_Partitions = String.Empty Then
HDD_Partitions = obj.Properties("Partitions").Value.ToString
End If
Next
MsgBox(HDD_Partitions, MsgBoxStyle.Information, "Hard Disk Partitions Number")

[Netsky]

کد پنجم :

خب ، این کد میتونه خیلی بهتون کمک کنه . بدون هیچ گونه دردسری میتونید میزان فضای کلی هارددیسک رو محاسبه کنید .



Dim HDD_Size As String
Dim mgmt As Management.ManagementClass = New Management.ManagementClass("Win32_DiskDrive")
Dim objcol As Management.ManagementObjectCollection = mgmt.GetInstances()
For Each obj As Management.ManagementObject In objcol
If HDD_Size = String.Empty Then
HDD_Size = obj.Properties("Size").Value.ToString
End If
Next
MsgBox(Math.Round(HDD_Size / 1073741724) & " GB", MsgBoxStyle.Information, "Hard Disk Total Size")

[sari-1369]

تابعی برای تغییر زبان فعلی کیبورد :

Public Sub SetLanguage(ByVal LabgugeName As Labguage)
If Labguage.FA_Persian = LabgugeName Then
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New System.Globalization.CultureInfo("Fa"))
ElseIf Labguage.EN_English = LabgugeName Then
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New System.Globalization.CultureInfo("En"))
End If
End Sub
Public Enum Labguage
FA_Persian = 0
EN_English = 1
End Enum


روش استفاده :


SetLanguage(Labguage.FA_Persian)

[sari-1369]

تابعی برای اصلاح تاریخ های بدون صفر : مثلا تبدیل 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

[sari-1369]

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

Public Function resize(ByVal img As Image, ByVal w As Integer, ByVal h As Integer) As Image
Using bmp2 As New System.Drawing.Bitmap(img, New System.Drawing.Size(w, h))
bmp2.Save(My.Application.Info.DirectoryPath & "\Files\img.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
PictureBox1.Image = System.Drawing.Image.FromFile(My.Application.Info. DirectoryPath & "\Files\img.jpg")
Return System.Drawing.Image.FromFile(My.Application.Info. DirectoryPath & "\Files\img.jpg")
End Using
End Function

[sari-1369]

تغییر ساعت فعلی سیستم :

TimeOfDay = TimeSerial(10, 10, 10)

[sari-1369]

تغییر تاریخ فعلی سیستم :
Today = DateSerial(1990, 10, 22)

[Netsky]

سلام .
یه سورس کد توپ دیگه واسه دوستای خوب خودم آماده کردم که تقدیم میکنم .
کار این سورس خیلی جالبه . ساعت رو به صورت حروف فارسی واستون مینویسه . حتما دانلودش کنید .
عکس زیر گویای همه چیزه.

[ahmad.salimi]

سلام دوستان
تا حالا شده بخواهيد از API تو VB.Net استفاده كنيد.
كد زير يه نمونه براي اينكاره كه دايركتوري سيستم رو نشون ميده



Put this at the top of your module.
'Required in all cases when calling API functions
Imports System.Runtime.InteropServices

'Required in this example and any API function which
'use a string buffer. Provides the StringBuilder class

Imports System.Text

'Put these declarations right under the class declaration
'(e.g., in a Form, right under Public Class Form1)

<DllImport("KERNEL32.DLL", EntryPoint:="GetSystemDirectoryW", _
SetLastError:=True, CharSet:=CharSet.Unicode, _
ExactSpelling:=True, _
CallingConvention:=CallingConvention.StdCall)> _
Public Shared Function GetSystemDirectory(ByVal Buffer _
As StringBuilder, ByVal Size As Integer) As Long
' Leave function empty - DLLImport attribute
' forces calls to GetSystemDirectory to
' be forwarded to GetSystemDirectory in KERNEL32.DLL
End Function

Public Const MAX_PATH As Integer = 256



'How to call the API function:


Dim s As New StringBuilder(MAX_PATH)

GetSystemDirectory(s, MAX_PATH)
msgbox(s.ToString(), , "System Directory")

[Netsky]

سلام به همه دوستان عزیز .
بازم با یه برنامه باحال دیگه در خدمتتون هستم .
یه ساعت بسیار زیبا که اگه در برنامتون ازش استفاده کنید نظر همه رو جلب میکنه .
حتما حتما دانلودش کنید . دانلود نکردن = ضرر.

[bashiry]

حالا كه پاي ساعت وسط كشيده شد منم يه ساعت عقربه اي خوشكل ميزارم:
يكي از امكانات جالبي كه داره ميتونيد اسم خودتون يا شركت رو روي ساعت بندازين
البته بايد توي كامپوننت ها گذاشته ميشد ولي به دليل ارتباطش با مبحث فعلي همينجا قراردادم.

[Netsky]

سلام به همه دوستان عزیز .
یه بار دیگه با یه برنامه باحال دیگه در خدمت شما هستم .
این برنامه یه جور ابزار کمکی به حساب میاد برای مواقعی که غیر قابل پیشبینی هستند . مثل موقعی که یه ویروس وارد کامپیوتر شما میشه و ریجستری - تسک منیجر و فولدر آپشن رو به درک واصل میکنه .
خب با این برنامه میتونید همه چی رو به حالت عادی برگردونید . البته اگه هم خودتون خواستید میتونید همون سه مورد بالا رو دوباره غیر فعال کنید .
حتما دانلودش کنید و مطمئن باشید روزی به دردتون میخوره .
راستی داشت یادم میرفت . شما عزیزان باید هر دو فایل رو دانلود کنید . چون ادامه همدیگه هستند و واسه Extract کامل به هردو نیاز هستش.
اینم یه اسکرین شات از برنامه :

[Netsky]

سلام سلام سلام . حالتون خوبه ؟ انشالله که خوب نباشه ، بلکه عالی باشه .
یه برنامه باحال دیگه واستون آماده کردم . یه ساعت زنگی با رابط کاربری ساده ولی بسیار زیبا . ازقابلیت های دیگه این ساعت زنگی اینکه شما میتونید با انتخاب یه فایل موسیقی از نوع wav اون رو به عنوان زنگ هشدار انتخاب کنید . یه چندتا قابلیت دیگه هم به اون اضافه کردم . مثلا نگه داشتن آخرین زمان تعیین شده توسط شما برای زمان هشدار و یا نگه داشتن مسیر فایل موسیقی که انتخاب کردید . از داخل سورس کد این برنامه چیزای خیلی خوبی دستگیرتون میشه .
اینم یه اسکرین شات از برنامه :

[sari-1369]

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

Public Function Farda(ByVal Tarikh_shoro As String) As String
Dim PerDate As New System.Globalization.PersianCalendar
Dim Tarikh, Roz, Mah, Sal As String
Dim a = Split(Tarikh_shoro, "/")
Roz = a(2)
Mah = a(1)
Sal = a(0)
If Mah > 0 And Mah < 7 Then
If Roz > 1 And Roz < 31 Then
Roz = Roz + 1
ElseIf Roz = 31 Then
Roz = 1
Mah = Mah + 1
End If
ElseIf Mah > 6 And Mah < 12 Then
If Roz > 0 And Roz < 30 Then
Roz = Roz + 1
ElseIf Roz = 30 Then
Roz = 1
Mah = Mah + 1
End If
ElseIf Mah = 12 Then
Dim R As Integer = 29
If PerDate.IsLeapYear(Sal) Then
R = 30
End If
If Roz > 0 And Roz < R Then
Roz = Roz + 1
Else
Roz = 1
Mah = 1
Sal = Sal + 1
End If
End If

If Roz.Length < 2 Then
Roz = "0" + Roz
End If

If Mah.Length < 2 Then
Mah = "0" + Mah
End If
Tarikh = Sal + "/" + Mah + "/" + Roz
Return Tarikh
End Function

[bashiry]

تابع چک سرویس پک 2 بودن ویندوز:



Public Shared Function ServicePack2Installed() As Boolean
Dim flag As Boolean = False
Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion")
If (Not key Is Nothing) Then
Dim obj2 As Object = key.GetValue("CSDVersion")
If (Not obj2 Is Nothing) Then
flag = obj2.Equals("Service Pack 2")
End If
End If
Return flag
End Function



عملکرد تابع خیلی سادست. در مسیر رجیستری که میبینید اطلاعات خیلی خوبی هست که یکیش همین مشخصات ویندوز هست. خیلی راحت با این تابع مقدار CSDVersion رو میخونید و چک می کنید که اگر Service Pack 2 بود تابع مقدار true برگردونه در غیر اینصورت مقدار Flase برگردونده بشه
اگه فرصت کردید به این مسیر در رجیستری سری بزنید میتونید تابع های دیگری رو راحت بنویسید . مثلا نام و ورژن ویندوز - مشخصات نصاب ویندوز - محل نصب ویندوز و ...



HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion

[Hossis]

:عصبانی++:
تابعی برای تغییر زبان فعلی کیبورد :

Public Sub SetLanguage(ByVal LabgugeName As Labguage)
If Labguage.FA_Persian = LabgugeName Then
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New System.Globalization.CultureInfo("Fa"))
ElseIf Labguage.EN_English = LabgugeName Then
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New System.Globalization.CultureInfo("En"))
End If
End Sub
Public Enum Labguage
FA_Persian = 0
EN_English = 1
End Enum
روش استفاده :


SetLanguage(Labguage.FA_Persian)
Language صحیح است!

[sari-1369]

:عصبانی++:
Language صحیح است!

اشتباه تایپی بود برادر :لبخند: این قدر موهاتو نکش .

[Netsky]

سلام ..............
یه برنامه دیگه واستون نوشتم که امیدوارم بدردتون بخوره که انشالله میخوره .
این برنامه یه برنامه واسه چرخوندن عکس هاست . البته خیلی متفاوت تر از Rotator خود ویندوز که فقط 4 حالت بیشتر عکس ها رو نمیچرخونه . این برنامه 16 حالت عکس ها رو میچرخونه .
روش کار برنامه هم به اینصورته :
1 – از منوی فایل گزینه Open رو انتخاب و عکس مورد نظرتون رو باز کنید .
2- از قسمت Degree یک حالت رو انتخاب کنید .
3- واسه Save کردن عکس هم اول باید از قسمت Save Format یک گزینه رو انتخاب کنید و سپس دکمه Save رو از منوی File بزنید . مسیر ذخیره شدن فایل عکس هم درایو C هستش .
اگه دانلود نکنید مطمئن مطمئن باشید که ضرر کردید .
راستی اگه خوشتون اومد یه تشکر هم بکنید . البته این آیتم دلخواه شماست .
نکته : دوستان سی شارپ کار هم میتونن از اینجا (http://barnamenevis.org/forum/showpost.php?p=887356&postcount=408) دانلود کننن .
قربون همه شما دوستای عزیز .

[Netsky]

سلام به همگی .
یه چندتایی کد دیگه نوشتم که میدونم واقعا کاربردیه . امیدوارم که حداکثر استفاده رو از این کدها ببرید .

قبل از اینکه بریم سراغ کدها این NameSpace رو باید در برنامتون Import کنید .
بنابر این در قسمت General کد زیر رو بنویسید :



Imports System.Media


خب ، حالا بریم سراغ کدها :

کد شماره 1 : با این کد میتونید خیلی راحت یه فایل موزیک از نوع .WAV رو در برنامتون اجرا کنید .



Public Function Sound_Player()
' Play Your Sound File (Extension .WAV)
Dim SUND_PLY As SoundPlayer = New SoundPlayer("C:\Your_File.wav")
SUND_PLY.Play()
End Function


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



Public Function Sound_Stop()
' Stop Played Sound.
Dim SUND_PLY As SoundPlayer = New SoundPlayer
SUND_PLY.Stop()
End Function


کد شماره 3 : بعضی مواقع پیش میاد که بخایم یه موزیک رو تکرار کنیم . یه چیزی مثل خاصیت Repeat در برنامه Media Player . کد زیر این کار رو واستون انجام میده :



Public Function Sound_Play_Looping()
' Play Your Sound File , Looping Status.
Dim SUND_PLY As SoundPlayer = New SoundPlayer("C:\Your_File.wav")
SUND_PLY.PlayLooping()
End Function


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



Public Function Sound_Play_Sync()
' Play Your Sound File Before Form Load.
Dim SUND_PLY As SoundPlayer = New SoundPlayer("C:\Your_File.wav")
SUND_PLY.PlaySync()
End Function


دوستان عزیز فقط به یک نکته توجه کنید ، به جای این آدرس C:\Your_File.wav ، آدرس فایل خودتون رو جایگزین کنید .

[Netsky]

سلام عرض میکنم خدمت همه دوستان عزیز.
این بار واستون یه کلاس نوشتم . بوسیله ی این کلاس میتونید محاسبه کنید که مثلا 2 قرن ، چند دهه ، سال ، ماه ، هفته ، روز ، ساعت ، دقیقه و ثانیه است . شما میتونید تا 999 تریلیارد قرن رو محاسبه کنید . روش استفاده هم به این صورته :



Dim CC As New Century
CC.Century_Calculations(100)

شما میتونید به جای 100 تا 999 تریلیارد رو محاسبه کنید .

[ahmad.salimi]

سلام دوستان
من دنبال يه كدي هستم كه درقالب يه كلاس يا Dll باشه و بتونه كليه كارهاي بانك اطلاعاتي رو مثل درج،ويرايش،حذف و واكشي اطلاعات رو انجام بده مثلانامSTORE PROCEDURE رو با پارامترها بگيره و اونو EXECUTE كنه البته من قبلا تو VB6 اين كارو در قالب يه كلاس انجام دادم

[ebrahimv]

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

روز بعد


Dim Md AsDate = Now.Date.Add(New System.TimeSpan(1, 0, 0, 0))


روز قبل


Dim Md AsDate = Now.Date.Add(New System.TimeSpan(-1, 0, 0, 0))

دو روز بعد


Dim Md AsDate = Now.Date.Add(New System.TimeSpan(2, 0, 0, 0))

4 روز قبل


Dim Md AsDate = Now.Date.Add(New System.TimeSpan(-4, 0, 0, 0))

[ebrahimv]

تغيير زبان به فارسي يا هر زبان ديگري كه دلتان خواست


InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New System.Globalization.CultureInfo("Fa"))

[sari-1369]

تغییر زبان به فارسی یا هر زبان دیگری که دلتان خواست


InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New System.Globalization.CultureInfo("Fa"))

سلام دوست عزیز ، این کد تکراریه ، توی همین تایپیک اومده .

[oggiii]

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

[saadi2]

http://upload1.ircome.com/free2/1272529052.jpg

[handvbnet]

سلام . یک برنامه آنتی ویروس با vb.net واقعا عالیه برای شروع نوشتن یک آنتی ویروس .. چون حجمش زیاد بود یه جا دیگه Uploadesh کردم .. ببخشید دیگه

Download Update.rar for free on uploading.com (http://uploading.com/files/2bm71cm1/Update.rar/)

[ebrahimv]

سلام
این کلاسی که برای دوستان آپلود کردم مناسبت های تاریخ شمسی و قمری و میلادی را نمایش میدهد در کل یه تقویم هست
برای تمام سال ها جواب میده مگر این که مناسبت های جدیدی اضافه بشه
درسته که نوشتنش وقت زیادی گرفت اما قابل شما دوستان عزیز را ندارد
حالا نحوه استفاده
اول این کلاس را دانلود کرده و به پرژه خود اضافه کنید
بعد یه نمونه از کلاس ایجاد کرده و به ترتیب زیر استفاهده کنید


Dim urgs AsNew Urge
Dim clf AsBoolean = False
Label1.Text = String.Empty
'مناسبت تاريخ قمري
If urgs.UrgeGamari <> "-1"Then
Label1.Text = urgs.UrgeGamari
clf = True
EndIf
Dim gModel = urgs.GetModel
'مناسبت تاريخ شمسي
If urgs.UrgeShamsi <> "-1"Then
If clf = TrueThen
Label1.Text &= vbCrLf & urgs.UrgeShamsi
Else
Label1.Text = urgs.UrgeShamsi
clf = True
EndIf
EndIf
Dim SModel = urgs.GetModel
'مناسبت تاريخ قمري
If urgs.UrgeMiladi <> "-1"Then
If clf = TrueThen
Label1.Text &= vbCrLf & urgs.UrgeMiladi
Else
Label1.Text = urgs.UrgeMiladi
EndIf
EndIf
'آن روز تعطيل هست
If urgs.GetHaliDay = TrueThen
Label1.ForeColor = Color.Red
EndIf
'روز غم هست يا نه
If gModel = 2 Or SModel = 2 Then
'روز شادي
ElseIf gModel = 1 Or SModel = 1 Then
'روز غم
EndIf

راستی این تاپیک به نظر خیلی خوب شده

[handvbnet]

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

[H2K]

Private Sub myTabControl_DragOver(ByVal sender As Object, ByVal e As _
System.Windows.Forms.DragEventArgs) Handles myTabControl.DragOver
Dim myTabs As TabControl = sender

'Get the position of the mouse, relative to the tab control
Dim pt As Point = _
myTabs.PointToClient(New Point(e.X, e.Y))
Dim IndexOld As Integer = myTabs.SelectedIndex

' !!Call The function!!
Dim IndexNew As Integer = GetTabPageIndex(pt, myTabs)

'Check the previously selected index
'and the return index numbers for equality
If IndexNew <> IndexOld Then

'Changes the selected index of the Tab Control
myTabs.SelectedIndex = IndexNew
myTabs.Focus()

'The next lines center the mouse up on the tab
Dim tr As Rectangle = myTabs.GetTabRect(IndexNew)
Windows.Forms.Cursor.Position = myTabs.PointToScreen _
(New Point(tr.X + (tr.Width / 2), tr.Y + (tr.Height / 2)))
End If
End Sub

'////////////////////////////////////////////////////////
'''''''This function returns an index number for the tab
'''''''your mouse is over
'////////////////////////////////////////////////////////
Private Function GetTabPageIndex( _
ByVal p As Point, _
ByVal myTabs As TabControl) As Integer
Dim index As Integer = 0

'Check all the Tabs
For index = 0 To myTabs.TabCount - 1

'This gets the rectangle of the Tab
Dim TabRect As Rectangle = _
myTabs.GetTabRect(index)

'The checks if the mouse position
'is inside the Tab Rectangle
If TabRect.Contains(p.X, p.Y) Then
Return index
End If
Next
Return index
End Functio

Src (http://www.codersengine.com/tutorials-forum/forum-tutorials-forum.html?func=view&catid=10&id=55#55)

[saadi2]

Winamp 2.5

http://upload1.ircome.com/free2/1299586717.jpg

[saadi2]

Mp3 Info


http://upload1.ircome.com/free2/1321621986.jpg

[saadi2]

MyPaint


http://upload1.ircome.com/free2/1275882104.jpg

[saadi2]

MyComputer

http://upload1.ircome.com/free2/1324046944.jpg

[Netsky]

سلام به همه دوستان عزیز .
بعد از چند روز یه کد واستون نوشتم . اینو بزارید توی 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)

[Hossis]

سلام به همه دوستان عزیز .
بعد از چند روز یه کد واستون نوشتم . اینو بزارید توی From_Load ببینید چی میشه !!!!!!!!

خوب چی میشه؟؟؟
ببخشید من نمی تونم امتحانش کنم چون VS رو نصب ندارم؟؟

[Netsky]

خوب چی میشه؟؟؟
ببخشید من نمی تونم امتحانش کنم چون VS رو نصب ندارم؟؟
شکل فرم رو تغییر میده . :لبخند:

[Netsky]

ســــــــــــــــلام .
اینم یه کد واسه خاموش کردن سیستم بعد از 1 دقیقه .



System.Diagnostics.Process.Start("shutdown.exe", " -s -t 60")

خب اگه خاستید عملیات خاموش شدن رو متوقف کنید Command Prompt رو باز کنید و کد زیر رو وارد کنید :



shutdown -a

بای بای ........................

[jingiliboyz]

با تشکر و سپاس از شما آیا میشه از این کد ها در vs استفاده کرد یعنی دات نتی کردش یا نه

[ricky22]

با تشکر و سپاس از شما آیا میشه از این کد ها در vs استفاده کرد یعنی دات نتی کردش یا نه

یعنی چی؟
این کدا خب به زبان ویبی دات نت هست دیگه!

[fba1368]

:متفکر:سلام یه کد میخوام برای سرچ فایل ها در vb.net

[Netsky]

سلام .
به کد دیگه تقدیم دوستان عزیز میکنم .
بوسیله این کد میتونید با استفاده از PID یک پروسس نام اون پروسس رو بدست بیارید .



MsgBox(System.Diagnostics.Process.GetProcessById(4 000).ToString())

[Netsky]

نوشتن در یک فایل متنی هم با این کد انجام میشه .



Dim Writter As StreamWriter = File.AppendText("C:\Test1.txt")
With Writter
.WriteLine("I'm a Text File and Created By Your Program")
.Flush()
.Close()
End With

[EhsanAvr]

250 سورس vb.Net:
لینک مطلب (http://ehsanavr.com/?p=289)
لینک دانلود با حجم 14.5 مگابایت (http://ehsanavr.com/wp-content/plugins/download-monitor/download.php?id=Visual.Net-250-Source+Code.exe)

[iman_me]

سلام بچه ها من هم ميخوام تو اين تاپيك شركت كنم
ولي كد هاي اينجا رو داشتم مرور ميكردم كه ديدم كدهاي شما خيلي طولاني چرا ايقدر برنامه نويسي رو
پيچيده ميكنيد با كدهاي راحت تري ميتونيد كار كنيد

[Netsky]

سلام به همگی ..........
بازم با یه کد کاربردی در خدمت شما هستم . با استفاده از این کد میتونید نام فولدرهای داخل یه درایو ( و یا یک فولدر ) رو بدست بیارید .



Public Function Get_Folders(ByVal Folder_OR_Drive)
Dim strFolders As String
'----------------------------
Dim LSTBOX As New ListBox
LSTBOX.Size = New Size(400, 400)
Me.Controls.Add(LSTBOX)
'----------------------------
If Directory.Exists(Folder_OR_Drive) = False Then
MessageBox.Show("Invalid This Folder : " & Folder_OR_Drive, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else

For Each strFolders In System.IO.Directory.GetDirectories(Folder_OR_Drive )
LSTBOX.Items.Add(strFolders)
Next

End If

End Function

[Netsky]

ســــــــــــــلام .
خب ، یه کد دیگه نوشتم که تقدیم میکنم . با این کد میتونید یه Drive Box به صورت Runtime ( در زمان اجرا ) داشته باشید .



Public Function DriveBox_RunTime()
Dim Drive_Box As New ComboBox
Drive_Box.Size = New Size(100, 0)
Drive_Box.DropDownStyle = ComboBoxStyle.DropDownList
Me.Controls.Add(Drive_Box)
'================================================= ===
Dim Drives As DriveInfo
'-------------------------
For Each Drives In System.IO.DriveInfo.GetDrives()
Drive_Box.Items.Add(Drives.Name)
Next
End Function

[Netsky]

سلام .
با این کد میتونید فایل های داخل یه فولدر ( یا یک درایو ) رو بدست بیارید .



Public Function Get_Files(ByVal Folder As String)
Dim strFiles As String
'-----------------------
Dim LSTBOX As New ListBox
LSTBOX.Size = New Size(400, 400)
Me.Controls.Add(LSTBOX)
'-----------------------
If Directory.Exists(Folder) = False Then
MessageBox.Show("Invalid This Folder : " & Folder, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
For Each strFiles In System.IO.Directory.GetFiles(Folder)
LSTBOX.Items.Add(strFiles)
Next

End If
End Function

[sadegpour]

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

با تشکر

[Netsky]

بازم سلام .
خب این دفعه یه کد واقعا کاربردی واستون نوشتم که در بعضی مواقع واقعا به برنامه کمک زیادی میکنه ( به من که تابحال خیلی کمک کرده ).
در بعضی مواقع لازمه که کاربر رو از نوشتن هرچیزی به جز اعداد در TextBox منع کنیم . این کد به شما کمک میکنه که این کار رو انجام بدید . البته واسه کلید Backspace هم شرطی در نظر گرفته شده تا این کلید کار کنه . کد زیر رو در داخل رویداد KeyPress مربوط به تکست باکستون بنویسید :



If e.KeyChar = "8" Then
e.Handled = False
End If

Select Case e.KeyChar
Case "*"
e.Handled = True
Case "-"
e.Handled = True
Case "/"
e.Handled = True
Case "!"
e.Handled = True
Case "#"
e.Handled = True
Case "$"
e.Handled = True
Case "%"
e.Handled = True
Case "^"
e.Handled = True
Case "&"
e.Handled = True
Case "("
e.Handled = True
Case ")"
e.Handled = True
Case "+"
e.Handled = True
End Select

If (e.KeyChar >= "0") And (e.KeyChar <= "9") = False Then
e.Handled = True
End If

در کد بالا فقط نوشتن کاراکتر نقطه منع نشده ( به خاطر نوشتن اعشار ) که در صورت که صلاح دیدید میتونید کاراکتر نقطه رو هم به ساختار Select-Case ی که در کد هست اضافه کنید . برای اینکار میتونید کد زیر رو بعد از یکی از Case ها بنویسید :



Case "."
e.Handled = True

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

[Netsky]

خب اینم یه کد دیگه که کاربردش رو در ادامه میخونید .....
بعضی مواقع پیش میاد که بخایم از داخل یه فولدر ( یا درایو ) یه سری فایل با فرمت خاص ( مثلا exe یا jpg ) رو بدست بیاریم .
نیازی نیست زحمتی به خودتون بدید ، چون بنده کد آماده ش رو در اختیارتون قرار میدم . کد زیر رو ملاحظه بفرمایید :



Public Function Get_Files_Special_Extention(ByVal Folder As String)
Dim strFiles, Extention As String
Dim Case_Sens As Integer
'-----------------------
Dim LSTBOX As New ListBox
LSTBOX.Size = New Size(400, 400)
Me.Controls.Add(LSTBOX)
'-----------------------
If Directory.Exists(Folder) = False Then
MessageBox.Show("Invalid This Folder : " & Folder, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
For Each strFiles In System.IO.Directory.GetFiles(Folder)
Extention = Path.GetExtension(strFiles)

Case_Sens = String.Compare(Extention, ".EXE", True)
If Case_Sens = 0 Then
LSTBOX.Items.Add(strFiles)
End If

Next

End If
End Function

البته کد خیلی واضح نوشته شده ولی احیانا اگه دوست عزیزی چیزی رو از داخل کد متوجه نشد ، اصلا اشکالی نداره ، به صورت پیام خصوصی مشکلش رو باهام در میون بگذاره . من نوکرش هم هستم .......

[Netsky]

سلام به همه دوستان عزیز . امیدوارم حال خودتون و کامپیوترتون (مخصوصا برنامه ویژوال استدیو) خوب باشه !!!
خب یه کد دیگه واستون نوشتم که در ادامه تقدیم شما برنامه نویسای عزیز میشه .
ممکنه درحال نوشتن یه برنامه باشید و بخاید Process های ( پردازش ) که الان در سیستم درحال اجرا هستند رو بدست بیارید . بوسیله کد زیر میتونید خیلی راحت این کار رو انجام بدید . البته اضافه بر نام پروسس ها شماره پردازش شون ( PID ) رو میتونید ملاحظه کنید :



Public Function Get_Processes()
Dim LSTBOX As New ListBox
LSTBOX.Size = New Size(300, 380)
Me.Controls.Add(LSTBOX)
'========================
Dim Processes As System.Diagnostics.Process
For Each Processes In System.Diagnostics.Process.GetProcesses()
LSTBOX.Items.Add(Processes.ProcessName & " ( " & Processes.Id & " ) ")
LSTBOX.Items.Add("")
Next
End Function

[Netsky]

سلام .
روشی بسیار ساده واسه بدست آوردن درایوهای Removable ( فلش ها – مموری کارت گوشی ها و ... ) .



Public Function Get_Removable_Drive()
Dim RMDRV As String
Dim Drive As DriveInfo

For Each Drive In System.IO.DriveInfo.GetDrives()
RMDRV = Drive.DriveType.ToString()

If RMDRV = "Removable" Then
MessageBox.Show(Drive.Name, "Removable Drive")
End If
Next
End Function

[Sharif Lotfi]

با سلام . در چندين تاپيك ديدم كه دوستان نحوه ايجاد uninstall در ساخت setup با VB.NET رو پرسيدن . اينجا جواب رو كامل ميذارم كه در دسترس دوستان باشه :
در بخش ساخت setup در فولدر user's programs menu یا هر جای دیگه ای که می خواین یک shortcut جدید اضافه کنین با نام uninstall myProject (یا هر اسمی که دوست دارین)
فایلی که ازش shortcut می سازین همون primary output هست (همون فایل اجرایی که از مسیر application folder می ریم) همونطور که می بینین این دقیقا همون فایلی هستش که برای اجرای برنامه مون ازش استفاده می کنیم.
روی shortcut جدیدی که ساختین راست کلیک کنین و properties رو انتخاب کنین و این تغییرات رو بدین:
مقدار گزینه Arguments رو برابر کد:
/u=[ProductCode] بذارین
Name و توضیحات Description مربوط به uninstall رو به دلخواه خودتون تغییر بدین .

حالادر ماژول ()Main کد زیر رو بنویسین :


Dim arguments As String() = Environment.GetCommandLineArgs()
Dim myArgument As String()
Dim myString As String
For Each argument As String In arguments
Dim myChar As Char() = {"="c}
myArgument = argument.Split(myChar)
myString = myArgument(0)

If myString.ToLower() = "/u" Then
Dim guid As String = myArgument(1)

Dim path As String = Environment.GetFolderPath(Environment.SpecialFolde r.System)
Dim si As ProcessStartInfo
si = New ProcessStartInfo(path + "\\msiexec.exe", "/i " + guid)
Dim myProcess As Process
myProcess = Process.Start(si)
myProcess.Close()
Application.Exit()
End
End If
Next



اینم منبع :
http://www.codeproject.com/KB/install/DeployUninstall.aspx
موفق باشيد

[Hossis]

بازم سلام .
خب این دفعه یه کد واقعا کاربردی واستون نوشتم که در بعضی مواقع واقعا به برنامه کمک زیادی میکنه ( به من که تابحال خیلی کمک کرده ).
در بعضی مواقع لازمه که کاربر رو از نوشتن هرچیزی به جز اعداد در TextBox منع کنیم . ...... :لبخندساده:
به قول دوستمون لازم نیست این قدر پیچیده و طولانی کنیم
یک شرط می ذاریم اگه کاراکتر ورودی ، عدد نبود ، وارد نشود


if not isnumbric(e.KeyChar) and e.KeyChar <>"." then e.handled=true
و یا به این صورت


dim N as string="0123456789."
if instr(n,e.KeyChar )<=0 then e.handled=true

[Hossis]

این کد، متن خالص رو از میان کدهای اچ تی ام ال صفحات وب جدا می کند:


Function RemoveTags(HTML As String) As String
Dim buf As String, pos As Integer
pos = InStr(HTML, "<")
'check for no tags situation
If pos = 0 Then
RemoveTags = HTML
Exit Function
End If
Do
' Add text before the first tag to beffer
buf = buf & Left(HTML, pos - 1)
' Find end of tag
pos = InStr(HTML, ">")
' Remove everythin up to the
' end of the tag from text
If pos = 0 Then Exit Do
HTML = Mid(HTML, pos + 1)
' Find the start of the next tag
pos = InStr(HTML, "<")
If pos = 0 Then Exit Do
Loop While True
RemoveTags = buf
End Function

[Sharif Lotfi]

بعضي از دوستان در مورد خواندن داده ها از يك فايل Excel سوال كرده بودن.
با مثالي كه ضميمه كردم بدون استفاده از dll هاي آفيس مي توانيد :
داده ها را از اكسل بخوانيد (در اين مثال از شيت اول فايل C:\1.xls )
آنها را در يك DataGridView ببينيد
يك ستون مشخص (با عنوان 'نام مشترك') را مشخص كرده و تمام رديفهاي مربوطه را در يك آرايه بريزيد
محتواي ستون فوق را در يك ListBox ببينيد.
فرضيات فوق را براي كم حجم شدم و خوانا شدن برنامه انجام داده ام . شما به سليقه و ذوق خودتان مي توانيد فايل ، شيت و ستون دلخواه را انتخاب كنيد و يا بصورت ران تايم بعهده كاربر بگذاريد.
موفق و سبز باشيد

[sajjad etemadfar]

آقا خیلی ممنون دمت گرم حال کردم

[Sharif Lotfi]

آقا خیلی ممنون دمت گرم حال کردم

كليد تشكر باعث كم كردن زحمت شما در تايپ و بالا رفتن امتياز طرف مقابل مي شود
از اين كليد استفاده كنيد:چشمک:

[A.R.M.N]

خواهش میکنم Netsky
اینم یک برنامه که عکس اسکن شده از اسکنر رو مستقیم میاره تو یک پیکچر باکس.



http://img3.tinypic.info/files/0valflxt3yaf9nrmjbxo.png




دوست عزیز فکر کنم شما از کامپوننت خاصی استفاده کردید که نذاشتی. اگه می شه کمک کن.
واسم این قسمتو خطا میده:
Private WiaClass As WIALib.WiaClass

[armin8651]

دوست عزیز فکر کنم شما از کامپوننت خاصی استفاده کردید که نذاشتی. اگه می شه کمک کن.
واسم این قسمتو خطا میده:
Private WiaClass As WIALib.WiaClass


reference به نام microsoft windows image acquisition1.01 type library رو به پروژه خودت اضافه كن ، از این reference استفاده شده. جز refrence های com هستش.

[A.R.M.N]

reference به نام microsoft windows image acquisition1.01 type library رو به پروژه خودت اضافه كن ، از این reference استفاده شده. جز refrence های com هستش.

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

یک DLL هم توی سورس هست ولی اونم که ADD می کنم ارور میده.

راه دیگه ای برای اینکار نیست؟؟ من دقیقاً باید همین کارو که این پروژه می کنه توی پروژم انجام بدم.:ناراحت:

[Netsky]

سلامی دوباره عرض میکنم خدمت تمامی دوستان خوبم .
یک بار دیگه با یک برنامه دیگه در خدمت¬تون هستم . این یکی دیگه واقعا کاربردیه و در خیلی زمینه ها مثل امنیت برنامه هاتون به شما کمک میکنه . این برنامه به شما کمک میکنه که یکی متن رو رمزنگاری کنید . حالا این متن میتونه رمز عبور برنامه شما باشه که در یه جا ذخیره¬ش میکنید یا اطلاعات مهم دیگه¬ای از این قبیل .
در این برنامه از الگوریتم رمزنگاری کلید متقارن Rijendael استفاده شده که یک الگوریتم بسیار قدرتمند در زمینه رمزنگاریه .
خب حالا یک اسکرین شات از برنامه ببینید . از همین اسکرین شات میشه روش کار برنامه رو متوجه شد ، ولی من خودم هم یک توضیح میدم .


http://xs.to/image-97A3_4B83509E.gif

شما یک متن دارید که میخاید اون رو رمزنگاری کنید . متن مورد نظرتون رو در تکست باکس بالا بنویسید .
حالا یک کلمه یا عدد رو به عنوان کلید در تکست باکس وسط برنامه وارد کنید .
دکمه Encryption رو بزنید و میبینید که در تکست باکس پایین برنامه متن مورد نظر شما به صورت رمز شده ظاهر میشه .
یه نکته بسیار مهم : اگه متنی رو با این روش رمز کردید حتما کلمه ای که به عنوان کلید در برنامه وارد کردید رو یه جایی یادداشت کنید تا اگه خواستید متن رمز شده رو به حالت عادی برگردونید ( Decryption ) از کلید خودش استفاده کنید . در غیر اینصورت متن شما غیرقابل بازیابیه .
خب حالا فرض کنید خواستید متنی رو که یه روزی رمز کردید به حالت عادی برگردونید . متن رمز شده رو داخل تکست باکس پایین برنامه مینویسید و کلید رو هم در تکست باکس وسط برنامه . حالا دکمه Decryption رو بزنید و میبینید که متن شما در تکست باکس بالا نمایش داده خواهد شد .
امیدوارم که از این برنامه استفاده کافی رو ببرید .

چون فضای آپلود سایت یه چندکیلوبایتی کمتر بود مجبور شدم فایل رو دوتکه کنم . هردو فایل ادامه هم هستن . پس موقعی که خواستید اونا رو Extract کنید کنار هم بزاریدشون .

[A.R.M.N]

یه بازی ساده که شاید خوشتون بیاد!!

[A.R.M.N]

اگه کسی می خواد فایروال سیستم رو غیر فعال کنه می تونه از این استفاده کنه

[A.R.M.N]

اینم یه برنامه جالب که EN رو به عربی تبدیل می کنه:چشمک:

[A.R.M.N]

اینم یه موزیک پلیز زیبا که امیدوارم بدردتون بخوره!!:لبخندساده:

[A.R.M.N]

اینم یه پروژه فوق العاده که موزیک پلیر و MyComputer و IE همه با هم :متعجب: رو توی خودش داره!!!

پیشنهاد می کنم حتما دانلود کنید.:چشمک:

[A.R.M.N]

اینم یه برنامه جامع برای کسانی که دوست دارن با GDI+ یا مد گرافیک کار کنن.

[A.R.M.N]

برنامه کامل سیستم رزرواسیون هتل که حتما بدردتون می خوره!!:چشمک:

http://www.divshare.com/download/10564519-8a0

[Netsky]

سلام . آرزوی بهترین¬ها برای شما که بهترین هستید .
برنامه ¬ی دیگه ای نوشتم که تقدیم شما سروران عزیز میشه .
بوسیله این برنامه میتونید میزان استفاده از CPU یا همون CPU Usage و فضای قابل استفاده از حافظه اصلی سیستم ( RAM ) رو بدست بیارید . اطلاعاتی که در برنامه میبینید به صورت Dynamic هستش و هر 1 ثانیه آپدیت میشه .
اینم نمایی از برنامه :

http://xs.to/image-F9BA_4B84AE59.gif

امیدوارم مفید واقع بشه .

[A.R.M.N]

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

[Hossis]

یه بازی ساده که شاید خوشتون بیاد!!
شما هم تو اين هيري ويري با اين همه مشکلاتِ برنامه نويسي بازي گذاشتي:گیج:

اینم یه برنامه جالب که EN رو به عربی تبدیل می کنه:چشمک:
اين وسط چي به ما مي رسه؟؟ :متعجب:(يعني ما فارسي زبون ها)

اینم یه موزیک پلیز زیبا که امیدوارم بدردتون بخوره!!:لبخندساده:
MP3 هم پخش مي کنه يا نه؟؟:کف:

[karim orooji]

با سلام به دوستان گلم

اینم برنامه برای تغییر سایز عکس به دلخواه
البته با کمک دوست گلم آقایی amin_iman82

روش کار :
ابتدا با اجرا شدن برنامه یک پوشه با نام pic در Debug برنامه ایجاد کرده و پس از تغییر سایز اون رو در پوشه Debug\pic ذخیره میکنه

موفق باشید

resize pic.rar‏ (http://barnamenevis.org/forum/attachment.php?attachmentid=44633&d=1267041492)

[A.R.M.N]

شما هم تو اين هيري ويري با اين همه مشکلاتِ برنامه نويسي بازي گذاشتي:گیج:

اين وسط چي به ما مي رسه؟؟ :متعجب:(يعني ما فارسي زبون ها)

MP3 هم پخش مي کنه يا نه؟؟:کف:


دوست عزیز این برنامه ها اکثرا جنبه آموزشی داره!! اگه شما خدای VB هستی و اینا برات پیش پا افتاده هستن باش ولی من اینارو گذاشتم که شاید به درد کسی غیر از شما بخوره.

اون آخریم اگه DL میکردی میدیدی که MP3 هم پخش می کنه.

[A.R.M.N]

یه برنامه پردازش تصویر که پیشنهاد می کنم دانلود کنید!!! ZOOM - Rotate - Process...

[A.R.M.N]

یه برنامه که اطلاعات کاملی از درایو هاتون همراه با چارت نشون می ده .

[amin_iman82]

Radiobutton در DataGridview

http://barnamenevis.org/forum/attachment.php?attachmentid=44669&stc=1&d=1267086962
http://barnamenevis.org/forum/attachment.php?attachmentid=44670&stc=1&d=1267086962

[A.R.M.N]

Radiobutton در DataGridview

http://barnamenevis.org/forum/attachment.php?attachmentid=44669&stc=1&d=1267086962
http://barnamenevis.org/forum/attachment.php?attachmentid=44670&stc=1&d=1267086962



این لینک دانلودش کجاست؟؟

[Hossis]

اين کد هم ليست عددي رو بر اساس عدد مرتب مي کنه‌( د رحالت معمولي،‌ فقط براساس حروف مرتب شده و اعضاي ليست باکس به عنوان رشته فرض مي شوند نه عدد مثلا اين طور ميشه
1
10
12
2
20
22
30
....
ولي با اين کد اين طور
1
2
3
..
10
..
20
اين هم نمونه کد(در اين کد،‌ "Lst" يک ليست باکس هست)


Dim Nn AsNew List(OfInteger)

For k As Int32 = 0 To Lst.Items.Count - 1
Nn.Add(Lst.Items(k))
Next
Nn.Sort()
Lst.Items.Clear()
ForEach itm In Nn
Lst.Items.Add(itm)
Next

[morrning]

لطفا در مورد پایگاه داده هم سورس بگذارین !

[saranaseri]

با سلام و با تشکر از کدهای کاربردی بسیار خوب این تاپیک:
فایلهای چند صفحه ای که توسط دستگاه فکس دریافت می شوند، معمولا به صورت یک فایل چند صفحه ای tif ذخیره می شوند که برای جدا کردن هر کدام از این صفحات در یک فایل مجزا ، کد زیر قابل استفاده است:

PublicShared sub GetFramesFromFile(ByVal TmpPath AsString)
IfNot IO.File.Exists(TmpPath) Then
exit sub
EndIf
IfNot IO.File.Exists(TmpPath) Then
exit sub
EndIf
Dim myImg As Image
Dim TmpFullPath AsString
myImg = System.Drawing.Image.FromFile(TmpPath)
Dim intPages AsInteger = myImg.GetFrameCount(System.Drawing.Imaging.FrameDi mension.Page)
For i AsInteger = 0 To intPages - 1
myImg.SelectActiveFrame(System.Drawing.Imaging.Fra meDimension.Page, i)
TmpFullPath = System.IO.Path.GetTempFileName()
myImg.Save(TmpFullPath)

Next

End sub

[man1346]

از همه خيلي ممنونم

[saranaseri]

برنامه ای برای انتقال فایلهای یک مسیر به یک مسیر مقصد،
(این برنامه رو قبلا خودم از اینترنت دانلود کرده بودم ولی منبعش یادم نیست! :لبخندساده:)
امیدوارم قابل استفاده دوستان باشه.

[karim orooji]

با سلام به دوستان گلم
چند وقتی بود به دنبال برنامه بودم که بتونه برای اطلاعات یا همون پسورد برنامه به صورت یک رشته از کاربر دریافت کنه جوری تبدیلش کنه که قابل خواندن نباشه
زیاد به دنبال ابن برنامه گستم که به زبون C#‎ گیرش آوردم تبدلیش کردم
گفتم برنامه رو براتون بزارم شاید دوستان از برنامه واقعا مفید استفاده کنند



موفق باشید


dcode.rar‏ (http://barnamenevis.org/forum/attachment.php?attachmentid=44848&d=1267385354)

[karim orooji]

با سلام به دوستان گلم :بوس:
این برنامه زیبا درباره ساعت های عقربه ای که بسیار بسیار زیباست :کف:
واقعا اگر برنامه رو ببیندی به قول ما مشهدی ها طلبه اش مشی :گیج:
از همین سایت گیرش اوردم به زبون C#‎‎‎ بود با کمی دردسر 2 ساعت طول کشید تا تبدیلش کردم
حیفم اومد شما دوستان هم از این برنامه بهره نبرید
پس بادزن دکمه تشکر از ما قدردانی کنید:گیج:

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


http://barnamenevis.org/forum/attachment.php?attachmentid=44900&stc=1&d=1267475883
http://barnamenevis.org/forum/attachment.php?attachmentid=44902&stc=1&d=1267475883
http://barnamenevis.org/forum/attachment.php?attachmentid=44901&stc=1&d=1267475883

بدلیل سنگین بودن برنامه نتونستم توی این سایت آپلودش کنم
دوستان این برنامه رو 3 بار فشرده اش کردم
خارج کردن فایل با شما





لینک دانلود...... (http://www.2shared.com/file/11785158/53e21454/Clock_profetional.html)

موفق باشید.


راستی یک چیز دیگه ای برنامه رو من درست نکردم سو تفاهم برای بعضی از دوستان نشه
مال همین سایت البته به زبون C#‎

[amin_iman82]

فهمیدن اینکه برنامه با کاربر Administrator ویندوز اجرا شده یا نه؟



Public Function isAdministrator() As Boolean
If My.User.IsAuthenticated Then
If My.User.IsInRole("Administrators") Then
Return True
Exit Function
End If
End If
Return False
End Function
برای استفاده از تابع


MessageBox.Show(isAdministrator())

[amin_iman82]

تبدیل اعداد در مبناهای مختلف به یکدیگر

اگه کدهای من تکراری بود ببخشید ، وقت نکردم برم تمام صفحه هارو نگاه بندازم.



dim i as integer= 33;

dim binary as string = Convert.ToString(i, 2);
dim hex as string = Convert.ToString(i, 16);

dim binaryToInt as integer = Convert.ToInt32(binary, 2);
dim hexToInt as integer= Convert.ToInt32(hex, 16);

[amin_iman82]

بدست آوردن لیست جدولهای دیتابیس



'Variable to hold path to database
Dim DatabasePath As String = "Database Path Here;" 'DO NOT FORGET THE SEMICOLON(;) AT THE END

'SQL String to connect to database
Dim ConnString As String = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & DatabasePath & _
"Persist Security Info=False"

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim SchemaTable As DataTable

'Connect to the database
Dim conn As New System.Data.OleDb.OleDbConnection(ConnString)

Try
ListBox1.Items.Clear()

conn.Open()

'Get table and view names
SchemaTable = conn.GetOleDbSchemaTable(System.Data.OleDb.OleDbSc hemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, Nothing})

Dim int As Integer
For int = 0 To SchemaTable.Rows.Count - 1
If SchemaTable.Rows(int)!TABLE_TYPE.ToString = "TABLE" Then
'Add items to list box
ListBox1.Items.Add(SchemaTable.Rows(int)!TABLE_NAM E.ToString())
End If
Next

Catch ex As Exception
MessageBox.Show(ex.Message.ToString(), "Data Load Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End Try

conn.Close()

End Sub

[amin_iman82]

رجیستر کردن کامپوننت در ویندوز



System.Diagnostics.Process.Start("RegSvr32", "Component.Dll")

[maminb]

میتونم بپرسم رجیستر کردن یک کامپوننت به چه دردی میخوره؟ (در چه مواقعی استفاده میشه؟)

[Alirezanet]

یه کلاس برای تبدیل اعداد به حروف :
Public Class AdadToHoroof
Public Function adad(ByVal Number As Double) As String
If Number = 0 Then
Return "صفر"
End If
Dim Flag As Boolean
Dim S As String
Dim I, L As Byte
Dim K(0 To 5) As Double
S = Trim(Str(Number))
L = Len(S)
If L > 15 Then
adad = "بسيار بزرگ"
Exit Function
End If
For I = 1 To 15 - L
S = "0" & S
Next I
For I = 1 To Int((L / 3) + 0.99)
K(5 - I + 1) = Val(Mid(S, 3 * (5 - I) + 1, 3))
Next I
Flag = False
S = ""
For I = 1 To 5
If K(I) <> 0 Then
Select Case I
Case 1
S = S & Three(K(I)) & " تريليون"
Flag = True
Case 2
S = S & IIf(Flag = True, " و ", "") & Three(K(I)) & " ميليارد"
Flag = True
Case 3
S = S & IIf(Flag = True, " و ", "") & Three(K(I)) & " ميليون"
Flag = True
Case 4
S = S & IIf(Flag = True, " و ", "") & Three(K(I)) & " هزار"
Flag = True
Case 5
S = S & IIf(Flag = True, " و ", "") & Three(K(I))
End Select
End If
Next I
adad = S
End Function
Function Three(ByVal Number As Integer) As String
Dim S As String
Dim I, L As Long
Dim h(0 To 3) As Byte
Dim flaq As Boolean
L = Len(Trim(Str(Number)))
If Number = 0 Then
Three = ""
Exit Function
End If
If Number = 100 Then
Three = "يكصد"
Exit Function
End If
If L = 2 Then h(1) = 0
If L = 1 Then
h(1) = 0
h(2) = 0
End If
For I = 1 To L
h(3 - I + 1) = Mid(Trim(Str(Number)), L - I + 1, 1)
Next I
Select Case h(1)
Case 1
S = "يكصد"
Case 2
S = "دويست"
Case 3
S = "سيصد"
Case 4
S = "چهارصد"
Case 5
S = "پانصد"
Case 6
S = "ششصد"
Case 7
S = "هفتصد"
Case 8
S = "هشتصد"
Case 9
S = "نهصد"
End Select
Select Case h(2)
Case 1
Select Case h(3)
Case 0
S = S & " و " & "ده"
Case 1
S = S & " و " & "يازده"
Case 2
S = S & " و " & "دوازده"
Case 3
S = S & " و " & "سيزده"
Case 4
S = S & " و " & "چهارده"
Case 5
S = S & " و " & "پانزده"
Case 6
S = S & " و " & "شانزده"
Case 7
S = S & " و " & "هفده"
Case 8
S = S & " و " & "هجده"
Case 9
S = S & " و " & "نوزده"
End Select
Case 2
S = S & " و " & "بيست"
Case 3
S = S & " و " & "سي"
Case 4
S = S & " و " & "چهل"
Case 5
S = S & " و " & "پنجاه"
Case 6
S = S & " و " & "شصت"
Case 7
S = S & " و " & "هفتاد"
Case 8
S = S & " و " & "هشتاد"
Case 9
S = S & " و " & "نود"
End Select
If h(2) <> 1 Then
Select Case h(3)
Case 1
S = S & " و " & "يك"
Case 2
S = S & " و " & "دو"
Case 3
S = S & " و " & "سه"
Case 4
S = S & " و " & "چهار"
Case 5
S = S & " و " & "پنج"
Case 6
S = S & " و " & "شش"
Case 7
S = S & " و " & "هفت"
Case 8
S = S & " و " & "هشت"
Case 9
S = S & " و " & "نه"
End Select
End If
S = IIf(L < 3, Right(S, Len(S) - 3), S)
Three = S
End Function
End Class

[ricky22]

update برنامه با تکنولوژی clickonce

http://barnamenevis.org/forum/attachment.php?attachmentid=45197&d=1267938202

[ricky22]

چند نخی
یا Multithreading
http://barnamenevis.org/forum/attachment.php?attachmentid=45198&d=1267938273

[ricky22]

پرینت گرفتن از فرم
http://barnamenevis.org/forum/attachment.php?attachmentid=45199&d=1267938328

[ricky22]

loGGing
لاگ برداری
http://barnamenevis.org/forum/attachment.php?attachmentid=45201&d=1267938421

[ricky22]

TcpRemotinghttp://barnamenevis.org/forum/attachment.php?attachmentid=45203&d=1267938498

[ricky22]

کار با clipboard
http://barnamenevis.org/forum/attachment.php?attachmentid=45204&d=1267938591

[Hesamzadeh]

این هم یک مجموعه کد نسبتا کامل از نمونه کدهای
++C
#C
VB
منبع microsoft
http://vssample.4shared.com/

[maminb]

میتونم بپرسم رجیستر کردن یک کامپوننت به چه دردی میخوره؟ (در چه مواقعی استفاده میشه؟)

[ricky22]

میتونم بپرسم رجیستر کردن یک کامپوننت به چه دردی میخوره؟ (در چه مواقعی استفاده میشه؟)
دوست من اخه این تاپیک جای این سوال هست؟ 2 بارم پرسیدین!

[golbafan]

لابد براي برنامه نويسي بدرد ميخوره كه ميخواد نرم افزارشو بفروشه و خريدار پيغامهايي در رابطه با استفاده غير مجاز برنامه نويس از كامپوننتهاي تجاري رو نبينه

[Parham.D]

از عملگر Xor میتوان برای به رمز درآوردن متن استفاده کرد. ویژگی کار این عملگر این است که اگر یک عدد را دوبار متوالی با عددی دیگر Xor کنید، دوباره به همان عدد اولیه خواهید رسید. برای مثال کد اسکی حرف A را که 65 است با عدد 50 Xor میکنیم. حاصل این عمل عدد 115 است. حال اگر این عدد 115 را دوباره با 50 Xor کنیم به عدد 65 میرسیم. در مثال زیر نمونه کدی را که متن یک TextBox با Xor به حالت رمز درمی‏آورد و از آن خارج میکند بررسی میکنیم.






If TextBox.Text <> "" Then
If SaveFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
FileOpen(1, SaveFileDialog.FileName, OpenMode.Output)
'Encryption codes.
For index As Integer = 0 To TextBox.TextLength - 1
eachLetter = TextBox.Text.Substring(index, 1)
Print(1, Asc(eachLetter) Xor 369)
Next
End IfEnd If



در حلقه For Next به اندازه طول متن در TextBox یکی یکی حروف آن خوانده میشوند و بعد از استخراج کد اسکی هر یک در عدد 369 Xor میشوند و عدد حاصل در فایل نوشته میشود. کد از رمز خارج کردن فایل در زیر آمده.







If OpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
FileOpen(1, OpenFileDialog.FileName, OpenMode.Input)
'Read encrypted numbers from file, convert with Xor and build the string.
Do Until EOF(1)
Input(1, encryptedNumber)
decryptedChr = Chr(encryptedNumber Xor 369)
TextBox.Text &= decryptedChr
Loop
End If


در حلقه Do Until تا زمانی که فایل به انتها نرسیده با دستور Input یکی یکی از آن می‏خواند و در متغیری از نوع Short به نام encryptedNumber دخیره میکند. سپس در خط بعد عدد ذخیره شده دوباره با 369 Xor میشود و همزمان به نوع Char تبدیل میشود. در تصویر زیر نمونه رمزگذاری شده نوشته "Hello World, Just for testing" را مشاهده می‏کنید.

[Alirezanet]

سلام یه کلاسی من توی سایت به همراه نمونه کد هاش گذاشتم چون هر روز نمونه کد استفاده از اون فایل رو تغییر میدم و میشه گفت اضافه میکنم میتونین از این لینک مشاهده کنین ...
((((( مربوط به کار با فایلهای Zip - Rar و .. و Unzip کردن و میشه گفت ساخت این فایلها میشه که خیلی هم کلاس کار رو برامون راحت کرده ! ))))
http://barnamenevis.org/forum/showthread.php?t=210178
البته لینک تو امضام هم فعلا هست !

موفق باشین

[Netsky]

بازم سلام .
سال نو رو به همه دوستان عزیز تبریک عرض میکنم . این اولین پست من در سال 1389 در این تایپک هستش .
ضمن تشکر از همه دوستانی که در این مدت توی این تاپیک فعالیت کردن و سروس کدهای خوب خودشون رو گذاشتن ، بنده هم برنامه ای رو که همین دیروز نوشتم رو تقدیمتون میکنم .
این برنامه یه کرونومتره که قابلیت جداسازی هم داره . یعنی چی ؟؟؟ فرض کنید که بین دوستاتون یه مسابقه گذاشتید و میخاید ببینید که کدومشون (مثلا ) میتونه بیشتر نفسش رو در سینه جبس کنه ( فرض بر اینه که میخاید به صورت همزمان مسابقه رو بین دوستاتون برگزار کنید ) . مطمئنا اگه بخاید به صورت متوالی دکمه توقف رو بزنید و زمان بدست اومده رو یادداشت کنید ، نتایج اشتباه میشن . بنابراین میتونید خیلی راحت دکمه جدا سازی رو بزنید و نتیجه بدست اومده توسط هریک از دوستانتون رو در لیست باکس برنامه یادداشت کنید . آخرش هم به برنده یه جایزه بدید !!!


http://netsky.persiangig.com/image/Chronometer.JPG

[sina26]

سلام
با تشکر از دوست خوب جناب Netsky از کار زیباشون چون این کرنومتر برای شرو مجدد از صفر دکمه ریست نداشت با اجازه منم اونو اضافه کردم و تقدیم میدارم

[Netsky]

با تشکر از sina 26 . اصلا به طور کل یادم رفت دکمه Reset رو بزارم . بازم از آقا سینا تشکر میکنم .

[Shahram_Shobeiri]

محو شدن فرم در هنگام بسته شدن. یا به زبان شیرین فارسی fade out شدن فرم!

[vaezhasan]

سلام دوست عزيز.
ممنون كه زحمت گذاشتن سورس كدها رو كشيدي. باور كن يكي از بزرگترين آموزشها و راهنمائيها در برنامه نويسي استفاده از سورس كدهاست. لطفاً از اينكه كسي كدي نمي ذاره دلسرد نشو مطمئن باش كه تعداد زيادي وارد اين بخش ميشن و اونها رو دانلود مي كنن. من يكمي گرفتارم ولي سعي مي كنم كه منم همكاري كنم و اطلاعات و كدهاي خودم رو بذارم.
ممنون
حسن
hasanvaez@gmail.com

[Shahram_Shobeiri]

کمبوباکس با قابلیت افزودن تصویر (کمبوباکس تصویری)

[salmanbnd]

سلام به همه دوستان
من امروز به جمعتون اضافه شدم
یعنی همین چند دقیقه پیش ثبت نام کردم
اولین تاپیکی هم که سر زدم این تاپیک بود:لبخندساده:
خیلی خوشم اومد از برنامه ها
منم حتما برنامه می ذارم، به نظر من بهترین زبان برنامه نویسی حال حاضر :لبخند:VB.NET

[Shahram_Shobeiri]

جمع و تفریق اعداد صحیح بسیار بزرگ

[Shahram_Shobeiri]

برنامه ای برای ارسال sms و missed call انداختن!

[saeidcd]

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



Module Module1
Public str_con As String = ""
Public con As New SqlClient.SqlConnection(str_con)
Public com As New SqlClient.SqlCommand
Public con2 As New SqlClient.SqlConnection(str_con)
Public com2 As New SqlClient.SqlCommand

Public Sub exe(ByVal s As String)
Try
If con.State = ConnectionState.Open Then con.Close()
con.Open()
com = con.CreateCommand
com.CommandText = s
com.ExecuteReader()

Catch ex As Exception

End Try
End Sub
Public Sub exe2(ByVal s As String)
Try
If con2.State = ConnectionState.Open Then con2.Close()
con2.Open()
com2 = con2.CreateCommand
com2.CommandText = s
com2.ExecuteReader()

Catch ex As Exception

End Try
End Sub
Public Function exe_r(ByVal s As String) As SqlClient.SqlDataReader
Try
If con.State = ConnectionState.Open Then con.Close()
con.Open()
com = con.CreateCommand
com.CommandText = s
Return com.ExecuteReader

Catch ex As Exception

End Try
End Function


Public Function exe_s(ByVal s As String) As Object
Try
If con.State = ConnectionState.Open Then con.Close()
con.Open()
com = con.CreateCommand
com.CommandText = s
Return com.ExecuteScalar

Catch ex As Exception

End Try
End Function
End Moduleمثلا در برنامه برای اجرای sqldatareader:

Dim dr As SqlClient.SqlDataReader = exe_r("select top 1 * from ads_b_posts where snd=0 and gpr>0 and end_post>0 order by gpr desc ")


یا:

exe("update ads_b_posts set snd=1 where id=" + txtid.Text)

[saeidcd]

برای نشان دادن تاریخ بصورت فارسی




Public Structure fullpersian
Dim dow_to_int As Integer
Dim day As Integer
Dim month As Integer
Dim year As Integer
Dim dow As String
Dim moyear As String
Dim str_day As String
Dim str_month As String
End Structure

Public Function convertdayofweek(ByVal tarikh As Date) As fullpersian
Dim pc As New Globalization.PersianCalendar
Dim fp As New fullpersian
Dim dow As DayOfWeek = pc.GetDayOfWeek(tarikh)
If dow = DayOfWeek.Saturday Then fp.dow = "شنبه" : fp.dow_to_int = 1
If dow = DayOfWeek.Sunday Then fp.dow = "یک شنبه" : fp.dow_to_int = 2
If dow = DayOfWeek.Monday Then fp.dow = "دو شنبه" : fp.dow_to_int = 3
If dow = DayOfWeek.Tuesday Then fp.dow = "سه شنبه" : fp.dow_to_int = 4
If dow = DayOfWeek.Wednesday Then fp.dow = "چهار شنبه" : fp.dow_to_int = 5
If dow = DayOfWeek.Thursday Then fp.dow = "پنج شنبه" : fp.dow_to_int = 6
If dow = DayOfWeek.Friday Then fp.dow = "جمعه" : fp.dow_to_int = 7
fp.year = pc.GetYear(tarikh)
Dim moyear As Integer = pc.GetMonth(tarikh)
fp.month = moyear
If moyear = 1 Then fp.moyear = "فروردین"
If moyear = 2 Then fp.moyear = "اردیبهشت"
If moyear = 3 Then fp.moyear = "خرداد"
If moyear = 4 Then fp.moyear = "تیر"
If moyear = 5 Then fp.moyear = "مرداد"
If moyear = 6 Then fp.moyear = "شهریور"
If moyear = 7 Then fp.moyear = "مهر"
If moyear = 8 Then fp.moyear = "آبان"
If moyear = 9 Then fp.moyear = "آذر"
If moyear = 10 Then fp.moyear = "دی"
If moyear = 11 Then fp.moyear = "بهمن"
If moyear = 12 Then fp.moyear = "اسفند"
fp.day = pc.GetDayOfMonth(tarikh)
If fp.day < 10 Then fp.str_day = "0" & fp.day Else fp.str_day = fp.day
If fp.month < 10 Then fp.str_month = "0" & fp.month Else fp.str_month = fp.month
Return fp
End Function
Public Function m2fa() As String
Dim fpp As fullpersian = convertdayofweek(Date.Now)
Return fpp.year & "/" & fpp.str_month & "/" & fpp.str_day
End Function

[iman_me]

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

[Shahram_Shobeiri]

متدی برای تشخیص صحت کد ملی :

Public Shared Function Check(ByVal Melli_Code As String) As Boolean
If (Melli_Code.Length = 10) And IsNumeric(Melli_Code) Then
Dim sum As Integer = 0
Dim _mod As Integer = 0
For i As Byte = 0 To 8
sum += Convert.ToByte(Melli_Code(i).ToString) * (10 - i)
Next
_mod = sum Mod 11
If _mod < 2 Then
If _mod.ToString = Melli_Code(9).ToString Then Return True Else Return False
Else
_mod = 11 - _mod
If _mod.ToString = Melli_Code(9).ToString Then Return True Else Return False
End If
Else
Return False
End If
End Function
این متد رو بر اساس الگوریت ارائه شده در این آدرس تهیه کردم. نکته جالب اینجاست که خودش تو مثالش اشتباه محاسباتی داشت!!!
http://www.aliarash.com/article/codemeli/codemeli.htm

[vb8334]

سلام

این کد فرم رو به صورت افکتی باز میکنه

[saeidcd]

با این برنامه شما از طریق gmail میتونید ایمیل ارسال کنید

[sina26]

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

[maminb]

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

برنامه ی شما یه مشکل داره.

وقتی 1 رو وارد کنید، مینویسه اوله. (درحالیکه 1 نه اوله نه مرکب)

که میشه با یه if ساده درستش کرد.

موفق باشید.

ممنون.

[iman_me]

سلام
این برنامه از صفحه مانیتور عکس میگیره

[iman_me]

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

[Netsky]

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

http://barnamenevis.org/forum/attachment.php?attachmentid=46555&stc=1&d=1270462137

[iman_me]

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

[Netsky]

سلام و درود ...........
با تشکر از جمیع دوستان و مخصوصا iman_me عزیز که در این مدت تاپیک رو رونق بخشیدن .
یه برنامه دیگه نوشتم که تقدیم دوستان عزیز و بزرگوار میشه . تا حالا حتما پیش اومده که بخاید آیکون یه فولدر رو عوض کنید . این برنامه به شما این امکان رو میده که آیکون فولدر مورد نظرتون رو عوض کنید . خیلی راحت با زدن دکمه انتخاب فولدر در برنامه و انتخاب فولدر از دیالوگی که باز میشه و سپس انتخاب یک فایل آیکون میتونید این کار رو انجام بدید .
موفق و موید باشید .........

[iman_me]

بستن نرم افزار های در حال اجرا
کد:


Dim processList() As Process
processList = Process.GetProcessesByName("notepad") 'بجای نودپد اسم نرم افزار را بنویسید
For Each proc As Process In processList
If MsgBox("Terminate " & proc.ProcessName & "یاداشت ها", MsgBoxStyle.YesNo, "Terminate?") = MsgBoxResult.Yes Then
proc.Kill()
End If
Next

[iman_me]

سلام
مثل اینکه هیچکس غیر از ما نمیخواد برنامه بزاره به هر حال یه برنامه توپ
9تا تصویر میگیره و اونها رو پشت زمینه ویندوز قرار میده و بین اونها سویچ میکنه

[Netsky]

ســــــلام ... سرسبزترین بهار تقدیم شما دوستان عزیز باد .
دیشب بیل گیتس اومد به خوابم و گفت که این کد رو واسه دوستای عزیزت بنویس :بامزه: . من گفتم به روی چشم !!!
خب ، با این کد میتونید خصوصیات کنترل هایی که داخل فرمتون دارید رو به صورت دسته جمعی تغییر بدید . مثلا من در این مثال خواستم که خاصیت Text کنترل TextBox رو تغییر بدم . فرض کنید 20 تا TextBox روی فرمم دارم . حالا میخام هر متنی رو که توی 20 تا TextBox هست رو پاک کنم . حالا شاید این سوال در ذهن شما پیش بیاد و بگید که این یارو ( یعنی بنده ) چقدر بی مغزه ؟؟ این کار رو که میشه با متد Clear هر تکست باکس انجام داد . این حرف شما در مواقعی درسته که تعداد TextBox ها کم باشه مثلا در حد 4 الی 5 تا . ولی در برنامه ای که مثلا 20 تا TextBox داشته باشه دیگه نمیشه به اینصورت عمل کرد . پس باید یه راه حل دیگه پیدا کنیم . کد زیر هر چی TextBox توی برنامه هست رو میگیره و خاصیتی رو که شما براش تعریف میکنید تغییر میده .



Dim item as Object
For Each item In Me.Controls
If item.GetType() Is GetType(TextBox) Then
DirectCast(item, TextBox).Clear()
End If
Next

احتمالا امشب استیو بالمر میاد به خوابم . چون وقت قبلی گرفته . :قهقهه:
موفق باشید ...........

[Shahram_Shobeiri]

این کلاس رو قبلاً در یکی از تاپیک ها در پاسخ به یکی از دوستان گذاشته بودم. اما از اونجا که کاربردش زیاده گفتم اینجا هم بگذارم بلکه به درد کسی بخوره!
کلاس ارسال و دریافت sms در مود pdu، برقراری تماس و یه مشت at-command دیگه. دوستان می تونن دستوارت at بیشتری داخلش قرار بدن و برای استفاده دیگران بگذارند.

[iman_me]

سلام
مثل همیشه زیاد حرف نمیزنم خوب
برنامه ای واسه چاپ دیتا گرید

[Parham.D]

روال مرتب سازی آرایه‏ها به صورت حبابی




'Bubble Sort
Sub BubbleSort(ByVal enterArray As Integer())
For index1 As Integer = 1 To enterArray.GetUpperBound(0)
For index2 As Integer = 0 To enterArray.GetUpperBound(0) - 1
If enterArray(index2) > enterArray(index2 + 1) Then
Swap(enterArray, index2)
End If
Next
Next
End Sub


'Swap two array elements
Sub Swap(ByVal swapArray As Integer(), ByVal first As Integer)
Dim hold As Integer

hold = swapArray(first)
swapArray(first) = swapArray(first + 1)
swapArray(first + 1) = hold
End Sub



در صورت نیاز به راهنمایی و توضیح پیام خصوصی بفرستید. ;)

[Parham.D]

جستجوی آرایه به روش خطی




Function linearSearch(ByVal key As Integer, ByVal array As Integer()) As Integer
For index As Integer = 0 To array.GetUpperBound(0)
If array(index) = key Then
Return index
End If
Next
End Function



جستجوی آرایه به روش باینری




Function binarySearch(ByVal array As Integer(), ByVal key As Integer) As Integer
Dim low As Integer = 0
Dim hight As Integer = array.GetUpperBound(0)
Dim middle As Integer
While low <= hight
middle = (low + hight) \ 2
If key = array(middle) Then 'Match
Return middle
ElseIf key < array(middle) Then 'Search low end of array
hight = middle - 1
Else
low = middle + 1
End If
End While
Return -1
End Function



جستجوی خطی مقایسه هر عنصر آرایه با کلید است، و جستجوی باینری عنصر میانی آرایه را با کلید جستجو میکند و اگر کلید با عنصر میانی آرایه یکی نبود بسته به اینکه، اگر عنصر میانی از کلید کوچکتر باشد آرایه نصف شده و جستجو در نیمه اول و اگر بزرگتر باشد، آرایه نصف شده و در نیمه دوم جستجو ادامه پیدا میکند. جستجوی باینری در آرایه‏ای که مرتب شده باشد کاربرد دارد. (روش مرتب سازی در پست قبل آورده‏ام). سرعت جستجوی باینری بسیار سریعتر از خطی است. برای اطلاعات بیشتر و راهنمایی پیغام خصوصی بفرستید. ;)

[iman_me]

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


Dim a() As String = {"iman", "amin", "javad"}
Array.Sort(a)
Dim i As String
For Each i In a
ListBox1.Items.Add(i)
Next i

[Parham.D]

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

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




Module Module1
Sub Main()
AnyNumberArguments()
AnyNumberArguments(2, 3)
AnyNumberArguments(7, 8, 9, 10, 11, 12)
End Sub

Sub AnyNumberArguments(ByVal ParamArray array As Integer())

End Sub
End Module

[sina26]

سورس تبدیل اعداد مبنای 10 به اعداد باینری
سلام دوستان فایل تقدیمی سورس تبدیل عداد ده دهی به اعداد باینری و آموزش آن تقدیم میگردد

دانلود (http://www.4shared.com/file/WyHHjDRo/BaineryNET.html)

[Netsky]

بازم سلام . بعد از چند هفته اي دوباره اومدم .
اين بار واستون يه كد نوشتم كه خيلي هم سادست . البته در بعضي مواقع بدرد بخوره . با اين كد ميتونيد تعداد كلمات يه متن رو بدست بياريد . فقط يه تكست باكس روي فرمتون بندازيد و كد رو امتحان كنيد :


Dim Word_Counter As Integer = 0
Dim My_Array As String() = TextBox1.Text.Split(" ")
For i As Integer = 0 To My_Array.Length - 1
If My_Array(i).ToString() <> "" Then
Word_Counter += 1
End If
Next
MessageBox.Show(Word_Counter.ToString())
راستي اين كد رو ديشب استيو بالمر اومد به خوابم و بهم گفت تا واسه شما دوستاي عزيز بنويسم . ( كلك برنامه نويسيش هم خوبه ها ) . احتمالا دفعه بعدي نوبت گردن كلفت برنامه نويسيشونه . ( فكر كنم اسكات گاتري باشه ) .

[Hossein Bazyan]

سلام
در تاپیک زیر من مبحثی را باز کردم که دوستانی که کلاسهای خاصی دارند ( خودشان نوشته اند یا از جایی دانلود کرده اند ) به اشتراک بذارند اما متاسفانه استقبال نشد و من خودم دو کلاس را معرفی کردم که یکیش را همینجا دوباره معرفی میکنیم

http://barnamenevis.org/forum/showthread.php?t=118097

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

در محیط ویرایشگر وی بی یا سی شارپ کلمان مختلف به رنگهای مختلف نمایش داده میشوند مثلا کلمه Private با رنگ آبی و غیره .
کلاس زیر همین کار را با Richtextbox انجام میدهد.

کلاس زیر را به پروژه اضافه کنید و در Form_Load مقدار زیر را قرار دهید

m_ColorRTB = New ColorRichTextBox.clsColorRichTextBox(rtbMain)
و متغییر m_ColorRTB را به شکل زیر در قسمت اعلانات معرفی نمائید .

Private m_ColorRTB As ColorRichTextBox.clsColorRichTextBox
حال کد زیر کلمات را رنگی

m_ColorRTB.ColorCode = True
m_ColorRTB.RecolorEntireText()

کد زیر رنگ کلمات را میگیرد:

m_ColorRTB.ColorCode = False

در ضمن باید از RichTextBox به جای TextBox استفاده کنید که در اینجا نام آنرا rtbMain قرار داده است.
در ضمن این کلاس را من از اینترنت دانلود کرده ام

[Netsky]

اينم يه كد واسه گرفتن يه عدد تصادفي بين مثلا 1 تا 10 :


Dim Rand As New Random
MessageBox.Show(Rand.Next(1, 11))

اگه خواستيد 10 هم جزو اعدادتون باشه بايد اون عدد حداكثري رو بعلاوه 1 كنيد . مثل مثال بالا كه شد 11 .
موفق باشيد ........

[iman_me]

چیزه سختی نیست ولی جالبه
ببینید متوجه میشید

[Shahram_Shobeiri]

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


Imports System
Imports System.IO
Imports System.Text
Imports System.Security.Cryptography

Public Class Class_TripleDES
Private key() As Byte = {2, 4, 3, 32, 9, 13, 45, 86, 11, 110, 60, 12, 16, 0, 15, 19, 170, 121, 20, 118, 15, 25, 93, 99}
Private iv() As Byte = {35, 215, 10, 68, 14, 891, 200, 30}

Public Function Encrypt(ByVal plainText As String) As Byte()
' Declare a UTF8Encoding object so we may use the GetByte
' method to transform the plainText into a Byte array.
Dim utf8encoder As UTF8Encoding = New UTF8Encoding()
Dim inputInBytes() As Byte = utf8encoder.GetBytes(plainText)

' Create a new TripleDES service provider
Dim tdesProvider As TripleDESCryptoServiceProvider = New TripleDESCryptoServiceProvider()

' The ICryptTransform interface uses the TripleDES
' crypt provider along with encryption key and init vector
' information
Dim cryptoTransform As ICryptoTransform = tdesProvider.CreateEncryptor(Me.key, Me.iv)

' All cryptographic functions need a stream to output the
' encrypted information. Here we declare a memory stream
' for this purpose.
Dim encryptedStream As MemoryStream = New MemoryStream()
Dim cryptStream As CryptoStream = New CryptoStream(encryptedStream, cryptoTransform, CryptoStreamMode.Write)

' Write the encrypted information to the stream. Flush the information
' when done to ensure everything is out of the buffer.
cryptStream.Write(inputInBytes, 0, inputInBytes.Length)
cryptStream.FlushFinalBlock()
encryptedStream.Position = 0

' Read the stream back into a Byte array and return it to the calling
' method.
Dim result(encryptedStream.Length - 1) As Byte
encryptedStream.Read(result, 0, encryptedStream.Length)
cryptStream.Close()
Return result
End Function

Public Function Decrypt(ByVal inputInBytes() As Byte) As String
' UTFEncoding is used to transform the decrypted Byte Array
' information back into a string.
Dim utf8encoder As UTF8Encoding = New UTF8Encoding()
Dim tdesProvider As TripleDESCryptoServiceProvider = New TripleDESCryptoServiceProvider()

' As before we must provide the encryption/decryption key along with
' the init vector.
Dim cryptoTransform As ICryptoTransform = tdesProvider.CreateDecryptor(Me.key, Me.iv)

' Provide a memory stream to decrypt information into
Dim decryptedStream As MemoryStream = New MemoryStream()
Dim cryptStream As CryptoStream = New CryptoStream(decryptedStream, cryptoTransform, CryptoStreamMode.Write)
cryptStream.Write(inputInBytes, 0, inputInBytes.Length)
cryptStream.FlushFinalBlock()
decryptedStream.Position = 0

' Read the memory stream and convert it back into a string
Dim result(decryptedStream.Length - 1) As Byte
decryptedStream.Read(result, 0, decryptedStream.Length)
cryptStream.Close()
Dim myutf As UTF8Encoding = New UTF8Encoding()
Return myutf.GetString(result)
End Function

End Class

اعداد داخل آرایه های iv و key رو می تونید به دلخواه تغییر بدید. در واقع اون اعداد کلید رمزگذاری شما هستند

[رضا نانوا]

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

[رضا نانوا]

برنامه مخفی کردن درایوها

[Hossis]

حالا که همه دارند قطعه کد مي ذارند بذار من هم چند تا از کدهاي کوتاه و کاربردي رو بذارم شايد هم بقيه بلد باشند
1.اگر بخواهيم بدانيم يک کلمه در يک رشته هست يا نه؟

Str1.contains(Word1)
2. اگر بخواهيم محتويات يک فايل متني رو مستقيما وارد ليست کنيم


Listbox1.Items.addrange(Io.File.ReadAllLines("c:\myFile.txt"))
3. تبديل رنگ معمولي به رنگ HTML


Private Function GetWebColor(ByVal Colour As Color) As String

Dim wc As String = ColorTranslator.ToHtml(Colour).ToString()
Return wc
End Function

[Hossis]

اگر بخواهيد رويداد سه بار کليک رو داشته باشيد، از اين کد استفاده کنيد.
در ضمن مي تونيد رويدادهاي ديگر هم بر همين منوال بسازيد

Dim WithEvents Click3 As New TripleClick
Private Sub Buttolick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Click3.Click()
End Sub
Private Sub Click3_TplClick(ByVal Text As String) Handles Click3.TplClick
TextBox1.Text = Text
End Sub
Public Class TripleClick
Dim WithEvents TMR As New Timers.Timer With {.Interval = 1000, .Enabled = True}
Public Event TplClick(ByVal Text As String)
Dim intCount As Integer = 0
Public Sub Click()
intCount += 1
If intCount >= 3 Then
intCount = 0
RaiseEvent TplClick("The Button was triple clicked.")
End If
End Sub
Private Sub TripleClick_TplClick(ByVal Text As String) Handles Me.TplClick
MsgBox("ط³ظ‡ ط¨ط§ط± ع©ظ„ظٹع© ط´ط¯!")
End Sub
Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles TMR.Elapsed
intCount = 0
End Sub
End Class

[Hossis]

با اين کد مي تونيد اطلاعات رو در ديتاگريد فراخواني کرده و يا اطلاعات رو به بانک اضافه،‌ ويرايش و حذف نماييد.
کد اسنيپت اون در اين تاپيک هست: (http://barnamenevis.org/forum/showpost.php?p=1004353&postcount=104)

#Region "SQL Declaration"
Dim CnnStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\db.accdb"
Dim da As OleDbDataAdapter
Dim ds As New DataSet
Dim cnn As New OleDbConnection(CnnStr)
Dim ra As Integer
Dim DG As New DataGridView With {.parent = Me, .visible = False}
end region
#Region "SQL Codes"
''' <summary>
''' ÇÖÇÝå ˜ÑÏä í˜ Ñ˜æÑÏ Èå ÈÇä˜
''' </summary>
''' <param name="Filds">äÇã ÝíáÏåÇ: Èíä ÂäåÇ æíѐæá(¡) ȐÐÇÑíÏ</param>
''' <param name="Valus">ãÞÇÏíÑ (ãÞÏÇÑ1¡ãÞÏÇÑ2 ¡...)Èå ÊÑÊíÈ äÇã ÝíáÏåÇ</param>
''' <remarks></remarks>
Private Sub AddFields(ByVal Filds As String, ByVal Valus As String)
cnn.Open()
Dim sql As String = "Insert INTO Pro (" & Filds & ")VALUES ('" & Valus & ")"
Dim cmd As New OleDbCommand(sql, cnn)
ra = cmd.ExecuteNonQuery()
cnn.Close()
End Sub
''' <summary>
''' ÝÑÇÎæÇäí ãÞÇÏíÑí ÇÒ ÏíÊÇÈíÓ
''' </summary>
''' <param name="table">äÇã ÍÏæá</param>
''' <param name="Fields">äÇã ÝíáÏåÇíí ˜å ÈÇÑ ÔæäÏ. (*) ÈÑÇí ÈÇѐÒÇÑí åãå</param>
''' <param name="where">ÔÑØí ˜å ÇÚãÇá ãí ÔæÏ ãËáÇ Id=35</param>
''' <remarks>
''' Ó ÇÒ ÇíÇä ÚãáíÇÊ¡ ÊãÇã äÊÇíÌ ÏÑ ÏíÊǐÑíÏí Èå äÇã ÑíÎÊå ãí ÔæÏ Èå äÇã
''' DG</remarks>
Private Sub Search(ByVal table As String, ByVal Fields As String, ByVal where As String)
Dim cnn As OleDbConnection
cnn = New OleDbConnection(CnnStr)
cnn.Open()
Da = New OleDbDataAdapter("Select " & Fields & " from " & table & " Where " & where, cnn)
DS.Clear()
Da.Fill(DS, table)
DG.DataSource = DS.Tables(table)
cnn.Close()
'For Each R As DataGridViewRow In DG.Rows
' If R.Cells(0).Value = Nothing Then Exit For
' txId.Text = R.Cells(0).Value
' tx1.Text = R.Cells(1).Value
' tx2.Text = R.Cells(2).Value
' tx3.Text = R.Cells(3).Value
' '...
'Next
End Sub
''' <summary>
''' Èå ÑæÒÑÓÇäí ÌÏæá æ ÏíÊ Âä
''' </summary>
''' <param name="table">äÇã ÌÏæáí ˜å ÈÇíÏ ÂÏíÊ ÔæÏ.</param>
''' <param name="Fields">ÂÑÇíå Çí ÇÒ äÇã ÝíáÏåÇ</param>
''' <param name="values">ãÞÇÏíÑ ãØÇÈÞ ÈÇ äÇã ÝíáÏåÇ(ÈÑÇí ãÞÇÏíÑ ãÊäí ˜ÇÑǘÊÑ 'ÑÇ äíÒ Èå ÏæØÑÝ Âä ÈíÝÒÇííÏ ãËá 'äÇã'æ ÛíÑå</param>
''' <param name="Where">ÔÑØ ãæÑÏ äÙÑ</param>
''' <remarks></remarks>
Private Sub Update(ByVal table As String, ByVal Fields() As String, ByVal values() As Object, ByVal Where As String)
Dim fld As String = ""
For i As Short = 0 To Fields.Length - 1
fld &= Fields(i) & "=" & values(i) & ","
Next
fld &= "|\|"
fld = fld.Replace(",|\|", "")
cnn.Open()
Dim sql As String = "Update " & table & " Set " & fld & " Where " & Where
Dim cmd As New OleDbCommand(sql, cnn)
ra = cmd.ExecuteNonQuery()
cnn.Close()
End Sub
''' <summary>
''' ÍÐÝ í˜ Ñ˜æÑÏ ÇÒ ÌÏæá
''' </summary>
''' <param name="table">äÇã ÌÏæáí ˜å í˜ ÑÏíÝ ÇÒ Âä ÍÐÝ ãí ÔæÏ</param>
''' <param name="Where">ÔÑØ ãæÑÏ äÙÑ ãËá
''' Id=35</param>
''' <remarks></remarks>
Private Sub Delete(ByVal table As String, ByVal Where As String)
cnn.Open()
Dim sql As String = "Delete From " & table & " Where " & Where
Dim cmd As New OleDbCommand(sql, cnn)
ra = cmd.ExecuteNonQuery()
cnn.Close()
End Sub
#End Region

[spring69]

براي تبديل رشته حاوي نام فرم به خود فرم ميتونيد از اين كد استفاده كنيد:

Dim frm As New Form
Dim strformName As String = "FormName"
strformName = [Assembly].GetEntryAssembly.GetName.Name & "." & strformName
frm = DirectCast([Assembly].GetEntryAssembly.CreateInstance(strformName), Form)
frm.Show()

[srfarzad]

کد درگ کردن فرم در vb.net 2008 & 2005

____________________________

Private Sub frm_Main_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
If (e.Button = MouseButtons.Left) Then
p1 = New Point(e.X, e.Y)
End If
End Sub



Private Sub frm_Main_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
If (e.Button = MouseButtons.Left) Then
Dim MousePos As Point = Control.MousePosition
MousePos.X = MousePos.X - p1.X
MousePos.Y = MousePos.Y - p1.Y
Me.Location = MousePos
End If
End Sub

[sina26]

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

[Hossis]

آیا تا بحال به نيازي به مکث و توقف برنامه داشته ايد؟؟
براي ديدن بهترين راهکار به اين تاپيک برويد
http://barnamenevis.org/forum/showpost.php?p=1018029&postcount=4

[armin8651]

سورس فایل غیر فعال کردن دگمه close در فرم

[Ghaisard]

با سلام خدمت دوستان عزيز و برنامه نويسان گرامي

ممنونم از دوستان كه در اين تاپيك برنامه ها و سورس هاي كاربردي و مفيد رو قرار مي دهند.
گفتم كه با فعاليت و همكاري زياد دوستان منم از اين همكاري بي نصيب نمانم.
برنامه اي كه نوشته ام يك Player هستش كه با كامپوننت WMP كار مي كنه و امكانات و قابليت هاي زير رو داره:
1- قابليت پخش فايل هاي mp3 ، wma و wav
2- قابليت ذخيره و باز كردن فايل Playlist (m3u)
3- امكان ويرايش فايل m3u از قبيل:
- اضافه كردن
- حذف كردن
- جا به جايي فايل ها به صورت Drag & Drop
4- امكان باز كردن فايل ها از طريق:
- اضافه كردن فايل به صورت تك تك
- اضافه كردن فولدر
- Drag & Drop
5- قابليت پخش به صورت Shuffle و Repeat
البته اين رو بگم كه براي ظاهر برنامه زياد كار نكردم و از كنترل هاي خود VS استفاده كردم.
برنامه رو به همراه سورسش مي ذارم تا دوستان بهتر بتونن با روش كار آشنا بشوند.
از دوستان عزيز خواهش دارم كه هر گونه نظر يا پيشنهادي دارند دريغ نكنند.

با تشكر
GhaisarD@yahoo.com

[mohammad.moosaei]

سلام دوستان :

این دو تا برنامه رو براتون گذاشتم که اولی یک نوع پازله که همش با استفاده از تکنیک Linq نوشته شده امیدوارم کمکتون کنه . دومی هم یک برنامه search هستش که اینم برای کار با فایها و فولدرها و آشنایی با Threading بد نیست . امیدوارم که از این برنامه هایی که نوشتم هم خوشتون بیاد و هم به دردتون بخوره .

راستی منتظره انتقادها و پیشنهاداتون هستم.:لبخند:

لینکها:

Puzzle:
http://www.4shared.com/file/og6nwdHW...al_Puzzel.html

Win Search:

http://www.4shared.com/file/36t3Szlw/TurboSearcher.html

[mohsen12345]

برای کار با excel
ابتدا دو refrence زیر را اضافه کنید
Microsoft Excel 12.0 Object Library
Microsoft Excel 5.0 Object Library
سپس از کد زیر استفاده کنید


Dim xlApp As Microsoft.Office.Interop.Excel.Application
Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
Dim i, j As Integer
xlApp = CType(CreateObject("Excel.Application"), _
Microsoft.Office.Interop.Excel.Application)
xlBook = CType(xlApp.Workbooks.Add, _
Microsoft.Office.Interop.Excel.Workbook)
xlSheet = CType(xlBook.Worksheets(1), _
Microsoft.Office.Interop.Excel.Worksheet)
' The following statement puts text in the second row of the sheet.
xlSheet.Cells(1, 1) ="خانه 1و1"
xlSheet.Cells(1, 2) = "خانه 1و2"
xlSheet.Cells(1, 3) = "خانه 1و3"
xlSheet.Cells(2, 1) = "خانه 2و1"
xlSheet.Cells(2, 2) = "خانه 2و2"

'و الی آخر همینطور ادامه دهید

[armin8651]

یه برنامه دیکشنری نوشتم که از لینک زیر میتونید ببینیدش:

http://www.lupforum.com/index.php/topic,853.0.html

[Saman_12]

سلام.
میتونید از کد زیر برای لود کردن تصاویر به صورت اسلایدی در پکچر باکس استفاده کنید :


Dim DirInfo As New System.IO.DirectoryInfo("Your path")
Dim FileInfo As System.IO.FileSystemInfo
For Each FileInfo In DirInfo.GetFileSystemInfos
If Mid(FileInfo.Name, FileInfo.Name.Length - 3, 4) = ".jpg" Or Mid(FileInfo.Name, FileInfo.Name.Length - 3, 4) = ".png" Then
Application.DoEvents()
PictureBox1.Load(FileInfo.FullName)
System.Threading.Thread.Sleep(500)
End If
Next FileInfo

جای Your path آدرس پوشه ای که تصاویر توی اون هست رو بدید و جای عدد 500 هم زمان مکث به میلی ثانیه.

[Saman_12]

با این این کد می تونید از فورمتون عکس بگیرین و اونو ذخیره کنید :


Function GetScreen(Optional ByVal Full As Boolean = False)
If Full = True Then
SendKeys.SendWait("{Prtsc}")
Else
SendKeys.SendWait("%{Prtsc}")
End If
Dim ObjData As IDataObject = Clipboard.GetDataObject
Return ObjData.GetData(DataFormats.Bitmap)
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.BackgroundImageLayout = ImageLayout.Stretch
End Sub

Private Sub BtnPicture_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPicture.Click
Dim Im As Image = GetScreen(True)
Im.Save("Yor path and name")
End Sub

جای Your path مسیر ذخیره و نام فایل رو بنویسید.

[Saman_12]

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


Public Sub DrawForm(ByVal TopC As Color, ByVal BottomC As Color)

Dim ObjB As New Drawing2D.LinearGradientBrush(Me.DisplayRectangle, TopC, BottomC, Drawing2D.LinearGradientMode.Vertical)
Dim ObjG As Graphics = Me.CreateGraphics
ObjG.FillRectangle(ObjB, Me.DisplayRectangle)
ObjB.Dispose()
ObjG.Dispose()
End Sub

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
DrawForm(Color.Blue, Color.Azure)
End Sub

[ricky22]

سلام به همه دوستان.
یک نمونه کد ضمیمه کردم که با اون می تونید حجم دانلود را محدود کنید.
منبع و اطلاعات بیشتر. (http://www.codeproject.com/KB/vb/Download_Limiter.aspx)

[ricky22]

ساختن Header سفارشی برای Datagridview
http://www.codeproject.com/KB/grid/DGVCustomHdr/DGVCustomHdr.gif

[ricky22]

تبدیل Pdf به TXT




Download demo - 5.84 KB (http://www.codeproject.com/KB/files/PDF_to_TEXT/PDF_TEST_EXE.zip)
Download source code - 12.2 KB (http://www.codeproject.com/KB/files/PDF_to_TEXT/PDF_TEST_No_Dll.zip)
Download updated source code - 12.8 KB (http://www.codeproject.com/KB/files/PDF_to_TEXT/PDF_TEST_No_Dll_Updated.zip)

[ricky22]

یک مقاله از CodeProject که خیلی به درد می خوره.
ویژگی های جدید ویندوز 7 در VB.NET
دانلود سورس (http://www.codeproject.com/KB/dotnet/Win7NewFeatures/Win7NewFeatures.zip)
لینک مقاله. (http://www.codeproject.com/KB/dotnet/Win7NewFeatures.aspx)

http://www.codeproject.com/KB/dotnet/Win7NewFeatures/JumpList1.jpg
http://www.codeproject.com/KB/dotnet/Win7NewFeatures/IconOverlay1.jpghttp://www.codeproject.com/KB/dotnet/Win7NewFeatures/ProgressBar2.png

[نیلوفر66]

سلام به همه .
تاسوعای حسینی رو خدمت همه شما دوستان تسلیت عرض می کنم .
یه کد دیگه واستون آماده کردم . خیلی از برنامه نویسا واسه اینکه تاریخ شمسی رو در برنامشون ایجاد کنند از کامپوننت های مختلف و زیادی استفاده میکنن ، در صورتی که در خود VB.Net میتونید خیلی راحت تاریخ میلادی رو به شمسی تبدیل کنید . بوسیله کد زیر میتونید این کار رو انجام بدید .



Public Function Shamsi_Date() As String
Dim DT As Date = Date.Now
Dim Year, Month, Day As String
Dim Glob As New Globalization.PersianCalendar
Year = Glob.GetYear(DT)
Month = Glob.GetMonth(DT)
Day = Glob.GetDayOfMonth(DT)
Shamsi_Date = Year & "\" & Month & "\" & Day
MsgBox(Shamsi_Date)
End Function



امیدوارم استفاده کنید .......................





با اين كد هم ميتونيد تاريخ شمسي داخله تكست باكس بزاريد

در رويداد فوكوس كنترل جعبه متن كد زير را قرار دهيد البته فكركنم يه import نيازدارهالان خاطرم نيست اگه لازم داشت بعدا ميزارم









Dim p As New Globalization.PersianCalendar

TextBox2.Text = p.GetYear(Now).ToString & "/" & p.GetMonth(Now).ToString & "/" & p.GetDayOfMonth(Now).ToString

[mahdi_1986]

با سلام( فکر کنم تکراري باشه)
اين دوتا textBox هست که يکي فقط عدد مي‌گيره و اون‌ يکي فقط حرف
فقط اين‌ دو تا User COntrol هستن

[Saman_12]

سلام.
از شما هم تکراریه من یه کلاس کامل تکست باکس نوشتم.(حدود 10 قابلیت به جز قابلیت های تکست معمولی) که شما میتونید اونو توی نوار ایزار Add کنید و مثل بقیه کامپونت ها ازش استفاده کنید :
Dlltextbox پیشرفته (http://barnamenevis.org/forum/showthread.php?t=240570)

[SilverLearn]

با سلام خدمت دوستان گرام چرا از ديتا بيس در اين تاپيك جايي نيست
دوستان اگر سورسي در اين مورد داريد حتما بگذاريد تا همه استفاده كنند
البته من خودم دنبال يك سورس آموزشي خوب مي گردم تا بگذارم ولي شما هم ....

[rezaeyan]

اینم یک کد برای حذف مقادیر اشیاء یک فرم




Public Function fnClearScr(frmObj As Form) As Boolean


'To clear the object


On Error GoTo LOCALERRORHANDLER


'------------------------------------------


'To clear the Text box flxgrid form as parameter


'------------------------------------------


Dim objCLR


For Each objCLR In frmObj


'-----------------------------------------


'If Text Box/Combo Box/Masked Edit Control/List Box


'-----------------------------------------


If TypeOf objCLR Is TextBox Or _


TypeOf objCLR Is ComboBox Or _


TypeOf objCLR Is MaskEdBox Then


'To clear Text Box Combo


objCLR.Text = ""


'-----------------------------------------


'If Grid Control


'-----------------------------------------


ElseIf TypeOf objCLR Is MSFlexGrid Then


objCLR.Clear


'-----------------------------------------


'If Label


'-----------------------------------------


ElseIf objCLR.Name = Label Then


objCLR.Caption = ""


End If


Next


Exit Function


LOCALERRORHANDLER:
End Function

[salmanbnd]

سلام
جناب NetSky عزیز و نیلوفر66 درباره تبدیل تاریخ میلادی به شمسی مطالبی نوشته بودن
نمی دونم آقای مدیر بخش این مطلب رو حذف می کنن یا نه ولی حدس می زنم این تابع که نوشتم می تونه مفید باشه:



Public Function PersianDate(ByVal inDate As Date) As String
Dim psDate As New System.Globalization.PersianCalendar
PersianDate = psDate.GetYear(inDate) & "/" & psDate.GetMonth(inDate) & "/" & psDate.GetDayOfMonth(inDate)
End Function

[nasim bahari]

سلام دوستان.....

با توجه به راهنمایی های مدیران محترم تالار ، تصمیم گرفتم که نمونه برنامه ها رو در این تایپیک قرار بدم.

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

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

در صورت لزوم ( اگر برنامه مورد نظر روی اینترنت قرار داره ) بجای UP کردن برنامه در سایت از قرار دادن لینک اون استفاده کنید تا فضای ذخیره سازی سایت زیاد از حد اشغال نشه....

متشکرم .......موفق باشید

[nasim bahari]

سلام دوستان

این هم یه نمونه برنامه واسه Print گرفتن یه عکس و یا PDF

http://www.barnamenevis.org/forum/showthread.php?t=243697

موفق باشین

[nasim bahari]

--------------------
سلام

این هم یه منو که برای آیتم هاش می تونه Icon داشته باشه

http://www.barnamenevis.org/forum/showthread.php?t=243729

موفق باشین

[nasim bahari]

سلام

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

http://www.barnamenevis.org/forum/showthread.php?t=243641

موفق باشین

[nasim bahari]

سلام

این هم یه نمونه برنامه بسیار عالی برای کار با عکس

http://www.barnamenevis.org/forum/showthread.php?t=243981


نظرات و همچنین همکاری برای ادامه این کار فراموش نشه........

موفق باشین

[nasim bahari]

سلام........دوستان

یه نمونه برنامه گذاشتم که عملیات Copy و Paste رو برای Image و Html و Rtf و Text و Object و File انجام می ده.....

http://www.barnamenevis.org/forum/showthread.php?t=243476

موفق باشین

[nasim bahari]

سلام

دوستان ، این هم یه کامون دیالوگ کاملاً فارسی

اگه شما برچسب ها و دکمه ها رو با فونت فارسی توی برنامه می زارین و کاربرانتون هم افراد مبتدی هستند ......بنابراین بکار بردن این کامپوننت کاملاً ضروری هستش......

http://www.barnamenevis.org/forum/showthread.php?t=242786

موفق باشین

[nasim bahari]

سلام..دوست عزیز

یه نمون برنامه می زارم ...... که اطلاعات بسیار جالبی رو از یه فایل Exe به شما میده....

http://www.barnamenevis.org/forum/showthread.php?t=242640


موفق باشین

[nasim bahari]

سلام............

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

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

http://www.barnamenevis.org/forum/showthread.php?t=242350

موفق باشین

[nasim bahari]

سلام دوستان............

اینم یه نمونه برنامه برای پخش موزیک..........

http://www.barnamenevis.org/forum/showthread.php?t=242071

موفق باشین

[nasim bahari]

سلام

اینم یه نمونه برنامه که با کلیک بروی دکمه ای که در فرم قرار گرفته رزولیشن رو به 1024 * 768 تغییر می ده . البته شما می تونین این رزولیشن رو تغییر بدین...

http://www.barnamenevis.org/forum/showthread.php?t=241984


موفق باشین

[nasim bahari]

سلام دوستان........

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

حتماً Down کنید............

http://www.barnamenevis.org/forum/showthread.php?t=241825

موفق باشین

[nasim bahari]

سلام............

یه نمونه برنامه واسه اسکن توسط وب کم می زارم امیدوارم کمکت کنه.........

http://www.barnamenevis.org/forum/showthread.php?t=239026

موفق باشین...

[nasim bahari]

سلام دوستان

این هم یه Message Box فارسی که از یه Class برای پیاده سازی اون استفاده شده .....شما می تونین دکمه های فارسی بجای دکمه های فینگلیش داشته باشین.



موفق باشین

[ricky22]

سلام
یک برنامه برای اتصال به
Map Network Drive (API)


http://www.codeproject.com/KB/system/mapnetdrive/netdrive0015.jpg


توضیحات (http://www.codeproject.com/KB/system/mapnetdrive.aspx)
دانلود (http://www.codeproject.com/KB/system/mapnetdrive/NetworkDrives0015_src.zip)
------------
اطلاعات بیشتر
http://www.dotnet4all.com/dotnet-code/2004/10/how-to-map-network-drive-in-code.html

[nasim bahari]

سلام دوستان

این هم یه نمونه برنامه برای محدودیت اجرای برنامه.....

این برنامه فقط 56 بار اجرا میشه و بعد از 5 بار دیگه اجرا نمیشه......

موفق باشین

[nasim bahari]

سلام دوستان

فکر می کنم عنوان این پست کاملاً گویا باشه....این برنامه بروی فولدر ها رمز می گذارد

برو حالشو ببر........:چشمک:

موفق باشید

[nasim bahari]

سلام دوستان

این هم یه نمونه برنامه واسه تست بانک اطلاعاتی و همچنین ساخت کانکشن استرینگ

خیلی کامله حتماً Down کنید

موفق باشین

[nasim bahari]

سلام دوستان

فکر می کنم که از عنوان تایپیک مشخص باشه که ایت نونمه برنامه چیکار می کنه......

[nasim bahari]

سلام دوستان

این هم یه برنامه دیگه واسه زنگ هشدار..............


-----------------------------


دوستان عزیز خواهشمندم اگه می خواین این نمونه برنامه ها و نمونه برنامه های دیگر کاربران که درون سایت قرار می گیره به صورت پراکنده نباشن.....لطفاً از مدیریت محترم تالار به صورت ایجاد پست ( البته بهتر به صورت پیغام خصوصی باشه ) درخواست کرده تا یه تایپیک جداگانه مبتنی بر تایپیک نمونه برنامه ها و یا یه تایپیک قدیمی که قبلاً وجود داشته و با این موضوع ( نمونه برنامه ها ) مرتبط هستش مشخص نمایند ( البته در صورت پیشنهاد یه تایپیک قدیمی باید اون تایپیک در قسمت بالای صفحه باشد که با وارد شدن تایپیک های جدید به پایین صفحه و بعد به صفحه های بعدی تنزل پیدا نکنه.....هم اکنون نیازمند یاری سبزتان هستیم

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

[nasim bahari]

سلام

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

[nasim bahari]

سلام دوستان

این هم یه نمونه برنامه واسه شروع نوشتن بازی bounceBall


موفق باشین

[nasim bahari]

سلام دوستان

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

دوستان، درخواست تاپیک نمونه برنامه ها یادتون نره


.

[nasim bahari]

سلام دوستان

فکر می کنم که عنوان کاملاً گویا باشه

[nasim bahari]

سلام

این هم یه برنامه از آنیل کومار ( برنامه نویس معروف هندی ) کار های زیادی در مورد کار با CD و DVD انجام میده......

حتماً Down کنید...........


.

[nasim bahari]

سلام دوستان

این برنامه هم برای باز کردن و بستن تمام و تک تک درایو های CD و DVD سیستم هست


امید وارم که دوستان درخواست ایجاد تایپیک نمونه برنامه ها رو از مدیران تالار از یاد نبرند


.

[nasim bahari]

سلام دوستان

این هم یه نمونه برنامه واسه تغییر عکس پس زمینه DeskTop ویندوز

.

[nasim bahari]

سلام دوستان

این هم یه نمونه بازی حافظه....میتونه واستون جالب باشه


.

[nasim bahari]

سلام

عنوان تاپیک گویا بوده و نیاز به توضیح ندارد............


.

[nasim bahari]

سلام

این هم نمونه برنامه واسه مانیتور کردن Cpu



.

[nasim bahari]

سلام دوستان

این هم یه نمونه برنامه واسه بدست آوردن میزان استفاده از CPU


.

[nasim bahari]

سلام دوستان

این هم یه نمونه برنامه کامل واسه کرنومتر




.

[nasim bahari]

سلام دوستان

این هم یه نمونه برنامه واسه Load و Crop و Save عکس



.

[nasim bahari]

سلام دوستان

این نمونه برنامه با استفاده از ماوس عمل crop Images رو انجام می ده.....



.

[nasim bahari]

سلام دوستان

این هم یه نمونه برنامه واسه ساختن فایل AutoRun



.

[nasim bahari]

سلام

فکر میکنم که عنوان تایپیک گویا باشه و نیازی به توضیح نداشته باشه.........

با دقت ( یک میلیونم ثانیه )



.

[nasim bahari]

سلام دوستان

این هم یه برنامه واسه کار با فایل های TXT,RTF,DOC .......یه برنامه پایه واسه نوشتن واژه پرداز هستش....

موفق باشین


.

[nasim bahari]

سلام دوستان

این برنامه یه TEXT رو در System Tray قرار میده......فکر میکنم نیاز به توضیح نداشته باشه



.

[nasim bahari]

سلام دوستان

این هم یه نمونه برنامه واسه دانلود فایل از اینترت ..........



.

[nasim bahari]

سلام دوستان

این هم یه نمونه برنامه هستش که کارش خالی کردن RecycleBin هستش


.

[nasim bahari]

سلام دوستان

این هم یه نمونه برنامه دیگر واسه دانلود فایل.....تاکید می کنم که از قبلی که گذاشتم پیشرفته تر است...........




.

[nasim bahari]

سلام دوستان

این هم یه نمونه برنامه هستش که دارای یه بانکه که اطلاعات درون اون با یه تاریخ مشخص ذخیره شده......این برنامه امکان انتخاب دو تاریخ مختلف رو میده تا DataGridView مورد نظر رو طبق اون تاریخ ها فیلتر کنه.....البته امکان نوشتن نتیجه در یک فایل XML هم هست....

موفق باشین



.

[nasim bahari]

سلام دوستان

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



.

[nasim bahari]

سلام دوستان

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




.