جمع و تقسیم

[mostafa.kasiri 115]

با سلام

من یک نرم افزار می خوام درست کنم برای معدل می خواهم ادییت تگست 1 رو + ادیت تگست 2 کنه تقسیم بر دو

من این کد ها رو نوشتم ولی رو گوشی کار نمی کنه مشکل کجاس؟

Sub Globals
Private Label1 As Label
Dim i As Int
Private A As EditText
Private B As EditText
Private Button1 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("L2")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click
    Label1.Text= i
i = A + B / 2
End Sub

[porya 959]

فکر کنم باید سه تا متغییر از نوع int تعریف کنید بعد این متغییر ها رو برابر edittext.text کنید بعد کاری که میخوای رو انجام بدید یعنی اینجوری امتحان کنید ببینید جواب میگیرید...

dim i ,i1,i2 as int

i = a.text
i1 = b.text

i2 = i + i1 / 2
label1.text = i2