یه دستور شرطی ... (دقیقا نمیدونم موضوع رو چه بنویسم با عرض پوزش)

[mpnbooks 4]

سلام و شبتون بخیر

لطفا راهنمایی کنید:

یه دستور شرطی می خوام به اینصورت که:

مثلا مقدار عددی که در EditText1 وارد میشه بعد از کلیک بر روی باتن محاسبه به این صورت تفکیک بشه که، 50 تا از اون در Label1 قرار بگیره و 50 تای دیگه در Label2 و 50 تای دیگه در Label3 و ...

حالا ممکنه عدد مثلا 45 باشه که در اونصورت تمام مقدار 47 در Label1  وارد میشه

نمیدونم تونستم منظورم رو برسونم یا نه، لطفا راهنمایی کنید.

 

[asheune 70]

خب دوست عزیز شما میتونی محتویات کادر متن رو بریزی تو یه متغیر رشته ای .

بعد اندازشون رو بشماری .بعد 50 تا 50 تا جدا کنی اگه هم 50 تا نبود هر چنتا ک کم و بیش داشته باشه میتونی بذاری .

اگه تو انجمن درمورد کار بارشته جستجو کنی شاید به نتیجه برسی .

[محمد رشوند 1,208]

@@mpnbooks,

شما نیاز به یه الگو داری برای کارت مثلاً بیاید لیبل اخر رو نادیده بگیرید در صورتی که تقسیم کردنتون باقی مانده داشت اگر بافی مانده نداشت عدد مورد نظر تقسیم بر تعداد لیبل هاتون میشه و اون عدد حاصل توی لیبل ها چاپ میشه اگر با قی مانده داشت عدد مورد نظر تقسیم بر تعداد لیبل ها منهی یک میشه اونوقت با قی مانده رو تو لیبل اخر چاپ میکنیم

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

یک معادله ای برات نوشتم خداییش نیم ساعت پاش بودم فقط تا تمام باگ هاش برطرف شد 

خود نیوتون رو هم از تو قبر در بیاری نمیفهمه این چی شده 

Sub Globals
	Private ListView1 As ListView
	Private EditText1 As EditText
	Private Button1 As Button
	Dim num As Int
	Dim resid As Int
	Dim c As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
	
End Sub

Sub Button2_Click
	ListView1.Clear
	num = EditText1.Text
	If num<50 Then
		ListView1.AddSingleLine(num)
	Else
			 		Dim z As Int
		If num mod 50 = 0 Then
			num = num/50
			For i = 0 To num-1
				z =z+1
				ListView1.AddSingleLine(z*50)
			Next
		Else
				''''''''''''''
					c = 0
		resid = 49
		num = EditText1.Text
		For i=0 To num-1

			If i=resid Then
				ListView1.AddSingleLine(resid+1)
				resid=resid+50
			End If
			c = c+1
		Next
			c = c-1
			Log(c)
			Dim last As Int = ListView1.Size-1
			If c-ListView1.GetItem(last)+1 = 0 Then
				 Log("fixe")
			Else
				ListView1.AddSingleLine(c-ListView1.GetItem(last)+1)
			End If	
		End If
	End If
End Sub

سورس رو هم پیوست کردم برات

(AnswerCenter.IR).zip