PDA

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 رقم بشه