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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

نقل قول:

---

نوشته شده توسط A.R.M.N

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

---

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

نقل قول:

---

نوشته شده توسط A.R.M.N

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

---

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

نقل قول:

---

نوشته شده توسط A.R.M.N

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

---

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

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

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

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

موفق باشید

resize pic.rar‏

نقل قول:

---

نوشته شده توسط Hossis

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

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

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

---

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

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

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

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

Radiobutton در DataGridview

https://barnamenevis.org/attach...1&d=1267086962
https://barnamenevis.org/attach...1&d=1267086962

نقل قول:

---

نوشته شده توسط amin_iman82

Radiobutton در DataGridview

https://barnamenevis.org/attach...1&d=1267086962
https://barnamenevis.org/attach...1&d=1267086962

---

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

اين کد هم ليست عددي رو بر اساس عدد مرتب مي کنه‌( د رحالت معمولي،‌ فقط براساس حروف مرتب شده و اعضاي ليست باکس به عنوان رشته فرض مي شوند نه عدد مثلا اين طور ميشه
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

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

با سلام و با تشکر از کدهای کاربردی بسیار خوب این تاپیک:
فایلهای چند صفحه ای که توسط دستگاه فکس دریافت می شوند، معمولا به صورت یک فایل چند صفحه ای 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

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

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

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



موفق باشید


dcode.rar‏

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

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

https://barnamenevis.org/attach...1&d=1267475883
https://barnamenevis.org/attach...1&d=1267475883
https://barnamenevis.org/attach...1&d=1267475883

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

لینک دانلود......

موفق باشید.


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

فهمیدن اینکه برنامه با کاربر 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())

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

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

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);

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

    '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

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

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

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

یه کلاس برای تبدیل اعداد به حروف :

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

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

https://barnamenevis.org/attach...7&d=1267938202

چند نخی
یا Multithreading
https://barnamenevis.org/attach...8&d=1267938273

پرینت گرفتن از فرم
https://barnamenevis.org/attach...9&d=1267938328

loGGing
لاگ برداری
https://barnamenevis.org/attach...1&d=1267938421

TcpRemotinghttps://barnamenevis.org/attach...3&d=1267938498

کار با clipboard
https://barnamenevis.org/attach...4&d=1267938591

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

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

نقل قول:

---

نوشته شده توسط maminb

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

---

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

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

از عملگر 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" را مشاهده می‏کنید.

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

موفق باشین

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

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

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

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

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

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

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

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

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