View Full Version : چطوری اعدادی شبیه 2A+3A رو به دست بیارم
papa_toop
پنج شنبه 20 دی 1386, 00:11 صبح
سلام
چطوری اعدادی شبیه 2A+3A رو به دست بیارم؟
visual_basic
پنج شنبه 20 دی 1386, 10:13 صبح
دوست من منظورتون رو واضح تر بیان میکنید.میخواهید ورودیتون ایجوری باشه ؟ یا خروجی دستورتون؟
VisualStudio
پنج شنبه 20 دی 1386, 16:03 عصر
اگر منظورتون اینه که که حاصل 5A بشه میتونید از تابع Split استفاده کنید اول مقدار عدد را بدست آورید و سپس به علاوه قسمت حرفی کنید
papa_toop
جمعه 21 دی 1386, 22:42 عصر
منظور من اینه که اگر دوتا textbox داشته باشیم جواب 2A+3A=5A توی Lable نشون داده بشه
--------------------------------
می شه از چیزی که گفتید یه مثال بزنید
مرسی
maryam_vb
شنبه 22 دی 1386, 17:19 عصر
منظور من اینه که اگر دوتا textbox داشته باشیم جواب 2A+3A=5A توی Lable نشون داده بشه
--------------------------------
این کد کارتو راه میندازه ولی زیاد جالب نیست:
Dim a, b AsInteger
Dim c AsChar
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
چک کن t1 و t2 خالی نباشه!
a = Mid(T1.Text, 1, T1.Text.Length - 1)
b = Mid(T2.Text, 1, T2.Text.Length - 1)
c = Mid(T1.Text, T1.Text.Length, 1)
L1.Text = Str(a + b) & c
EndSub
papa_toop
شنبه 22 دی 1386, 23:09 عصر
دستت درد نکنه خوب بود
ولی من راستش می خوام این دو عدد رو جمع کنم ( برای قفل تلفنی)
374A617EB7A3C9E22A3D93D3E7BA317 + 2527
حالا این رو چیکار کنم؟
مرسی
papa_toop
یک شنبه 23 دی 1386, 23:02 عصر
سلام
من در واقع می خوام یه همچین چیزی داشته باشم و جوابش Integer باشه
9D7748C0F7C17FE4FEC12CAB4E3B7B43D2BBC77CAD8D + 213123
maryam_vb
دوشنبه 24 دی 1386, 14:42 عصر
سلام
من در واقع می خوام یه همچین چیزی داشته باشم و جوابش Integer باشه
9D7748C0F7C17FE4FEC12CAB4E3B7B43D2BBC77CAD8D + 213123
یعنی فقط اعداد موجود در عبارات رو با هم جمع کنه و با حروف کاری نداره، درسته؟
اگه این جوری باشه که خیلی راحته .
saghari
دوشنبه 24 دی 1386, 15:46 عصر
از کد زیر استفاده کن
Dim StringLen As Int64 = Len(Me.TextBox1.Text)
Dim SumNumber As Integer
If StringLen > 0 Then
For Counter As Integer = 1 To StringLen
If IsNumeric(Mid((Me.TextBox1.Text), Counter, 1)) Then
SumNumber = SumNumber + Convert.ToInt16(Mid((Me.TextBox1.Text), Counter, 1))
End If
Next
End If
MsgBox(SumNumber)
البته مشخصه که بجای محتوای تکست باکس میتونی یک متغیر از نوع استرینگ قرار بدی
saman_itc
دوشنبه 24 دی 1386, 16:16 عصر
فکر کنم دوستمون بخواد تو مبنای 16 جمع کنه درسته؟
papa_toop
پنج شنبه 27 دی 1386, 11:08 صبح
سلام
saghari جان دستت درد نکنه من منظورم همین بود ولی همون طور که می دونید سه رقم برای قفل تلفنی کمه و می شه براحتی براش کیجن ساخت
papa_toop
یک شنبه 30 دی 1386, 11:53 صبح
لطفا بگید که چی کار کنم تا بیشتر از 5 رقم بشه
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.