از همه خيلي ممنونم
Printable View
از همه خيلي ممنونم
برنامه ای برای انتقال فایلهای یک مسیر به یک مسیر مقصد،
(این برنامه رو قبلا خودم از اینترنت دانلود کرده بودم ولی منبعش یادم نیست! :لبخندساده:)
امیدوارم قابل استفاده دوستان باشه.
با سلام به دوستان گلم
چند وقتی بود به دنبال برنامه بودم که بتونه برای اطلاعات یا همون پسورد برنامه به صورت یک رشته از کاربر دریافت کنه جوری تبدیلش کنه که قابل خواندن نباشه
زیاد به دنبال ابن برنامه گستم که به زبون 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
کار با clipboard
https://barnamenevis.org/attach...4&d=1267938591
این هم یک مجموعه کد نسبتا کامل از نمونه کدهای
++C
#C
VB
منبع microsoft
http://vssample.4shared.com/
میتونم بپرسم رجیستر کردن یک کامپوننت به چه دردی میخوره؟ (در چه مواقعی استفاده میشه؟)
لابد براي برنامه نويسي بدرد ميخوره كه ميخواد نرم افزارشو بفروشه و خريدار پيغامهايي در رابطه با استفاده غير مجاز برنامه نويس از كامپوننتهاي تجاري رو نبينه
از عملگر 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 در این تایپک هستش .
ضمن تشکر از همه دوستانی که در این مدت توی این تاپیک فعالیت کردن و سروس کدهای خوب خودشون رو گذاشتن ، بنده هم برنامه ای رو که همین دیروز نوشتم رو تقدیمتون میکنم .
این برنامه یه کرونومتره که قابلیت جداسازی هم داره . یعنی چی ؟؟؟ فرض کنید که بین دوستاتون یه مسابقه گذاشتید و میخاید ببینید که کدومشون (مثلا ) میتونه بیشتر نفسش رو در سینه جبس کنه ( فرض بر اینه که میخاید به صورت همزمان مسابقه رو بین دوستاتون برگزار کنید ) . مطمئنا اگه بخاید به صورت متوالی دکمه توقف رو بزنید و زمان بدست اومده رو یادداشت کنید ، نتایج اشتباه میشن . بنابراین میتونید خیلی راحت دکمه جدا سازی رو بزنید و نتیجه بدست اومده توسط هریک از دوستانتون رو در لیست باکس برنامه یادداشت کنید . آخرش هم به برنده یه جایزه بدید !!!
سلام
با تشکر از دوست خوب جناب Netsky از کار زیباشون چون این کرنومتر برای شرو مجدد از صفر دکمه ریست نداشت با اجازه منم اونو اضافه کردم و تقدیم میدارم
با تشکر از sina 26 . اصلا به طور کل یادم رفت دکمه Reset رو بزارم . بازم از آقا سینا تشکر میکنم .
محو شدن فرم در هنگام بسته شدن. یا به زبان شیرین فارسی fade out شدن فرم!
سلام دوست عزيز.
ممنون كه زحمت گذاشتن سورس كدها رو كشيدي. باور كن يكي از بزرگترين آموزشها و راهنمائيها در برنامه نويسي استفاده از سورس كدهاست. لطفاً از اينكه كسي كدي نمي ذاره دلسرد نشو مطمئن باش كه تعداد زيادي وارد اين بخش ميشن و اونها رو دانلود مي كنن. من يكمي گرفتارم ولي سعي مي كنم كه منم همكاري كنم و اطلاعات و كدهاي خودم رو بذارم.
ممنون
حسن
hasanvaez@gmail.com
کمبوباکس با قابلیت افزودن تصویر (کمبوباکس تصویری)
سلام به همه دوستان
من امروز به جمعتون اضافه شدم
یعنی همین چند دقیقه پیش ثبت نام کردم
اولین تاپیکی هم که سر زدم این تاپیک بود:لبخندساده:
خیلی خوشم اومد از برنامه ها
منم حتما برنامه می ذارم، به نظر من بهترین زبان برنامه نویسی حال حاضر :لبخند:VB.NET
جمع و تفریق اعداد صحیح بسیار بزرگ
برنامه ای برای ارسال sms و missed call انداختن!
سلام خدمت همه اساتید
این ماژول رو خودم نوشتم واسه کار با دیتابیس sql هستش شما کافی دستور sql رو بهش بدین
Module Module1مثلا در برنامه برای اجرای sqldatareader:
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
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)
برای نشان دادن تاریخ بصورت فارسی
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
سلام
این برنامه بعد از گرفتن عکس و درایو تون عکس رو پس زمینه قرار میده
متدی برای تشخیص صحت کد ملی :
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
سلام
این کد فرم رو به صورت افکتی باز میکنه
با این برنامه شما از طریق gmail میتونید ایمیل ارسال کنید
شناسائی اعداد اول ریاضی
سورس فایل تقدیمی جهت شناسائی اعداد اول ریاضی استفاده میشه امیدوارم برایتان مفید باشه
سلام
این برنامه از صفحه مانیتور عکس میگیره