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

[majerajoo 161]

سلام خسته نباشید

من دو قطعه کد میخوام

یکی اینکه میانگین یک عدد رو بدست میخوام بیارم

و یکی هم مقسوم علیه های اول یک عدد

اگه هر دوتاشو میدونید که لطف میکنید بگید اگه هم نمیدونید اولیش مهم تره

با تشکر

[امین مهدی نژاد 2,142]

میانگین دو عدد بسیار ساده است

مثلا:

Sub average(num1 As Int,num2 As Int) As Int
	Return (num1+num2)/2
End Sub

برای مقسوم علیه های اولم هم که کد زیر

Sub malav(num As Int) 
    For i = 1 To num
		If num Mod i == 0 Then
            Dim k As Int= 0
             For j = 1 To i
                If i Mod j == 0 Then
                    k=k+1
				End If
              Next
             If k == 2 Then
              ToastMessageShow(i,True) 
             End If		  	
		End If
	Next
End Sub

موفق باشید.

[majerajoo 161]

سلام

ممنون از شما

متاسافنه هرکاری کردن نتونستم دو تا عدد از تکست باکس بگیرم و میانگینشون رو حساب کنم چون نمیدونم عدد داخل تکست باکس رو بریزم داخل دستور و چه چیزی رو برمیگردونه که بزارم داخل لیبل

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

چون خیلی احتیاج دارم عجله داررم شرمنده

[امین مهدی نژاد 2,142]

کد رو که دادم.

اگه نحوه استفادش رو نمی دونین به ترتیب زیر عمل کنین

ابتدا دو کد بالا رو در زیر کدهای خودتون قرار بدید

نحوه فراخونیشونم به این ترتیبه

Sub Activity_Create(FirstTime As Boolean)
ToastMessageShow(average(EditText1.Text،EditText2.Text),False)

malav(EditText3.Text) 
End Sub

«موفق باشید.»