جدا کردن اعداد سه رقم سه رقم کردن

[taha1371 84]

دیگه از تایپ مشخصه میخوام اعداد داخل برنامه 3 رقم 3 رقم جدا بشن

 

[mkabir 186]

	Dim st As String = NumberFormat(100000,0,3)
	 st.Replace(".",",")

درود. بجای عدد 100000 میتونی متغیر عدد خودت رو بدی .عدد به این شکل تغییر میکنه  100,000  فک کنم برا قیمت بخای.

حالا اگر بخای بجای علامت , چیز دیگه ای باشه کافیه تو خط دوم بجای ","  هرچیزی میخای بزاری 

[taha1371 84]

در 35 دقیقه قبل، mkabir گفته است :

	Dim st As String = NumberFormat(100000,0,3)
	 st.Replace(".",",")

درود. بجای عدد 100000 میتونی متغیر عدد خودت رو بدی .عدد به این شکل تغییر میکنه  100,000  فک کنم برا قیمت بخای.

حالا اگر بخای بجای علامت , چیز دیگه ای باشه کافیه تو خط دوم بجای ","  هرچیزی میخای بزاری 

 من که نفهمیدم

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

که بعدش میخوام جمع بشن

[mkabir 186]

در 12 دقیقه قبل، taha1371 گفته است :

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

که بعدش میخوام جمع بشن

منظورتون اینه که اول اعداد داخل ادیت تکس ها جمع بشن بعد حاصل سه رقم سه رقم جدا بشه ؟؟

[taha1371 84]

در 17 دقیقه قبل، mkabir گفته است :

منظورتون اینه که اول اعداد داخل ادیت تکس ها جمع بشن بعد حاصل سه رقم سه رقم جدا بشه ؟؟

نه اول سه رقم سه رقم بشه بعد جمع بشه وسرقم سرقم نمایش داده بشه اینم یه نمونه

[mkabir 186]

دوست عزیز اگر سه رقم سه رقم بشه تبدیل به داده متنی میشه و دیگه قابل جمع کردن نیست ما تو کد زیر اعداد رو از هر سه ادیت تکست میگیریم جمع میکنیم و بعد سه رقم سه رقم جدا میکنیم بقیه کار ها برا نمایش دادن هم کاری نداره میتونی متغیر st  رو بریزی تو لیبل

	Dim i1,i2,i3 As Int
	i1 = edittext1.Text
	i2 = edittext2.Text
	i3 = edittext3.Text
	Dim str As String
	try
	str = i1 + i2 + i3 
	catch
		log("داده های وارد شده عدد نیست")
	end try
	Dim st As String = NumberFormat(str,0,3)
	st.Replace(".",",")

 

[taha1371 84]

نمیشه وقتی تبدیل به متن شد برش گردونیم به عدد

[مهدی ایزدی 9,203]

در 7 ساعت قبل، taha1371 گفته است :

نمیشه وقتی تبدیل به متن شد برش گردونیم به عدد

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

فقط کافیه یه متغیر از نوع int تغییر کنید و اون رو مساوی با اون رشته قرار بدید.

[mkabir 186]

در 9 ساعت قبل، taha1371 گفته است :

نمیشه وقتی تبدیل به متن شد برش گردونیم به عدد

با احترام به استاد ایزدی

وقتی اعداد رو سه رقم سه رقم کردی علامت ,  داره و استریگ میشه میتونی با تابع زیر بریزیش توی یه متغیر جمع رو انجام بدی  و دوباره با کد قبلی سه رقم سه رقم کنی 

Sub strToInt(str As String) As Int
	str.Replace(",","")
	Return matn
End Sub

' نحوه استفاده 
i1 = strToInt("متن سه رقم جدا شده")

میتونی تو رویداد FocusChanged ادیت تکست چک کنی اگر عددی توش بود اعداد رو سه رقم سه رقم جدا کنی و بعد موقع جمع کردن با تابع بالا متن ادیت تکس رو بگیری و بریزی تو متغیر برای جمع کردن